1 
 2 /* BEGIN INCLUDE FILE ...   cobol_fixup_directive.incl.pl1 */
 3 /* Last Modified JAN. 24, 1977 by BC */
 4 /* Last modified July 17, 1974 by ORN */
 5 
 6 dcl fix_ptr ptr;
 7 dcl 1 fixup_directive aligned based(fix_ptr),
 8      2 operation bit(1) unal,
 9      2 type bit(4) unal,
10      2 reserved bit(9) unal,
11      2 location unal,
12       3 half bit(1) unal,
13       3 base bit(3) unal,
14       3 offset fixed bin(17) unal,
15      2 tag_number fixed bin aligned;
16 
17 
18 /* where:
19      operation      "0"b      add value to location
20                               (alway for tag fixups)
21                     "1"b      subtract value from location
22 
23      type           "0000"b  a tag_number is attached
24                     "0001"b  value = length of constants
25                     "0010"b  value = length of exec code
26                     "0011"b  value = length of constants +
27                                          executable code
28                     "0100"b  value = length of mc_def_seg
29                     "0101"b  value = length of mc_link_seg
30                     "0110"b  value = length of mc_sym_seg
31                     "0111"b  value = length of int static
32                     "1111"b  value = map_data_table.no_source_stmts
33                     all others undefined
34 
35      location.half  "0"b      hi order 18 bits
36                     "1"b      lo order 18 bits
37 
38      location.base  "001"b    from mc_text_seg|0
39                     "010"b    from mc_def_seg|0
40                     "011"b    from mc_link_seg|0
41                     "100"b    from mc_sym_seg|0
42                     all others undefined  */
43 
44 /* END INCLUDE FILE ...   cobol_fixup_directive.incl.pl1 */
45