1 /* BEGIN INCLUDE FILE gtss_io_status_words.incl.pl1 */
 2 /*
 3   Created: (Wardd Multics)  06/16/78 1131.3 mst Fri
 4 */
 5 
 6 /**       GCOS status return words
 7           (See: I/O PROGRAMMING
 8                 DB82, Rev. 0, August 1974
 9                 Pages 11-13)
10  **/
11 
12 dcl  status_words_ptr                   ptr init(null());
13 dcl 1 status_words            aligned based(status_words_ptr)
14 ,     3 WORD1
15 ,       4 Termination_indicator         bit(01)unal
16 ,       4 Power_bit                     bit(01)unal
17 ,       4 Major_status                  bit(04)unal
18 ,       4 Substatus                     bit(06)unal
19 ,       4 PSI_channel_odd_even_ind      bit(01)unal
20 ,       4 Marker_bit_interrupt          bit(01)unal
21 ,       4 Reserved                      bit(01)unal
22 ,       4 Lost_interrupt_bit            bit(01)unal
23 ,       4 Initiate_interrupt_ind        bit(01)unal
24 ,       4 Abort_indicator               bit(01)unal
25 ,       4 IOM_status                    bit(06)unal
26 ,       4 Address_extension_bits        bit(06)unal
27 ,       4 Record_count_residue          bit(06)unal
28 
29 ,      3 WORD2
30 ,       4 Data_address_residue          bit(18)unal
31 ,       4 Character_count               bit(03)unal
32 ,       4 Read_Write_control_bit        bit(01)unal
33 ,       4 Action_code                   bit(02)unal
34 ,       4 Word_count_residue            bit(12)unal
35 ;
36 /*   END INCLUDE FILE gtss_io_status_words.incl.pl1 */