1 2 /* BEGIN INCLUDE FILE ... cobol_fixup_tables.incl.pl1 */ 3 /* Last modified September 7, 1978 by FCH */ 4 5 declare 1 DEF aligned based(cobol_$tag_table_ptr), 6 2 tag_max fixed bin, 7 2 TAG(32767), 8 3 tag_table unal fixed bin(17), 9 3 tag_no unal fixed bin(17); 10 11 dcl 1 fixup_table based ( cobol_$fixup_ptr), 12 2 count fixed bin, 13 2 table (16383), 14 3 operation bit(1) unal, 15 3 type bit(4) unal, 16 3 reserved bit(9) unal, 17 3 location unal, 18 4 half bit(1) unal, 19 4 base bit(3) unal, 20 4 offset fixed bin(17) unal, 21 3 tag_number fixed bin aligned; 22 23 24 /* where: 25 operation "0"b add value to location 26 (alway for tag fixups) 27 "1"b subtract value from location 28 29 type "0000"b a tag_number is attached 30 "0001"b value = length of constants 31 "0010"b value = length of exec code 32 "0011"b value = length of constants + 33 executable code 34 "0100"b value = length of cobol_def_seg 35 "0101"b value = length of cobol_link_seg 36 "0110"b value = length of cobol_sym_seg 37 "0111"b value = length of int static 38 all others undefined 39 40 location.half "0"b hi order 18 bits 41 "1"b lo order 18 bits 42 43 location.base "001"b from cobol_text_seg|0 44 "010"b from cobol_def_seg|0 45 "011"b from cobol_link_seg|0 46 "100"b from cobol_sym_seg|0 47 all others undefined */ 48 49 /* END INCLUDE FILE ... cobol_fixup_tables.incl.pl1 */ 50