*COMDECK MODE4CAT 
       NAM  MD4CAT
*CALL ATBLEQUS
       SPC  2 
       EJT
       SPC  1 
***    ENTRY POINTS FOR MODE4C ACTION TABLES
* 
* 
       SPC  1 
       ENT  MD4CSAT               MODE4C TCB CONSOLE ACTION TABLE 
       ENT  MD4CRAT               MODE4C TCB CARD READER ACTION TABLE 
       ENT  MD4LPAT               MODE4C TCB LINE PRINTER ACTION TABLE
       ENT  MD4LCBAT              MODE4C LCB ACTION TABLE 
       SPC  1 
MD4LCB EQU  MD4LCBAT(*)           FWA OF LCB ACTION TABLE 
       ENDTBL D0ATEND,DGLCBAT      FWA OF SYSTEM LCB ACTION TABLE 
       SPC  1 
MD4CSA EQU  MD4CSAT(*)            FWA OF CONSOLE TCB ACTION TABLE 
       ACTBL BSUBL,D2VUL,$0F01
       ACTBL BSUBZ,D2VUL,$1401
       ACTBL BSTCLASS,D2VUL,$0F0A 
       ACTBL BSTCLASS,D2VM,$0D0F
       ACTBL BSTCLASS,D2TCM4HS,0
          ACTBL  BSPGWIDTH,D2VUL,$FF14
       ACTBL BSPARITY,D2ERROR,0 
       ACTBL BSINDEV,D2ERROR,0
       ACTBL BSELCHAR,D2VUL,$0A03 
       ACTBL BSELCHAR,D2VM,$030A
       ACTBL BSEBCHAR,D2VUL,$0303 
       ACTBL BSXCHAR,D2VUL,$0303
          ACTBL  BSXDBTIM,D2IGNORE,0
       ACTBL BSCPEL,D2VUL,0 
       ACTBL BSCPEB,D2VUL,0 
       ACTBL BSEBX,D2VM,$0002 
       ENDTBL D0ATEND,DGTCBAT      FWA OF SYSTEM TCB ACTION TABLE 
       SPC  1 
MD4CRA EQU  MD4CRAT(*)            FWA OF CARD READER TCB ACTION TABLE 
       ACTBL BSUBZ,D2VUL,$0301
       ACTBL BSPGWIDTH,D2VUL,$5050
       ACTBL BSSUBDT,D2ERROR,0
       ENDTBL D0ATEND,DGTCBAT      FWA OF SYSTEM TCB ACTION TABLE 
MD4LPA EQU  MD4LPAT(*)            FWA OF LINE PRINTER TCB ACTION TABLE
          ACTBL  BSPGWIDTH,D2VUL,$FF32
          ACTBL  BSPGLENGTH,D2VUL,$FF08 
       ACTBL BSSUBDT,D2VUL,$0200
       ACTBL BSFTYPE,D2VUL,$0300
       ENDTBL D0ATEND,DGTCBAT      FWA OF SYSTEM TCB ACTION TABLE 
       END
