ASSEMBLY LISTING OF SEGMENT >special_ldd>install>MR12.3-1114>getuid.alm ASSEMBLED ON: 11/11/89 0933.6 mst Sat OPTIONS USED: -target l68 list symbols ASSEMBLED BY: ALM Version 8.14 March 1989 ASSEMBLER CREATED: 06/09/89 1002.3 mst Fri 1 " *********************************************************** 2 " * * 3 " * Copyright, (C) Honeywell Bull Inc., 1987 * 4 " * * 5 " * Copyright, (C) Honeywell Information Systems Inc., 1982 * 6 " * * 7 " * Copyright (c) 1972 by Massachusetts Institute of * 8 " * Technology and Honeywell Information Systems, Inc. * 9 " * * 10 " *********************************************************** 11 12 " " " " " " " " " " " " " " " " " " " " " " " " " 13 " 14 " getuid -- Procedure to return a unique identifier as a 36 bit 15 " quantity. 16 " The call is: 17 " 18 " call getuid(bit36) 19 " 20 " The init entry point is called during initialization and does 21 " an initial clock reading. 22 " 23 " " " " " " " " " " " " " " " " " " " " " " " " " " " 24 25 " Converted for the follow-on 645 by Craig Jensen on 7/14/72. 26 " Modified to make the uids more random by Keith Loepere on 11/25/84. 27 000000 28 name getuid 000011 29 entry getuid 000000 30 entry init 31 32 33 include stack_header 1-1 " BEGIN INCLUDE FILE ... stack_header.incl.alm 3/72 Bill Silver 1-2 " 1-3 " modified 7/76 by M. Weaver for *system links and more system use of areas 1-4 " modified 3/77 by M. Weaver to add rnt_ptr 1-5 " modified 7/77 by S. Webber to add run_unit_depth and assign_linkage_ptr 1-6 " modified 6/83 by J. Ives to add trace_frames and in_trace. 1-7 1-8 " HISTORY COMMENTS: 1-9 " 1) change(86-06-24,DGHowe), approve(86-06-24,MCR7396), 1-10 " audit(86-08-05,Schroth), install(86-11-03,MR12.0-1206): 1-11 " added the heap_header_ptr definition 1-12 " 2) change(86-08-12,Kissel), approve(86-08-12,MCR7473), 1-13 " audit(86-10-10,Fawcett), install(86-11-03,MR12.0-1206): 1-14 " Modified to support control point management. These changes were 1-15 " actually made in February 1985 by G. Palter. 1-16 " 3) change(86-10-22,Fawcett), approve(86-10-22,MCR7473), 1-17 " audit(86-10-22,Farley), install(86-11-03,MR12.0-1206): 1-18 " Remove the old_lot pointer and replace it with cpm_data_ptr. Use the 18 1-19 " bit pad after cur_lot_size for the cpm_enabled. This was done to save 1-20 " some space int the stack header and change the cpd_ptr unal to 1-21 " cpm_data_ptr (ITS pair). 1-22 " END HISTORY COMMENTS 1-23 000004 1-24 equ stack_header.cpm_data_ptr,4 ptr to control point for this stack 000006 1-25 equ stack_header.combined_stat_ptr,6 ptr to separate static area 1-26 000010 1-27 equ stack_header.clr_ptr,8 ptr to area containing linkage sections 000012 1-28 equ stack_header.max_lot_size,10 number of words allowed in lot (DU) 000012 1-29 equ stack_header.main_proc_invoked,10 nonzero if main proc was invoked in run unit (DL) 000012 1-30 equ stack_header.run_unit_depth,10 number of active run units stacked (DL) 000013 1-31 equ stack_header.cur_lot_size,11 DU number of words (entries) in lot 000013 1-32 equ stack_header.cpm_enabled,11 DL non-zero if control point management is enabled 000014 1-33 equ stack_header.system_free_ptr,12 ptr to system storage area 000016 1-34 equ stack_header.user_free_ptr,14 ptr to user storage area 1-35 000020 1-36 equ stack_header.parent_ptr,16 ptr to parent stack or null 000022 1-37 equ stack_header.stack_begin_ptr,18 ptr to first stack frame 000024 1-38 equ stack_header.stack_end_ptr,20 ptr to next useable stack frame 000026 1-39 equ stack_header.lot_ptr,22 ptr to the lot for the current ring 1-40 000030 1-41 equ stack_header.signal_ptr,24 ptr to signal proc for current ring 000032 1-42 equ stack_header.bar_mode_sp,26 value of sp before entering bar mode 000034 1-43 equ stack_header.pl1_operators_ptr,28 ptr: pl1_operators_$operator_table 000036 1-44 equ stack_header.call_op_ptr,30 ptr to standard call operator 1-45 000040 1-46 equ stack_header.push_op_ptr,32 ptr to standard push operator 000042 1-47 equ stack_header.return_op_ptr,34 ptr to standard return operator 000044 1-48 equ stack_header.ret_no_pop_op_ptr,36 ptr: stand. return/ no pop operator 000046 1-49 equ stack_header.entry_op_ptr,38 ptr to standard entry operator 1-50 000050 1-51 equ stack_header.trans_op_tv_ptr,40 ptr to table of translator operator ptrs 000052 1-52 equ stack_header.isot_ptr,42 pointer to ISOT 000054 1-53 equ stack_header.sct_ptr,44 pointer to System Condition Table 000056 1-54 equ stack_header.unwinder_ptr,46 pointer to unwinder for current ring 1-55 000060 1-56 equ stack_header.sys_link_info_ptr,48 ptr to *system link name table 000062 1-57 equ stack_header.rnt_ptr,50 ptr to reference name table 000064 1-58 equ stack_header.ect_ptr,52 ptr to event channel table 000066 1-59 equ stack_header.assign_linkage_ptr,54 ptr to area for hcs_$assign_linkage calls 000070 1-60 equ stack_header.heap_header_ptr,56 ptr to heap header. 000072 1-61 equ stack_header.trace_frames,58 stack of trace_catch_ frames 000073 1-62 equ stach_header.trace_top_ptr,59 trace pointer 000074 1-63 equ stack_header.in_trace,60 trace antirecurse bit 000100 1-64 equ stack_header_end,64 length of stack header 1-65 1-66 1-67 1-68 000000 1-69 equ trace_frames.count,0 number of trace frames on stack 000001 1-70 equ trace_frames.top_ptr,1 packed pointer to top one 1-71 1-72 " The following constant is an offset within the pl1 operators table. 1-73 " It references a transfer vector table. 1-74 000551 1-75 bool tv_offset,551 1-76 1-77 1-78 " The following constants are offsets within this transfer vector table. 1-79 001170 1-80 equ call_offset,tv_offset+271 001171 1-81 equ push_offset,tv_offset+272 001172 1-82 equ return_offset,tv_offset+273 001173 1-83 equ return_no_pop_offset,tv_offset+274 001174 1-84 equ entry_offset,tv_offset+275 1-85 1-86 1-87 " END INCLUDE FILE stack_header.incl.alm 34 35 36 " " " " " " " " " " " " " " " " " " " " " " " " " " " " 37 " 38 " init 39 " 40 " " " " " " " " " " " " " " " " " " " " " " " " " " " " 41 000000 42 init: 000000 aa 000017 6210 00 43 eax1 15 000001 4a 4 00010 6331 20 44 rccl |[clock_],* read the clock 000002 aa 000017 7330 00 45 lrs 15 Set resolution to 32 milleseconds 000003 46 init_loop: 000003 4a 4 00012 7561 20 47 stq |[uid_array],x1 Store it in tc_data 000004 aa 000001 0760 07 48 adq 1,dl 000005 aa 777777 6210 11 49 eax1 -1,x1 000006 0a 000003 6050 00 50 tpl init_loop 000007 4a 4 00014 7561 20 51 stq |[id] Store it in tc_data 000010 aa 7 00044 7101 20 52 short_return 53 54 " 55 " " " " " " " " " " " " " " " " " " " " " " " " " " "" 56 " 57 " getuid 58 " 59 " " " " " " " " " " " " " " " " " " " " " " " " " " " " " 60 " 61 " getuid works by keeping an array of uids handy. A request for a uid 62 " takes one at random from this array. However, the taker must put a new 63 " value into this empty place in the array - so, we must first generate a 64 " new unique value (tc_data$id). 65 000011 66 getuid: 000011 4a 4 00010 6331 20 67 rccl |[clock_],* read the clock 000012 aa 000017 7330 00 68 lrs 15 Set resolution 000013 4a 4 00014 1161 20 69 cmpq |[id] Have we gone past? 000014 0a 000011 6000 00 70 tze getuid Repeat until acceptible 71 000015 72 id_loop: 000015 4a 4 00014 2361 20 73 ldq |[id] get id value to use 000016 aa 7 00024 7561 20 74 stq sb|stack_header.stack_end_ptr,* 000017 aa 7 00024 2351 20 75 lda sb|stack_header.stack_end_ptr,* 000020 aa 000001 0350 07 76 adla 1,dl generate new id 000021 4a 4 00014 6541 20 77 stacq |[id] store it away if hasn't changed 000022 0a 000015 6010 00 78 tnz id_loop try again if someone beat us 79 " it is a loop lock. 80 " stack end holds the value of id we generated. We need to place this 81 " in a random spot in the uid_array and grab the value that is there. 82 " 000023 4a 4 00010 6331 20 83 rccl |[clock_],* 000024 aa 000040 7360 00 84 qls 32 000025 aa 000040 7720 00 85 qrl 32 low 4 clock bits => uid_array index 000026 aa 000000 6210 06 86 eax1 0,ql 000027 aa 7 00024 2351 20 87 lda sb|stack_header.stack_end_ptr,* 000030 88 array_loop: 000030 4a 4 00012 2361 20 89 ldq |[uid_array],x1 000031 4a 4 00012 6541 20 90 stacq |[uid_array],x1 000032 0a 000030 6010 00 91 tnz array_loop someone already got this slot 000033 aa 0 00002 7561 20 92 stq ap|2,* 93 000034 aa 7 00044 7101 20 94 short_return 95 96 end ENTRY SEQUENCES 000035 5a 000015 0000 00 000036 aa 7 00046 2721 20 000037 0a 000011 7100 00 000040 5a 000010 0000 00 000041 aa 7 00046 2721 20 000042 0a 000000 7100 00 NO LITERALS NAME DEFINITIONS FOR ENTRY POINTS AND SEGDEFS 000044 5a 000003 000000 000045 5a 000031 600000 000046 aa 000000 000000 000047 55 000010 000002 000050 5a 000002 400003 000051 55 000006 000010 000052 aa 006 147 145 164 000053 aa 165 151 144 000 000054 55 000015 000003 000055 0a 000041 500000 000056 55 000013 000003 000057 aa 004 151 156 151 init 000060 aa 164 000 000 000 000061 55 000022 000010 000062 0a 000036 500000 000063 55 000020 000003 000064 aa 006 147 145 164 getuid 000065 aa 165 151 144 000 000066 55 000002 000015 000067 6a 000000 400002 000070 55 000025 000003 000071 aa 014 163 171 155 symbol_table 000072 aa 142 157 154 137 000073 aa 164 141 142 154 000074 aa 145 000 000 000 DEFINITIONS HASH TABLE 000075 aa 000000 000015 000076 aa 000000 000000 000077 aa 000000 000000 000100 aa 000000 000000 000101 aa 000000 000000 000102 aa 000000 000000 000103 aa 000000 000000 000104 5a 000022 000000 000105 5a 000015 000000 000106 aa 000000 000000 000107 aa 000000 000000 000110 5a 000010 000000 000111 aa 000000 000000 000112 aa 000000 000000 EXTERNAL NAMES 000113 aa 002 151 144 000 id 000114 aa 011 165 151 144 uid_array 000115 aa 137 141 162 162 000116 aa 141 171 000 000 000117 aa 007 164 143 137 tc_data 000120 aa 144 141 164 141 000121 aa 006 143 154 157 clock_ 000122 aa 143 153 137 000 000123 aa 010 163 171 163 sys_info 000124 aa 137 151 156 146 000125 aa 157 000 000 000 NO TRAP POINTER WORDS TYPE PAIR BLOCKS 000126 aa 000004 000000 000127 55 000053 000047 000130 aa 000004 000000 000131 55 000053 000050 000132 aa 000004 000000 000133 55 000057 000055 000134 aa 000001 000000 000135 aa 000000 000000 INTERNAL EXPRESSION WORDS 000136 5a 000062 000000 000137 5a 000064 000000 000140 5a 000066 000000 000141 aa 000000 000000 LINKAGE INFORMATION 000000 aa 000000 000000 000001 0a 000044 000000 000002 aa 000000 000000 000003 aa 000000 000000 000004 aa 000000 000000 000005 aa 000000 000000 000006 22 000010 000016 000007 a2 000000 000000 000010 9a 777770 0000 46 sys_info|clock_ 000011 5a 000074 0000 20 000012 9a 777766 0000 46 tc_data|uid_array 000013 5a 000073 0000 11 000014 9a 777764 0000 46 tc_data|id 000015 5a 000072 0000 00 SYMBOL INFORMATION SYMBOL TABLE HEADER 000000 aa 000000 000001 000001 aa 163171 155142 000002 aa 164162 145145 000003 aa 000000 000010 000004 aa 000000 117244 000005 aa 361023 525721 000006 aa 000000 117547 000007 aa 246311 170717 000010 aa 141154 155040 000011 aa 040040 040040 000012 aa 000024 000040 000013 aa 000034 000040 000014 aa 000044 000100 000015 aa 000002 000002 000016 aa 000064 000000 000017 aa 000000 000155 000020 aa 000000 000122 000021 aa 000134 000130 000022 aa 000146 000122 000023 aa 000064 000000 000024 aa 101114 115040 000025 aa 126145 162163 000026 aa 151157 156040 000027 aa 070056 061064 000030 aa 040115 141162 000031 aa 143150 040061 000032 aa 071070 071040 000033 aa 040040 040040 000034 aa 110151 162156 000035 aa 145151 163145 000036 aa 156056 123171 000037 aa 163115 141151 000040 aa 156164 056141 000041 aa 040040 040040 000042 aa 040040 040040 000043 aa 040040 040040 000044 aa 055164 141162 000045 aa 147145 164040 000046 aa 154066 070040 000047 aa 040040 040040 000050 aa 040040 040040 000051 aa 040040 040040 000052 aa 040040 040040 000053 aa 040040 040040 000054 aa 040040 040040 000055 aa 040040 040040 000056 aa 040154 151163 000057 aa 164040 163171 000060 aa 155142 157154 000061 aa 163040 040040 000062 aa 040040 040040 000063 aa 040040 040040 000064 aa 000000 000001 000065 aa 000000 000002 000066 aa 000076 000053 000067 aa 175453 022025 000070 aa 000000 117547 000071 aa 215546 200000 000072 aa 000111 000042 000073 aa 147777 464111 000074 aa 000000 115000 000075 aa 507463 000000 000076 aa 076163 160145 >special_ldd>install>MR12.3-1114>getuid.alm 000077 aa 143151 141154 000100 aa 137154 144144 000101 aa 076151 156163 000102 aa 164141 154154 000103 aa 076115 122061 000104 aa 062056 063055 000105 aa 061061 061064 000106 aa 076147 145164 000107 aa 165151 144056 000110 aa 141154 155040 000111 aa 076154 144144 >ldd>include>stack_header.incl.alm 000112 aa 076151 156143 000113 aa 154165 144145 000114 aa 076163 164141 000115 aa 143153 137150 000116 aa 145141 144145 000117 aa 162056 151156 000120 aa 143154 056141 000121 aa 154155 040040 MULTICS ASSEMBLY CROSS REFERENCE LISTING Value Symbol Source file Line number 30 array_loop getuid: 88, 91. 1170 call_offset stack_header: 80. clock_ getuid: 44, 67, 83. 1174 entry_offset stack_header: 84. 11 getuid getuid: 29, 66, 70. id getuid: 51, 69, 73, 77. 15 id_loop getuid: 72, 78. 0 init getuid: 30, 42. 3 init_loop getuid: 46, 50. 1171 push_offset stack_header: 81. 1173 return_no_pop_offset stack_header: 83. 1172 return_offset stack_header: 82. 73 stach_header.trace_top_ptr stack_header: 62. 66 stack_header.assign_linkage_ptr stack_header: 59. 32 stack_header.bar_mode_sp stack_header: 42. 36 stack_header.call_op_ptr stack_header: 44. 10 stack_header.clr_ptr stack_header: 27. 6 stack_header.combined_stat_ptr stack_header: 25. 4 stack_header.cpm_data_ptr stack_header: 24. 13 stack_header.cpm_enabled stack_header: 32. 13 stack_header.cur_lot_size stack_header: 31. 64 stack_header.ect_ptr stack_header: 58. 46 stack_header.entry_op_ptr stack_header: 49. 70 stack_header.heap_header_ptr stack_header: 60. 74 stack_header.in_trace stack_header: 63. 52 stack_header.isot_ptr stack_header: 52. 26 stack_header.lot_ptr stack_header: 39. 12 stack_header.main_proc_invoked stack_header: 29. 12 stack_header.max_lot_size stack_header: 28. 20 stack_header.parent_ptr stack_header: 36. 34 stack_header.pl1_operators_ptr stack_header: 43. 40 stack_header.push_op_ptr stack_header: 46. 42 stack_header.return_op_ptr stack_header: 47. 44 stack_header.ret_no_pop_op_ptr stack_header: 48. 62 stack_header.rnt_ptr stack_header: 57. 12 stack_header.run_unit_depth stack_header: 30. 54 stack_header.sct_ptr stack_header: 53. 30 stack_header.signal_ptr stack_header: 41. 22 stack_header.stack_begin_ptr stack_header: 37. 24 stack_header.stack_end_ptr getuid: 74, 75, 87, stack_header: 38. 14 stack_header.system_free_ptr stack_header: 33. 60 stack_header.sys_link_info_ptr stack_header: 56. 72 stack_header.trace_frames stack_header: 61. 50 stack_header.trans_op_tv_ptr stack_header: 51. 56 stack_header.unwinder_ptr stack_header: 54. 16 stack_header.user_free_ptr stack_header: 34. 100 stack_header_end stack_header: 64. sys_info getuid: 44, 67, 83. tc_data getuid: 47, 51, 69, 73, 77, 89, 90. 0 trace_frames.count stack_header: 69. 1 trace_frames.top_ptr stack_header: 70. 551 tv_offset stack_header: 75, 80, 81, 82, 83, 84. uid_array getuid: 47, 89, 90. 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