THIS FILE IS DAMAGED ASSEMBLY LISTING OF SEGMENT >spec>on>41-16>metering_gate_.alm ASSEMBLED ON: 04/11/85 1133.3 mst Thu OPTIONS USED: list ASSEMBLED BY: ALM Version 6.6 November 1982 ASSEMBLER CREATED: 09/21/83 1227.3 mst Wed  1 " ***********************************************************  2 " * *  3 " * Copyright, (C) Honeywell Information Systems Inc., 1982 *  4 " * *  5 " * Copyright (c) 1972 by Massachusetts Institute of *  6 " * Technology and Honeywell Information Systems, Inc. *  7 " * *  8 " ***********************************************************  9  10 " This is a gate into ring one, for a ring_zero_peek_ facility, and  11 " other administratively controllable metering facilities. 12 "  13 " Renamed to metering_gate_, 04/05/81, W. Olin Sibert  14 " Last modified on 01/29/74 at 11:13:13 by R F Mabee.  15 " Created in January 1974 by R F Mabee.  16  17  000000 18 name metering_gate_  19  20 include gate_macros  1-1 " BEGIN INCLUDE FILE ...... gate_macros.incl.alm  1-2 " Last modified 6/77 by N. Morris, B. Greenberg, & T. VanVleck  1-3 " Modified 741212 by PG to inhibit while computing virtual CPU time  1-4 " Modified 83-03-14 by E. N. Kittlitz to clear IR 1-5 " Modified 83-06-01 BIM for ring alarm polling  1-6 " Modified 85-04-03 by Keith Loepere to make polling a little smarter.  1-7  1-8 " This file contains several macros used when generating gate segments. 1-9 " The major macros that are defined are:  1-10 "  1-11 " gate_info general setup code for normal gates  1-12 " hardcore_gate_info general setup code for hardcore gates  1-13 " bad_dir_handler setup and handler for bad_dir_ condition (goes at bottom) 1-14 " bad_dir_handler_entry entrypoint for above (goes at top)  1-15 " gate to define a normal gate 1-16 " hgate to define a hardcore gate  1-17 " fgate to define a fast hardcore gate 1-18 "  1-19  1-20  000000 1-21 maclist off  1-22  1-23  1-24 " HGATE - define a hardcore gate entry  1-25 "  1-26 " hgate gatename,procedure,entry,args{,bad_dir_trap}  1-27 "  1-28 " The entrypoint gatename is defined in the gate segment. If args  1-29 " is nonzero, the number of arguments passed to gatename must be  1-30 " equal to args. When gatename is called, it will in turn call 1-31 " procedure$entry.  1-32 "  1-33  1-34 macro hgate 1 1-35 gentry &1,&4*2,&1.t  2 1-36 tsx2 .setup  3 1-37 &=&5,bad_dir_trap&[ tsx0 .set_dir_trap  4 1-38 &] ldi =0,dl  5 1-39 short_call &2$&3(ap|0) 6 1-40 eppbp lp|&1.t  7 1-41 tra .return_code  8 1-42 maclist restore  9 1-43 use linkage  10 1-44 even  11 1-45 maclist on,save  12 1-46 &1.t:  13 1-47 bss ,gate_entry_data_size  14 1-48  15 1-49 maclist restore  16 1-50 &end  1-51  1-52  1-53 " FGATE - define a fast hardcore gate  1-54 "  1-55 " fgate gatename,procedure,entry  1-56 "  1-57  1-58 macro fgate 1 1-59 gentry &1,0,0  2 1-60 ldi =0,dl  3 1-61 epplp .my_lp,* 4 1-62 tra &2$&3  5 1-63  6 1-64 maclist off  7 1-65 &end  1-66  1-67  1-68 " GATE - define a normal gate entry 1-69 "  1-70 " gate gatename,procedure,entry,args  1-71 "  1-72  1-73 macro gate  1 1-74 gentry &1,&4*2,0  2 1-75 tsx2 .setup  3 1-76 ldi =0,dl  4 1-77 short_call &2$&3(ap|0) 5 1-78 return 6 1-79  7 1-80 maclist restore  8 1-81 &end  1-82  1-83  1-84  1-85 macro gentry  1 1-86 maclist on,save  2 1-87 segdef &1  3 1-88 maclist restore  4 1-89 use transfer_vector  5 1-90 maclist on,save  6 1-91 &1: 7 1-92 tra &1.e  8 1-93 maclist restore  9 1-94 use main  10 1-95 maclist on,save  11 1-96 zero &2,&3 12 1-97 &1.e:  13 1-98 &end  1-99  1-100  1-101 " HARDCORE_GATE_INFO - general info for hardcore gates  1-102  1-103 macro hardcore_gate_info  1 1-104 maclist on,save  2 1-105 name &1  3 1-106  4 1-107 include stack_header  5 1-108  6 1-109 include stack_frame  7 1-110 include gate_data  8 1-111  9 1-112 maclist restore  10 1-113 eject  11 1-114  12 1-115 tempd .temp  13 1-116 tempd .label_variable(0)  14 1-117 tempd .time1,.time2  15 1-118 tempd .unwinder_arglist(0) 16 1-119 tempd .on_unit(5)  17 1-120 temp .pf,.entryp  18 1-121 tempd .vfl_arglist(2)  19 1-122 tempd .mcptr  20 1-123  21 1-124 use transfer_vector  22 1-125 equ .tv_begin,*  23 1-126  24 1-127 tra .actor 25 1-128  26 1-129 use tv_end 27 1-130 entrybound 28 1-131  29 1-132 segdef .tv_end 30 1-133 .tv_end: vfd 14/(*-.tv_begin)  31 1-134  32 1-135 use main  33 1-136  34 1-137 segdef .my_lp  35 1-138 even  36 1-139 .my_lp: bss ,2  37 1-140  38 1-141 join /text/transfer_vector,tv_end,main 39 1-142  40 1-143 use linkage  41 1-144 join /link/linkage 42 1-145  43 1-146 use main  44 1-147  45 1-148 maclist restore  46 1-149 eject  47 1-150  48 1-151 .actor: epplp .my_lp,*  49 1-152 maclist restore  50 1-153 gate_actor 51 1-154  52 1-155  53 1-156  54 1-157 .setup: push  55 1-158 epplp .my_lp,* 56 1-159 sprilp sp|stack_frame.lp_ptr  57 1-160  58 1-161 maclist restore  59 1-162 gcheck 60 1-163  61 1-164 inhibit on <+><+><+><+><+><+><+><+><+><+><+><+>  62 1-165 rccl sys_info$clock_,* calculate times 63 1-166 sbaq pds$cpu_time  64 1-167 staq .time1  65 1-168 sbaq pds$virtual_delta 66 1-169 staq .time2  67 1-170 lda pds$page_waits 68 1-171 sta .pf  69 1-172 inhibit off <-><-><-><-><-><-><-><-><-><-><-><->  70 1-173 tra 0,2  71 1-174  72 1-175 maclist restore  73 1-176 eject  74 1-177  75 1-178 .return_code:  76 1-179  77 1-180 inhibit on <+><+><+><+><+><+><+><+><+><+><+><+>  78 1-181 rccl sys_info$clock_,* calculate times 79 1-182 sbaq pds$cpu_time  80 1-183 staq .temp 81 1-184 sbaq .time1  82 1-185 adaq bp|gate_entry_data.cpu_time  83 1-186 staq bp|gate_entry_data.cpu_time  84 1-187 ldaq .temp 85 1-188 sbaq pds$virtual_delta 86 1-189 sbaq .time2  87 1-190 adaq bp|gate_entry_data.vcpu_time  88 1-191 staq bp|gate_entry_data.vcpu_time  89 1-192 lda pds$page_waits 90 1-193 sbla .pf  91 1-194 asa bp|gate_entry_data.page_waits  92 1-195 aos bp|gate_entry_data.calls  93 1-196 inhibit off <-><-><-><-><-><-><-><-><-><-><-><->  94 1-197  95 1-198 " Poll for ring alarms  96 1-199 sra .temp Borrow from time calc  97 1-200 szn .temp Zero?  98 1-201 tze .return_code_return  99 1-202  100 1-203 epp1 sp|stack_frame.prev_sp,* "possible ring alarm 101 1-204 epaq pr1|stack_frame.return_ptr,*  102 1-205 ana 7,dl " ring number to which we return  103 1-206 cmpa .temp 104 1-207 tpl .ring_alarm " ring alarm will occur  105 1-208  106 1-209 .return_code_return:  107 1-210 return 108 1-211  109 1-212 .ring_alarm: " perhaps we can handle without faults?  110 1-213  111 1-214 aos bp|gate_entry_data.ring_alarms 112 1-215 stz .temp " return argument for ring_alarm$poll  113 1-216 ldaq .one_arg_header  114 1-217 staq .ring_alarm_arg_list  115 1-218 epp1 .temp 116 1-219 spri1 .ring_alarm_arg_list+2  117 1-220 eppap .ring_alarm_arg_list 118 1-221 short_call ring_alarm$poll 119 1-222 szn .temp  120 1-223 tze .return_code_return  121 1-224 eppsp sp|stack_frame.prev_sp,* 122 1-225 sprisp pds$pre_empt_poll_return " short-return from here  123 1-226 epp1 sb|stack_header.stack_begin_ptr,* " abandoning this stack frame.  124 1-227 spri1 sb|stack_header.stack_end_ptr  125 1-228 " Leave SB as stack_0, so pxss can get to operators.  126 1-229 tra pxss$pre_empt_poll 127 1-230  128 1-231 tempd .ring_alarm_arg_list(2)  129 1-232 even  130 1-233 .one_arg_header:  131 1-234 vfd 17/2,1/0,18/4  132 1-235 vfd 18/0,18/0  133 1-236  134 1-237  135 .Zachrich ~ 4r| Zachrich NMLPROD Q4QpwQnoneWY50_80C QjL@arglist 57 1-304 call unwinder_$unwinder_(.unwinder_arglist)  58 1-305  59 1-306 .continue_signal:  60 1-307 lda =o400000,du "1"b  61 1-308 sta ap|10,* set continue bit  62 1-309 return 63 1-310  64 1-311 .handler_restart_point: 65 1-312 epaq sp|0 check that call came from ring 0  66 1-313 cana -1,dl 67 1-314 tze *+2  68 1-315 zero 1 69 1-316 epplp .my_lp,* 70 1-317 lca stack_frame.condition_bit+1,dl Vanish on-unit 71 1-318 ansa sp|stack_frame.flag_word  72 1-319 eppbp .mcptr  73 1-320 spribp .vfl_arglist+2  74 1-321 fld =1b24,dl  75 1-322 staq .vfl_arglist  76 1-323 short_call verify_lock$verify_lock_bad_dir(.vfl_arglist)  77 1-324 ldx0 .entryp  78 1-325 eppap sp|stack_frame.arg_ptr,* 79 1-326 tra 0,0 retry the call  80 1-327  81 1-328 maclist restore  82 1-329 eject  83 1-330 maclist restore  84 1-331 &end  1-332  1-333  1-334 " GATE_INFO - general info for non-hardcore gates  1-335  1-336 macro gate_info 1 1-337 maclist on,save  2 1-338 use transfer_vector  3 1-339 tra .actor 4 1-340  5 1-341 use tv_end 6 1-342 entrybound 7 1-343  8 1-344 use main  9 1-345 join /text/transfer_vector,tv_end,main 10 1-346  11 1-347 maclist restore  12 1-348 eject  13 1-349  14 1-350 .actor: getlp  15 1-351 maclist restore  16 1-352 gate_actor 17 1-353  18 1-354 maclist restore  19 1-355 eject  20 1-356  21 1-357 .setup: push  22 1-358 getlp  23 1-359 maclist restore  24 1-360 gcheck 25 1-361 tra 0,2  26 1-362  27 1-363 maclist restore  28 1-364 eject  29 1-365  30 1-366 maclist restore  31 1-367 &end  1-368  1-369  1-370 " Macro to generate gate actor. 1-371  1-372 macro gate_actor  1 1-373 maclist on,save  2 1-374 eppbp ap|2,*  3 1-375 lda bp|-1 get length of string  4 1-376 tze .return_name zero length => get name  5 1-377  6 1-378 adla 1,dl include length of acc  7 1-379 stz ap|4,* 8 1-380 tsx0 .search_defs  9 1-381  10 1-382 cmpc (pr,rl),(pr,rl) compare name  11 1-383 desc9a bp|-1(3),al 12 1-384 desc9a bb|0,al 13 1-385 tnz .next_def  14 1-386  15 1-387 lda ab|1,2 return location  16 1-388 arl 18 17 1-389 sta ap|4,* 18 1-390  19 1-391 short_return  20 1-392  21 1-393 .return_name:  22 1-394 lxl3 ap|4,* get location  23 1-395 tsx0 .search_defs  24 1-396  25 1-397 cmpx3 ab|1,2 compare location 26 1-398 tnz .next_def  27 1-399  28 1-400 lda bb|0 get length of name  29 1-401 arl 27 30 1-402 sta bp|-1 set length of varying string  31 1-403 mlr (pr,rl),(pr,rl) return string  32 1-404 desc9a bb|0(1),al  33 1-405 desc9a bp|0,al 34 1-406  35 1-407 short_return  36 1-408  37 1-409 .search_defs:  38 1-410 eax2 0 39 1-411 eppab lp|0,* ab -> defs  40 1-412 .defs_loop: 41 1-413 lxl1 ab|1,2 get class and flags  42 1-414 cmpx1 =o400000,du must be class 0  43 1-415 tnz .next_def  44 1-416  45 1-417 ldx7 ab|2,2  46 1-418 eppbb ab|0,7 bb -> name  47 1-419 tra 0,0 test definition  48 1-420 .next_def:  49 1-421 ldx2 ab|0,2 chain to next def 50 1-422 tnz .defs_loop 51 1-423  52 1-424 short_return  53 1-425  54 1-426 &end  1-427  1-428  1-429 " Miscellaneous macros. 1-430  1-431 macro gcheck  1 1-432 maclist on,save  2 1-433 ldx1 -2,2 get number of args expected 3 1-434 tze .no_gate_error if zero, none or doesn't matter 4 1-435 cmpx1 ap|0 compare against number given  5 1-436 tze .no_gate_error args match, call procedure  6 1-437  7 1-438 call signal_$signal_(signal_arglist)  8 1-439 oct 0  9 1-440  10 1-441 even  11 1-442 signal_arglist: 12 1-443 zero 2,4  13 1-444 zero 2,0  14 1-445 arg .gate_errorname  15 1-446 arg  16 1-447 arg .gate_errordesc  17 1-448 arg  18 1-449  19 1-450 string gate_error  20 1-451  21 1-452  22 1-453 .no_gate_error: 23 1-454 &end  1-455  1-456 macro string  1 1-457 .&1name:  2 1-458 aci "&1"  3 1-459 .&1desc:  4 1-460 vfd o9/525,o27/&l1 5 1-461  6 1-462 &end  1-463  1-464 macro eject 1 1-465 maclist on,save  2 1-466  3 1-467 &end  1-468  1-469 " END INCLUDE FILE ...... gate_macros.incl.alm  1-470  1-471 " To arrange the return it wants to return, it will have to reach back 2 frames.  21  22 gate_info  use transfer_vector  000000 0a 000010 7100 00 tra .actor  use tv_end entrybound  use main  join /text/transfer_vector,tv_end,main    000010 aa 7 00046 2721 20 .actor: getlp  000011 aa 0 00002 3521 20 eppbp ap|2,*  000012 aa 2 77777 2351 00 lda bp|-1 get length of string  000013 0a 000027 6000 00 tze .return_name zero length => get name   000014 aa 000001 0350 07 adla 1,dl include length of acc  000015 aa 0 00004 4501 20 stz ap|4,* 000016 0a 000042 7000 00 tsx0 .search_defs   000017 aa 0 00140 1065 40 cmpc (pr,rl),(pr,rl) compare name  000020 aa 277777 600005 desc9a bp|-1(3),al 000021 aa 300000 000005 desc9a bb|0,al 000022 0a 000052 6010 00 tnz .next_def   000023 aa 1 00001 2351 12 lda ab|1,2 return location  000024 aa 000022 7710 00 arl 18 000025 aa 0 00004 7551 20 sta ap|4,*  000026 aa 7 00044 7101 20 short_return   000027 .return_name:  000027 aa 0 00004 7231 20 lxl3 ap|4,* get location  000030 0a 000042 7000 00 tsx0 .search_defs   000031 aa 1 00001 1031 12 cmpx3 ab|1,2 compare location 000032 0a 000052 6010 00 tnz .next_def   000033 aa 3 00000 2351 00 lda bb|0 get length of name  000034 aa 000033 7710 00 arl 27 000035 aa 2 77777 7551 00 sta bp|-1 set length of varying string  000036 aa 0 00140 1005 40 mlr (pr,rl),(pr,rl) return string  000037 aa 300000 200005 desc9a bb|0(1),al  000040 aa 200000 000005 desc9a bp|0,al  000041 _hKitson p*Д Kitson SiteSA RsTZunoneSTY_TELNET RbSystem-M   System-M . N'M~Sawler  6ƞ Sawler Multics !QRD/.S2Bu7S1YI{CnoneSUN3_54_132 Rf  25 gate get_comm_meters,admin_gate_,get_comm_meters,3 000002 segdef get_comm_meters 000002 get_comm_meters:  000002 0a 000117 7100 00 tra get_comm_meters.e  000116 aa 000006 000000 zero 3*2,0 000117 get_comm_meters.e:  000117 0a 000055 7020 00 tsx2 .setup  000120 aa 000000 6340 07 ldi =0,dl  000121 4a 4 00014 3521 20 short_call admin_gate_$get_comm_meters(ap|0)  000122 aa 7 00036 6701 20 000123 aa 6 00030 3701 20 000124 aa 7 00042 7101 20 return  26 gate get_tuning_parameter,admin_gate_,get_tuning_parameter,7  000003 segdef get_tuning_parameter  000003 get_tuning_parameter:  000003 0a 000126 7100 00 tra get_tuning_parameter.e 000125 aa 000016 000000 zero 7*2,0 000126 get_tuning_parameter.e: 000126 0a 000055 7020 00 tsx2 .setup  000127 aa 000000 6340 07 ldi =0,dl  000130 4a 4 00016 3521 20 short_call admin_gate_$get_tuning_parameter(ap|0)  000131 aa 7 00036 6701 20 000132 aa 6 00030 3701 20 000133 aa 7 00042 7101 20 return  27 gate list_tuning_parameters,admin_gate_,list_tuning_parameters,4  000004 segdef list_tuning_parameters  000004 list_tuning_parameters: 000004 0a 000135 7100 00 tra list_tuning_parameters.e  000134 aa 000010 000000 zero 4*2,0 000135 list_tuning_parameters.e:  000135 0a 000055 7020 00 tsx2 .setup  000136 aa 000000 6340 07 ldi =0,dl  000137 4a 4 00020 3521 20 short_call admin_gate_$list_tuning_parameters(ap|0)  000140 aa 7 00036 6701 20 000141 aa 6 00030 3701 20 000142 aa 7 00042 7101 20 return  28 gate metering_ring_zero_peek_,ring_zero_peek_filter_,ring_zero_peek_filter_,4  000005 segdef metering_ring_zero_peek_  000005 metering_ring_zero_peek_:  000005 0a 000144 7100 00 tra metering_ring_zero_peek_.e 000143 aa 000010 000000 zero 4*2,0 000144 metering_ring_zero_peek_.e: 000144 0a 000055 7020 00 tsx2 .setup  000145 aa 000000 6340 07 ldi =0,dl  000146 4a 4 00022 3521 20 short_call ring_zero_peek_filter_$ring_zero_peek_filter_(ap|0) 000147 aa 7 00036 6701 20 000150 aa 6 00030 3701 20 000151 aa 7 00042 7101 20 return  29 gate ring_zero_peek,ring_zero_peek_filter_,ring_zero_peek_filter_,4  000006 segdef ring_zero_peek  000006 ring_zero_peek: 000006 0a 000153 7100 00 tra ring_zero_peek.e  000152 aa 000010 000000 zero 4*2,0 000153 ring_zero_peek.e:  000153 0a 000055 7020 00 tsx2 .setup  000154 aa 000000 6340 07 ldi =0,dl  000155 4a 4 00022 3521 20 short_call ring_zero_peek_filter_$ring_zero_peek_filter_(ap|0) 000156 aa 7 00036 6701 20 000157 aa 6 00030 3701 20 000160 aa 7 00042 7101 20 return  30  31 end  NO LITERALS  NAME DEFINITIONS FOR ENTRY POINTS AND SEGDEFS 000162 5a 000003 000000 000163 5a 000103 600000 000164 aa 000000 000000 000165 55 000012 000002 000166 5a 000002 400003 000167 55 000006 000012 000170 aa 016 155 145 164 000171 aa 145 162 151 156 000172 aa 147 137 147 141 000173 aa 164 145 137 000 000174 55 000021 000003 000175 0a 000006 400000 000176 55 000015 000003 000177 aa 016 162 151 156 ring_zero_peek  000200 aa 147 137 172 145 000201 aa 162 157 137 160 000202 aa 145 145 153 000 000203 55 000033 000012 000204 0a 000005 400000 000205 55 000024 000003 000206 aa 030 155 145 164 metering_ring_zero_peek_  000207 aa 145 162 151 156 000210 aa 147 137 162 151 000211 aa 156 147 137 172 000212 aa 145 162 157 137 000213 aa 160 145 145 153 000214 aa 137 000 000 000 000215 55 000044 000021 000216 0a 000004 400000 000217 55 000036 000003 000220 aa 026 154 151 163 list_tuning_parameters  000221 aa 164 137 164 165 000222 aa 156 151 156 147 000223 aa 137 160 141 162 000224 aa 141 155 145 164 000225 aa 145 162 163 000 000226 55 000055 000033 000227 0a 000003 400000 000230 55 000047 000003 000231 aa 024 147 145 164 get_tuning_parameter  000232 aa 137 164 165 156 000233 aa 151 156 147 137 000234 aa 160 141 162 141 000235 aa 155 145 164 145 000236 aa 162 000 000 000 000237 55 000064 000044 000240 0a 000002 400000 000241 55 000060 000003 000242 aa 017 147 145 164 get_comm_meters 000243 aa 137 143 157 155 000244 aa 155 137 155 145 000245 aa 164 145 162 163 000246 55 000074 000055 000247 0a 000001 400000 000250 55 000067 000003 000251 aa 023 143 157 155 comm_chan_star_list 000252 aa 155 137 143 150 000253 aa 141 156 137 163 000254 aa 164 141 162 137 000255 aa 154 151 163 164 000256 55 000002 000064 000257 6a 000000 400002 000260 55 000077 000003 000261 aa 014 163 171 155 symbol_table  000262 aa 142 157 154 137 000263 aa 164 141 142 154 000264 aa 145 000 000 000 DEFINITIONS HASH TABLE  000265 aa 000000 000015 000266 aa 000000 000000 000267 5a 000055 000000 000270 5a 000021 000000 000271 5a 000044 000000 000272 5a 000064 000000 000273 aa 000000 000000 000274 5a 000033 000000 000275 5a 000074 000000 000276 aa 000000 000000 000277 5a 000012 000000 000300 aa 000000 000000 000301 aa 000000 000000 000302 aa 000000 000000 EXTERNAL NAMES  000303 aa 026 162 151 156 ring_zero_peek_filter_  000304 aa 147 137 172 145 000305 aa 162 157 137 160 000306 aa 145 145 153 137 000307 aa 146 151 154 164 000310 aa 145 162 137 000 000311 aa 013 141 144 155 admin_gate_ 000312 aa 151 156 137 147 000313 aa 141 164 145 137 000314 aa 007 163 151 147 signal_ 000315 aa 156 141 154 137 NO TRAP POINTER WORDS  TYPE PAIR BLOCKS  000316 aa 000004 000000 000317 55 000121 000121 000320 aa 000004 000000 000321 55 000127 000036 000322 aa 000004 000000 000323 55 000127 000047 000324 aa 000004 000000 000325 55 000127 000060 000326 aa 000004 000000 000327 55 000127 000067 000330 aa 000004 000000 000331 55 000132 000132 000332 aa 000001 000000 000333 aa 000000 000000 INTERNAL EXPRESSION WORDS 000334 5a 000134 000000 000335 5a 000136 000000 000336 5a 000140 000000 000337 5a 000142 000000 000340 5a 000144 000000 000341 5a 000146 000000 LINKAGE INFORMATION 000000 aa 000000 000000 000001 0a 000162 000000 000002 aa |*q5z@q5:f&q-E zFortran.pdt q-Rye2'$ tzSwß*@e$D`*q-<L*q-DT`*q-L\*@q-Td*@q-\lD*q-dt|*q-lz@q- x& Mނ?z|0RPMtnd.pdt Ryץ$ zSwßn*$<|*  * z@ *a*@a*@a*@a*@aD*@a|*az@ar &{PٹN  zGuest.pdt {Ryi  1$fHzSwß*@J\*@JG*@$`*@e*{*@q>*@M&*@q1*@qC*@qE|@&MZM/nzx!EMREL.pdt MZRy] /$zHSwß4*e*@MZ|*MZD*@MZz@MZ*@ |*q*@ * *@ &qBOgz)Office.pdt qBRyד2$ D&zm Swßz@e*qB,`*qB$4*@qB,<*@qB4TD*qBTz@qB*@q3<D|*qB&q3Eddz\.APL.pdt q3RyB $$ Lz6Swß,*@ pn*q3*q3*@q3`*q3*@q3D*q3z@q3z@q,|*q3 &qEEz)PSE.pdt qERyע 9$ 8pz~Swß`(*e*qED*qE*qE *@qE(*@qE 0D*qE(8|*qE0z@qEx&M`M/jHHz@-NMLCOMM.pdt M`Ry׆2$vz$Swßz@{v*M`n*@M`*@M`~D*@M`|*M`z@M`h*@MZ*@MZ@ &M&M/huz.COSIDS.pdt M&RyP $zHSwß|*@{X*M&*@M&*@M&D*@M&X|*te_: 22.  42 .search_defs metering_gate_: 22.  55 .setup metering_gate_: 22, 24, 25, 26, 27, 28, 29.  admin_gate_ metering_gate_: 24, 25, 26, 27. 1 comm_chan_star_list metering_gate_: 24.  110 comm_chan_star_list.e metering_gate_: 24.  2 get_comm_meters metering_gate_: 25.  117 get_comm_meters.e metering_gate_: 25.  3 get_tuning_parameter metering_gate_: 26.  126 get_tuning_parameter.e metering_gate_: 26.  4 list_tuning_parameters metering_gate_: 27.  135 list_tuning_parameters.e metering_gate_: 27. 10 main metering_gate_: 22, 24, 25, 26, 27, 28, 29.  5 metering_ring_zero_peek_ metering_gate_: 28. 144 metering_ring_zero_peek_.e metering_gate_: 28. 6 ring_zero_peek metering_gate_: 29.  153 ring_zero_peek.e metering_gate_: 29.  ring_zero_peek_filter_ metering_gate_: 28, 29. signal_ metering_gate_: 22.  74 signal_arglist metering_gate_: 22.  0 transfer_vector metering_gate_: 22, 24, 25, 26, 27, 28, 29.  7 tv_end metering_gate_: 22.  NO FATAL ERRORS  ----------------------------------------------------------- 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