1
2
3
4
5 dcl 1 gtss_def_q_$FILE aligned static ext
6 , 3 select_sequence
7 , 4 OP1
8 , 5 Device_Command bit(06)unal
9 , 5 zeroes_1 fixed bin(12)unsigned unal
10 , 5 IOC_Command bit(05)unal
11 , 5 zeroes_2 fixed bin(01)unsigned unal
12 , 5 Control fixed bin(06)unsigned unal
13 , 5 Count fixed bin(06)unsigned unal
14
15 , 4 ID1
16 , 5 fcb_loc bit(18)unal
17 , 5 DCW_list_loc bit(18)unal
18
19 , 4 OP2
20 , 5 Device_Command bit(06)unal
21 , 5 zeroes_1 fixed bin(12)unsigned unal
22 , 5 IOC_Command bit(05)unal
23 , 5 zeroes_2 fixed bin(01)unsigned unal
24 , 5 Control fixed bin(06)unsigned unal
25 , 5 Count fixed bin(06)unsigned unal
26
27 , 4 ID2
28 , 5 fcb_loc bit(18)unal
29 , 5 DCW_list_loc bit(18)unal
30
31 , 4 RETURN_WORD
32 , 5 Status_loc bit(18)unal
33 , 5 Courtesy_Call_loc bit(18)unal
34
35 , 3 Seek_Word
36 , 4 Seek_loc bit(18)unal
37 , 4 Seek_count fixed bin(18)unsigned unal
38 , 3 Seek_Address fixed bin(35)
39 , 3 STATUS bit(72) unal
40
41 , 3 DCW
42 , 4 memory_loc bit(18)unal
43 , 4 zeroes_3 fixed bin(03)unsigned unal
44 , 4 action_code fixed bin(03)unsigned unal
45 , 4 word_count fixed bin(12)unsigned unal
46
47 , 3 RECORD
48 , 4 no_characters fixed bin(18)unsigned unal
49 , 4 zeroes_4 bit(18)unal
50 , 4 chars char(252)
51 , 3 DQ char (8)
52 ;
53