1 /* BEGIN INCLUDE FILE ... hasp_rcb_byte.incl.pl1 */
 2 /* Created:  October 1979 by G. Palter from hasp_block_record_data.incl because only the RCB is used by priv_hasp_mpx */
 3 
 4 /* HASP Record Control Byte (RCB) */
 5 
 6 dcl 1 hasp_rcb_byte unaligned based (hasp_rcb_byte_ptr),
 7     2 pad1 bit (1) unaligned,                               /* padding supplied by MCS */
 8     2 not_eob bit (1) unaligned,                            /* ON => not end-of-block indicator */
 9     2 stream fixed binary (3) unaligned unsigned,           /* identifies which device record is from or what control
10                                                                 function depending on contents of type field below */
11     2 type fixed binary (4) unaligned unsigned;             /* type of record */
12 
13 dcl  hasp_rcb_byte_ptr pointer;
14 
15 dcl (HASP_RCB_TYPE_CONTROL              initial (0),        /* RCB of some form of a control record */
16      HASP_RCB_TYPE_CONSOLE_OUTPUT       initial (1),        /* RCB of message from host to workstation console */
17      HASP_RCB_TYPE_CONSOLE_INPUT        initial (2),        /* RCB of input line from workstation console to host */
18      HASP_RCB_TYPE_READER_INPUT         initial (3),        /* RCB of card from workstation card reader */
19      HASP_RCB_TYPE_PRINT_OUTPUT         initial (4),        /* RCB ofprint line from host */
20      HASP_RCB_TYPE_PUNCH_OUTPUT         initial (5))        /* RCB of card from host to workstation card punch */
21           fixed binary (4) unsigned static options (constant);
22 
23 dcl (HASP_RCB_STREAM_RTS                initial (1),        /* RCB of request-to-send control record */
24      HASP_RCB_STREAM_RTS_ACK            initial (2),        /* RCB of acknowledgement to request-to-send control record */
25      HASP_RCB_STREAM_BAD_BCB            initial (6),        /* RCB of bad-BCB control record */
26      HASP_RCB_STREAM_CONTROL            initial (7))        /* RCB of "general" control record (escape) */
27           fixed binary (3) unsigned static options (constant);
28 
29 /* END INCLUDE FILE ... hasp_rcb_byte.incl.pl1 */