ASMB
      HED S/P MOVEW          (15/10/75)     F. GAULLIER 
      NAM MOVEW,7 . 92080-1X042 REV.2026  800515
* 
*     SOURCE 92080-18042
* 
      SPC 2 
**************************************************************
* (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978.  ALL RIGHTS    *
* RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- *
* PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH-  *
* OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.  *
**************************************************************
      SPC 2 
      EXT .ENTR,&MVW
      ENT MOVEW 
* 
*     THIS PROGRAM MOVES AN ARRAY 
* 
*     CALL MOVEW(IBUFS,IBUFD,# WORDS) 
* 
AINI  NOP 
AFINI NOP 
NMO   NOP 
MOVEW NOP 
      JSB .ENTR 
      DEF AINI
* 
      LDA NMO,I 
      STA NM
* 
      LDA AINI
      LDB AFINI 
      JSB &MVW
NM    NOP 
* 
      JMP MOVEW,I 
      END 
                                                                                                                    