*COMDECK BSCAT
       NAM  BSCAT 
*CALL ATBLEQUS
       SPC  1 
       ENT  BSCLCBAT              BSC LCB ACTION TABLE
       ENT  BSCCSAT               BSC TCB CONSOLE ACTION TABLE
       ENT  BSCCRAT               BSC TCB CARD READER ACTION TABLE
       ENT  BSCLPAT               BSC TCB LINE PRINTER ACTION TABLE 
       ENT  BSCCPAT               BSC TCB CARD PUNCH ACTION TABLE 
       SPC  2 
BSCLCB EQU  BSCLCBAT(*)           FWA OF LCB ACTION TABLE 
       ENDTBL D0ATEND,DGLCBAT      FWA OF SYSTEM LCB ACTION TABLE 
       SPC  1 
BSCCSA EQU  BSCCSAT(*)            FWA OF CONSOLE TCB ACTION TABLE 
       ACTBL BSUBL,D2VUL,$0F01
       ACTBL BSTCLASS,D2VUL,$1110 
       ACTBL BSPGLENGTH,D2VUL,$0000 
       ACTBL BSPGWAIT,D2IGNORE,0
       ACTBL BSCANCHAR,D2IGNORE,0 
       ACTBL BSUSR1,D2IGNORE,0
       ACTBL BSUSR2,D2IGNORE,0
       ACTBL BSPARITY,D2ERROR,0 
       ACTBL BSINDEV,D2ERROR,0
       ACTBL BSFLASCII,D2ERROR,0
       ACTBL BSXPT,D2ERROR,0
       ACTBL BSELCHAR,D2ERROR,0 
       ACTBL BSELX,D2ERROR,0
       ACTBL BSEBCHAR,D2ERROR,0 
       ACTBL BSEBX,D2ERROR,0
       ACTBL BSMXPT,D2ERROR,0 
          ACTBL  BSCPEL,D2IGNORE,0
          ACTBL  BSCPEB,D2IGNORE,0
          ACTBL  BSXCNLS,D2IGNORE,0 
          ACTBL  BSRGLIN,D2IGNORE,0 
          ACTBL  BSRGLOUT,D2IGNORE,0
          ACTBL  BSBSCHAR,D2IGNORE,0
          ACTBL  BSABTBLK,D2IGNORE,0
          ACTBL  BSXB12,D2ERROR,0 
       ENDTBL D0ATEND,DGTCBAT      FWA OF SYSTEM TCB ACTION TABLE 
       SPC  1 
BSCCRA EQU  BSCCRAT(*)            FWA OF CARD READER TCB ACTION TABLE 
       ACTBL BSPGWIDTH,D2VUL,$5050
       ACTBL BSUBZ,D2VUL,$0301
       ACTBL BSSUBDT,D2VUL,$0100
          ACTBL  BSXB12,D2ERROR,0 
       ENDTBL D0ATEND,DGTCBAT      FWA OF SYSTEM TCB ACTION TABLE 
       SPC  1 
BSCLPA EQU  BSCLPAT(*)            FWA OF LINE PRINTER TCB ACTION TABLE
          ACTBL  BSPGWIDTH,D2VUL,$FF32
          ACTBL  BSPGLENGTH,D2VUL,$FF08 
       ACTBL BSSUBDT,D2VUL,$0200
          ACTBL  BSXB12,D2ERROR,0 
       ENDTBL D0ATEND,DGTCBAT      FWA OF SYSTEM TCB ACTION TABLE 
       SPC  1 
BSCCPA EQU  BSCCPAT(*)            FWA OF CARD PUNCH TCB ACTION TABLE
       ACTBL BSPGWIDTH,D2VUL,$5050
       ACTBL BSSUBDT,D2ERROR,0
          ACTBL  BSXB12,D2ERROR,0 
       ENDTBL D0ATEND,DGTCBAT      FWA OF SYSTEM TCB ACTION TABLE 
       END
