1 
 2 /* BEGIN fort_command_structure.incl.pl1
 3 
 4    Created:         June 1976.
 5 
 6    Modified:
 7                     February 24, 1977 by G.D. Chang for the optimizer.
 8                     December 3, 1976, David Levin reorder subfields.
 9                     November 16, 1976 By D.S.Levin to allow long names.
10                     October 9, 1978 by Paul E. Smee for larger common and arrays.
11 */
12 
13             2 region                    unaligned structure,
14               3 operand                 bit(1),
15               3 polish                  bit(1),
16               3 quadruple               bit(1),
17 
18             2 operator                  unaligned structure,
19               3 with_argument,
20                 4 number_arg,
21                   5 display             bit(1),
22                   5 stmnt               bit(1),
23                   5 bucket              bit(1),
24                 4 character_arg,
25                   5 declaration         bit(1),
26 
27               3 without_args,
28                 4 dump                  bit(1),
29                 4 cur_stmnt             bit(1),
30                 4 list_subprograms      bit(1),
31                 4 list_symbols          bit(1),
32                 4 list_labels           bit(1),
33                 4 list_polish_string    bit(1),
34                 4 list_word_consts      bit(1),
35                 4 list_dw_constants     bit(1),
36                 4 list_char_constants   bit(1),
37                 4 list_lib_names        bit(1),
38                 4 node_summary          bit(1),
39 
40             2 options                   unaligned structure,
41               3 walk                    bit(1),
42               3 brief                   bit(1),
43 
44             2 starting_offset           fixed bin (18) unsigned,
45             2 stopping_offset           fixed bin (18) unsigned,
46 
47             2 dcl_name                  char(256) varying;
48 
49 /* END   fort_command_structure.incl.pl1 */
50