1 /* BEGIN INCLUDE FILE gtss_save_restore_data_.incl.pl1 */
 2 /*
 3   Created: (Kepner Multics)  10/07/78 1634.3 mst Sat
 4 */
 5 
 6 
 7 /**       data structure used for file I/O by
 8           gtss_drl_drlsav_ and gtss_drl_restor_. **/
 9 
10 dcl       1 gtss_save_restore_data_$IO  aligned static ext
11 ,           3 select_sequence
12 ,             4 OP1                     /* Seek operation. */
13 ,               5 Device_Command        bit(06)unal
14 ,               5 zeroes_1              bit(12)unal
15 ,               5 IOC_Command           bit(05)unal
16 ,               5 zeroes_2              bit(01)unal
17 ,               5 Control               bit(06)unal
18 ,               5 Count                 bit(06)unal
19 
20 ,             4 ID1
21 ,               5 fcb_loc               bit(18)unal
22 ,               5 DCW_list_loc          bit(18)unal
23 
24 ,             4 OP2                     /* Read or Write opteration. */
25 ,               5 Device_Command        bit(06)unal
26 ,               5 zeroes_1              bit(12)unal
27 ,               5 IOC_Command           bit(05)unal
28 ,               5 zeroes_2              bit(01)unal
29 ,               5 Control               bit(06)unal
30 ,               5 Count                 bit(06)unal
31 
32 ,             4 ID2
33 ,               5 fcb_loc               bit(18)unal
34 ,               5 DCW_list_loc          bit(18)unal
35 
36 ,             4 RETURN_WORD
37 ,               5 Status_loc            bit(18)unal
38 ,               5 Courtesy_Call_loc     bit(18)unal
39 
40 ,           3 Seek_Word
41 ,             4 Seek_loc                bit(18)unal
42 ,             4 Seek_count              fixed bin(17)unal
43 ,           3 Seek_Address              fixed bin(35)
44 ,           3 STATUS                    bit(72)
45 
46 ,           3 DCW (64)
47 ,             4 memory_loc              bit(18)unal
48 ,             4 zeroes_3                bit(03)unal
49 ,             4 action_code             bit(03)unal
50 ,             4 word_count              bit(12)unal
51 ;
52 /*   END INCLUDE FILE gtss_save_restore_data_.incl.pl1 */