*COMDECK HASPAT 
       NAM  HASPAT
*CALL ATBLEQUS
       SPC  2 
       EJT
       SPC  1 
***    ENTRY POINTS FOR HASP ACTION TABLES
* 
* 
       SPC  1 
       ENT  HSPCSAT               HASP TCB CONSOLE ACTION TABLE 
       ENT  HSPCRAT               HASP TCB CARD READER ACTION TABLE 
       ENT  HSPLPAT               HASP TCB LINE PRINTER ACTION TABLE
       ENT  HSPCPAT               HASP TCB CARD PUNCH ACTION TABLE
       ENT  HSPPTAT               HASP TCB PLOTTER ACTION TABLE 
       ENT  HSPLCBAT              HASP LCB ACTION TABLE 
       SPC  2 
HSPCSA EQU  HSPCSAT(*)            FWA OF CONSOLE TCB ACTION TABLE 
       ACTBL BSPGLENGTH,D2VUL,$0000 
       ACTBL BSUBL,D2VUL,$0F01
       ACTBL BSTCLASS,D2VUL,$0E09 
       ACTBL BSTCLASS,D2VM,$090E
       ACTBL BSTCLASS,D2TCM4HS,0
       ACTBL BSPGWAIT,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  BSXB12,D2ERROR,0 
       ENDTBL D0ATEND,DGTCBAT 
HSPCRA EQU  HSPCRAT(*)            FWA OF CARD READER TCB ACTION TABLE 
       ACTBL BSUBZ,D2VUL,$0301
       ACTBL BSSUBDT,D2VUL,$0100
          ACTBL  BSPGWIDTH,D2VUL,$FF32
          ACTBL  BSXB12,D2ERROR,0 
       ENDTBL D0ATEND,DGTCBAT 
HSPLPA EQU  HSPLPAT(*)            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 
HSPCPA EQU  HSPCPAT(*)            FWA OF CAR PUNCH TCB ACTION TABLE 
          ACTBL  BSPGWIDTH,D2VUL,$FF32
       ACTBL BSSUBDT,D2ERROR,0
          ACTBL  BSXB12,D2ERROR,0 
       ENDTBL D0ATEND,DGTCBAT 
HSPPTA EQU  HSPPTAT(*)            FWA OF PLOTTER TCB ACTION TABLE 
       ACTBL BSPGWIDTH,D2VUL,$FF32
       ACTBL BSSUBDT,D2VUL,$0100
          ACTBL  BSXB12,D2ERROR,0 
       ENDTBL D0ATEND,DGTCBAT 
HSPLCB EQU  HSPLCBAT(*)           FWA OF LCB ACTION TABLE 
       ENDTBL D0ATEND,DGLCBAT 
       END
