1 /* BEGIN INCLUDE FILE gtss_starCF_.incl.pl1 */
 2 /*
 3   Created: (Wardd Multics)  03/20/79 1816.6 mst Tue
 4 */
 5 
 6 /*
 7    gtss_CFP_input_ data structure to provide
 8    for accessing the current command file.
 9 
10    Changed: Al Dupuis 05/17/79 to get rid of nested get_line, put_chars concept.
11 */
12 dcl       1 gtss_starCF_$FILE aligned static ext
13 ,           3 select_sequence
14 ,             4 OP1                     /* Seek operation. */
15 ,               5 Device_Command        bit(06)unal
16 ,               5 zeroes_1              fixed bin(12)unsigned unal
17 ,               5 IOC_Command           bit(05)unal
18 ,               5 zeroes_2              fixed bin(01)unsigned unal
19 ,               5 Control               fixed bin(06)unsigned unal
20 ,               5 Count                 fixed bin(06)unsigned unal
21 
22 ,             4 ID1
23 ,               5 fcb_loc               bit(18)unal
24 ,               5 DCW_list_loc          bit(18)unal
25 
26 ,             4 OP2                     /* Write opteration. */
27 ,               5 Device_Command        bit(06)unal
28 ,               5 zeroes_1              fixed bin(12)unsigned unal
29 ,               5 IOC_Command           bit(05)unal
30 ,               5 zeroes_2              fixed bin(01)unsigned unal
31 ,               5 Control               fixed bin(06)unsigned unal
32 ,               5 Count                 fixed bin(06)unsigned unal
33 
34 ,             4 ID2
35 ,               5 fcb_loc               bit(18)unal
36 ,               5 DCW_list_loc          bit(18)unal
37 
38 ,             4 RETURN_WORD
39 ,               5 Status_loc            bit(18)unal
40 ,               5 Courtesy_Call_loc     bit(18)unal
41 
42 ,           3 Seek_Word
43 ,             4 Seek_loc                bit(18)unal
44 ,             4 Seek_count              fixed bin(18)unsigned unal
45 ,           3 Seek_Address              fixed bin(35)
46 ,           3 STATUS                    bit(72) unal
47 
48 ,           3 DCW
49 ,             4 memory_loc              bit(18)unal
50 ,             4 zeroes_3                fixed bin(03)unsigned unal
51 ,             4 action_code             fixed bin(03)unsigned unal
52 ,             4 word_count              fixed bin(12)unsigned unal
53 
54 ,           3 RECORD
55 ,             4 no_characters           fixed bin(18)unsigned unal
56 ,             4 zeroes_4                bit(18)unal
57 ,             4 chars                   char(252)
58 
59 /* Stack to accomodate nested command file processing. */
60 ,           3 cf
61 ,             4 top                     fixed bin(24)
62 ,             4 aft_indx                fixed bin(24)
63 ,             4 first_time              bit (1) unaligned
64 ,             4 exclude_on              bit (1) unaligned
65 ;
66 
67 /*   END INCLUDE FILE gtss_starCF_.incl.pl1 */