ASMB NAM SD1D2,7 24306-60001 REV.2026 791205 * * ******************************************************************* * (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-18012 * RELOC: 24306-60001 * * * ****************************************************************** * * * * *FUNCTION - CONVERT A CHARACTER STRING FROM D1 TO D2 * FORMAT * *CALLING SEQUENCE *CALL SD1D2(KSTR,K,KLAST,DIFF) * ENT SD1D2 EXT .ENTR,SPUT PARAM BSS 4 SD1D2 NOP JSB .ENTR TRANSFER PARAMETERS DEF PARAM LDA PARAM+2,I KNOW=KLAST STA KNOW KNOW=CHAR POINTER FOR D2 FORMAT ADA PARAM+3,I BNOW=WORD POINTER FOR D1 FORMAT STA BNOW BNOW=KNOW+DIFF GET LDB BNOW KTEST=KSTR(BNOW) ADB PARAM LDA 1,I STA KTEST CLA KSTR(KNOW)=0 STA 1,I JSB SPUT PUT KTEST IN KSTR IN D2 FORMAT DEF *+4 DEF PARAM,I DEF KNOW DEF KTEST CCA KNOW=KNOW-1 ADA KNOW STA KNOW CCA ADA BNOW BNOW=BNOW-1 STA BNOW LDA PARAM+1,I KNOW