ASMB
      NAM SMOVE,7 24306-60001 REV.2026 791206 
* 
* 
******************************************************************* 
* (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 WRITTEN
* CONSENT OF HEWLETT-PACKARD COMPANY. 
******************************************************************* 
* 
* 
*     SOURCE:    24306-18016
*     RELOC:     24306-60001
* 
* 
* 
******************************************************************
* 
* 
* 
* 
*SMOVE MOVES DATA FROM ONE STRING ARRAY TO ANOTHER. 
*SMOVE MOVES DATA FROM JSTR(J) THRU JSTR(JLAST) TO KSTR(K) THRU 
*KSTR(K+JLAST-J)
* 
      ENT SMOVE 
      EXT .ENTR,SGET,SPUT 
PARAM BSS 5 
SMOVE NOP 
      JSB .ENTR 
      DEF PARAM 
      LDA PARAM+1,I REG A=J 
      STA JNOW      JNOW=J
ONE   LDB PARAM+1,I 
      CMB,INB       REG B=-J
      ADB PARAM+4,I REG B=K-J 
      ADB JNOW      REG B=K+JNOW-J
      STB KNOW      KNOW=K+JNOW-J 
      JSB SGET      GET JCHAR 
      DEF *+4 
      DEF PARAM,I    JSTR 
      DEF JNOW
      DEF JCHAR 
      JSB SPUT      PUT JCHAR 
      DEF *+4 
      DEF PARAM+3,I  KSTR 
      DEF KNOW
      DEF JCHAR 
      LDB PARAM+2,I 
      CMB,INB        REG B=-JLAST 
      ADB JNOW      REG B=JNOW-NLAST
      SSB,RSS 
      JMP SMOVE,I    JNOW-JLAST<=0,RETURN 
      ISZ JNOW      JNOW=JNOW+1 
      JMP ONE 
JNOW  BSS 1 
KNOW  BSS 1 
JCHAR BSS 1 
      END 
      END$
                                                                                                                                                                                                                                        