*COMDECK ASYINCON 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*         ASYNC BLOCK MODE TIP, DEFINITION OF INPUT STATES CONSTANTS  * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
          SPC    3
* 
* * * *   WORKCODES SEND TO THE MUX LEVEL TIP 
* 
          EQU    A2WXON(A0WK2)         XON RECEIVED 
          EQU    A2WXOFF(A0WK3)        XOFF RECEIVED
          EQU    A2WINACT(A0WK4)       INPUT ACTIVE (FIRST CHARACTER) 
          EQU    A2WLF(A0WK5)          LF RECEIVED
* 
* * * *   WORKCODES SEND TO THE OPS LEVEL TIP 
* 
          EQU    A2WEOB(A0WK5)         END OF BLOCK         (EOB) 
          EQU    A2WEOL(A0WK6)         END OF LOGICAL LINE  (EOL) 
          EQU    A2WEOP(A0WK7)         END OF PHYSICAL LINE (LF/BLK)
          EQU    A2WREGL(A0WK8)        MUX BUFFER REGULATION
          EQU    A2WDLABT(A0WK9)       DOWN LINE ABORT (PLATO)
          EQU    A2WSCHAR(A0WK10)      SECURITY CHARACTER DETECTED
* 
* * * *   WORKCODES USED DURING AUTO RECOGNITION, SEND TO OPS LEVEL TIP 
* 
          EQU    A2WFAIL(A0WK11)       AUTO RECOGNITION FAILED
* 
*                                      LOW RANGE         HIGH RANGE 
* 
          EQU    A2W110(A2WFAIL+1)     110   BPS            - 
          EQU    A2W134(A2W110+1)      134.5 BPS (2741)     - 
          EQU    A2W150(A2W110+2)      150   BPS         600  BPS 
          EQU    A2W300(A2W110+3)      300   BPS         1200 BPS 
          EQU    A2W301(A2W110+4)      300   BPS (2741)     - 
          EQU    A2W600(A2W110+5)      600   BPS         2400 BPS 
          EQU    A2W1200(A2W110+6)     1200  BPS         4800 BPS 
          EQU    A2W2400(A2W110+7)     2400  BPS         9600 BPS 
* 
          EQU    A2WASCII(A2WFAIL+1)   ASCII
          EQU    A2WTPAPL(A2WASCII+1)  TYPEWRITER PAIRED APL
          EQU    A2WBPAPL(A2WASCII+2)  BIT PAIRED APL 
          EQU    A2WEBCD(A2WASCII+3)   EXTERNAL BCD 
          EQU    A2WEAPL(A2WASCII+4)   EXTERNAL BCD APL 
          EQU    A2WCORR(A2WASCII+5)   CORRESPONDENCE 
          EQU    A2WCAPL(A2WASCII+6)   CORRESPONDENCE APL 
          EJT 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*         ASYNC BLOCK MODE TIP, INPUT BUFFER FLAG CONSTANTS           * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
          SPC    3
          EQU    BFEOI(16)   -         END OF INFORMATION FLAG
          EQU    BFEOR(8)    -         END OF RECORD FLAG 
          EQU    BFXPT(4)    -         TRANSPARENT INPUT RECEIVED 
          EQU    BFPARITY(2) -         PARITY ERROR DETECTED
          EQU    BFAIVT(1)   -         POSSIBLE IVT COMMAND 
          EQU    BFACNT(BFEOR)         END OF PHYSICAL LINE ON COUNT
          EQU    BFANEOX(BFEOI)        NOT END OF TRANSPARENT INPUT 
          EJT 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*         ASYNC BLOCK MODE TIP, MUX LCB FIELD EQUATIONS               * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
          SPC    3
          EQU    NCCAREC(3)  -         CHARACTER RECEIVED         (WD)
          EQU    NBCAREC(14) -         CHARACTER RECEIVED        (BIT)
          EQU    NCUOPS(7)   -         USER OPTION FLAGS
          EQU    NCCRCS(9)   -         CRC WORD (SCRATCH) 
          EQU    NCFDBA(13)  -         FIRST INPUT BUFFER ADDRESS 
          EQU    NCCXLTA(12) -         TRANSLATE TABLE ADDRESS
          EQU    NBUPPER(5)  -         2741 UPPER/LOWER CASE XLATE(BIT) 
          EQU    NCSCHR(8)   -         SPECIAL CHARACTER 1        (LWD) 
          EQU    NBPCHR(15)  -         PARITY BIT OF SPECIAL CHAR (BIT) 
          EQU    NCS2CHR(15) -         SPECIAL CHARACTER 2        (LWD) 
          EQU    NCS3CHR(15) -         SPECIAL CHARACTER 3        (RWD) 
          EJT 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*         ASYNC BLOCK MODE TIP, INPUT USER OPTION FLAG CONSTANTS      * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
          SPC    3
          EQU    AFRGLOUT(NCUOP1)      OUTPUT REGULATION ENABLED
          EQU    AFPTAPE(NCUOP2)       PAPERTAPE INPUT DEVICE 
          EQU    AFNONFA(NCUOP3)       NON FULL ASCII INPUT MODE
          EQU    AFEOPACT(NCUOP4)      LOOK FOR PHYSICAL LINES (LF) 
          EQU    AFXDBCH(NCUOP4)       TRANSPARENT CHARACTER DELIMITER
          EQU    AFSPEDIT(NCUOP5)      SPECIAL EDIT ACTIVE
          EQU    AFMXPT(NCUOP5)        MULTI MSG TRANSPARENT MODE 
          EQU    AFCURPOS(NCUOP6)      CP=Y, CURSOR POSITIONING REQUIRED
          EQU    AFFLDPLX(NCUOP7)      FULL DUPLEX (PLATO) INPUT
          EQU    AFSECHAR(NCUOP8)      SECURITY CHARACTER DEFINED 
          EQU    AFXOFF(NCUOP9)        OUTPUT REGULATION X-OFF ACTIVE 
          EQU    AFMRTO(NCUOPA)        DCD DROPPED FLAG -USED BY PTCLAS 
          EQU    AFBRKSEEN(NCUOPC)     BREAK SEEN FOR SECURITY
          EJT 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*         ASYNC BLOCK MODE TIP, DEFINITION OF BITS, MASKS AND FLAGS   * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
          SPC    3
* 
* * * *   FLAGS LOCALLY USED BY THE INPUT STATES (USES NCCRCP FIELD)
*         AB.. IS FOR SET/RSTBIT,  AM.. IS FOR SET/RST/TSTMSK 
*         AF.. IS FOR SET/RSTMXF
* 
          EQU    AMNONFA(AFNONFA*$20)  NON FULL ASCII             (MASK)
* 
          EQU    ABNPERR(0)  -         NO PARITY ERROR            (BIT) 
          EQU    AMNPERR(1)  -                                    (MASK)
* 
          EQU    ABNIVT(1)   -         NO POSSIBLE IVT COMMAND    (BIT) 
          EQU    AMNIVT(2)   -                                    (MASK)
* 
          EQU    ABDROP(2)   -         DROP LEADING NULS/DELS/..  (BIT) 
          EQU    AMDROP(4)   -                                    (MASK)
* 
          EQU    ABDRCR(3)   -         DROP FIRST CR AFTER LF     (BIT) 
          EQU    AMDRCR(8)   -                                    (MASK)
* 
          EQU    ABDRCD(4)   -         DROP CONTROL-D             (BIT) 
          EQU    AMDRCD(16)  -         (2741 ONLY)                (MASK)
* 
          EQU    ABATTN(NBUOPB)        ATTENTION SEEN (IVT CMD)   (BIT) 
          EQU    AMATTN(NMUOPB)        (2741 ONLY)                (MASK)
* 
          EQU    ABXOFF(NBUOP9)        OUTPUT REGL XOFF ACTIVE    (BIT) 
          EQU    AMXOFF(NMUOP9)                                   (MASK)
          EJT 
* 
* * * *   FLAGS LOCALLY USED BY THE INPUT STATES (USES NCCRCS FIELD)
* 
          EQU    AFPAI(NMUOP2)         INGNORE PARITY ERROR ON XPT
*                            -         DELIMETER, XPT MODE ONLY 
          EQU    AMICON(NMUOP3)        INPUT CONTROL REG/MASK BIT 
          EQU    AMOCON(NMUOP4)        OUTPUT CONTROL REG/MASK BIT
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*         ASYNC BLOCK MODE TIP, DEFINITION OF CHARACTER COUNTERS      * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
          SPC    3
          EQU    CCSBLK(1)   -         COUNT FOR TRANSPARENT SUBBLOCKS
          EQU    CCIVT(2)    -         COUNT FOR IVT INPUT
          EQU    CCXPT(2)    -         COUNT FOR TRANSPARENT INPUT
          EJT 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*         ASYNC BLOCK MODE TIP DEFINITION OF CHARACTERS CHECKED       * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
          SPC    3
          EQU    ONE(0)      -         CHECK ONLY CHAR1 EQUAL 
          EQU    TWO(1)      -         CHECK BOTH CHAR1,CHAR2 EQUAL 
          SPC    4
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*         ASYNC BLOCK MODE TIP, ASCII CHARACTER CONSTANTS             * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
          SPC    3
          EQU    ACNUL($00)  -         NULL 
          EQU    ACSTX($02)  -         STX
          EQU    ACETX($03)  -         ETX
          EQU    ACEOT($04)  -         EOT
          EQU    ACLF($0A)   -         LINE FEED
          EQU    ACCR($0D)   -         CARRIAGE CONTROL 
          EQU    ACXON($11)  -         XON
          EQU    ACXOFF($13) -         XOFF 
          EQU    ACCNTRL(ACXOFF+1)     UPPER CONTROL CHARACTER
          EQU    ACDEL($7F)  -         DEL
          EJT 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*         ASYNC BLOCK MODE TIP, 2741 CHARACTER CONSTANTS              * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
          SPC    3
          EQU    C2CTRC($3C) -         CONTROL-C (STANDARD 2741)
          EQU    ACCTRC($04) -         CONTROL-C (ASCII)
          EQU    C2CTRD($34) -         CONTROL-D (STANDARD 2741)
          EQU    C2CR($2D)   -         CARRIAGE RETURN (STANDARD 2741)
          EQU    C2UPPER($1C)          UPPER CASE SHIFT (STANDARD 2741) 
          EQU    C2LOWER($1F)          LOWER CASE SHIFT (STANDARD 2741) 
          EJT 
