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$