1 /* BEGIN INCLUDE FILE gtss_tapstar_.incl.pl1 */
 2 /*
 3   Created: (Alvarado Multics)  04/23/79 1500 mst Mon
 4 */
 5 
 6 /** gtss_TAP*_input_ data structure to provide
 7 for accesing the current TAP* file.
 8  **/
 9 dcl       1 gtss_tapstar_$FILE          aligned static ext
10 ,           3 select_sequence
11 ,             4 OP1                     /* Seek operation. */
12 ,               5 Device_Command        bit(06)unal
13 ,               5 zeroes_1              fixed bin(12)unsigned unal
14 ,               5 IOC_Command           bit(05)unal
15 ,               5 zeroes_2              fixed bin(01)unsigned unal
16 ,               5 Control               fixed bin(06)unsigned unal
17 ,               5 Count                 fixed bin(06)unsigned unal
18 
19 ,             4 ID1
20 ,               5 fcb_loc               bit(18)unal
21 ,               5 DCW_list_loc          bit(18)unal
22 
23 ,             4 OP2                     /* Write opteration. */
24 ,               5 Device_Command        bit(06)unal
25 ,               5 zeroes_1              fixed bin(12)unsigned unal
26 ,               5 IOC_Command           bit(05)unal
27 ,               5 zeroes_2              fixed bin(01)unsigned unal
28 ,               5 Control               fixed bin(06)unsigned unal
29 ,               5 Count                 fixed bin(06)unsigned unal
30 
31 ,             4 ID2
32 ,               5 fcb_loc               bit(18)unal
33 ,               5 DCW_list_loc          bit(18)unal
34 
35 ,             4 RETURN_WORD
36 ,               5 Status_loc            bit(18)unal
37 ,               5 Courtesy_Call_loc     bit(18)unal
38 
39 ,           3 Seek_Word
40 ,             4 Seek_loc                bit(18)unal
41 ,             4 Seek_count              fixed bin(18)unsigned unal
42 ,           3 Seek_Address              fixed bin(35)
43 ,           3 STATUS                    bit(72) unal
44 
45 ,           3 DCW
46 ,             4 memory_loc              bit(18)unal
47 ,             4 zeroes_3                fixed bin(03)unsigned unal
48 ,             4 action_code             fixed bin(03)unsigned unal
49 ,             4 word_count              fixed bin(12)unsigned unal
50 ,           3  aft_tap_name             char(8)
51 
52 ,           3 file
53 ,             4 BCW
54 ,               5 no_words              fixed bin (18) unsigned unal
55 ,               5 rel_block_ct          fixed bin (18) unsigned unal
56 ,             4 records                 (63) bit (36) unal
57 ;
58 
59 /*   END INCLUDE FILE gtss_tapstar_.incl.pl1 */