*COMDECK HASPIEQU 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*         HASP INPUT STATES/TEXT-PROCESSING EQUATES                   * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
          SPC    1
          EQU    HCSOH($01)  -    BSC OUTER PROTOCOL CHARACTERS 
          EQU    HCSTX($02) 
          EQU    HCDLE($10) 
          EQU    HCETB($26) 
          EQU    HCENQ($2D) 
          EQU    HCSYN($32) 
          EQU    HCNAK($3D) 
          EQU    HCACK($70) 
          EQU    HCPAD($FF) 
          SPC    1
          EQU    HCEE($C5)   -    EBCDIC CHARACTER EQUATES
          EQU    HCSS($E2)
          EQU    HCTT($E3)
          EQU    HCII($C9)
          EQU    HCRR($D9)
          EQU    HCOO($D6)
          EQU    HCTWO($F2) 
          EQU    HCSIX($F6) 
          EQU    HCNINE($F9)
          EQU    HCASTER($5C) 
          EQU    HCCOLON($7A) 
          EQU    HCSLASH($61) 
          EQU    HCBLNK($40)
          EQU    HC789($3F) 
          SPC    1
          EQU    HCZERO($0)  -    CHARACTER 0 
          EQU    HCCONTROL($F0)   CONTROL RCB 
          EQU    HCSIGNON($C1)    SIGNON SRCB 
          SPC    1
          EQU    HFCDLVL(8)  -    FCD FOR EOR LEVEL NUMBER
          EQU    HFCDATA(12) -    FCD FOR DATA BUFFER 
          EQU    HCMAXBUF($08)    MAX NO. OF CONSECUTIVE BUFFERS
          SPC    1
          EQU    HTHREE(6)   -    INPUT TIMER THREE SECONDS 
          EQU    HTRESET(0)  -    TURN TIMER OFF VALUE
          SPC    1
          EQU    HWKENQ(A0WK1)    ENQ RECEIVED WORKCODE 
          EQU    HWKERR(HWKENQ+1) ERR RECEIVED WORKCODE 
          EQU    HWKACK(HWKENQ+2) ACK RECEIVED WORKCODE 
          EQU    HWKNAK(HWKENQ+3) NAK RECEIVED WORKCODE 
          EQU    HWKMSG(HWKENQ+4) MSG RECEIVED WORKCODE 
          EQU    HWKBTH(HWKENQ+5) BUFFER THRESHOLD WORKCODE 
          SPC    1
          EQU    HNONCMP($C0)     NON COMPRESSED DATA SCB 
          EQU    HCMPNBLKS($A0)   COMPRESSED NON BLANKS SCB 
          SPC    1
          EQU    HMNCMSK($3F)     NON-COMPRESSED-DATA SCB MASK
          EQU    HMCBMSK($1F)     COMPRESSED BLANKS MASK
          EQU    HMCNBMSK($1F)    COMPRESSED NON-BLANKS MASK
          EQU    HMCHRMSK($FF)    CHARACTER MASK
          SPC    1
          EQU    MX26(NCUOP1)     CODE SET 26 
          EQU    MXJOB(NCUOP2)    JOB CARD EXPECTED FLAG
          EQU    MX63(NCUOP3)     63 CHARACTER SET
          EQU    MXEOF(NCUOP4)    EOF DETECTED FLAG 
          EQU    MXEOR(NCUOP5)    EOR DETECTED FLAG 
          EQU    MXEOI(NCUOP6)    EOI DETECTED FLAG 
          EQU    MXXPT(NCUOP7)    TRANSPARENT DEVICE FLAG 
          SPC    1
          EQU    MB26(NBUOP1) 
          EQU    MBJOB(NBUOP2)
          EQU    MBEOR(NBUOP5)
          SPC    1
          EQU    BFEOI($10)  -    BUFFER EOI FLAG 
          EQU    BFEOR($08)  -    BUFFER EOR FLAG 
          EQU    BFXPT($04)  -    BUFFER XPARENT WORKSTATION FLAG 
          SPC    1
          EQU    CC1(1)      -    COUNTER 1 
          EQU    NCUOPS(7)   -    USER OPTION FLAG WORD 
          EQU    CC2(2)      -    COUNTER 2 
          EQU    NCCNT1($04) -    CHARACTER COUNT 1 
          EQU    NCCRCS($09) -    CRC ACCUMULATION FIELD
          EQU    NCCNT2($0A) -    CHARACTER COUNT 2 
          EQU    NCBLCNT($0E)     NR OF DESTINATION BUFFERS USED
* 
*         FILE REGISTERS FOR INPUT TEXT PROCESSING
* 
          EQU    TPCURC($00) -    CURRENT CHARACTER 
          EQU    TPSAVE($03) -    CHARACTER SAVE REGISTER 
          EQU    TPCCCARD($06)    CARD CHARACTER COUNT
          EQU    TPCREC($07) -    CONSECUTIVE RECORD COUNT
          EQU    TPLRCB($08) -    LAST RECORDS RCB
          EQU    TPHOLD($09) -    TEMPORARY SAVE REGISTER 
          EQU    TPTEN($0A)  -    REGISTER CONTAINING VALUE OF 10 
          EQU    TPLAST($0C) -    LAST CHARACTER PROCESSED
          EQU    TPNXTL($0D) -    NEXT TO LAST CHARACTER PROCESSED
          EQU    TPSVCH($0E) -    CHARACTER SAVE REGISTER 
