1 /* BEGIN INCLUDE FILE ... plio2_fsb.incl.pl1 */
 2 /* format: style3,idind30 */
 3 
 4 declare   1 fsb                         aligned based (fsbp),
 5             2 switch                    aligned,
 6               3 zot                     (2) bit (1) unaligned,
 7               3 version_2               bit (1) unaligned,
 8               3 open                    bit (1) unaligned,
 9               3 print                   bit (1) unaligned,
10               3 input                   bit (1) unaligned,
11               3 output                  bit (1) unaligned,
12               3 update                  bit (1) unaligned,
13               3 stream                  bit (1) unaligned,
14               3 notkeyed                bit (1) unaligned,
15               3 record                  bit (1) unaligned,
16               3 sequential              bit (1) unaligned,
17               3 direct                  bit (1) unaligned,
18               3 interactive             bit (1) unaligned,
19               3 not_used_1              bit (1) unaligned,
20               3 not_used_2              bit (1) unaligned,
21               3 stringvalue             bit (1) unaligned,
22               3 keyed                   bit (1) unaligned,
23               3 namelist                bit (1) unaligned,
24               3 implementation          bit (1) unaligned,
25               3 not_used_4              bit (1) unaligned,  /* old get-input eof flag */
26               3 transmit_error          bit (1) unaligned,
27               3 buffer_in_use           bit (1) unaligned,
28               3 copy                    bit (1) unaligned,
29               3 detach                  bit (1) unaligned,
30               3 te_hold                 bit (1) unaligned,
31               3 not_used_5              bit (1) unaligned,
32               3 internal                bit (1) unaligned,
33               3 threaded                bit (1) unaligned,
34               3 fsb_in_use              bit (1) unaligned,
35               3 console                 bit (1) unaligned,
36               3 emptyline               bit (1) unaligned,
37               3 iox_close               bit (1) unaligned,
38               3 xxx4                    bit (1) unaligned,
39               3 xxx5                    bit (1) unaligned,
40               3 xxx6                    bit (1) unaligned,
41             2 nono                      aligned,
42               3 bit_string              bit (1) unaligned,
43               3 not_used_3              bit (1) unaligned,
44               3 read                    bit (1) unaligned,
45               3 write                   bit (1) unaligned,
46               3 rewrite                 bit (1) unaligned,
47               3 delete                  bit (1) unaligned,
48               3 locate                  bit (1) unaligned,
49               3 key                     bit (1) unaligned,
50               3 keyto                   bit (1) unaligned,
51               3 keyfrom                 bit (1) unaligned,
52               3 set                     bit (1) unaligned,
53               3 into                    bit (1) unaligned,
54               3 ignore                  bit (1) unaligned,
55               3 from                    bit (1) unaligned,
56               3 nofrom                  bit (1) unaligned,
57               3 nokey                   bit (1) unaligned,
58               3 nokeyfrom               bit (1) unaligned,
59               3 nolock                  bit (1) unaligned,
60             2 lsep                      fixed bin (15),     /* (1,COMMA)(2,BL)(3,TAB)(4,NL)(5,SEMI) */
61             2 iocb_p                    ptr unaligned,      /* identifies data_set to iox_ */
62             2 blc                       fixed bin (21),     /* buffer's last character (input) */
63             2 bsize                     fixed bin (21),     /* size of buffer */
64             2 bptr                      ptr,                /* address of buffer */
65             2 bnc                       fixed bin (15),     /* next character in buffer */
66             2 kol                       fixed bin (15),     /* last column read from or written into */
67             2 lsize                     fixed bin (15),     /* line size (output) */
68             2 lineno                    fixed bin (15),     /* current line (output) - starts at 1 on each new page */
69             2 psize                     fixed bin (35),     /* page size (output) */
70             2 pageno                    fixed bin (15),     /* current page number, starts at 1 */
71             2 limit                     fixed bin (15),
72             2 lnzc                      fixed bin (35),
73             2 filename                  char (32) aligned,  /* declared file name */
74             2 title                     char (32) unaligned,/* Multics I/O switch */
75             2 fsb_thread                ptr,
76             2 buffer                    (212) fixed bin (15),
77             2 path_name                 char (168) unal,    /* title option */
78             2 declared_attributes       (2) bit (36) aligned;
79 
80 declare   xbuf                          char (1000) unaligned based (fsb.bptr);
81 
82 /* END INCLUDE FILE ... plio2_fsb.incl.pl1 */