@M$v T4kFDESTROY Itani.Multics.a sty.s_telnet_08 004500035115 (logo)access_auditVItani Multics a@M$v T4JLOGOUT Itani.Multics.a int sty.s_telnet_08 0:16 $0.93 (logo)access_auditVItani Multics a@M$v T55h6DETACH channel sty.u_telnet_08 from Internet.Daemon.z 003700030105 Service=dial_out (hangup)access_audit" Internet Daemon zEsty.u_telnet_08 STY_USER $vTM@" (input on a.h031) x deny tapa_01 $v Tt26(LOGIN Swanson.Multics int a.h125 (create)access_auditWSwanson Multics aen8a.h125 ASCII_CRT none$v T1@CREATE Swanson.Multics.a a.h125 004500035116 (login)access_auditWSwanson Multics a@N$vT~6& (input on a.h031) x auth tapa_01 prn $v T@ l6DIALOUT channel sty.u_telnet_08 from Internet.Daemon.z 003700030105 Destination= XSTY_TELNET TVT5access_audite Internet Daemon z@Esty.u_telnet_08 STY_USER $v T]6ATTACH channel sty.u_telnet_08 to Internet.Daemon.z 003700030105 Service=dial_outaccess_audit! Internet Daemon zEsty.u_telnet_08 STY_USER $v T>(LOGIN Rosin.SysAdmin int sty.s_telnet_08 (create)access_auditXRosin SysAdmin aeKn8sty.s_telnet_08 STY_TELNET none$v TH/HCREATE Rosin.SysAdmin.a sty.s_telnet_08 006700035117 (login)access_auditXRosin SysAdmin aO$v T%HRLOGIN WAAnderson.SysMaint Q 1 abs1 [mail_to_forum] (create)access_auditYWAAnderson SysMaint mCn8abs1 none>udd>sm>wa>new_tcp/ip>mail_to_forum.absin $v TM=BCREATE WAAnderson.SysMaint.m abs1 006600035120 (login)access_auditYWAAnderson SysMaint mP$vT>v4=ABS LOGIN requested by WAAnderson.SysMaint.m Level=4$v TD1ADESTROY WAAnderson.SysMaint.m abs1 006600035120 (logo)access_auditYWAAnderson SysMaint mP$v TE5 ELOGOUT WAAnderson.SysMaint.m Q 1 abs1 0: 5 $0.29 (logo)access_auditYWAAnderson SysMaint mP$v T}B?DESTROY Swanson.Multics.a a.h125 004500035116 (logo)access_auditWSwanson Multics a@N$v T~{CLOGOUT Swanson.Multics.a int a.h125 0:11 $0.66 (logo)access_auditWSwanson Multics a@N$vTbsCact_ctl_: Automatic update: users = 29, pf=24, vcpu=0.685, rt=3.358$vTCX>sc_admin_command_: Rosin.SysAdmin.a: sc_command r inc end_durs */ 60 bit_cnt fixed bin (22), /* set to bit count of object seg */ 61 (npages, nnpages) fixed bin, /* set to number of page faults */ 62 (ncpu, nncpu) fixed bin (71), /* set to CPU time used */ 63 link bit (1) aligned, /* ON if link to pl1_operators_ desired */ 64 dummy_block ptr, /* ptr to block used in encoding expressions 65* for runtime symbol table */ 66 generate_map bit (1) aligned, /* ON if statement map wanted */ 67 long_profile bit (1) aligned; /* ON if long_profile desired */ 68 69 dcl ( 70 cg_stat$double_temp, 71 cg_stat$long_string_temp, 72 cg_stat$dummy_block, 73 cg_stat$ms_list, 74 cg_stat$jump_label, 75 cg_stat$m_s_p, 76 cg_stat$name_list, 77 cg_stat$format_list, 78 cg_stat$complex_ac, 79 cg_stat$dummy_statement, 80 cg_stat$stat_base, 81 cg_stat$link_base, 82 cg_stat$link_reloc_base, 83 cg_stat$sym_base, 84 cg_stat$next_ref, 85 cg_stat$sym_reloc_base, 86 cg_stat$root, 87 cg_stat$validate_proc, 88 cg_stat$first_ref, 89 cg_stat$cur_statement, 90 cg_stat$temporary_list, 91 cg_stat$constant_list, 92 cg_stat$text_base, 93 cg_stat$entry_arg, 94 cg_stat$sym_use_base, 95 cg_stat$text_reloc_base, 96 cg_stat$encoded_values, 97 cg_stat$def_base, 98 cg_stat$def_reloc_base, 99 cg_stat$desc_list_ptr, 100 cg_stat$first_op, 101 cg_stat$next_op, 102 cg_stat$agg_temps, 103 cg_stat$objmap_pt, 104 cg_stat$cur_node, 105 cg_stat$label_list, 106 cg_stat$last_label, 107 cg_stat$return_operator, 108 cg_stat$stop_operator, 109 cg_stat$profile_base, 110 cg_stat$return_main_operator 111 ) ptr ext; 112 113 dcl ( 114 cg_stat$link_origin, 115 cg_stat$def_origin, 116 cg_stat$sym_origin, 117 cg_stat$last_call, 118 cg_stat$stat_pos, 119 cg_stat$stat_rel, 120 cg_stat$def_pos, 121 cg_stat$text_pos, 122 cg_stat$link_pos, 123 cg_stat$sym_pos, 124 cg_stat$list_break (4), 125 cg_stat$cur_level, 126 cg_stat$link_begin, 127 cg_stat$profile_pos, 128 cg_stat$max_program_size, 129 cg_stat$bit_count, 130 cg_stat$link_rel, 131 cg_stat$sym_rel, 132 cg_stat$def_pool (0:10), 133 cg_stat$def_pool_size, 134 cg_stat$profile_start 135 ) fixed bin ext; 136 137 dcl cg_stat$map_start fixed bin (18) ext; 138 139 dcl ( 140 cg_stat$save_exp_called, 141 cg_stat$generate_symtab, 142 cg_stat$extended_stack, 143 cg_stat$profile_option, 144 cg_stat$separate_static, 145 cg_stat$skip_to_label, 146 cg_stat$table_option, 147 cg_stat$generate_map, 148 cg_stat$io_used, 149 cg_stat$use_type_6, 150 cg_stat$long_profile, 151 cg_stat$debug 152 ) bit (1) aligned ext static; 153 154 dcl ctl_char$ff char (1) aligned ext; 155 156 dcl cg_stat$seg_name char (32) var ext, 157 cg_stat$compiler_name 158 char (12) var ext, 159 cg_stat$version_name 160 char (132) var ext, 161 cg_stat$clock_time fixed bin (71) ext, 162 cg_stat$used_operator 163 bit (900) ext; 164 165 dcl 1 cg_stat$statement_map 166 unaligned ext, 167 2 (first, last) bit (18); 168 169 dcl pl1_stat_$version fixed bin ext static; 170 171 dcl (p, q, qr, ok, text_base, text_reloc_base) 172 ptr, 173 clength fixed bin (24), 174 (text_pos, stat_pos, link_pos, sym_pos, amt, def_pos, defrel, statrel, linkrel, symbolrel, n) 175 fixed bin (18), 176 (i, code) fixed bin, 177 (pages, ppages) fixed bin int static, 178 (cpu, ccpu) fixed bin (71) int static; 179 180 dcl ( 181 gen_pl1_symbol$beg_symbol, 182 compile_formats, 183 gen_pl1_symbol$end_symbol, 184 gen_pl1_linkage$init_linkage 185 ) entry, 186 error entry (fixed bin, ptr, ptr); 187 dcl com_err_ entry options (variable); 188 dcl (assign_storage, gen_pl1_linkage, compile_block) 189 entry (ptr), 190 mst$block_nodes entry (ptr, fixed bin) returns (fixed bin); 191 dcl ( 192 pl1_print$non_varying, 193 pl1_print$non_varying_nl 194 ) entry (char (*) aligned, fixed bin), 195 hcs_$get_usage_values 196 entry (fixed bin, fixed bin (71), fixed bin), 197 hcs_$set_bc_seg entry (ptr, fixed bin, fixed bin), 198 (display_pl1_map, display_pl1_text) 199 entry (ptr), 200 create_block entry (bit (9) aligned, ptr) returns (ptr), 201 create_statement entry (bit (9) aligned, ptr, ptr, bit (12) aligned) returns (ptr), 202 create_reference entry (ptr) returns (ptr), 203 create_label entry (ptr, ptr, bit (3) aligned) returns (ptr), 204 state_man$create_ms entry returns (ptr); 205 dcl compile_link entry (char (*) aligned, bit (18) aligned, fixed bin) returns (fixed bin); 206 dcl c_a entry (fixed bin, fixed bin) returns (ptr), 207 cg_error entry (fixed bin, fixed bin); 208 dcl debug entry options (variable); 209 dcl ioa_ entry options (variable), 210 expmac entry (fixed bin (15), ptr), 211 expmac$fill_usage entry (fixed bin (18), fixed bin (17)); 212 213 dcl (get_temp_segments_, release_temp_segments_) 214 entry (char (*), (*) ptr, fixed bin); 215 216 dcl profile_width init (2) fixed bin int static; 217 218 dcl (addrel, bit, divide, fixed, mod, null, ptr, size, substr, verify) 219 builtin; 220 221 dcl (out_of_bounds, cleanup) 222 condition; 223 224 dcl 1 ok_list aligned based, 225 2 number fixed bin, 226 2 offset (1) unaligned bit (18); 227 228 dcl 1 ok_list_reloc aligned based, 229 2 number fixed bin, 230 2 offset (1) unaligned bit (18); 231 232 dcl 1 half aligned based, 233 2 left unal bit (18), 234 2 right unal bit (18); 235 236 dcl image (amt) fixed bin based, 237 def_image (def_pos) fixed bin based, 238 link_image (link_pos) fixed bin based, 239 stat_image (stat_pos) fixed bin based, 240 symbol_image (sym_pos) fixed bin based; 241 242 dcl based_cs char (clength) based aligned; 243 dcl based_bs bit (clength) based aligned; 244 245 dcl get_ops_mac init (195) fixed bin (15) int static; 246 247 dcl return_operator_loc init (409) fixed bin (15) int static options (constant); 248 dcl stop_operator_loc init (801) fixed bin (15) int static options (constant); 249 dcl return_main_operator_loc 250 init (802) fixed bin (15) int static options (constant); 251 252 dcl temp_segs (8) ptr; 253 dcl ss_temp_seg (1) ptr; 254 dcl my_name char (32); 255 1 1 /* BEGIN INCLUDE FILE ... symbol.incl.pl1 */ 1 2 1 3 dcl 1 symbol based aligned, 1 4 2 node_type bit(9) unal, 1 5 2 source_id structure unal, 1 6 3 file_number bit(8), 1 7 3 line_number bit(14), 1 8 3 statement_number bit(5), 1 9 2 location fixed(18) unal unsigned, 1 10 2 allocated bit(1) unal, 1 11 2 dcl_type bit(3) unal, 1 12 2 reserved bit(6) unal, 1 13 2 pix unal, 1 14 3 pic_fixed bit(1) unal, 1 15 3 pic_float bit(1) unal, 1 16 3 pic_char bit(1) unal, 1 17 3 pic_scale fixed(7) unal, 1 18 3 pic_size fixed(7) unal, 1 19 2 level fixed(8) unal, 1 20 2 boundary fixed(3) unal, 1 21 2 size_units fixed(3) unal, 1 22 2 scale fixed(7) unal, 1 23 2 runtime bit(18) unal, 1 24 2 runtime_offset bit(18) unal, 1 25 2 block_node ptr unal, 1 26 2 token ptr unal, 1 27 2 next ptr unal, 1 28 2 multi_use ptr unal, 1 29 2 cross_references ptr unal, 1 30 2 initial ptr unal, 1 31 2 array ptr unal, 1 32 2 descriptor ptr unal, 1 33 2 equivalence ptr unal, 1 34 2 reference ptr unal, 1 35 2 general ptr unal, 1 36 2 father ptr unal, 1 37 2 brother ptr unal, 1 38 2 son ptr unal, 1 39 2 word_size ptr unal, 1 40 2 bit_size ptr unal, 1 41 2 dcl_size ptr unal, 1 42 2 symtab_size ptr unal, 1 43 2 c_word_size fixed(24), 1 44 2 c_bit_size fixed(24), 1 45 2 c_dcl_size fixed(24), 1 46 1 47 2 attributes structure aligned, 1 48 3 data_type structure unal, 1 49 4 structure bit(1) , 1 50 4 fixed bit(1), 1 51 4 float bit(1), 1 52 4 bit bit(1), 1 53 4 char bit(1), 1 54 4 ptr bit(1), 1 55 4 offset bit(1), 1 56 4 area bit(1), 1 57 4 label bit(1), 1 58 4 entry bit(1), 1 59 4 file bit(1), 1 60 4 arg_descriptor bit(1), 1 61 4 storage_block bit(1), 1 62 4 explicit_packed bit(1), /* options(packed) */ 1 63 4 condition bit(1), 1 64 4 format bit(1), 1 65 4 builtin bit(1), 1 66 4 generic bit(1), 1 67 4 picture bit(1), 1 68 1 69 3 misc_attributes structure unal, 1 70 4 dimensioned bit(1), 1 71 4 initialed bit(1), 1 72 4 aligned bit(1), 1 73 4 unaligned bit(1), 1 74 4 signed bit(1), 1 75 4 unsigned bit(1), 1 76 4 precision bit(1), 1 77 4 varying bit(1), 1 78 4 local bit(1), 1 79 4 decimal bit(1), 1 80 4 binary bit(1), 1 81 4 real bit(1), 1 82 4 complex bit(1), 1 83 4 variable bit(1), 1 84 4 reducible bit(1), 1 85 4 irreducible bit(1), 1 86 4 returns bit(1), 1 87 4 position bit(1), 1 88 4 internal bit(1), 1 89 4 external bit(1), 1 90 4 like bit(1), 1 91 4 member bit(1), 1 92 4 non_varying bit(1), 1 93 4 options bit(1), 1 94 4 variable_arg_list bit(1), /* options(variable) */ 1 95 4 alloc_in_text bit(1), /* options(constant) */ 1 96 1 97 3 storage_class structure unal, 1 98 4 auto bit(1), 1 99 4 based bit(1), 1 100 4 static bit(1), 1 101 4 controlled bit(1), 1 102 4 defined bit(1), 1 103 4 parameter bit(1), 1 104 4 param_desc bit(1), 1 105 4 constant bit(1), 1 106 4 temporary bit(1), 1 107 4 return_value bit(1), 1 108 1 109 3 file_attributes structure unal, 1 110 4 print bit(1), 1 111 4 input bit(1), 1 112 4 output bit(1), 1 113 4 update bit(1), 1 114 4 stream bit(1), 1 115 4 reserved_1 bit(1), 1 116 4 record bit(1), 1 117 4 sequential bit(1), 1 118 4 direct bit(1), 1 119 4 interactive bit(1), /* env(interactive) */ 1 120 4 reserved_2 bit(1), 1 121 4 reserved_3 bit(1), 1 122 4 stringvalue bit(1), /* env(stringvalue) */ 1 123 4 keyed bit(1), 1 124 4 reserved_4 bit(1), 1 125 4 environment bit(1), 1 126 1 127 3 compiler_developed structure unal, 1 128 4 aliasable bit(1), 1 129 4 packed bit(1), 1 130 4 passed_as_arg bit(1), 1 131 4 allocate bit(1), 1 132 4 set bit(1), 1 133 4 exp_extents bit(1), 1 134 4 refer_extents bit(1), 1 135 4 star_extents bit(1), 1 136 4 isub bit(1), 1 137 4 put_in_symtab bit(1), 1 138 4 contiguous bit(1), 1 139 4 put_data bit(1), 1 140 4 overlayed bit(1), 1 141 4 error bit(1), 1 142 4 symtab_processed bit(1), 1 143 4 overlayed_by_builtin bit(1), 1 144 4 defaulted bit(1), 1 145 4 connected bit(1); 1 146 1 147 /* END INCLUDE FILE ... symbol.incl.pl1 */ 256 2 1 /* BEGIN INCLUDE FILE ... block.incl.pl1 */ 2 2 /* Modified 22 Ocober 1980 by M. N. Davidoff to increase max block.number to 511 */ 2 3 /* format: style3,idind30 */ 2 4 2 5 declare 1 block aligned based, 2 6 2 node_type bit (9) unaligned, 2 7 2 source_id structure unaligned, 2 8 3 file_number bit (8), 2 9 3 line_number bit (14), 2 10 3 statement_number bit (5), 2 11 2 father ptr unaligned, 2 12 2 brother ptr unaligned, 2 13 2 son ptr unaligned, 2 14 2 declaration ptr unaligned, 2 15 2 end_declaration ptr unaligned, 2 16 2 default ptr unaligned, 2 17 2 end_default ptr unaligned, 2 18 2 context ptr unaligned, 2 19 2 prologue ptr unaligned, 2 20 2 end_prologue ptr unaligned, 2 21 2 main ptr unaligned, 2 22 2 end_main ptr unaligned, 2 23 2 return_values ptr unaligned, 2 24 2 return_count ptr unaligned, 2 25 2 plio_ps ptr unaligned, 2 26 2 plio_fa ptr unaligned, 2 27 2 plio_ffsb ptr unaligned, 2 28 2 plio_ssl ptr unaligned, 2 29 2 plio_fab2 ptr unaligned, 2 30 2 block_type bit (9) unaligned, 2 31 2 prefix bit (12) unaligned, 2 32 2 like_attribute bit (1) unaligned, 2 33 2 no_stack bit (1) unaligned, 2 34 2 get_data bit (1) unaligned, 2 35 2 flush_at_call bit (1) unaligned, 2 36 2 processed bit (1) unaligned, 2 37 2 text_displayed bit (1) unaligned, 2 38 2 number fixed bin (9) unsigned unaligned, 2 39 2 free_temps dimension (3) ptr, /* these fields are used by the code generator */ 2 40 2 temp_list ptr, 2 41 2 entry_list ptr, 2 42 2 o_and_s ptr, 2 43 2 why_nonquick aligned, 2 44 3 auto_adjustable_storage bit (1) unaligned, 2 45 3 returns_star_extents bit (1) unaligned, 2 46 3 stack_extended_by_args bit (1) unaligned, 2 47 3 invoked_by_format bit (1) unaligned, 2 48 3 format_statement bit (1) unaligned, 2 49 3 io_statements bit (1) unaligned, 2 50 3 assigned_to_entry_var bit (1) unaligned, 2 51 3 condition_statements bit (1) unaligned, 2 52 3 no_owner bit (1) unaligned, 2 53 3 recursive_call bit (1) unaligned, 2 54 3 options_non_quick bit (1) unaligned, 2 55 3 options_variable bit (1) unaligned, 2 56 3 never_referenced bit (1) unaligned, 2 57 3 pad_nonquick bit (5) unaligned, 2 58 2 prologue_flag bit (1) unaligned, 2 59 2 options_main bit (1) unaligned, 2 60 2 pad bit (16) unaligned, 2 61 2 number_of_entries fixed bin (17), 2 62 2 level fixed bin (17), 2 63 2 last_auto_loc fixed bin (17), 2 64 2 symbol_block fixed bin (17), 2 65 2 entry_info fixed bin (18), 2 66 2 enter structure unaligned, 2 67 3 start fixed bin (17), 2 68 3 end fixed bin (17), 2 69 2 leave structure unaligned, 2 70 3 start fixed bin (17), 2 71 3 end fixed bin (17), 2 72 2 owner ptr; 2 73 2 74 declare max_block_number fixed bin internal static options (constant) initial (511); 2 75 2 76 /* END INCLUDE FILE ... block.incl.pl1 */ 257 3 1 /* BEGIN INCLUDE FILE ... reference.incl.pl1 */ 3 2 3 3 dcl 1 reference based aligned, 3 4 2 node_type bit(9) unaligned, 3 5 2 array_ref bit(1) unaligned, 3 6 2 varying_ref bit(1) unaligned, 3 7 2 shared bit(1) unaligned, 3 8 2 put_data_sw bit(1) unaligned, 3 9 2 processed bit(1) unaligned, 3 10 2 units fixed(3) unaligned, 3 11 2 ref_count fixed(17) unaligned, 3 12 2 c_offset fixed(24), 3 13 2 c_length fixed(24), 3 14 2 symbol ptr unaligned, 3 15 2 qualifier ptr unaligned, 3 16 2 offset ptr unaligned, 3 17 2 length ptr unaligned, 3 18 2 subscript_list ptr unaligned, 3 19 /* these fields are used by the 645 code generator */ 3 20 2 address structure unaligned, 3 21 3 base bit(3), 3 22 3 offset bit(15), 3 23 3 op bit(9), 3 24 3 no_address bit(1), 3 25 3 inhibit bit(1), 3 26 3 ext_base bit(1), 3 27 3 tag bit(6), 3 28 2 info structure unaligned, 3 29 3 address_in structure, 3 30 4 b dimension(0:7) bit(1), 3 31 4 storage bit(1), 3 32 3 value_in structure, 3 33 4 a bit(1), 3 34 4 q bit(1), 3 35 4 aq bit(1), 3 36 4 string_aq bit(1), 3 37 4 complex_aq bit(1), 3 38 4 decimal_aq bit(1), 3 39 4 b dimension(0:7) bit(1), 3 40 4 storage bit(1), 3 41 4 indicators bit(1), 3 42 4 x dimension(0:7) bit(1), 3 43 3 other structure, 3 44 4 big_offset bit(1), 3 45 4 big_length bit(1), 3 46 4 modword_in_offset bit(1), 3 47 2 data_type fixed(5) unaligned, 3 48 2 bits structure unaligned, 3 49 3 padded_ref bit(1), 3 50 3 aligned_ref bit(1), 3 51 3 long_ref bit(1), 3 52 3 forward_ref bit(1), 3 53 3 ic_ref bit(1), 3 54 3 temp_ref bit(1), 3 55 3 defined_ref bit(1), 3 56 3 evaluated bit(1), 3 57 3 allocate bit(1), 3 58 3 allocated bit(1), 3 59 3 aliasable bit(1), 3 60 3 even bit(1), 3 61 3 perm_address bit(1), 3 62 3 aggregate bit(1), 3 63 3 hit_zero bit(1), 3 64 3 dont_save bit(1), 3 65 3 fo_in_qual bit(1), 3 66 3 hard_to_load bit(1), 3 67 2 relocation bit(12) unaligned, 3 68 2 more_bits structure unaligned, 3 69 3 substr bit(1), 3 70 3 padded_for_store_ref bit(1), 3 71 3 aligned_for_store_ref bit(1), 3 72 3 mbz bit(15), 3 73 2 store_ins bit(18) unaligned; 3 74 3 75 /* END INCLUDE FILE ... reference.incl.pl1 */ 258 4 1 /* BEGIN INCLUDE FILE ... runtime_symbol.incl.pl1 ... Modified 07/79 */ 4 2 4 3 dcl 1 runtime_symbol aligned based, 4 4 2 flag unal bit(1), /* always "1"b for Version II */ 4 5 2 use_digit unal bit(1), /* if "1"b and units are half words units are really digits */ 4 6 2 array_units unal bit(2), 4 7 2 units unal bit(2), /* addressing units */ 4 8 2 type unal bit(6), /* data type */ 4 9 2 level unal bit(6), /* structure level */ 4 10 2 ndims unal bit(6), /* number of dimensions */ 4 11 2 bits unal, 4 12 3 aligned bit(1), 4 13 3 packed bit(1), 4 14 3 simple bit(1), 4 15 2 skip unal bit(1), 4 16 2 scale unal bit(8), /* arithmetic scale factor */ 4 17 2 name unal bit(18), /* rel ptr to acc name */ 4 18 2 brother unal bit(18), /* rel ptr to brother entry */ 4 19 2 father unal bit(18), /* rel ptr to father entry */ 4 20 2 son unal bit(18), /* rel ptr to son entry */ 4 21 2 address unal, 4 22 3 location bit(18), /* location in storage class */ 4 23 3 class bit(4), /* storage class */ 4 24 3 next bit(14), /* rel ptr to next of same class */ 4 25 2 size fixed bin(35), /* encoded string|arith size */ 4 26 2 offset fixed bin(35), /* encoded offset from address */ 4 27 2 virtual_org fixed bin(35), 4 28 2 bounds(1), 4 29 3 lower fixed bin(35), /* encoded lower bound */ 4 30 3 upper fixed bin(35), /* encoded upper bound */ 4 31 3 multiplier fixed bin(35); /* encoded multiplier */ 4 32 4 33 dcl 1 runtime_bound based, 4 34 2 lower fixed bin(35), 4 35 2 upper fixed bin(35), 4 36 2 multiplier fixed bin(35); 4 37 4 38 dcl 1 runtime_block aligned based, 4 39 2 flag unal bit(1), /* always "1"b for Version II */ 4 40 2 quick unal bit(1), /* "1"b if quick block */ 4 41 2 fortran unal bit(1), /* "1"b if fortran program */ 4 42 2 standard unal bit(1), /* "1"b if program has std obj segment */ 4 43 2 owner_flag unal bit(1), /* "1"b if block has valid owner field */ 4 44 2 skip unal bit(1), 4 45 2 type unal bit(6), /* = 0 for a block node */ 4 46 2 number unal bit(6), /* begin block number */ 4 47 2 start unal bit(18), /* rel ptr to start of symbols */ 4 48 2 name unal bit(18), /* rel ptr to name of proc */ 4 49 2 brother unal bit(18), /* rel ptr to brother block */ 4 50 2 father unal bit(18), /* rel ptr to father block */ 4 51 2 son unal bit(18), /* rel ptr to son block */ 4 52 2 map unal, 4 53 3 first bit(18), /* rel ptr to first word of map */ 4 54 3 last bit(18), /* rel ptr to last word of map */ 4 55 2 entry_info unal bit(18), /* info about entry of quick block */ 4 56 2 header unal bit(18), /* rel ptr to symbol header */ 4 57 2 chain(4) unal bit(18), /* chain(i) is rel ptr to first symbol 4 58* on start list with length >= 2**i */ 4 59 2 token(0:5) unal bit(18), /* token(i) is rel ptr to first token 4 60* on list with length >= 2 ** i */ 4 61 2 owner unal bit(18); /* rel ptr to owner block */ 4 62 4 63 dcl 1 runtime_token aligned based, 4 64 2 next unal bit(18), /* rel ptr to next token */ 4 65 2 dcl unal bit(18), /* rel ptr to first dcl of this token */ 4 66 2 name, /* ACC */ 4 67 3 size unal unsigned fixed bin (9), /* number of chars in token */ 4 68 3 string unal char(n refer(runtime_token.size)); 4 69 4 70 dcl 1 encoded_value aligned based, 4 71 2 flag bit (2) unal, 4 72 2 code bit (4) unal, 4 73 2 n1 bit (6) unal, 4 74 2 n2 bit (6) unal, 4 75 2 n3 bit (18) unal; 4 76 4 77 /* END INCLUDE FILE ... runtime_symbol.incl.pl1 */ 259 5 1 /* BEGIN INCLUDE FILE ... operator.incl.pl1 */ 5 2 5 3 /* Modified: 2 Apr 1980 by PCK to add max_number_of_operands */ 5 4 5 5 /* format: style3 */ 5 6 dcl 1 operator based aligned, 5 7 2 node_type bit (9) unaligned, 5 8 2 op_code bit (9) unaligned, 5 9 2 shared bit (1) unaligned, 5 10 2 processed bit (1) unaligned, 5 11 2 optimized bit (1) unaligned, 5 12 2 number fixed (14) unaligned, 5 13 2 operand dimension (n refer (operator.number)) ptr unaligned; 5 14 5 15 dcl max_number_of_operands 5 16 fixed bin (15) int static options (constant) initial (32767); 5 17 5 18 /* END INCLUDE FILE ... operator.incl.pl1 */ 260 6 1 /* BEGIN INCLUDE FILE ... list.incl.pl1 */ 6 2 6 3 /* Modified 26 June 81 by EBush to add max_list_elements */ 6 4 6 5 6 6 dcl 1 list based aligned, 6 7 2 node_type bit(9) unaligned, 6 8 2 reserved bit(12) unaligned, 6 9 2 number fixed(14) unaligned, 6 10 2 element dimension(n refer(list.number)) ptr unaligned; 6 11 6 12 dcl max_list_elements fixed bin(17) internal static options (constant) 6 13 init(16383); 6 14 6 15 /* END INCLUDE FILE ... list.incl.pl1 */ 261 7 1 /* BEGIN INCLUDE FILE ... boundary.incl.pl1 */ 7 2 7 3 /* Modified: 26 Apr 1979 by PCK to implement 4-bit decimal */ 7 4 7 5 dcl ( bit_ init(1), 7 6 digit_ init(2), 7 7 character_ init(3), 7 8 half_ init(4), 7 9 word_ init(5), 7 10 mod2_ init(6), 7 11 mod4_ init(7)) fixed bin(3) int static options(constant); 7 12 7 13 /* END INCLUDE FILE ... boundary.incl.pl1 */ 262 8 1 dcl ( root_block initial("000000001"b), 8 2 external_procedure initial("000000010"b), 8 3 internal_procedure initial("000000011"b), 8 4 begin_block initial("000000100"b), 8 5 on_unit initial("000000101"b)) internal static bit(9) aligned options(constant); 263 9 1 dcl ( callers_stack init(16), /* ptr to caller's stack frame */ 9 2 language_id_code init(24), /* identifies pl/1 */ 9 3 entry_descriptor init(2), /* ptr to entry descriptor in text */ 9 4 display_ptr init(32), 9 5 int_static_ptr init(34), 9 6 linkage_ptr init(36), 9 7 reset_next_ptr init(0), /* initial value of next sp */ 9 8 enabled_on_units init(38), 9 9 long_string_loc init(40), /* loc of long_string_temp */ 9 10 invocation_count init(42), 9 11 double_temp_loc init(46), /* loc of double_temp */ 9 12 complex_ac_loc init(56), 9 13 param_array init(64)) 9 14 fixed bin(15) int static options(constant); 264 10 1 dcl bases(0:7) bit(3) aligned int static init("000"b, "010"b, "100"b, "001"b, "011"b, "101"b, "111"b,"110"b) 10 2 options(constant); 10 3 10 4 dcl ( ap defined(bases(0)), 10 5 bp defined(bases(1)), 10 6 lp defined(bases(2)), 10 7 sp defined(bases(7))) bit(3) aligned; 10 8 10 9 dcl ( ab defined(bases(3)), 10 10 bb defined(bases(4)), 10 11 lb defined(bases(5)), 10 12 sb defined(bases(6))) bit(3) aligned; 10 13 10 14 dcl which_base(0:7) fixed bin int static init(0,3,1,4,2,5,7,6) options(constant); 265 11 1 /* BEGIN INCLUDE FILE ... declare_type.incl.pl1 */ 11 2 11 3 /* Modified: 25 Apr 1979 by PCK to implement 4-bit decimal */ 11 4 11 5 dcl ( by_declare initial("001"b), 11 6 by_explicit_context initial("010"b), 11 7 by_context initial("011"b), 11 8 by_implication initial("100"b), 11 9 by_compiler initial("101"b)) int static bit(3) aligned options(constant); 11 10 11 11 /* END INCLUDE FILE ... declare_type.incl.pl1 */ 266 12 1 /* BEGIN INCLUDE FILE ... object_map.incl.pl1 */ 12 2 /* coded February 8, 1972 by Michael J. Spier */ 12 3 /* Last modified on 05/20/72 at 13:29:38 by R F Mabee. */ 12 4 /* Made to agree with Spier's document on 20 May 1972 by R F Mabee. */ 12 5 /* modified on 6 May 1972 by R F Mabee to add map_ptr at end of object map. */ 12 6 /* modified May, 1972 by M. Weaver */ 12 7 /* modified 5/75 by E. Wiatrowski and 6/75 by M. Weaver */ 12 8 /* modified 5/77 by M. Weaver to add perprocess_static bit */ 12 9 12 10 declare 1 object_map aligned based, /* Structure describing standard object map */ 12 11 12 12 2 decl_vers fixed bin, /* Version number of current structure format */ 12 13 2 identifier char (8) aligned, /* Must be the constant "obj_map" */ 12 14 2 text_offset bit (18) unaligned, /* Offset relative to base of object segment of base of text section */ 12 15 2 text_length bit (18) unaligned, /* Length in words of text section */ 12 16 2 definition_offset bit (18) unaligned, /* Offset relative to base of object seg of base of definition section */ 12 17 2 definition_length bit (18) unaligned, /* Length in words of definition section */ 12 18 2 linkage_offset bit (18) unaligned, /* Offset relative to base of object seg of base of linkage section */ 12 19 2 linkage_length bit (18) unaligned, /* Length in words of linkage section */ 12 20 2 static_offset bit (18) unaligned, /* Offset relative to base of obj seg of static section */ 12 21 2 static_length bit (18) unaligned, /* Length in words of static section */ 12 22 2 symbol_offset bit (18) unaligned, /* Offset relative to base of object seg of base of symbol section */ 12 23 2 symbol_length bit (18) unaligned, /* Length in words of symbol section */ 12 24 2 break_map_offset bit (18) unaligned, /* Offset relative to base of object seg of base of break map */ 12 25 2 break_map_length bit (18) unaligned, /* Length in words of break map */ 12 26 2 entry_bound bit (18) unaligned, /* Offset in text of last gate entry */ 12 27 2 text_link_offset bit (18) unaligned, /* Offset of first text-embedded link */ 12 28 2 format aligned, /* Word containing bit flags about object type */ 12 29 3 bound bit (1) unaligned, /* On if segment is bound */ 12 30 3 relocatable bit (1) unaligned, /* On if segment has relocation info in its first symbol block */ 12 31 3 procedure bit (1) unaligned, /* On if segment is an executable object program */ 12 32 3 standard bit (1) unaligned, /* On if segment is in standard format (more than just standard map) */ 12 33 3 separate_static bit(1) unaligned, /* On if static is a separate section from linkage */ 12 34 3 links_in_text bit (1) unaligned, /* On if there are text-embedded links */ 12 35 3 perprocess_static bit (1) unaligned, /* On if static is not to be per run unit */ 12 36 3 unused bit (29) unaligned; /* Reserved */ 12 37 12 38 declare map_ptr bit(18) aligned based; /* Last word of the segment. It points to the base of the object map. */ 12 39 12 40 declare object_map_version_2 fixed bin static init(2); 12 41 12 42 /* END INCLUDE FILE ... object_map.incl.pl1 */ 267 13 1 /* BEGIN INCLUDE FILE ... cgsystem.incl.pl1 */ 13 2 13 3 /* Modified: 25 Apr 1979 by PCK to implement 4-bit decimal */ 13 4 13 5 dcl ( bits_per_char init(9), 13 6 bits_per_half init(18), 13 7 bits_per_word init(36), 13 8 bits_per_two_words init(72), 13 9 bits_per_four_words init(144), 13 10 bits_per_words(2) init(36,72), 13 11 packed_digits_per_char init(2), 13 12 chars_per_word init(4), 13 13 packed_digits_per_word init(8), 13 14 13 15 break_even_bits init(216), 13 16 break_even_words init(6), 13 17 13 18 label_size init(4), 13 19 13 20 convert_size(13:14) init(9,1), 13 21 max_offset(13:14) init(27,35), 13 22 max_short_size(13:14) init(8,72), 13 23 13 24 units_per_word(0:5) init(1,36,8,4,2,1), 13 25 13 26 max_dec_scale init(32), 13 27 min_dec_scale init(-31), 13 28 max_p_xreg init(18), 13 29 max_p_fix_bin_1 init(35), 13 30 max_p_flt_bin_1 init(27), 13 31 max_p_fix_dec init(59), 13 32 max_length_p init(24), 13 33 default_fix_bin_p init(17)) fixed bin(8) int static options(constant); 13 34 13 35 dcl (convert_offset(0:5) init(36,1,4.5,9,18,36), 13 36 bits_per_packed_digit init(4.5)) fixed bin(8,1) int static options(constant); 13 37 13 38 dcl max_index_register_value init(262143) fixed bin(31) int static options(constant); 13 39 13 40 /* END INCLUDE FILE ... cgsystem.incl.pl1 */ 13 41 268 14 1 /* BEGIN INCLUDE FILE relbts.incl.pl1 */ 14 2 14 3 /* This include file defines the relocation bits as bit (18) entities. See 14 4* also relocation_bits.incl.pl1 and reloc_lower.incl.pl1. */ 14 5 14 6 dcl ( rc_a initial("0"b), /* absolute */ 14 7 rc_t initial("000000000000010000"b), /* text */ 14 8 rc_nt initial("000000000000010001"b), /* negative text */ 14 9 rc_lp18 initial("000000000000010010"b), /* linkage, 18 bit */ 14 10 rc_nlp18 initial("000000000000010011"b), /* negative link, 18 bit */ 14 11 rc_lp15 initial("000000000000010100"b), /* linkage, 15 bit */ 14 12 rc_dp initial("000000000000010101"b), /* def section */ 14 13 rc_s initial("000000000000010110"b), /* symbol segment */ 14 14 rc_ns initial("000000000000010111"b), /* negative symbol */ 14 15 rc_is18 initial("000000000000011000"b), /* internal static 18 */ 14 16 rc_is15 initial("000000000000011001"b), /* internal static 15 */ 14 17 rc_lb initial("000000000000011000"b), /* link block */ 14 $w TOuBCREATE WAAnderson.SysMaint.m abs1 005200035243 (login)access_auditWAAnderson SysMaint m$wTO=ABS LOGIN requested by WAAnderson.SysMaint.m Level=4$w TO9]ADESTROY WAAnderson.SysMaint.m abs1 005200035243 (logo)access_auditWAAnderson SysMaint m$w TOVELOGOUT WAAnderson.SysMaint.m Q 1 abs1 0: 4 $0.26 (logo)access_auditWAAnderson SysMaint m$wTRBact_ctl_: Automatic update: users = 18, pf=0, vcpu=0.201, rt=0.284$w TUu~5RLOGIN Vu.Multics Q FG abs1 [TR] (create)access_auditVu Multics mnxabs1 none>udd>m>Vu>lib>ecs>TR.absin $w TU89CREATE Vu.Multics.m abs1 005200035244 (login)access_auditVu Multics m$wTU;4ABS LOGIN requested by Vu.Multics.m Level=4$w TUAJ8DESTROY Vu.Multics.m abs1 005200035244 (logo)access_auditVu Multics m$w TUAO=LOGOUT Vu.Multics.m Q FG abs1 0: 6 $0.00 (logo)access_auditVu Multics m$w TUsHRLOGIN WAAnderson.SysMaint Q 1 abs1 [mail_to_forum] (create)access_auditWAAnderson SysMaint mCn8abs1 none>udd>sm>wa>new_tcp/ip>mail_to_forum.absin $w TUBCREATE WAAnderson.SysMaint.m abs1 005200035245 (login)access_auditWAAnderson SysMaint m$wTV{=ABS LOGIN requested by WAAnderson.SysMaint.m Level=4$w TV!TADESTROY WAAnderson.SysMaint.m abs1 005200035245 (logo)access_auditWAAnderson SysMaint m$w TV!rELOGOUT WAAnderson.SysMaint.m Q 1 abs1 0:10 $0.60 (logo)access_auditWAAnderson SysMaint m$wTY Bact_ctl_: Automatic update: users = 18, pf=2, vcpu=0.321, rt=0.587$w T\F@HRLOGIN WAAnderson.SysMaint Q 1 abs1 [mail_to_forum] (create)access_auditWAAnderson SysMaint mCn8abs1 none>udd>sm>wa>new_tcp/ip>mail_to_forum.absin $w T\HWBCREATE WAAnderson.SysMaint.m abs1 005200035246 (login)access_auditWAAnderson SysMaint m$wT\]d=ABS LOGIN requested by WAAnderson.SysMaint.m Level=4$w T\aADESTROY WAAnderson.SysMaint.m abs1 005200035246 (logo)access_auditWAAnderson SysMaint m$w T\aaELOGOUT WAAnderson.SysMaint.m Q 1 abs1 0: 4 $0.26 (logo)access_auditWAAnderson SysMaint m$wT_Bact_ctl_: Automatic update: users = */ 16 10 2 control like long_profile_entry aligned; /* control profile entry for overhead calc */ 16 11 16 12 dcl 1 long_profile_entry based aligned, 16 13 2 map bit(18) unaligned, /* rel ptr to statement map entry */ 16 14 2 skip bit(18) unaligned, 16 15 2 count fixed bin, /* number of times stmt encountered */ 16 16 2 vcpu fixed bin, /* total execution time for this statement */ 16 17 2 pf fixed bin; /* total page faults for this statement */ 16 18 16 19 dcl (dummy_entry_offset init(5), /* offset in long_profile_header of dummy */ 16 20 control_entry_offset init(9)) /* offset in long_profile_header of control */ 16 21 fixed bin int static options(constant); 16 22 16 23 /* END INCLUDE FILE ... long_profile.incl.pl1 */ 271 17 1 dcl pl1_version fixed bin int static init(5); 272 273 274 /* program */ 275 276 cg_stat$bit_count = 0; 277 pages = 0; 278 ppages = 0; 279 cpu = 0; 280 ccpu = 0; 281 282 if pl1_stat_$version ^= pl1_version | compiler_name ^= "pl1" 283 then call error (342, null, null); 284 285 my_name = compiler_name; 286 287 /* create scratch segments and set pointers to various buffers */ 288 289 temp_segs (*) = null; 290 ss_temp_seg (*) = null; 291 292 on cleanup 293 begin; 294 call release_temp_segments_ (my_name, temp_segs (*), code); 295 call release_temp_segments_ (my_name, ss_temp_seg (*), code); 296 end; 297 298 call get_temp_segments_ (my_name, temp_segs, code); 299 if code ^= 0 300 then do; 301 get_temp_segs_failed: 302 call com_err_ (code, my_name, "get_temp_segments_"); 303 goto done; 304 end; 305 306 cg_stat$link_base = temp_segs (1); 307 cg_stat$link_reloc_base = temp_segs (2); 308 cg_stat$def_base = temp_segs (3); 309 cg_stat$def_reloc_base = temp_segs (4); 310 cg_stat$sym_base = temp_segs (5); 311 cg_stat$sym_reloc_base = temp_segs (6); 312 cg_stat$text_reloc_base = temp_segs (7); 313 cg_stat$sym_use_base = temp_segs (8); 314 315 cg_stat$link_origin, cg_stat$def_origin, cg_stat$sym_origin = 0; 316 317 if cg_stat$separate_static 318 then do; 319 call get_temp_segments_ (my_name, ss_temp_seg, code); 320 cg_stat$stat_base = ss_temp_seg (1); 321 if code ^= 0 322 then goto get_temp_segs_failed; 323 end; 324 325 /* initialize position in various buffers */ 326 327 cg_stat$def_pos, cg_stat$stat_pos, cg_stat$text_pos, cg_stat$sym_pos = 0; 328 cg_stat$link_pos = 8; 329 330 /* set up static versions of input arguments */ 331 332 cg_stat$seg_name = seg_name; 333 cg_stat$compiler_name = "PL/I"; 334 cg_stat$use_type_6 = "0"b; 335 cg_stat$version_name = version_name; 336 cg_stat$root = root; 337 cg_stat$validate_proc = validate_proc; 338 cg_stat$temporary_list = temporary_list; 339 cg_stat$constant_list = constant_list; 340 text_base, cg_stat$text_base = ptr (object_pt, 0); 341 text_reloc_base = cg_stat$text_reloc_base; 342 cg_stat$clock_time = clock_time; 343 cg_stat$table_option = table_option; 344 cg_stat$long_profile = long_profile; 345 cg_stat$generate_symtab = generate_symtab; 346 347 /* the generate_symtab bit will only be on at entry to code generator 348* if put data or get data statements were used in program */ 349 350 cg_stat$io_used = generate_symtab; 351 352 /* initialize various other parts of the compiler */ 353 354 cg_stat$last_call = 0; 355 356 cg_stat$cur_node, cg_stat$desc_list_ptr, cg_stat$label_list, cg_stat$last_label, cg_stat$first_ref, 357 cg_stat$next_ref, cg_stat$ms_list, cg_stat$first_op, cg_stat$next_op, cg_stat$name_list, 358 cg_stat$format_list, cg_stat$cur_statement, cg_stat$agg_temps = null; 359 360 cg_stat$skip_to_label, cg_stat$used_operator = "0"b; 361 362 cg_stat$m_s_p = state_man$create_ms (); 363 364 /* create pointers to ref nodes for string operations */ 365 366 cg_stat$complex_ac = stk_add (complex_ac_loc); 367 cg_stat$double_temp = stk_add (double_temp_loc); 368 cg_stat$long_string_temp = stk_add (long_string_loc); 369 cg_stat$long_string_temp -> reference.tag = "010000"b; 370 /* * */ 371 cg_stat$return_operator = stk_add (return_operator_loc); 372 cg_stat$return_operator -> address.base = ap; 373 cg_stat$stop_operator = stk_add (stop_operator_loc); 374 cg_stat$stop_operator -> address.base = ap; 375 cg_stat$return_main_operator = stk_add (return_main_operator_loc); 376 cg_stat$return_main_operator -> address.base = ap; 377 378 /* Initialize definition pool for external static without init clauses */ 379 380 do i = 0 to cg_stat$def_pool_size; 381 cg_stat$def_pool (i) = 0; 382 end; 383 384 /* assign storage */ 385 386 cg_stat$root -> block.level = 0; 387 call assign_storage ((cg_stat$root -> block.son)); 388 389 if cg_stat$long_profile 390 then do; 391 cg_stat$profile_option = "0"b; 392 cg_stat$profile_pos = size (long_profile_header); 393 amt = size (long_profile_header) + profile_size * size (long_profile_entry); 394 395 if cg_stat$separate_static 396 then do; 397 cg_stat$profile_start = cg_stat$stat_pos + mod (cg_stat$stat_pos, 2); 398 cg_stat$profile_base = addrel (cg_stat$stat_base, cg_stat$profile_start); 399 cg_stat$stat_pos = cg_stat$profile_start + amt; 400 end; 401 else do; 402 cg_stat$profile_start = cg_stat$link_pos + mod (cg_stat$link_pos, 2); 403 cg_stat$profile_base = addrel (cg_stat$link_base, cg_stat$profile_start); 404 cg_stat$link_pos = cg_stat$profile_start + amt; 405 end; 406 407 cg_stat$profile_base -> long_profile_header.last_offset = dummy_entry_offset; 408 end; 409 410 else do; 411 cg_stat$profile_option = profile_size ^= 0; 412 if cg_stat$profile_option 413 then do; 414 amt = profile_width * (profile_size + 1); 415 416 if cg_stat$separate_static 417 then do; 418 cg_stat$profile_base = cg_stat$stat_base; 419 cg_stat$profile_pos = cg_stat$stat_pos; 420 cg_stat$stat_pos = cg_stat$stat_pos + amt; 421 end; 422 else do; 423 cg_stat$profile_base = cg_stat$link_base; 424 cg_stat$profile_pos = cg_stat$link_pos; 425 cg_stat$link_pos = cg_stat$link_pos + amt; 426 end; 427 end; 428 end; 429 430 cg_stat$generate_map = generate_map | cg_stat$table_option | cg_stat$profile_option | cg_stat$long_profile; 431 432 cg_stat$link_begin = cg_stat$link_pos; 433 cg_stat$list_break (1) = cg_stat$text_pos; 434 435 /* generate linkage section */ 436 437 call gen_pl1_linkage$init_linkage; 438 call gen_pl1_linkage (root); 439 440 /* assign multi-word constants */ 441 442 cg_stat$list_break (2), text_pos = cg_stat$text_pos; 443 444 p = cg_stat$constant_list; 445 do while (p ^= null); 446 447 q = p -> symbol.equivalence; 448 if q ^= null 449 then do; 450 q -> symbol.passed_as_arg = 451 q -> symbol.passed_as_arg 452 | (p -> symbol.passed_as_arg | p -> symbol.arg_descriptor | p -> symbol.aliasable); 453 goto loop; 454 end; 455 456 if p -> symbol.allocate 457 18, pf=0, vcpu=0.220, rt=0.380$w Tc^HRLOGIN WAAnderson.SysMaint Q 1 abs1 [mail_to_forum] (create)access_auditWAAnderson SysMaint mCn8abs1 none>udd>sm>wa>new_tcp/ip>mail_to_forum.absin $w TcBCREATE WAAnderson.SysMaint.m abs1 005200035247 (login)access_auditWAAnderson SysMaint m$wTcU=ABS LOGIN requested by WAAnderson.SysMaint.m Level=4$w TclADESTROY WAAnderson.SysMaint.m abs1 005200035247 (logo)access_auditWAAnderson SysMaint m$w Tc.rELOGOUT WAAnderson.SysMaint.m Q 1 abs1 0:10 $0.61 (logo)access_auditWAAnderson SysMaint m$wTfeUBact_ctl_: Automatic update: users = 18, pf=0, vcpu=0.308, rt=0.404$w TjHRLOGIN WAAnderson.SysMaint Q 1 abs1 [mail_to_forum] (create)access_auditWAAnderson SysMaint mCn8abs1 none>udd>sm>wa>new_tcp/ip>mail_to_forum.absin $w Tj:BCREATE WAAnderson.SysMaint.m abs1 005200035250 (login)access_auditWAAnderson SysMaint m$xTjK=ABS LOGIN requested by WAAnderson.SysMaint.m Level=4$x TjP]ADESTROY WAAnderson.SysMaint.m abs1 005200035250 (logo)access_auditWAAnderson SysMaint m$x TjP{ELOGOUT WAAnderson.SysMaint.m Q 1 abs1 0:10 $0.60 (logo)access_auditWAAnderson SysMaint m$x TkAA>6(LOGIN PGeorge.NMLPROD int a.h206 (create)access_auditPGeorge NMLPROD aena.h206 WY50_80C none$x TkB@CREATE PGeorge.NMLPROD.a a.h206 005200035251 (login)access_auditPGeorge NMLPROD a$xTm[ Bact_ctl_: Automatic update: users = 19, pf=0, vcpu=0.197, rt=0.300$x ToVl7(LOGIN Portisch.NMLPROD int a.h205 (create)access_auditPortisch NMLPROD aena.h205 WY50_80C none$x ToXSACREATE Portisch.NMLPROD.a a.h205 004500035252 (login)access_auditPortisch NMLPROD a@$x To%5RLOGIN Vu.Multics Q FG abs1 [TR] (create)access_auditVu Multics mnxabs1 none>udd>m>Vu>lib>ecs>TR.absin $x ToW"9CREATE Vu.Multics.m abs1 006100035253 (login)access_auditVu Multics m@$x To4ABS LOGIN requested by Vu.Multics.m Level=4$x Toٵ8DESTROY Vu.Multics.m abs1 006100035253 (logo)access_auditVu Multics m@$x ; 568 569 ok = ok_ptr; 570 do while (ok ^= null); 571 q = addrel (text_base, text_pos); 572 qr = addrel (text_reloc_base, text_pos); 573 p = ok -> element (2); 574 575 q -> ok_list.number = p -> operator.number; 576 p -> operator.number = text_pos; 577 578 do i = 1 to q -> ok_list.number; 579 q -> ok_list.offset (i) = bit (p -> operand (i) -> reference.symbol -> symbol.runtime, 18); 580 qr -> ok_list_reloc.offset (i) = rc_s; 581 end; 582 583 text_pos = text_pos + divide (q -> ok_list.number + 3, 2, 18, 0); 584 ok = ok -> element (1); 585 end; 586 587 cg_stat$text_pos = text_pos; 588 end; 589 590 /* compile formats */ 591 592 if cg_stat$format_list ^= null 593 then call compile_formats; 594 595 /* compile the program !! */ 596 597 cg_stat$map_start = cg_stat$sym_pos; 598 cg_stat$statement_map.first = bit (cg_stat$map_start, 18); 599 600 cg_stat$save_exp_called, cg_stat$extended_stack = "0"b; 601 call compile_block (cg_stat$root); 602 603 /* now assign any constants that were generated during compilation 604* and any single word constants not usable via direct modifier */ 605 606 text_pos = cg_stat$text_pos; 607 608 p = cg_stat$constant_list; 609 do while (p ^= null); 610 611 if p -> symbol.allocated 612 then goto step; 613 614 if p -> symbol.allocate 615 then do; 616 617 q = p -> symbol.equivalence; 618 if q = null 619 then q = p; 620 else if q -> symbol.allocated 621 then do; 622 n = q -> symbol.location; 623 call fill_use (p, n); 624 goto step; 625 end; 626 627 amt = q -> symbol.c_word_size; 628 if amt = 2 | q -> symbol.boundary = mod2_ 629 then text_pos = text_pos + mod (text_pos, 2); 630 631 call fill_use (p, text_pos); 632 633 if q ^= p 634 then call fill_use (q, text_pos); 635 636 if p -> symbol.storage_block 637 then call gen_relocation; 638 639 q = addrel (text_base, text_pos); 640 q -> image = p -> symbol.initial -> image; 641 642 text_pos = text_pos + amt; 643 end; 644 645 step: 646 p = p -> symbol.multi_use; 647 end; 648 649 cg_stat$text_pos = text_pos; 650 651 /* finish the long_profile */ 652 653 if cg_stat$long_profile 654 then cg_stat$profile_base -> long_profile_header.nentries = 655 divide (cg_stat$profile_pos - size (long_profile_header), size (long_profile_entry), 17, 0); 656 657 /* finish the symbol table */ 658 659 call gen_pl1_symbol$end_symbol; 660 661 /* finish up the object segment */ 662 663 on out_of_bounds call cg_error (311, cg_stat$max_program_size); 664 665 text_pos = cg_stat$text_pos; 666 def_pos = cg_stat$def_pos; 667 stat_pos = cg_stat$stat_pos; 668 link_pos = cg_stat$link_pos; 669 sym_pos = cg_stat$sym_pos; 670 671 defrel = text_pos; 672 cg_stat$link_rel, linkrel = divide (defrel + def_pos + 1, 2, 17, 0) * 2; 673 cg_stat$stat_rel, statrel = divide (linkrel + link_pos + 1, 2, 17, 0) * 2; 674 cg_stat$sym_rel, symbolrel = divide (statrel + stat_pos + 1, 2, 17, 0) * 2; 675 676 addrel (text_base, defrel) -> def_image = cg_stat$def_base -> def_image; 677 addrel (text_base, linkrel) -> link_image = cg_stat$link_base -> link_image; 678 if stat_pos > 0 679 then addrel (text_base, statrel) -> stat_image = cg_stat$stat_base -> stat_image; 680 addrel (text_base, symbolrel) -> symbol_image = cg_stat$sym_base -> symbol_image; 681 682 /* fill in standard object map */ 683 684 n = divide (symbolrel + sym_pos + 1, 2, 17, 0) * 2; 685 p = addrel (text_base, n); 686 cg_stat$objmap_pt = p; 687 688 p -> object_map.decl_vers = 2; 689 p -> object_map.identifier = "obj_map"; 690 p -> object_map.text_length = bit (text_pos, 18); 691 p -> object_map.definition_offset = bit (defrel, 18); 692 p -> object_map.definition_length = bit (def_pos, 18); 693 p -> object_map.linkage_offset = bit (linkrel, 18); 694 p -> object_map.linkage_length = bit (link_pos, 18); 695 if cg_stat$separate_static 696 then do; 697 p -> object_map.static_offset = bit (statrel, 18); 698 p -> object_map.static_length = bit (stat_pos, 18); 699 end; 700 else do; 701 p -> object_map.static_offset = bit (fixed (linkrel + 8, 18), 18); 702 p -> object_map.static_length = bit (fixed (cg_stat$link_begin - 8, 18), 18); 703 end; 704 p -> object_map.symbol_offset = bit (symbolrel, 18); 705 p -> object_map.symbol_length = bit (sym_pos, 18); 706 707 p -> object_map.format.relocatable, p -> object_map.format.procedure, p -> object_map.format.standard = "1"b; 708 p -> object_map.format.separate_static = cg_stat$separate_static; 709 710 addrel (p, size (p -> object_map)) -> map_ptr = bit (n, 18); 711 712 /* compute bit count of object segment */ 713 714 n = n + size (p -> object_map) + 1; 715 cg_stat$bit_count = n * 36; 716 717 call hcs_$set_bc_seg (text_base, cg_stat$bit_count, code); 718 719 call hcs_$get_usage_values (pages, cpu, i); 720 721 revert out_of_bounds; 722 723 cg_stat$cur_statement = null; 724 725 if produce_listing 726 then do; 727 if symbols_on 728 then call print (cg_stat$root, print_cp_dcl, "0"b); 729 730 call pl1_print$non_varying_nl ("", 0); 731 732 call error_finish; 733 734 if map 735 then do; 736 call pl1_print$non_varying_nl ("", 0); 737 call display_pl1_map (cg_stat$root); 738 end; 739 740 if assembly_list 741 then do; 742 call pl1_print$non_varying (ctl_char$ff, 1); 743 call display_pl1_text (cg_stat$root); 744 end; 745 end; 746 747 done: 748 call hcs_$get_usage_values (ppages, ccpu, i); 749 750 /* all done */ 751 752 if code ^= 0 753 then call com_err_ (code, compiler_name, seg_name); 754 755 bit_cnt = cg_stat$bit_count; 756 npages = pages; 757 ncpu = cpu; 758 nnpages = ppages; 759 nncpu = ccpu; 760 761 pl1_stat_$version = 0; 762 763 call release_temp_segments_ (my_name, temp_segs, code); 764 if code ^= 0 765 then goto release_failed; 766 767 if cg_stat$separate_static 768 then do; 769 call release_temp_segments_ (my_name, ss_temp_seg, code); 770 release_failed: 771 if code ^= 0 772 then do; 773 call com_err_ (code, my_name, "release_temp_segments_"); 774 if cg_stat$debug 775 then do; 776 call ioa_ ("debug: "); 777 call debug; 778 end; 779 end; 780 end; 781 782 return; 783 784 /* This entry is called by the command program to get the bit count 785* when the listing segment has overflowed and a non-local return 786* has been done past the code_generator */ 787 788 return_bit_count: 789 entry (bit_count, np, nc, nnp, nnc); 790 791 dcl (bit_count, np, nnp) 792 fixed bin, 793 (nc, nnc) fixed bin (71); 794 57 (login)access_auditWAAnderson SysMaint m@$x T~k~=ABS LOGIN requested by WAAnderson.SysMaint.m Level=4$x! T~oADESTROY WAAnderson.SysMaint.m abs1 006100035257 (logo)access_auditWAAnderson SysMaint m@$x" T~o˧ELOGOUT WAAnderson.SysMaint.m Q 1 abs1 0: 4 $0.26 (logo)access_auditWAAnderson SysMaint m@$x#T_Bact_ctl_: Automatic update: users = 20, pf=2, vcpu=0.366, rt=0.812$x$ TCrHRLOGIN WAAnderson.SysMaint Q 1 abs1 [mail_to_forum] (create)access_auditWAAnderson SysMaint mCn8abs1 none>udd>sm>wa>new_tcp/ip>mail_to_forum.absin $x% TBCREATE WAAnderson.SysMaint.m abs1 006100035260 (login)access_auditWAAnderson SysMaint m@$x&Ty=ABS LOGIN requested by WAAnderson.SysMaint.m Level=4$x' TQADESTROY WAAnderson.SysMaint.m abs1 006100035260 (logo)access_auditWAAnderson SysMaint m@$x( TqELOGOUT WAAnderson.SysMaint.m Q 1 abs1 0: 4 $0.26 (logo)access_auditWAAnderson SysMaint m@$x) Tl6DIALOUT channel sty.u_telnet_03 from Internet.Daemon.z 003700030105 Destination= XSTY_TELNET TVT2access_audite Internet Daemon z@Esty.u_telnet_03 STY_USER $x* Tַ]6ATTACH channel sty.u_telnet_03 to Internet.Daemon.z 003700030105 Service=dial_outaccess_audit! Internet Daemon zEsty.u_telnet_03 STY_USER $x+ T_?(LOGIN Hussein.Multics int sty.s_telnet_03 (create)access_auditHussein Multics aen8sty.s_telnet_03 STY_TELNET none$x, T³ICREATE Hussein.Multics.a sty.s_telnet_03 006100035261 (login)access_auditHussein Multics a@$x- TT4(LOGIN Amore.NMLPROD int a.h024 (create)access_auditAmore NMLPROD aena.h024 WY50_80C none$x. T>CREATE Amore.NMLPROD.a a.h024 006000035262 (login)access_auditAmore NMLPROD a$x/TtdBact_ctl_: Automatic update: users = 22, pf=0, vcpu=0.296, rt=0.635$x0 T]<RLOGIN TR_Admin.TR Q 1 abs1 [print_trs] (create)access_auditTR_Admin TR mabs1 none>udd>TR>TR_exec_coms>print_trs.absin $x1 TD:CREATE TR_Admin.TR.m abs1 010000035263 (login)access_auditTR_Admin TR m$x2TT5ABS LOGIN requested by TR_Admin.TR.m Level=4 1320.8 block_types.incl.pl1 >ldd>include>block_types.incl.pl1 264 9 05/03/76 1320.4 stack_head.incl.pl1 >ldd>include>stack_head.incl.pl1 265 10 05/03/76 1320.8 bases.incl.pl1 >ldd>include>bases.incl.pl1 266 11 10/25/79 1645.8 declare_type.incl.pl1 >ldd>include>declare_type.incl.pl1 267 12 08/05/77 1022.5 object_map.incl.pl1 >ldd>include>object_map.incl.pl1 268 13 10/25/79 1645.8 cgsystem.incl.pl1 >ldd>include>cgsystem.incl.pl1 269 14 10/30/80 1648.7 relbts.incl.pl1 >ldd>include>relbts.incl.pl1 270 15 11/26/79 1320.6 its.incl.pl1 >ldd>include>its.incl.pl1 271 16 03/10/77 1345.4 long_profile.incl.pl1 >ldd>include>long_profile.incl.pl1 272 17 03/10/77 1345.4 pl1_version.incl.pl1 >ldd>include>pl1_version.incl.pl1 NAMES DECLARED IN THIS COMPILATION. IDENTIFIER OFFSET LOC STORAGE CLASS DATA TYPE ATTRIBUTES AND REFERENCES (* indicates a set context) NAMES DECLARED BY DECLARE STATEMENT. addrel builtin function dcl 218 ref 398 403 510 571 572 639 676 677 678 680 685 710 819 868 879 881 885 address 10 based structure level 2 in structure "reference" packed unaligned dcl 3-3 in procedure "code_gen_" address 3 based structure level 2 in structure "runtime_symbol" packed unaligned dcl 4-3 in procedure "code_gen_" aliasable 32(35) based bit(1) level 4 packed unaligned dcl 1-3 ref 450 488 allocate 33(02) based bit(1) level 4 packed unaligned dcl 1-3 set ref 456 498* 614 allocated 1(18) based bit(1) level 2 packed unaligned dcl 1-3 set ref 508* 611 620 817* amt 000121 automatic fixed bin(18,0) dcl 171 set ref 393* 399 404 414* 420 425 460* 462 465 478 503 510 512 627* 628 640 642 867 874 ap defined bit(3) dcl 10-4 ref 372 374 376 arg_descriptor 31(11) based bit(1) level 4 packed unaligned dcl 1-3 ref 450 482 assembly_list parameter bit(1) dcl 39 ref 33 740 assign_storage 000300 constant entry external dcl 188 ref 387 attributes 31 based structure level 2 dcl 1-3 base 10 based bit(3) level 3 in structure "reference" packed unaligned dcl 3-3 in procedure "code_gen_" set ref 372* 374* 376* 833* base based bit(3) array level 2 in structure "descriptor" packed unaligned dcl 851 in procedure "gen_relocation" ref 868 based_bs based bit dcl 243 ref 474 474 based_cs based char dcl 242 ref 471 471 bases 000000 constant bit(3) initial array dcl 10-1 ref 372 372 374 374 376 376 833 833 868 868 881 881 bit 31(03) based bit(1) level 4 in structure "symbol" packed unaligned dcl 1-3 in procedure "code_gen_" ref 474 bit builtin function dcl 218 in procedure "code_gen_" ref 536 579 598 690 691 692 693 694 697 698 701 702 704 705 710 819 834 bit_cnt parameter fixed bin(22,0) dcl 39 set ref 33 755* bit_count parameter fixed bin(17,0) dcl 791 set ref 788 796* bits 12(06) based structure level 2 packed unaligned dcl 3-3 bits_per_char constant fixed bin(8,0) initial dcl 13-5 ref 470 block based structure level 1 dcl 2-5 boundary 2(20) based fixed bin(3,0) level 2 packed unaligned dcl 1-3 ref 503 628 861 by_compiler constant bit(3) initial dcl 11-5 ref 553 by_declare constant bit(3) initial dcl 11-5 ref 484 c 000232 automatic pointer dcl 848 set ref 859* 868 879* 879 881 881 885 c_a 000340 constant entry external dcl 206 ref 527 527 c_bit_size 27 based fixed bin(24,0) level 2 dcl 1-3 ref 467 c_word_size 26 based fixed bin(24,0) level 2 dcl 1-3 ref 460 627 ccpu 000014 internal static fixed bin(71,0) dcl 171 set ref 280* 747* 759 800 cg_error 000342 constant entry external dcl 206 ref 663 cg_stat$agg_temps 000116 external static pointer dcl 69 set ref 356* cg_stat$bit_count 000176 external static fixed bin(17,0) dcl 113 set ref 276* 715* 717* 755 796 cg_stat$clock_time 000254 external static fixed bin(71,0) dcl 156 set ref 342* cg_stat$compiler_name 000250 external static varying char(12) dcl 156 set ref 333* cg_stat$complex_ac 000036 external static pointer dcl 69 set ref 366* cg_stat$constant_list 000070 external static pointer dcl 69 set ref 339* 444 608 cg_stat$cur_level 000166 external static fixed bin(17,0) dcl 113 set ref 555* cg_stat$cur_node 000122 external static pointer dcl 69 set ref 356* cg_stat$cur_statement 000064 external static pointer dcl 69 set ref 356* 723* cg_stat$debug 000242 external static bit(1) dcl 139 ref 774 cg_stat$def_base 000104 external static pointer dcl 69 set ref 308* 676 cg_stat$def_origin 000142 external static fixed bin(17,0) dcl 113 set ref 315* cg_stat$def_pool 000204 external static fixed bin(17,0) array dcl 113 set ref 381* cg_stat$def_pool_size 000206 external static fixed bin(17,0) dcl 113 ref 380 cg_stat$def_pos 000154 external static fixed bin(17,0) dcl 113 set ref 327* 666 cg_stat$def_reloc_base 000106 external static pointer dcl 69 set ref 309* cg_stat$desc_list_ptr 000110 external static pointer dcl 69 set ref 356* cg_stat$double_temp 000016 external static pointer dcl 69 set ref 367* cg_stat$dummy_block 000022 external static pointer dcl 69 set ref 549* 551* 553* 554* cg_stat$dummy_statement 000040 external static pointer dcl 69 set ref 554* cg_stat$encoded_values 000102 external static pointer dcl 69 set ref 557* cg_stat$entry_arg 000074 external static pointer dcl 69 set ref 521* 539* cg_stat$extended_stack 000220 external static bit(1) dcl 139 set ref 600* cg_stat$first_op 000112 external static pointer dcl 69 set ref 356* cg_stat$first_ref 000062 external static pointer dcl 69 set ref 356* cg_stat$format_list 000034 external static pointer dcl 69 set ref 356* 592 cg_stat$generate_map 000232 external static bit(1) dcl 139 set ref 430* cg_stat$generate_symtab 000216 external static bit(1) dcl 139 set ref 345* 558 cg_stat$io_used 000234 external static bit(1) dcl 139 set ref 350* cg_stat$jump_label 000026 external static pointer dcl 69 set ref 553* cg_stat$label_list 000124 external static pointer dcl 69 set ref 356* cg_stat$last_call 000146 external static fixed bin(17,0) dcl 113 set ref 354* cg_stat$last_label 000126 external static pointer dcl 69 set ref 356* cg_stat$link_base 000044 external static pointer dcl 69 set ref 306* 403 423 677 cg_stat$link_begin 000170 external static fixed bin(17,0) dcl 113 set ref 432* 702 cg_stat$link_origin 000140 external static fixed bin(17,0) dcl 113 set ref 315* cg_stat$link_pos 000160 external static fixed bin(17,0) dcl 113 set ref 328* 402 402 404* 424 425* 425 432 668 cg_stat$link_rel 000200 external static fixed bin(17,0) dcl 113 set ref 672* cg_stat$link_reloc_base 000046 external static pointer dcl 69 set ref 307* cg_stat$list_break 000164 external static fixed bin(17,0) array dcl 113 set ref 433* 442* 519* 542* cg_stat$long_profile 000240 external static bit(1) dcl 139 set ref 344* 389 430 653 cg_stat$long_string_temp 000020 external static pointer dcl 69 set ref 368* 369 cg_stat$m_s_p 000030 external static pointer dcl 69 set ref 362* cg_stat$map_start 000212 external static fixed bin(18,0) dcl 137 set ref 597* 598 cg_stat$max_program_size 000174 external static fixed bin(17,0) dcl 113 set ref 663* cg_stat$ms_list 000024 external static pointer dcl 69 set ref 356* cg_stat$name_list 000032 external static pointer dcl 69 set ref 356* cg_stat$next_op 000114 external static pointer dcl 69 set ref 356* cg_stat$next_ref 000052 external static pointer dcl 69 set ref 356* cg_stat$objmap_pt 000120 external static pointer dcl 69 set ref 686* cg_stat$profile_base 000134 external static pointer dcl 69 set ref 398* 403* 407 418* 423* 653 cg_stat$profile_option 000222 external static bit(1) dcl 139 set ref 391* 411* 412 430 cg_stat$profile_pos 000172 external static fixed bin(17,0) dcl 113 set ref 392* 419* 424* 653 cg_stat$profile_start 000210 external static fixed bin(17,0) dcl 113 set ref 397* 398 399 402* 403 404 cg_stat$return_ma#\h6DETACH channel sty.u_telnet_04 from Internet.Daemon.z 003700030105 Service=dial_out (hangup)access_audit" Internet Daemon zEsty.u_telnet_04 STY_USER $xG T~@DESTROY Portisch.NMLPROD.a a.h205 004500035252 (logo)access_auditPortisch NMLPROD a@$xH T~DLOGOUT Portisch.NMLPROD.a int a.h205 3:46 $0.00 (logo)access_auditPortisch NMLPROD a@$xI T%HRLOGIN WAAnderson.SysMaint Q 1 abs1 [mail_to_forum] (create)access_auditWAAnderson SysMaint mCn8abs1 none>udd>sm>wa>new_tcp/ip>mail_to_forum.absin $xJ TzBCREATE WAAnderson.SysMaint.m abs1 004500035267 (login)access_auditWAAnderson SysMaint m@$xKTP=ABS LOGIN requested by WAAnderson.SysMaint.m Level=4$xL TADESTROY WAAnderson.SysMaint.m abs1 004500035267 (logo)access_auditWAAnderson SysMaint m@$xM T8ELOGOUT WAAnderson.SysMaint.m Q 1 abs1 0: 4 $0.26 (logo)access_auditWAAnderson SysMaint m@$xN T& B5(LOGIN Stadie.Multics int a.h002 (create)access_auditStadie Multics aen8a.h002 ASCII_CRT none$xO T(?CREATE Stadie.Multics.a a.h002 004500035270 (login)access_auditStadie Multics a@$xPTˑBact_ctl_: Automatic update: users = 22, pf=1, vcpu=0.267, rt=0.560$xQ TC>DESTROY Stadie.Multics.a a.h002 004500035270 (logo)access_auditStadie Multics a@$xR T`BLOGOUT Stadie.Multics.a int a.h002 0: 9 $0.00 (logo)access_auditStadie Multics a@$xS TŸ8(LOGIN EngAdmin.EngAdmin int a.h205 (create)access_auditEngAdmin EngAdmin aena.h205 WY50_80C none$xT TBCREATE EngAdmin.EngAdmin.a a.h205 004500035271 (login)access_auditEngAdmin EngAdmin a@$xUT>PAudit: GRANTED sending a quit to a daemon for EngAdmin.EngAdmin.a Level=4 to l6d$xVT}:asr_daemon_command_server_: EngAdmin.EngAdmin.a: QUIT l6d $xWT4JAudit: GRANTED logging out a daemon for EngAdmin.EngAdmin.a Level=4 to l6d$xXT<asr_daemon_command_server_: EngAdmin.EngAdmin.a: LOGOUT l6d $xY TJ[6DETACH channel a.h200 from IO.SysDaemon.z 007500035031 Service=slave (dialgrab)access_audit"IO SysDaemonz@a.h200 G115 $xZ T 9DESTROY IO.SysDaemon.z l6d 007500035031 (looc)access_auditIO SysDaemonz@$x[ T=7=LOGOUT IO.SysDaemon.z dmn l6d 0: 6 $0.35 (looc)access_ 527 compiler_developed 32(35) based structure level 3 packed unaligned dcl 1-3 compiler_name parameter varying char(3) dcl 39 set ref 33 282 285 752* complex_ac_loc 000010 constant fixed bin(15,0) initial dcl 9-1 set ref 366* constant_list parameter pointer dcl 39 ref 33 339 cpu 000012 internal static fixed bin(71,0) dcl 171 set ref 279* 719* 757 798 create_block 000324 constant entry external dcl 191 ref 551 create_label 000332 constant entry external dcl 191 ref 553 create_reference 000330 constant entry external dcl 191 ref 533 829 create_statement 000326 constant entry external dcl 191 ref 554 ctl_char$ff 000244 external static char(1) dcl 154 set ref 742* data_type 31 based structure level 3 packed unaligned dcl 1-3 dcl_type 1(19) based bit(3) level 2 packed unaligned dcl 1-3 ref 484 debug 000344 constant entry external dcl 208 ref 777 decl_vers based fixed bin(17,0) level 2 dcl 12-10 set ref 688* def_image based fixed bin(17,0) array dcl 236 set ref 676* 676 def_pos 000122 automatic fixed bin(18,0) dcl 171 set ref 666* 672 676 692 definition_length 4(18) based bit(18) level 2 packed unaligned dcl 12-10 set ref 692* definition_offset 4 based bit(18) level 2 packed unaligned dcl 12-10 set ref 691* defrel 000123 automatic fixed bin(18,0) dcl 171 set ref 671* 672 676 691 descriptor based structure array level 1 dcl 851 dimensioned 31(19) based bit(1) level 4 packed unaligned dcl 1-3 ref 486 display_pl1_map 000320 constant entry external dcl 191 ref 737 display_pl1_text 000322 constant entry external dcl 191 ref 743 divide builtin function dcl 218 ref 470 583 653 672 673 674 684 double_temp_loc 000011 constant fixed bin(15,0) initial dcl 9-1 set ref 367* dummy_block parameter pointer dcl 39 ref 33 549 549 dummy_entry_offset constant fixed bin(17,0) initial dcl 16-19 ref 407 element 1 based pointer array level 2 packed unaligned dcl 6-6 ref 573 584 equivalence 14 based pointer level 2 packed unaligned dcl 1-3 ref 447 617 error 000274 constant entry external dcl 180 ref 282 error_finish parameter entry variable dcl 39 ref 33 732 even 12(17) based bit(1) level 3 packed unaligned dcl 3-3 set ref 830* expmac 000350 constant entry external dcl 209 ref 527 expmac$fill_usage 000352 constant entry external dcl 209 ref 813 ext_base 10(29) based bit(1) level 3 packed unaligned dcl 3-3 set ref 830* first 000260 external static bit(18) level 2 packed unaligned dcl 165 set ref 598* fixed builtin function dcl 218 ref 536 701 702 format 12 based structure level 2 dcl 12-10 gen_pl1_linkage 000302 constant entry external dcl 188 ref 438 gen_pl1_linkage$init_linkage 000272 constant entry external dcl 180 ref 437 gen_pl1_symbol$beg_symbol 000264 constant entry external dcl 180 ref 547 gen_pl1_symbol$end_symbol 000270 constant entry external dcl 180 ref 659 generate_map parameter bit(1) dcl 39 ref 33 430 generate_symtab parameter bit(1) dcl 39 ref 33 345 350 get_ops_mac constant fixed bin(15,0) initial dcl 245 ref 527 get_temp_segments_ 000354 constant entry external dcl 213 ref 298 319 half based structure level 1 dcl 232 hcs_$get_usage_values 000314 constant entry external dcl 191 ref 719 747 hcs_$set_bc_seg 000316 constant entry external dcl 191 ref 717 i 000130 automatic fixed bin(17,0) dcl 171 in procedure "code_gen_" set ref 380* 381* 578* 579 579 580* 719* 747* i 000234 automatic fixed bin(17,0) dcl 849 in procedure "gen_relocation" set ref 867* 868* ic_ref 12(10) based bit(1) level 3 packed unaligned dcl 3-3 set ref 534* identifier 1 based char(8) level 2 dcl 12-10 set ref 689* image based fixed bin(17,0) array dcl 236 set ref 510* 510 640* 640 initial 11 based pointer level 2 packed unaligned dcl 1-3 ref 459 640 859 internal_procedure 000013 constant bit(9) initial dcl 8-1 set ref 551* ioa_ 000346 constant entry external dcl 209 ref 776 itp based structure level 1 dcl 15-18 itp_mod 0(30) based bit(6) level 2 packed unaligned dcl 15-18 ref 881 885 k parameter fixed bin(15,0) dcl 826 ref 823 834 last_offset 3 based fixed bin(17,0) level 2 dcl 16-4 set ref 407* left based bit(18) level 2 packed unaligned dcl 232 set ref 491 495 868* 881* 885* level 45 based fixed bin(17,0) level 2 dcl 2-5 set ref 386* link parameter bit(1) dcl 39 ref 33 521 link_image based fixed bin(17,0) array dcl 236 set ref 677* 677 link_pos 000117 automatic fixed bin(18,0) dcl 171 set ref 668* 673 677 694 linkage_length 5(18) based bit(18) level 2 packed unaligned dcl 12-10 set ref 694* linkage_offset 5 based bit(18) level 2 packed unaligned dcl 12-10 set ref 693* linkrel 000125 automatic fixed bin(18,0) dcl 171 set ref 672* 673 677 693 701 list based structure level 1 dcl 6-6 loc parameter fixed bin(18,0) dcl 807 set ref 804 813* 814 819 location 3 based bit(18) level 3 in structure "runtime_symbol" packed unaligned dcl 4-3 in procedure "code_gen_" set ref 819* location 1 based fixed bin(18,0) level 2 in structure "symbol" packed unsigned unaligned dcl 1-3 in procedure "code_gen_" set ref 506* 622 813 814* 815* 815 long_profile parameter bit(1) dcl 39 ref 33 344 long_profile_entry based structure level 1 dcl 16-12 ref 393 653 long_profile_header based structure level 1 dcl 16-4 set ref 392 393 653 long_string_loc 000012 constant fixed bin(15,0) initial dcl 9-1 set ref 368* lp defined bit(3) dcl 10-4 ref 868 881 map parameter bit(1) dcl 39 ref 33 734 map_ptr based bit(18) dcl 12-38 set ref 710* misc_attributes 31(19) based structure level 3 packed unaligned dcl 1-3 mod builtin function dcl 218 ref 397 402 503 628 mod2_ constant fixed bin(3,0) initial dcl 7-5 ref 503 628 861 mst$block_nodes 000306 constant entry external dcl 188 ref 563 multi_use 7 based pointer level 2 packed unaligned dcl 1-3 ref 515 645 my_name 000170 automatic char(32) unaligned dcl 254 set ref 285* 294* 295* 298* 301* 319* 763* 769* 773* n 000127 automatic fixed bin(18,0) dcl 171 set ref 622* 623* 684* 685 710 714* 714 715 nc parameter fixed bin(71,0) dcl 791 set ref 788 798* ncpu parameter fixed bin(71,0) dcl 39 set ref 33 757* nentries 4 based fixed bin(17,0) level 2 dcl 16-4 set ref 653* nnc parameter fixed bin(71,0) dcl 791 set ref 788 800* nncpu parameter fixed bin(71,0) dcl 39 set ref 33 759* nnp parameter fixed bin(17,0) dcl 791 set ref 788 799* nnpages parameter fixed bin(17,0) dcl 39 set ref 33 758* no_address 10(27) based bit(1) level 3 packed unaligned dcl 3-3 set ref 537* 831* np parameter fixed bin(17,0) dcl 791 set ref 788 797* npages parameter fixed bin(17,0) dcl 39 set ref 33 756* null builtin function dcl 218 ref 282 282 282 282 289 290 356 445 448 521 533 533 549 551 551 553 553 554 554 557 570 592 609 618 723 829 829 number based fixed bin(17,0) level 2 in structure "ok_list" dcl 224 in procedure "code_gen_" set ref 575* 578 583 number 0(21) based fixed bin(14,0) level 2 in structure "operator" packed unaligned dcl 5-6 in procedure "code_gen_" set ref 575 576* object_map based structure level 1 dcl 12-10 set ref 710 714 object_pt parameter pointer dcl 39 ref 33 340 offset 10(03) based bit(15) level 3 in structure "reference" packed unaligned dcl 3-3 in procedure "code_gen_" set ref 536* 834* offset 1 based bit(18) array level 2 in structure "ok_list_reloc" packed unaligned dcl 228 in procedure "code_gen_" set ref 580* offset 1 based bit(18) array level 2 in structure "ok_list" packed unaligned dcl 224 in procedure "code_gen_" set ref 579* ok 000106 automatic pointer dcl 171 set ref 569* 570 573 584* 584 ok_list based structure level 1 dcl 224 ok_list_reloc based structure level 1 dcl 228 ok_ptr parameter pointer dcl 39 ref 33 569 operand 1 based pointer array level 2 packed unaligned dcl 5-6 ref 579 operator based structure level 1 dcl 5-6 out_of_bounds 000132 stack reference condition dcl 221 ref 663 721 p 000212 automatic pointer dcl 810 in procedure "fill_use" set ref 812* 813 814 815 815 815 817 819 819 p 000100 automatic pointer dcl 171 in procedure "code_gen_" set ref 444* 445 447 450 450 450 456 459 460 467 468 474 480 482 484 486 488 498 503 506 508 515* 515 533* 534 535 536 537 538 539 573* 575 576 579 608* 609 611 614 617 618 623* 631* 633 636 640 645* 645 685* 686 688 689 690 691 692 693 694 697 698 701 702 704 705 707 707 707 708 710 710 714 859 861 pages 000010 internal static fixed bin(17,0) dcl 171 set ref 277* 719* 756 797 passed_as_arg 33(01) based bit(1) level 4 packed unaligned dcl 1-3 set ref 450* 450 450 480 perm_address 12(18) based bit(1) level 3 packed unaligned dcl 3-3 set ref 538* 832* pl1_print$non_varying 000310 constant entry external dcl 191 ref 742 pl1_print$non_varying_nl 000312 constant entry external dcl 191 ref 730 736 pl1_stat_$version 000262 external static fixed bin(17,0) dcl 169 set ref 282 761* 795* pl1_version constant fixed bin(17,0) initial dcl 17-1 ref 282 ppages 000011 internal static fixed bin(17,0) dcl 171 set ref 278* 747* 758 799 pr_no based bit(3) level 2 packed unaligned dcl 15-18 ref 881 print parameter entry variable dcl 39 ref 33 727 print_cp_dcl parameter bit(1) dcl 39 set ref 33 727* procedure 12(02) based bit(1) level 3 packed unaligned dcl 12-10 set ref 707* produce_listing parameter bit(1) dcl 39 ref 33 725 profile_size parameter fixed bin(17,0) dcl 39 ref 33 393 411 414 profile_width constant fixed bin(17,0) initial dcl 216 ref 414 pt parameter pointer dcl 807 ref 804 812 ptr builtin function dcl 218 ref 340 q 000222 automatic pointer dcl 826 in procedure "stk_add" set ref 829* 830 830 831 832 833 834 835 837 q 000102 automatic pointer dcl 171 in procedure "code_gen_" set ref 447* 448 450 450 459* 471 471 474 474 491 493 495 510 571* 575 578 579 583 617* 618 618* 620 622 627 628 633 633* 639* 640 qr 000104 automatic pointer dcl 171 set ref 572* 580 rc_is15 constant bit(18) initial unaligned dcl 14-6 ref 868 rc_is18 constant bit(18) initial unaligned dcl 14-6 ref 881 rc_s 003242 constant bit(18) initial unaligned dcl 14-6 ref 580 rc_t constant bit(18) initial unaligned dcl 14-6 ref 885 reference based structure level 1 dcl 3-3 release_temp_segments_ 000356 constant entry external dcl 213 ref 294 295 763 769 relocatable 12(01) based bit(1) level 3 packed unaligned dcl 12-10 set ref 707* return_main_operator_loc 000014 constant fixed bin(15,0) initial dcl 249 set ref 375* return_operator_loc 000016 constant fixed bin(15,0) initial dcl 247 set ref 371* right 0(18) based bit(18) level 2 packed unaligned dcl 232 ref 493 root parameter pointer dcl 39 set ref 33 336 438* rscan 000235 automatic fixed bin(17,0) dcl 849 set ref 866* 868 870* 870 874* 881 885* runtime 3 based bit(18) level 2 packed unaligned dcl 1-3 ref 579 819 819 runtime_symbol based structure level 1 dcl 4-3 seg_name parameter varying char(32) dcl 39 set ref 33 332 752* separate_static 12(04) based bit(1) level 3 packed unaligned dcl 12-10 set ref 708* size builtin function dcl 218 ref 392 393 393 653 653 710 714 son 3 based pointer level 2 packed unaligned dcl 2-5 ref 387 sp defined bit(3) dcl 10-4 ref 833 ss_temp_seg 000166 automatic pointer array dcl 253 set ref 290* 295* 319* 320 769* standard 12(03) based bit(1) level 3 packed unaligned dcl 12-10 set ref 707* stat_image based fixed bin(17,0) array dcl 236 set ref 678* 678 stat_pos 000116 automatic fixed bin(18,0) dcl 171 set ref 667* 674 678 678 698 state_man$create_ms 000334 constant entry external dcl 191 ref 362 static_length 6(18) based bit(18) level 2 packed unaligned dcl 12-10 set ref 698* 702* static_offset 6 based bit(18) level 2 packed unaligned dcl 12-10 set ref 697* 701* statrel 000124 automatic fixed bin(18,0) dcl 171 set ref 673* 674 678 697 stop_operator_loc 000015 constant fixed bin(15,0) initial dcl 248 set ref 373* storage_block 31(12) based bit(1) level 4 packed unaligned dcl 1-3 ref 636 substr builtin function dcl 218 ref 471 sym_pos 000120 automatic fixed bin(18,0) dcl 171 set ref 669* 680 684 705 symbol 3 based pointer level 2 in structure "reference" packed unaligned dcl 3-3 in procedure "code_gen_" ref 579 symbol based structure level 1 dcl 1-3 in procedure "code_gen_" symbol_image based fixed bin(17,0) array dcl 236 set ref 680* 680 symbol_length 7(18) based bit(18) level 2 packed unaligned dcl 12-10 set ref 705* symbol_offset 7 based bit(18) level 2 packed unaligned dcl 12-10 set ref 704* symbolrel 000126 automatic fixed bin(18,0) dcl 171 set ref 674* 680 684 704 symbols_on parameter bit(1) dcl 39 ref 33 727 table_option parameter bit(1) dcl 39 ref 33 343 484 558 tag 10(30) based bit(6) level 3 packed unaligned dcl 3-3 set ref 369* 535* temp_segs 000146 automatic pointer array dcl 252 set ref 289* 294* 298* 306 307 308 309 310 311 312 313 763* temporary_list parameter pointer dcl 39 ref 33 338 text_base 000110 automatic pointer dcl 171 set ref 340* 510 571 639 676 677 678 680 685 717* text_length 3(18) based bit(18) level 2 packed unaligned dcl 12-10 set ref 690* text_pos 000115 automatic fixed bin(18,0) dcl 171 set ref 442* 503* 503 503 506 510 512* 512 519 536 567* 571 572 576 583* 583 587 606* 628* 628 628 631* 633* 639 642* 642 649 665* 671 690 866 874 874 text_reloc_base 000112 automatic pointer dcl 171 set ref 341* 572 868 881 885 units 0(14) based fixed bin(3,0) level 2 packed unaligned dcl 3-3 set ref 835* validate_proc parameter pointer dcl 39 ref 33 337 varying 31(26) based bit(1) level 4 packed unaligned dcl 1-3 ref 815 verify builtin function dcl 218 ref 471 version_name parameter varying char(132) dcl 39 ref 33 335 word_ constant fixed bin(3,0) initial dcl 7-5 ref 835 NAMES DECLARED BY DECLARE STATEMENT AND NEVER REFERENCED. ITP_MODIFIER internal static bit(6) initial unaligned dcl 15-56 ITS_MODIFIER internal static bit(6) initial unaligned dcl 15-55 ab defined bit(3) dcl 10-9 bb defined bit(3) dcl 10-9 begin_block internal static bit(9) initial dcl 8-1 bit_ internal static fixed bin(3,0) initial dcl 7-5 bits_per_four_words internal static fixed bin(8,0) initial dcl 13-5 bits_per_half internal static fixed bin(8,0) initial dcl 13-5 bits_per_packed_digit internal static fixed bin(8,1) initial dcl 13-35 bits_per_two_words internal static fixed bin(8,0) initial dcl 13-5 bits_per_word internal static fixed bin(8,0) initial dcl 13-5 bits_per_words internal static fixed bin(8,0) initial array dcl 13-5 bp defined bit(3) dcl 10-4 break_even_bits internal static fixed bin(8,0) initial dcl 13-5 break_even_words internal static fixed bin(8,0) initial dcl 13-5 by_context internal static bit(3) initial dcl 11-5 by_explicit_context internal static bit(3) initial dcl 11-5 by_implication internal static bit(3) initial dcl 11-5 callers_stack internal static fixed bin(15,0) initial dcl 9-1 character_ internal static fixed bin(3,0) initial dcl 7-5 chars_per_word internal static fixed bin(8,0) initial dcl 13-5 control_entry_offset internal static fixed bin(17,0) initial dcl 16-19 convert_offset internal static fixed bin(8,1) initial array dcl 13-35 convert_size internal static fixed bin(8,0) initial array dcl 13-5 default_fix_bin_p internal static fixed bin(8,0) initial dcl 13-5 digit_ internal static fixed bin(3,0) initial dcl 7-5 display_ptr internal static fixed bin(15,0) initial dcl 9-1 enabled_on_units internal static fixed bin(15,0) initial dcl 9-1 encoded_value based structure level 1 dcl 4-70 entry_descriptor internal static fixed bin(15,0) initial dcl 9-1 external_procedure internal static bit(9) initial dcl 8-1 half_ internal static fixed bin(3,0) initial dcl 7-5 int_static_ptr internal static fixed bin(15,0) initial dcl 9-1 invocation_count internal static fixed bin(15,0) initial dcl 9-1 itp_unsigned based structure level 1 dcl 15-43 its based structure level 1 dcl 15-5 its_unsigned based structure level 1 dcl 15-30 label_size internal static fixed bin(8,0) initial dcl 13-5 language_id_code internal static fixed bin(15,0) initial dcl 9-1 lb defined bit(3) dcl 10-9 linkage_ptr internal static fixed bin(15,0) initial dcl 9-1 max_block_number internal static fixed bin(17,0) initial dcl 2-74 max_dec_scale internal static fixed bin(8,0) initial dcl 13-5 max_index_register_value internal static fixed bin(31,0) initial dcl 13-38 max_length_p internal static fixed bin(8,0) initial dcl 13-5 max_list_elements internal static fixed bin(17,0) initial dcl 6-12 max_number_of_operands internal static fixed bin(15,0) initial dcl 5-15 max_offset internal static fixed bin(8,0) initial array dcl 13-5 max_p_fix_bin_1 internal static fixed bin(8,0) initial dcl 13-5 max_p_fix_dec internal static fixed bin(8,0) initial dcl 13-5 max_p_flt_bin_1 internal static fixed bin(8,0) initial dcl 13-5 max_p_xreg internal static fixed bin(8,0) initial dcl 13-5 max_short_size internal static fixed bin(8,0) initial array dcl 13-5 min_dec_scale internal static fixed bin(8,0) initial dcl 13-5 mod4_ internal static fixed bin(3,0) initial dcl 7-5 object_map_version_2 internal static fixed bin(17,0) initial dcl 12-40 on_unit internal static bit(9) initial dcl 8-1 packed_digits_per_char internal static fixed bin(8,0) initial dcl 13-5 packed_digits_per_word internal static fixed bin(8,0) initial dcl 13-5 param_array internal static fixed bin(15,0) initial dcl 9-1 rc_a internal static bit(18) initial unaligned dcl 14-6 rc_a_dp internal static bit(36) initial unaligned dcl 14-23 rc_dp internal static bit(18) initial unaligned dcl 14-6 rc_dp_dp internal static bit(36) initial unaligned dcl 14-23 rc_e internal static bit(18) initial unaligned dcl 14-6 rc_lb internal static bit(18) initial unaligned dcl 14-6 rc_lp15 internal static bit(18) initial unaligned dcl 14-6 rc_lp18 internal static bit(18) initial unaligned dcl 14-6 rc_nlb internal static bit(18) initial unaligned dcl 14-6 rc_nlp18 internal static bit(18) initial unaligned dcl 14-6 rc_ns internal static bit(18) initial unaligned dcl 14-6 rc_nt internal static bit(18) initial unaligned dcl 14-6 rc_sr internal static bit(18) initial unaligned dcl 14-6 reset_next_ptr internal static fixed bin(15,0) initial dcl 9-1 root_block internal static bit(9) initial dcl 8-1 runtime_block based structure level 1 dcl 4-38 runtime_bound based structure level 1 unaligned dcl 4-33 runtime_token based structure level 1 dcl 4-63 sb defined bit(3) dcl 10-9 units_per_word internal static fixed bin(8,0) initial array dcl 13-5 which_base internal static fixed bin(17,0) initial array dcl 10-14 NAMES DECLARED BY EXPLICIT CONTEXT. clear 001236 constant label dcl 498 ref 462 471 474 491 493 code_gen_ 000136 constant entry external dcl 33 done 002536 constant label dcl 747 ref 303 fill_use 002760 constant entry internal dcl 804 ref 623 631 633 gen_relocation 003106 constant entry internal dcl 845 ref 636 get_temp_segs_failed 000342 constant label dcl 301 ref 321 loop 001274 constant label dcl 515 ref 453 500 put 001255 constant label dcl 506 ref 480 482 484 486 488 495 release_failed 002657 constant label dcl 770 ref 764 return_bit_count 002735 constant entry external dcl 788 step 002024 constant label dcl 645 ref 611 624 stk_add 003035 constant entry internal dcl 823 ref 366 367 368 371 373 375 THERE WERE NO NAMES DECLARED BY CONTEXT OR IMPLICATION. STORAGE REQUIREMENTS FOR THIS PROGRAM. Object Text Link Symbol Defs Static Start 0 0 4664 5244 3244 4674 Length 6232 3244 360 751 1420 6 BLOCK NAME STACK SIZE TYPE WHY NONQUICK/WHO SHARES STACK FRAME code_gen_ 225 external procedure is an external procedure. on unit on line 292 78 on unit on unit on line 663 72 on unit fill_use internal procedure shares stack frame of external procedure code_gen_. stk_add internal procedure shares stack frame of external procedure code_gen_. gen_relocation internal procedure shares stack frame of external procedure code_gen_. STORAGE FOR INTERNAL STATIC VARIABLES. LOC IDENTIFIER BLOCK NAME 000010 pages code_gen_ 000011 ppages code_gen_ 000012 cpu code_gen_ 000014 ccpu code_gen_ STORAGE FOR AUTOMATIC VARIABLES. STACK FRAME LOC IDENTIFIER BLOCK NAME code_gen_ 000100 p code_gen_ 000102 q code_gen_ 000104 qr code_gen_ 000106 ok code_gen_ 000110 text_base code_gen_ 000112 text_reloc_base code_gen_ 000114 clength code_gen_ 000115 text_pos code_gen_ 000116 stat_pos code_gen_ 000117 link_pos code_gen_ 000120 sym_pos code_gen_ 000121 amt code_gen_ 000122 def_pos code_gen_ 000123 defrel code_gen_ 000124 statrel code_gen_ 000125 linkrel code_gen_ 000126 symbolrel code_gen_ 000127 n code_gen_ 000130 i code_gen_ 000131 code code_gen_ 000146 temp_segs code_gen_ 000166 ss_temp_seg code_gen_ 000170 my_name code_gen_ 000212 p fill_use 000222 q stk_add 000232 c gen_relocation 000234 i gen_relocation 000235 rscan gen_relocation THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. r_ne_as call_var call_ext_out_desc call_ext_out return mod_fx1 enable ext_entry int_entry verify_eis THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. assign_storage c_a cg_error com_err_ compile_block compile_formats compile_link create_block create_label create_reference create_statement debug display_pl1_map display_pl1_text error expmac expmac$fill_usage gen_pl1_linkage gen_pl1_linkage$init_linkage gen_pl1_symbol$beg_symbol gen_pl1_symbol$end_symbol get_temp_segments_ hcs_$get_usage_values hcs_$set_bc_seg ioa_ mst$block_nodes pl1_print$non_varying pl1_print$non_varying_nl release_temp_segments_ state_man$create_ms THE FOLLOWING EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. cg_stat$agg_temps cg_stat$bit_count cg_stat$clock_time cg_stat$compiler_name cg_stat$complex_ac cg_stat$constant_list cg_stat$cur_level cg_stat$cur_node cg_stat$cur_statement cg_stat$debug cg_stat$def_base cg_stat$def_origin cg_stat$def_pool cg_stat$def_pool_size cg_stat$def_pos cg_stat$def_reloc_base cg_stat$desc_list_ptr cg_stat$double_temp cg_stat$dummy_block cg_stat$dummy_statement cg_stat$encoded_values cg_stat$entry_arg cg_stat$extended_stack cg_stat$first_op cg_stat$first_ref cg_stat$format_list cg_stat$generate_map cg_stat$generate_symtab cg_stat$io_used cg_stat$jump_label cg_stat$label_list cg_stat$last_call cg_stat$last_label cg_stat$link_base cg_stat$link_begin cg_stat$link_origin cg_stat$link_pos cg_stat$link_rel cg_stat$link_reloc_base cg_stat$list_break cg_stat$long_profile cg_stat$long_string_temp cg_stat$m_s_p cg_stat$map_start cg_stat$max_program_size cg_stat$ms_list cg_stat$name_list cg_stat$next_op cg_stat$next_ref cg_stat$objmap_pt cg_stat$profile_base cg_stat$profile_option cg_stat$profile_pos cg_stat$profile_start cg_stat$return_main_operator cg_stat$return_operator cg_stat$root cg_stat$save_exp_called cg_stat$seg_name cg_stat$separate_static cg_stat$skip_to_label cg_stat$stat_base cg_stat$stat_pos cg_stat$stat_rel cg_stat$statement_map cg_stat$stop_operator cg_stat$sym_base cg_stat$sym_origin cg_stat$sym_pos cg_stat$sym_rel cg_stat$sym_reloc_base cg_stat$sym_use_base cg_stat$table_option cg_stat$temporary_list cg_stat$text_base cg_stat$text_pos cg_stat$text_reloc_base cg_stat$use_type_6 cg_stat$used_operator cg_stat$validate_proc cg_stat$version_name ctl_char$ff pl1_stat_$version LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC 33 000115 276 000143 277 000144 278 000145 279 000146 280 000150 282 000151 285 000202 289 000210 290 000223 292 000237 294 000253 295 000274 296 000316 298 000317 299 000340 301 000342 303 000371 306 000372 307 000375 308 000377 309 000401 310 000403 311 000405 312 000407 313 000411 315 000413 317 000416 319 000420 320 000440 321 000443 327 000445 328 000451 332 000453 333 000463 334 000470 335 000471 336 000500 337 000503 338 000506 339 000511 340 000514 341 000521 342 000524 343 000526 344 000531 345 000534 350 000537 354 000542 356 000543 360 000561 362 000566 366 000574 367 000605 368 000616 369 000627 371 000634 372 000644 373 000653 374 000663 375 000672 376 000702 380 000711 381 000717 382 000721 386 000723 387 000727 389 000737 391 000742 392 000743 393 000745 395 000752 397 000754 398 000761 399 000765 400 000767 402 000770 403 000775 404 001001 407 001003 408 001005 411 001006 412 001012 414 001013 416 001016 418 001020 419 001023 420 001025 421 001027 423 001030 424 001033 425 001035 430 001037 432 001045 433 001047 437 001051 438 001055 442 001065 444 001072 445 001075 447 001102 448 001105 450 001111 453 001130 456 001131 459 001135 460 001137 462 001141 465 001142 467 001144 468 001146 470 001151 471 001153 473 001160 474 001161 477 001174 478 001175 480 001177 482 001202 484 001205 486 001216 488 001221 491 001224 493 001227 495 001233 498 001236 500 001240 503 001241 506 001255 508 001260 510 001262 512 001272 515 001274 517 001276 519 001277 521 001304 527 001313 533 001374 534 001407 535 001412 536 001414 537 001424 538 001426 539 001430 542 001432 547 001435 549 001441 551 001453 553 001470 554 001511 555 001536 557 001540 558 001542 563 001550 567 001563 569 001566 570 001572 571 001576 572 001602 573 001605 575 001610 576 001614 578 001620 579 001627 580 001637 581 001643 583 001645 584 001651 585 001654 587 001655 592 001660 597 001670 598 001673 600 001701 601 001703 606 001711 608 001714 609 001717 611 001724 614 001730 617 001733 618 001735 620 001743 622 001746 623 001751 624 001753 627 001754 628 001757 631 001772 633 001774 636 002002 639 002007 640 002013 642 002022 645 002024 647 002027 649 002030 653 002033 659 002043 663 002047 665 002076 666 002101 667 002103 668 002105 669 002107 671 002111 672 002113 673 002121 674 002127 676 002135 677 002147 678 002161 680 002175 684 002207 685 002215 686 002220 688 002221 689 002223 690 002226 691 002233 692 002240 693 002245 694 002252 695 002257 697 002261 698 002266 699 002273 701 002274 702 002303 704 002313 705 002320 707 002325 708 002333 710 002340 714 002347 715 002352 717 002354 719 002366 721 002401 723 002402 725 002405 727 002411 730 002430 732 002446 734 002453 736 002457 737 002475 740 002504 742 002510 743 002527 747 002536 752 002551 755 002575 756 002601 757 002603 758 002605 759 002607 761 002611 763 002612 764 002632 767 002634 769 002637 770 002657 773 002661 774 002705 776 002710 777 002722 782 002727 788 002730 795 002742 796 002744 797 002747 798 002751 799 002753 800 002755 802 002757 804 002760 812 002762 813 002765 814 003001 815 003006 817 003016 819 003020 821 003034 823 003035 829 003037 830 003052 831 003057 832 003061 833 003063 834 003067 835 003100 837 003104 845 003106 859 003107 861 003112 866 003120 867 003122 868 003131 870 003143 871 003144 872 003146 874 003147 879 003161 881 003164 884 003203 885 003204 887 003212 888 003215 ----------------------------------------------------------- Historical Background This edition of the Multics software materials and documentation is provided and donated to Massachusetts Institute of Technology by Group BULL including BULL HN Information Systems Inc. as a contribution to computer science knowledge. This donation is made also to give evidence of the common contributions of Massachusetts Institute of Technology, Bell Laboratories, General Electric, Honeywell Information Systems Inc., Honeywell BULL Inc., Groupe BULL and BULL HN Information Systems Inc. to the development of this operating system. Multics development was initiated by Massachusetts Institute of Technology Project MAC (1963-1970), renamed the MIT Laboratory for Computer Science and Artificial Intelligence in the mid 1970s, under the leadership of Professor Fernando Jose Corbato. Users consider that Multics provided the best software architecture for managing computer hardware properly and for executing programs. Many subsequent operating systems incorporated Multics principles. Multics was distributed in 1975 to 2000 by Group Bull in Europe , and in the U.S. by Bull HN Information Systems Inc., as successor in interest by change in name only to Honeywell Bull Inc. and Honeywell Information Systems Inc. . ----------------------------------------------------------- Permission to use, copy, modify, and distribute these programs and their documentation for any purpose and without fee is hereby granted,provided that the below copyright notice and historical background appear in all copies and that both the copyright notice and historical background and this permission notice appear in supporting documentation, and that the names of MIT, HIS, BULL or BULL HN not be used in advertising or publicity pertaining to distribution of the programs without specific prior written permission. Copyright 1972 by Massachusetts Institute of Technology and Honeywell Information Systems Inc. Copyright 2006 by BULL HN Information Systems Inc. Copyright 2006 by Bull SAS All Rights Reserved