1 /* BEGIN INCLUDE FILE ... semantic_bits.incl.pl1 */
 2 
 3 /* Modified: 26 Dec 1979 by PCK to implement by name assignment */
 4 
 5 dcl       context aligned bit(36),
 6           this_context aligned bit(36);
 7 
 8 dcl       1 def_context                 aligned based(addr(context)),
 9           2 aggregate                   unaligned bit(1),
10           2 arg_list                    unaligned bit(1),
11           2 left_side                   unaligned bit(1),
12           2 return                      unaligned bit(1),
13           2 evaluate_offset             unaligned bit(1),
14           2 top                         unaligned bit(1),
15           2 RHS_aggregate               unaligned bit(1),
16           2 return_from_empty           unaligned bit(1),
17           2 ignore_based                unaligned bit(1),
18           2 ext_param                   unaligned bit(1),
19           2 cross_section               unaligned bit(1),
20           2 string_unspec               unaligned bit(1),
21           2 f_offset_to_be_added        unaligned bit(1),
22           2 suppress_cross_ref          unaligned bit(1),
23           2 by_name_assignment          unaligned bit(1),
24           2 by_name_lookup              unaligned bit(1),
25           2 pad                         unaligned bit(20);
26 
27 dcl       1 def_this_context            aligned like def_context based(addr(this_context));
28 
29 /* END INCLUDE FILE ... semantic_bits.incl.pl1 */