*COMDECK PADMXCONS
*CALL MUXMACROS 
*CALL REL6CONST 
* 
          EJT 
* 
* 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*              X25 PAD SUBTIP TEXT PROCESSING EQUATES                 * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
* 
* 
*         * * *  WORKCODE 
* 
*                  NO WORKLIST ENTRY WILL BE MADE FROM
*                  TEXT PROCESSING STATE
* 
* 
* 
*         * * *  BUFFER FLAGS (SECOND WORD OF CURRENT BUFFER) 
* 
*                *  BUFFER FLAGS FOR INPUT
* 
*                   USED BY NON TRANSPARENT INPUT 
* 
          EQU    XBLFEPL($10)     END OF PHYSICAL LINE BY LF CHARACTER
          EQU    XBEBLK($8)  *    END OF BLK-BLOCK
* 
*                   USED BY TRNASPARENT INPUT 
* 
          EQU    XBXPT($4)   *   TRANSPARENT
* 
*                *  BUFFER FLAGS FOR OUTPUT 
* 
          EQU    XBEPKT($1)  *    THE LAST BUFFER IN A PACKET 
* 
* 
*         * * *  MUX LCB FLAGS
* 
* 
*                *  INPUT MUX LCB FLAGS 
* 
*                   FOR NON-TRANSPARENT INPUT 
* 
          EQU    XMFXPT(NCUOP1)   TRANSPARENT INPUT MODE
          EQU    XMFMBIT(NCUOP2)  M-BIT IN CURRENT PACKET 
          EQU    XMFNODT(NCUOP3)  NO DATA IN BUFFER ONLY DBC FILL CHAR
          EQU    XMFLF(NCUOP4)    CHECK FOR EMBEDDED LF CHARACTER 
          EQU    XMFEOLL(NCUOP5)  END OF LOGICAL LINE 
          EQU    XMFEOB(NCUOP6)   END OF BLOCKMODE
          EQU    XMFASCII(NCUOP7) FULL ASCII INPUT MODE 
          EQU    XMFIDEV(NCUOP8)  INPUT DEVICE TYPE OF KEYBOARD 
          EQU    XMFSEDIT(NCUOP9) SPECIAL EDIT MODE 
* 
* 
*                  FOR TRANSPARENT INPUT
* 
*                XMFXPT(NCUOP1)   REFER TO
*                XMFMBIT(NCUOP2)     NON-TRANSPARENT
*                XMFNODT(NCUOP3)        INPUT DEFINITION
          EQU    XMFTCHR(NCUOP4)  DELIMIT BY DL CHARACTER 
          EQU    XMFMULTI(NCUOP5) MULTI TRANSPARENT MODE
          EQU    XMFTO(NCUOP6)    TRANSPARENT TIME OUT
          EQU    XMFMSG(NCUOP7)   MSG-BLOCK TO BE SENT
          EQU    XMFXEND(NCUOP8)  END OF TRANSPARENT MODE 
          EQU    XMFXHH(NCUOP9)   FIRST DELIMIT CHARACTER SEEN
          EQU    XMFPAI(NCUOPB)   IGNORE PARITY ON XPT DELIMITER
          EQU    XMFXSTU(NCUOPC)  STICKY TRANSPARENT TIME OUTS
* 
*                *  OUTPUT MUX LCB FLAGS
* 
          EQU    XMFELLDL(NCUOP1)   END OF LOGICAL LINE 
          EQU    XMFEPAGE(NCUOP2)   END OF PAGE 
          EQU    XMFPGTURN(NCUOP3)  PAGE WAIT OPTION ON 
          EQU    XMFPAGE(NCUOP4)    PAGING OPTION ON
          EQU    XMFFE(NCUOP5)      FORMAT EFFECTOR EXIST 
          EQU    XMFHCFF(NCUOP6)    REPROCESS HC OR FF FORMAT EFFECTOR
          EQU    XMFSTORFF(NCUOP7)  STORE HC OR FF
          EQU    XMFTMLMSG(NCUOP8)  LAST ACTION WAS DL IVT REAP MSG 
          EQU    XMFBLKLN(NCUOP9)   INSERT BLANK LINE FOR END OF PAGE 
* 
* 
*         * * *  TEXT PROCESSING MUX LCB FIELD EQUATES
* 
* 
*                *  BASE TPCB FIELDS
* 
          EQU    XMSTAI($3)  *    TEXT PROCESSING STATE INDEX 
          EQU    XMCNTL($4)  *    PAGE LENGTH 
          EQU    XMLFCNT($4) *    CC1 MAINLY USED AS LF COUNT ON OUTPUT 
          EQU    XMSCHR($8)  *    BACKSPACE OR TRANSPARENT DELIMITER
          EQU    XMFCD($8)   *    BUFFER FCD
          EQU    XMIDLCNT($A)     CC2 USED AS IDLE COUNT ON OUTPUT
          EQU    XMCCNT2($A) *    CC2 USED AS CHARACTER COUNT ON INPUT
          EQU    XMBLKL($B)  *    SIZE OF PACKET FOR OUTPUT 
*                                  AND SUB BLOCK SIZE FOR NON XPT INPUT 
*                                  OR XPT CHARACTER COUNT DL VALUE
* 
*                *  FILE 1 REGISTER FIELDS EQUATES FOR INPUT
* 
          EQU    XF1INCHR($0)     CURRENT CHARACTER 
          EQU    XF1RTIN($1) *    RIGHT HAND CHARACTER IN A WORD
          EQU    XF1IFSBA($2)     FIRST SOURCE DATA BUFFER
* 
*                *  FILE 1 REGISTER FIELDS EQUATES FOR OUTPUT 
* 
          EQU    XF1OUTCHR($0)    CURRENT CHARACTER 
          EQU    XF1RTOUT($1)     RIGHT HAND CHARACTER IN A WORD
          EQU    XF1OSFBA($2)     FIRST SOURCE DATA BUFFER
          EQU    XF1PKTCNT($3)    PACKET CHARACTER COUNT
          EQU    XF1LNCNT($4)     LINE COUNT FOR PAGE LENGTH
          EQU    XF1PGWIDTH($5)   PAGE WIDTH
          EQU    XF1CHRCNT($6)    CHARACTER COUNT FOR PAGE WIDTH
          EQU    XF1FESAVE($7)    SAVED FORMAT EFFECTOR 
          EQU    XF1LFIDL($8)     LINE FEED IDLES 
          EQU    XF1CRIDL($9)     CARRIAGE RETURN IDLES 
          EQU    XF1RTJ($A)  *    RETURN STATE
          EQU    XF1PARITY($A)    USED BY X25PAR INSTRACTION
          EQU    XF1SVDATA($B)    SAVED CURRENT CHARACTER 
          EQU    XF1FILL($C) *    OPTIONAL SIZE OF FILLER BETWEEN PAGES 
          EQU    XF1ONE($D)  *    CHECK AGANIST F1 REGISTER FIELD 
          EQU    XF1SIX($E) 
          EQU    XF1WORK($F) *    WORKING AREA
* 
* 
*         * * *  LOCAL VARIABLE EQUATES 
* 
* 
          EQU    XPBIT($F)   -    PARITY BIT OF SPECIAL CHAR (XCSCHR) 
* 
*         * * *  CHARACTER EQUATES
* 
*                *  COMMON CHARACTER EQUATES
* 
          EQU    XCZERO($0) 
          EQU    XCFILL($0)  *    FILLING DBC FIELD 
          EQU    XCONE($1)
          EQU    XCTWO($2)
          EQU    XCTHREE($3)
          EQU    XCNEWFCD($0C)    NEW FCD FOR ALLOCATED BUFFER
* 
*                *  CHARACTER EQUATES FOR OUTPUT
* 
          EQU    XLFC1($1)   *    ACCESSING CC1 FOR OUTPUT STATE
          EQU    XIDLE2($2)  *    ACCESSING CC2 FOR OUTPUT STATE
          EQU    XCIDLCHR($0)     IDLE CHARACTER
          EQU    XCBKSPC($8) *    DOWNLINE BACKSPACE CHARACTER
          EQU    XCONIDL($0A)     CONSTANT IDLE VALUE 
          EQU    XCHB($42)   *    CHARACTER B 
          EQU    XCHG($47)   *    CHARACTER G 
          EQU    XCHH($48)   *    CHARACTER H 
          EQU    XCHO($4F)   *    CHARACTER O 
          EQU    XCHV($56)   *    CHARACTER V 
          EQU    XCHE($45)   *    CHARACTER E 
          EQU    XCHR($52)   *    CHARACTER R 
          EQU    XCDOT($2E)  *    CHARACTER . 
          EQU    XCFF($0C)   *    FF
          EQU    XCCR($0D)   *    CARRIAGE RETURN 
          EQU    XCCAN($18)  *    CAN 
          EQU    XCEM($19)   *    EM
          EQU    XCDC2($12)  *    DC2 
          EQU    XCESC($1B)  *    ESCAPE
          EQU    XCFS($1C)   *    FS
          EQU    XCLEADIN($7E)    HAZELTINE 2000 LEADIN CHAR
* 
*                *  CHARACTER EQUATES FOR INPUT 
* 
          EQU    XCSCHR(8)   *    SPECIAL CHARACTER 1             (LWD) 
          EQU    XCS2CHR(15) *    SPECIAL CHARACTER 2             (LWD) 
          EQU    XCS3CHR(15) *    SPECIAL CHARACTER 3             (RWD) 
          EQU    XCNUL($00) 
          EQU    XCSTX($02) 
          EQU    XCETX($03) 
          EQU    XCEOT($04) 
          EQU    XCLF($0A)
          EQU    XCFRD($0D) 
          EQU    XCDC3($13) 
          EQU    XCDEL($7F) 
* 
          EQU    XCTLCHAR($20)
          EQU    XPLCNT1($1) *    ACCESSING CC1 FOR BUFFER LIMIT COUNT
          EQU    XBLKCNT2($2)     ACCESSING CC2 FOR NON-TRANSPARENT 
*                                  SUB-BLOCK COUNT
          EQU    XPTCNT2($2) *    ACCESSING CC2 FOR TRANSPARENT 
*                                  DELIMIT BY CHARACTER COUNT 
