ASMB,L HED "DVWMV" - DOUBLE PRECISION VECTOR MOVE TO EMA. NAM DVWMV,7 12824-1X043 REV.2026 800506 * ENT DVWMV ************************************************************** * * NAME: DVWMV * SOURCE: 12824-18043 * 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 DVMOV,.WCOM * A EQU 0 B EQU 1 * * FOR DETAILS, SEE ".WCOM" . * DVWMV NOP JSB .WCOM DEF DVMOV+0 NON-EMA ROUTINE. BYT 2,1 2 SCALARS, 1 VECTOR. ABS 255+20000B 4 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,ALS * 4 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