*COMDECK X25AT
          NAM  X25AT
*CALL ATBLEQUS
          EJT 
* 
* 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*         ENTRY POINT FOR X25 TCB AND LCB ACTION TABLES               * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
* 
          ENT  X25CSAT               X25 CONSOLE TCB ACTION TABLE 
          ENT  X25LCBAT              X25 LCB ACTION TABLE 
* 
* 
* 
*       * ACTION TABLE DEFINITION.
* 
*           ACTBL,P1,P2,P3
* 
*              P1 : TCB OR LCB FIELD NUMBER.
*              P2 : ACTION CODE (USER AS CASE INDEX IN PNCONFIGURE).
*              P3 : DEFAULT PARAMETER 
*                   OR USER TO VALIDATE THE FV VALUE. 
* 
* 
          EJT 
* 
* 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*         X25 CONSOL TCB ACTION TABLE DEFINITION                      * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
* 
X25CSA    EQU  X25CSAT(*)            X25 CONSOLE TCB ACTION TABLE 
* 
          ACTBL BSUBL,D2VUL,$1F01      UPLINE BLOCK LIMIT.
          ACTBL BSUBZ,D2VUL,$1400      UPLINE BLOCK SIZE. 
          ACTBL BSTCLASS,D2VUL,$0801   TERMINAL CLASS.
          ACTBL  BSTCLASS,D2TC2741,0
          ACTBL BSLFIDLES,D2VUL,$7F00 
          ACTBL BSLFCALC,D2LFIDLE,0    CALCULATE LF IDLES.
          ACTBL BSCRIDLES,D2VUL,$7F00 
          ACTBL BSCRCALC,D2CRIDLE,0    CALCULATE CR IDLES.
          ACTBL BSPARITY,D2VUL,$0400   DEVICE PARITY. 
          ACTBL BSPARITY,D2PARITY,0    SET BSPARTYPE. 
          ACTBL  BSINDEV,D2VM,$0002     IN = KB,XK,BK AND X 
          ACTBL BSOUTDEV,D2VUL,$0100   OUTPUT DEVICE (NO PARPER TAPE).
          ACTBL BSXCNMS,D2UPPAIR,4095  XPT CHARACTER COUNT MSB. 
          ACTBL BSXCNLS,D2LOPAIR,0     XPT CHARACTER COUNT LSB. 
          ACTBL BSELCHAR,D2CHKCHAR,0   END OF LOGICAL LINE CHARACTER. 
          ACTBL  BSELCHAR,D2VM,$20FF   $21 - $FE ARE ILLEGAL
          ACTBL BSEBCHAR,D2CHKCHAR,0   END OF BLOCK CHARACTER.
          ACTBL  BSEBCHAR,D2VM,$20FF   $21 - $FE ARE ILLEGAL
          ACTBL BSCPEB,D2VUL,$0300     COUSOR POSITIONING AT EOB. 
          ACTBL  BSXCHAR,D2VM,$1F7F    $20 - $FF ARE ILLEGAL EXCEPT 
          ACTBL  BSXCHAR,D2VM,$7FFF    $7F (DEL) - WHICH IS ALLOWED 
          ACTBL  BSMXCHAR,D2VM,$1F7F   $20 - $FF ARE ILLEGAL EXCEPT 
          ACTBL  BSMXCHAR,D2VM,$7FFF   $7F (DEL) - WHICH IS ALLOWED 
          ACTBL BSMCI,D2CRLFNULS,0
          ACTBL BSMLI,D2CRLFNULS,0
         ACTBL BSCPEL,D2VUL,$0300 
* 
* 
*         NOT SUPPORTED BY PAD SUBTIP.
* 
       ACTBL BSABTBLK,D2IGNORE,0
* 
*         END OF NON SUPPORTED IVT FEATURES.
* 
          ENDTBL D0ATEND,DGTCBAT     END OF X25 TCB ACTION TABLE
          EJT 
* 
* 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*         X25 LCB ACTION TABLE DEFINITION                             * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
* 
X25LCB    EQU  X25LCBAT(*)           X25 LCB ACTION TABLE 
* 
          ACTBL BZN2,D2VUL,$0F01
          ACTBL BZK,D2VUL,$0701 
          ACTBL BZDCE,D2VUL,$0100 
          ACTBL  BZTRANSTYPE,D2VUL,$FF01
          ACTBL  BZTRANSTYPE,D2VM,$07FD 
          ACTBL BZT1,D2VUL,$FF01
          ENDTBL D0ATEND,DGLCBAT     END OF LCB ACTION TABLE
          END 
