1 
  2 /* BEGIN INCLUDE FILE ... cobol_.incl.pl1 */
  3 /* last modified Feb 4, 1977 by ORN  */
  4 
  5 /* This file defines all external data used in the generator phase of Multics Cobol */
  6 
  7 /* POINTERS */
  8 dcl cobol_$text_base_ptr ptr  ext;
  9 dcl text_base_ptr ptr  defined (cobol_$text_base_ptr);
 10 dcl cobol_$con_end_ptr ptr  ext;
 11 dcl con_end_ptr ptr  defined (cobol_$con_end_ptr);
 12 dcl cobol_$def_base_ptr ptr  ext;
 13 dcl def_base_ptr ptr  defined (cobol_$def_base_ptr);
 14 dcl cobol_$link_base_ptr ptr  ext;
 15 dcl link_base_ptr ptr  defined (cobol_$link_base_ptr);
 16 dcl cobol_$sym_base_ptr ptr  ext;
 17 dcl sym_base_ptr ptr  defined (cobol_$sym_base_ptr);
 18 dcl cobol_$reloc_text_base_ptr ptr  ext;
 19 dcl reloc_text_base_ptr ptr  defined (cobol_$reloc_text_base_ptr);
 20 dcl cobol_$reloc_def_base_ptr ptr  ext;
 21 dcl reloc_def_base_ptr ptr  defined (cobol_$reloc_def_base_ptr);
 22 dcl cobol_$reloc_link_base_ptr ptr  ext;
 23 dcl reloc_link_base_ptr ptr  defined (cobol_$reloc_link_base_ptr);
 24 dcl cobol_$reloc_sym_base_ptr ptr  ext;
 25 dcl reloc_sym_base_ptr ptr  defined (cobol_$reloc_sym_base_ptr);
 26 dcl cobol_$reloc_work_base_ptr ptr  ext;
 27 dcl reloc_work_base_ptr ptr  defined (cobol_$reloc_work_base_ptr);
 28 dcl cobol_$pd_map_ptr ptr  ext;
 29 dcl pd_map_ptr ptr  defined (cobol_$pd_map_ptr);
 30 dcl cobol_$fixup_ptr ptr  ext;
 31 dcl fixup_ptr ptr  defined (cobol_$fixup_ptr);
 32 dcl cobol_$initval_base_ptr ptr  ext;
 33 dcl initval_base_ptr ptr  defined (cobol_$initval_base_ptr);
 34 dcl cobol_$initval_file_ptr ptr  ext;
 35 dcl initval_file_ptr ptr  defined (cobol_$initval_file_ptr);
 36 dcl cobol_$perform_list_ptr ptr  ext;
 37 dcl perform_list_ptr ptr  defined (cobol_$perform_list_ptr);
 38 dcl cobol_$alter_list_ptr ptr  ext;
 39 dcl alter_list_ptr ptr  defined (cobol_$alter_list_ptr);
 40 dcl cobol_$seg_init_list_ptr ptr  ext;
 41 dcl seg_init_list_ptr ptr  defined (cobol_$seg_init_list_ptr);
 42 dcl cobol_$temp_token_area_ptr ptr  ext;
 43 dcl temp_token_area_ptr ptr  defined (cobol_$temp_token_area_ptr);
 44 dcl cobol_$temp_token_ptr ptr  ext;
 45 dcl temp_token_ptr ptr  defined (cobol_$temp_token_ptr);
 46 dcl cobol_$token_block1_ptr ptr  ext;
 47 dcl token_block1_ptr ptr  defined (cobol_$token_block1_ptr);
 48 dcl cobol_$token_block2_ptr ptr  ext;
 49 dcl token_block2_ptr ptr  defined (cobol_$token_block2_ptr);
 50 dcl cobol_$minpral5_ptr ptr  ext;
 51 dcl minpral5_ptr ptr  defined (cobol_$minpral5_ptr);
 52 dcl cobol_$tag_table_ptr ptr  ext;
 53 dcl tag_table_ptr ptr  defined (cobol_$tag_table_ptr);
 54 dcl cobol_$map_data_ptr ptr  ext;
 55 dcl map_data_ptr ptr  defined (cobol_$map_data_ptr);
 56 dcl cobol_$ptr_status_ptr ptr  ext;
 57 dcl ptr_status_ptr ptr  defined (cobol_$ptr_status_ptr);
 58 dcl cobol_$reg_status_ptr ptr  ext;
 59 dcl reg_status_ptr ptr  defined (cobol_$reg_status_ptr);
 60 dcl cobol_$misc_base_ptr ptr ext;
 61 dcl misc_base_ptr ptr defined (cobol_$misc_base_ptr);
 62 dcl cobol_$misc_end_ptr ptr ext;
 63 dcl misc_end_ptr ptr defined (cobol_$misc_end_ptr);
 64 dcl cobol_$list_ptr ptr ext;
 65 dcl list_ptr ptr defined (cobol_$list_ptr);
 66 dcl cobol_$allo1_ptr ptr ext;
 67 dcl allo1_ptr ptr defined (cobol_$allo1_ptr);
 68 dcl cobol_$eln_ptr ptr ext;
 69 dcl eln_ptr ptr defined (cobol_$eln_ptr);
 70 dcl cobol_$diag_ptr ptr ext;
 71 dcl diag_ptr ptr defined (cobol_$diag_ptr);
 72 dcl cobol_$xref_token_ptr ptr ext;
 73 dcl xref_token_ptr ptr defined (cobol_$xref_token_ptr);
 74 dcl cobol_$xref_chain_ptr ptr ext;
 75 dcl xref_chain_ptr ptr defined (cobol_$xref_chain_ptr);
 76 dcl cobol_$statement_info_ptr ptr ext;
 77 dcl statement_info_ptr ptr defined (cobol_$statement_info_ptr);
 78 dcl cobol_$reswd_ptr ptr ext;
 79 dcl reswd_ptr ptr defined (cobol_$reswd_ptr);
 80 dcl cobol_$op_con_ptr ptr ext;
 81 dcl op_con_ptr ptr defined (cobol_$op_con_ptr);
 82 dcl cobol_$ntbuf_ptr ptr ext;
 83 dcl ntbuf_ptr ptr defined (cobol_$ntbuf_ptr);
 84 dcl cobol_$main_pcs_ptr ptr ext;
 85 dcl main_pcs_ptr ptr defined (cobol_$main_pcs_ptr);
 86 dcl cobol_$include_info_ptr ptr ext;
 87 dcl include_info_ptr ptr defined (cobol_$include_info_ptr);
 88 
 89 /* FIXED BIN */
 90 dcl cobol_$text_wd_off fixed bin  ext;
 91 dcl text_wd_off fixed bin  defined (cobol_$text_wd_off);
 92 dcl cobol_$con_wd_off fixed bin  ext;
 93 dcl con_wd_off fixed bin  defined (cobol_$con_wd_off);
 94 dcl cobol_$def_wd_off fixed bin  ext;
 95 dcl def_wd_off fixed bin  defined (cobol_$def_wd_off);
 96 dcl cobol_$def_max fixed bin  ext;
 97 dcl def_max fixed bin  defined (cobol_$def_max);
 98 dcl cobol_$link_wd_off fixed bin  ext;
 99 dcl link_wd_off fixed bin  defined (cobol_$link_wd_off);
100 dcl cobol_$link_max fixed bin  ext;
101 dcl link_max fixed bin  defined (cobol_$link_max);
102 dcl cobol_$sym_wd_off fixed bin  ext;
103 dcl sym_wd_off fixed bin  defined (cobol_$sym_wd_off);
104 dcl cobol_$sym_max fixed bin  ext;
105 dcl sym_max fixed bin  defined (cobol_$sym_max);
106 dcl cobol_$reloc_text_max fixed bin(24)  ext;
107 dcl reloc_text_max fixed bin(24)  defined (cobol_$reloc_text_max);
108 dcl cobol_$reloc_def_max fixed bin(24)  ext;
109 dcl reloc_def_max fixed bin(24)  defined (cobol_$reloc_def_max);
110 dcl cobol_$reloc_link_max fixed bin(24)  ext;
111 dcl reloc_link_max fixed bin(24)  defined (cobol_$reloc_link_max);
112 dcl cobol_$reloc_sym_max fixed bin(24)  ext;
113 dcl reloc_sym_max fixed bin(24)  defined (cobol_$reloc_sym_max);
114 dcl cobol_$reloc_work_max fixed bin(24)  ext;
115 dcl reloc_work_max fixed bin(24)  defined (cobol_$reloc_work_max);
116 dcl cobol_$pd_map_index fixed bin  ext;
117 dcl pd_map_index fixed bin  defined (cobol_$pd_map_index);
118 dcl cobol_$cobol_data_wd_off fixed bin  ext;
119 dcl cobol_data_wd_off fixed bin  defined (cobol_$cobol_data_wd_off);
120 dcl cobol_$stack_off fixed bin  ext;
121 dcl stack_off fixed bin  defined (cobol_$stack_off);
122 dcl cobol_$max_stack_off fixed bin  ext;
123 dcl max_stack_off fixed bin  defined (cobol_$max_stack_off);
124 dcl cobol_$init_stack_off fixed bin  ext;
125 dcl init_stack_off fixed bin  defined (cobol_$init_stack_off);
126 dcl cobol_$pd_map_sw fixed bin  ext;
127 dcl pd_map_sw fixed bin  defined (cobol_$pd_map_sw);
128 dcl cobol_$next_tag fixed bin  ext;
129 dcl next_tag fixed bin  defined (cobol_$next_tag);
130 dcl cobol_$data_init_flag fixed bin  ext;
131 dcl data_init_flag fixed bin  defined (cobol_$data_init_flag);
132 dcl cobol_$seg_init_flag fixed bin  ext;
133 dcl seg_init_flag fixed bin  defined (cobol_$seg_init_flag);
134 dcl cobol_$alter_flag fixed bin  ext;
135 dcl alter_flag fixed bin  defined (cobol_$alter_flag);
136 dcl cobol_$sect_eop_flag fixed bin  ext;
137 dcl sect_eop_flag fixed bin  defined (cobol_$sect_eop_flag);
138 dcl cobol_$para_eop_flag fixed bin  ext;
139 dcl para_eop_flag fixed bin  defined (cobol_$para_eop_flag);
140 dcl cobol_$priority_no fixed bin  ext;
141 dcl priority_no fixed bin  defined (cobol_$priority_no);
142 dcl cobol_$compile_count fixed bin ext;
143 dcl compile_count fixed bin defined (cobol_$compile_count);
144 dcl cobol_$ptr_assumption_ind fixed bin ext;
145 dcl ptr_assumption_ind fixed bin defined (cobol_$ptr_assumption_ind);
146 dcl cobol_$reg_assumption_ind fixed bin ext;
147 dcl reg_assumption_ind fixed bin defined (cobol_$reg_assumption_ind);
148 dcl cobol_$perform_para_index fixed bin ext;
149 dcl perform_para_index fixed bin defined (cobol_$perform_para_index);
150 dcl cobol_$perform_sect_index fixed bin ext;
151 dcl perform_sect_index fixed bin defined (cobol_$perform_sect_index);
152 dcl cobol_$alter_index fixed bin ext;
153 dcl alter_index fixed bin defined (cobol_$alter_index);
154 dcl cobol_$list_off fixed bin ext;
155 dcl list_off fixed bin defined (cobol_$list_off);
156 dcl cobol_$constant_offset fixed bin ext;
157 dcl constant_offset fixed bin defined (cobol_$constant_offset);
158 dcl cobol_$misc_max fixed bin ext;
159 dcl misc_max fixed bin defined (cobol_$misc_max);
160 dcl cobol_$pd_map_max fixed bin ext;
161 dcl pd_map_max fixed bin defined (cobol_$pd_map_max);
162 dcl cobol_$map_data_max fixed bin ext;
163 dcl map_data_max fixed bin defined (cobol_$map_data_max);
164 dcl cobol_$fixup_max fixed bin ext;
165 dcl fixup_max fixed bin defined (cobol_$fixup_max);
166 dcl cobol_$tag_table_max fixed bin ext;
167 dcl tag_table_max fixed bin defined (cobol_$tag_table_max);
168 dcl cobol_$temp_token_max fixed bin ext;
169 dcl temp_token_max fixed bin defined (cobol_$temp_token_max);
170 dcl cobol_$allo1_max fixed bin ext;
171 dcl allo1_max fixed bin defined (cobol_$allo1_max);
172 dcl cobol_$eln_max fixed bin ext;
173 dcl eln_max fixed bin defined (cobol_$eln_max);
174 dcl cobol_$debug_enable fixed bin ext;
175 dcl debug_enable fixed bin defined (cobol_$debug_enable);
176 dcl cobol_$non_source_offset fixed bin ext;
177 dcl non_source_offset fixed bin defined (cobol_$non_source_offset);
178 dcl cobol_$initval_flag fixed bin ext;
179 dcl initval_flag fixed bin defined (cobol_$initval_flag);
180 dcl cobol_$date_compiled_sw fixed bin ext;
181 dcl date_compiled_sw fixed bin defined (cobol_$date_compiled_sw);
182 dcl cobol_$include_cnt fixed bin ext;
183 dcl include_cnt fixed bin defined (cobol_$include_cnt);
184 dcl cobol_$fs_charcnt fixed bin ext;
185 dcl fs_charcnt fixed bin defined (cobol_$fs_charcnt);
186 dcl cobol_$ws_charcnt fixed bin ext;
187 dcl ws_charcnt fixed bin defined (cobol_$ws_charcnt);
188 dcl cobol_$coms_charcnt fixed bin ext;
189 dcl coms_charcnt fixed bin defined (cobol_$coms_charcnt);
190 dcl cobol_$ls_charcnt fixed bin ext;
191 dcl ls_charcnt fixed bin defined (cobol_$ls_charcnt);
192 dcl cobol_$cons_charcnt fixed bin ext;
193 dcl cons_charcnt fixed bin defined (cobol_$cons_charcnt);
194 dcl cobol_$value_cnt fixed bin ext;
195 dcl value_cnt fixed bin defined (cobol_$value_cnt);
196 dcl cobol_$cd_cnt fixed bin ext;
197 dcl cd_cnt fixed bin defined (cobol_$cd_cnt);
198 dcl cobol_$fs_wdoff fixed bin ext;
199 dcl fs_wdoff fixed bin defined (cobol_$fs_wdoff);
200 dcl cobol_$ws_wdoff fixed bin ext;
201 dcl ws_wdoff fixed bin defined (cobol_$ws_wdoff);
202 dcl cobol_$coms_wdoff fixed bin ext;
203 dcl coms_wdoff fixed bin defined (cobol_$coms_wdoff);
204 
205 /* CHARACTER */
206 dcl cobol_$scratch_dir char (168)   aligned ext;
207 dcl scratch_dir char (168)   aligned defined (cobol_$scratch_dir);                        /* -42- */
208 dcl cobol_$obj_seg_name char (32)   aligned ext;
209 dcl obj_seg_name char (32)   aligned defined (cobol_$obj_seg_name);             /* -8- */
210 
211 /* BIT */
212 dcl cobol_$xref_bypass bit(1) aligned ext;
213 dcl xref_bypass bit(1) aligned defined (cobol_$xref_bypass);                              /* -1- */
214 dcl cobol_$same_sort_merge_proc bit(1) aligned ext;
215 dcl same_sort_merge_proc bit(1) aligned defined (cobol_$same_sort_merge_proc);            /* -1- */
216 
217 
218 /* END INCLUDE FILE ... cobol_incl.pl1*/
219 
220