ASMB,L HED "VWMOV" - SINGLE PRECISION VECTOR MOVE TO EMA. NAM VWMOV,7 12824-1X022 REV.2026 800506 * ENT VWMOV ************************************************************** * * NAME: VWMOV * SOURCE: 12824-18022 * RELOC: PART OF 12824-12001 * PGMR: BG,CG * * *********************************************************** * * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. ALL RIGHTS * * * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, * * * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE * * * WITHOUT THE PRIOR CONSENT OF HEWLETT-PACKARD COMPANY. * * *********************************************************** * ************************************************************** EXT VMOV,.WCOM * A EQU 0 B EQU 1 * * FOR DETAILS, SEE ".WCOM" . * VWMOV NOP JSB .WCOM DEF VMOV+0 NON-EMA ROUTINE. BYT 2,1 2 SCALARS, 1 VECTOR. ABS 511+20000B 2 WORDS / ELEMENT, FLAG = BREAK. BREAK NOP LDB BREAK,I GET IX1 INB LDA B,I LDA A,I A = IX1 ADB =D3 GET ADDR N. LDB B,I MPY B,I A = IX1 * N ALS * 2 WORDS / ELEMENT. LDB BREAK,I GET ADDRESS V1. ADA B,I INCREMENT V1. STA B,I ISZ BREAK EXIT. ISZ BREAK JMP BREAK,I END