ASMB
      NAM SSUB,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-18020
*     RELOC:     24306-60001
* 
* 
* 
******************************************************************
* 
* 
* 
* 
*FUNCTION - SUBTRACT ONE CHARACTER STRING FIELD OF
*ARBITRARY LENGTH FROM A SECOND CHARACTER STRING AND
*PLACE THE RESULT IN A SECOND STRING
* 
*CALLING SEQUENCE 
*CALL SSUB(JSTR,J,JLAST,KSTR,K,KLAST,NER) 
* 
      ENT SSUB
      EXT .ENTR,SA2DE,SDEA2,SSIGN,SADD
PARAM BSS 7 
SSUB  NOP 
      JSB .ENTR     TRANSFER PARAMETERS 
      DEF PARAM 
      CLA 
      STA IERR
      JSB SA2DE     CONVERT JSTR TO D2
      DEF *+5 
      DEF PARAM,I 
      DEF PARAM+1,I 
      DEF PARAM+2,I 
      DEF IERR
      LDA IERR      ILLEGAL CHAR IN JSTR? 
      SZA 
      JMP ERR1      IF SO 
      JSB SSIGN     CHANGE SIGN OF JSTR 
      DEF *+5 
      DEF PARAM,I 
      DEF PARAM+2,I 
      DEF ZERO
      DEF IY
      JSB SDEA2     CONVERT JSTR TO A2
      DEF *+5 
      DEF PARAM,I 
      DEF PARAM+1,I 
      DEF PARAM+2,I 
      DEF IERR
      JSB SADD      ADD JSTR TO KSTR
      DEF *+8 
      DEF PARAM,I 
      DEF PARAM+1,I 
      DEF PARAM+2,I 
      DEF PARAM+3,I 
      DEF PARAM+4,I 
      DEF PARAM+5,I 
      DEF PARAM+6,I 
      JSB SA2DE     CONVERT JSTR TO D2
      DEF *+5 
      DEF PARAM,I 
      DEF PARAM+1,I 
      DEF PARAM+2,I 
      DEF IERR
      JSB SSIGN     CHANGE SIGN OF JSTR 
      DEF *+5 
      DEF PARAM,I 
      DEF PARAM+2,I 
      DEF ZERO
      DEF IY
OUT   JSB SDEA2     CONVERT JSTR TO A2
      DEF *+5 
      DEF PARAM,I 
      DEF PARAM+1,I 
      DEF PARAM+2,I 
      DEF IERR
      JMP SSUB,I    RETURN
ERR1  CCA 
      STA PARAM+6,I 
      JMP OUT       NER=-1
ZERO  OCT 0 
IY    BSS 1 
IERR  OCT 0 
      END 
      END$
                                                                