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<K? 
      CMA,INA 
      ADA KNOW
      SSA 
      JMP SD1D2,I  IF SO, RETURN
      JMP GET 
KNOW  BSS 1 
KTEST BSS 1 
BNOW  BSS 1 
      END 
      END$
                                                                                                                                                                                      