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 
                                                                                                  