COMPILATION LISTING OF SEGMENT pc_trace_pl1 Compiled by: Multics PL/I Compiler, Release 33e, of October 6, 1992 Compiled at: CGI Compiled on: 2000-04-18_1112.77_Tue_mdt Options: optimize list 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 pc_trace_pl1: proc; 14 15 /* RE Mullen, v2pl1, oct 1973 */ 16 /* RE Mullen, v2pl1, oct 1973 */ 17 18 dcl (cmep, pdmep, ptp, a_pdmep, a_ptp) ptr, 19 format1 char (22) aligned static init (" ^w"), 20 format4 char (34) aligned static init (" ^w ^w ^w ^w"), 21 fword (0:10) fixed bin based, 22 (devadd, a_devadd, bdevadd, b_devadd) fixed bin, 23 trace entry options (variable); 24 25 done: entry (a_pdmep); 26 27 cmep = a_pdmep; 28 call trace ("done cmep = ^p", cmep); 29 call trace (format4, cmep -> fword (0), cmep -> fword (1), cmep -> fword (2), cmep -> fword (3)); 30 return; 31 32 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 33 34 page_fault: entry (a_pdmep); 35 36 ptp = a_pdmep; 37 call trace ("page fault ptp = ^p", ptp); 38 call trace (format1, ptp -> fword (0)); 39 return; 40 41 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 42 43 page_fault_end: entry (a_pdmep); 44 45 ptp = a_pdmep; 46 call trace ("end page fault ptp = ^p", ptp); 47 call trace (format1, ptp -> fword (0)); 48 return; 49 50 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 51 52 write_page: entry (a_pdmep); 53 54 cmep = a_pdmep; 55 call trace ("write page cmep = ^p", cmep); 56 call trace (format4, cmep -> fword (0), cmep -> fword (1), cmep -> fword (2), cmep -> fword (3)); 57 return; 58 59 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 60 abort_complete: entry (a_pdmep, a_ptp); 61 62 pdmep = a_pdmep; 63 ptp = a_ptp; 64 call trace ("abort complete pdmep = ^p, ptw = ^w", pdmep, ptp -> fword (0)); 65 call trace (format4, pdmep -> fword (0), pdmep -> fword (1), pdmep -> fword (2), pdmep -> fword (3)); 66 return; 67 68 /* * * * * * * * * * * * * * * * * * * * * * * * * * * */ 69 70 move_page: entry (a_devadd); 71 72 devadd = a_devadd; 73 call trace ("moving page ^w", devadd); 74 return; 75 76 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 77 78 zero_page: entry (a_devadd, a_ptp); 79 80 devadd = a_devadd; 81 ptp = a_ptp; 82 call trace ("zero page ptw = ^w, devadd = ^w", ptp -> fword (0), devadd); 83 return; 84 85 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 86 87 no_pd_: entry (a_devadd, a_ptp); 88 89 devadd = a_devadd; 90 ptp = a_ptp; 91 call trace ("no paging device ptw = ^w, devadd = ^w", ptp -> fword (0), devadd); 92 return; 93 94 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 95 96 rws_truncated: entry (a_devadd, a_ptp); 97 98 devadd = a_devadd; 99 pdmep = a_ptp; /* on purpose ... for efficiency */ 100 call trace ("rws truncated pdmep = ^p, devadd = ^w", pdmep, devadd); 101 call trace (format4, pdmep -> fword (0), pdmep -> fword (1), pdmep -> fword (2), pdmep -> fword (3)); 102 return; 103 104 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 105 106 withdrawing: entry (a_devadd); 107 108 devadd = a_devadd; 109 call trace ("withdrawing devadd = ^w", devadd); 110 return; 111 112 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 113 114 depositing: entry (a_devadd); 115 116 devadd = a_devadd; 117 call trace ("depositing devadd = ^w", devadd); 118 return; 119 120 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 121 122 tr_pd_delete_: entry (a_pdmep); 123 124 pdmep = a_pdmep; 125 call trace ("pd_delete_ pdmep = ^p", pdmep); 126 call trace (format4, pdmep -> fword (0), pdmep -> fword (1), pdmep -> fword (2), pdmep -> fword (3)); 127 return; 128 129 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 130 131 tr_rws: entry (a_pdmep); 132 133 pdmep = a_pdmep; 134 call trace ("read/write start pdmep = ^p", pdmep); 135 call trace (format4, pdmep -> fword (0), pdmep -> fword (1), pdmep -> fword (2), pdmep -> fword (3)); 136 return; 137 138 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 139 140 rehash: entry (a_devadd, b_devadd); 141 142 devadd = a_devadd; 143 bdevadd = b_devadd; 144 call trace ("rehashing old devadd = ^w, new devadd = ^w", devadd, bdevadd); 145 return; 146 147 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 148 149 running: entry; 150 151 call trace ("running the devices"); 152 return; 153 154 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 155 156 rws_complete: entry (a_pdmep); 157 158 pdmep = a_pdmep; 159 call trace ("rws complete pdmep = ^p", pdmep); 160 call trace (format4, pdmep -> fword (0), pdmep -> fword (1), pdmep -> fword (2), pdmep -> fword (3)); 161 return; 162 163 end; SOURCE FILES USED IN THIS COMPILATION. LINE NUMBER DATE MODIFIED NAME PATHNAME 0 04/18/00 1112.8 pc_trace_pl1.pl1 >udd>sm>ds>w>ml>pc_trace_pl1.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. a_devadd parameter fixed bin(17,0) dcl 18 ref 70 72 78 80 87 89 96 98 106 108 114 116 140 142 a_pdmep parameter pointer dcl 18 ref 25 27 34 36 43 45 52 54 60 62 122 124 131 133 156 158 a_ptp parameter pointer dcl 18 ref 60 63 78 81 87 90 96 99 b_devadd parameter fixed bin(17,0) dcl 18 ref 140 143 bdevadd 000107 automatic fixed bin(17,0) dcl 18 set ref 143* 144* cmep 000100 automatic pointer dcl 18 set ref 27* 28* 29 29 29 29 54* 55* 56 56 56 56 devadd 000106 automatic fixed bin(17,0) dcl 18 set ref 72* 73* 80* 82* 89* 91* 98* 100* 108* 109* 116* 117* 142* 144* format1 000010 internal static char(22) initial dcl 18 set ref 38* 47* format4 000016 internal static char(34) initial dcl 18 set ref 29* 56* 65* 101* 126* 135* 160* fword based fixed bin(17,0) array dcl 18 set ref 29* 29* 29* 29* 38* 47* 56* 56* 56* 56* 64* 65* 65* 65* 65* 82* 91* 101* 101* 101* 101* 126* 126* 126* 126* 135* 135* 135* 135* 160* 160* 160* 160* pdmep 000102 automatic pointer dcl 18 set ref 62* 64* 65 65 65 65 99* 100* 101 101 101 101 124* 125* 126 126 126 126 133* 134* 135 135 135 135 158* 159* 160 160 160 160 ptp 000104 automatic pointer dcl 18 set ref 36* 37* 38 45* 46* 47 63* 64 81* 82 90* 91 trace 000030 constant entry external dcl 18 ref 28 29 37 38 46 47 55 56 64 65 73 82 91 100 101 109 117 125 126 134 135 144 151 159 160 NAMES DECLARED BY EXPLICIT CONTEXT. abort_complete 000531 constant entry external dcl 60 depositing 001112 constant entry external dcl 114 done 000240 constant entry external dcl 25 move_page 000624 constant entry external dcl 70 no_pd_ 000725 constant entry external dcl 87 page_fault 000322 constant entry external dcl 34 page_fault_end 000373 constant entry external dcl 43 pc_trace_pl1 000227 constant entry external dcl 13 rehash 001315 constant entry external dcl 140 running 001354 constant entry external dcl 149 rws_complete 001400 constant entry external dcl 156 rws_truncated 000766 constant entry external dcl 96 tr_pd_delete_ 001145 constant entry external dcl 122 tr_rws 001230 constant entry external dcl 131 withdrawing 001057 constant entry external dcl 106 write_page 000444 constant entry external dcl 52 zero_page 000664 constant entry external dcl 78 THERE WERE NO NAMES DECLARED BY CONTEXT OR IMPLICATION. STORAGE REQUIREMENTS FOR THIS PROGRAM. Object Text Link Symbol Defs Static Start 0 0 1654 1706 1461 1664 Length 2116 1461 32 173 172 20 BLOCK NAME STACK SIZE TYPE WHY NONQUICK/WHO SHARES STACK FRAME pc_trace_pl1 126 external procedure is an external procedure. STORAGE FOR INTERNAL STATIC VARIABLES. LOC IDENTIFIER BLOCK NAME 000010 format1 pc_trace_pl1 000016 format4 pc_trace_pl1 STORAGE FOR AUTOMATIC VARIABLES. STACK FRAME LOC IDENTIFIER BLOCK NAME pc_trace_pl1 000100 cmep pc_trace_pl1 000102 pdmep pc_trace_pl1 000104 ptp pc_trace_pl1 000106 devadd pc_trace_pl1 000107 bdevadd pc_trace_pl1 THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. call_ext_out_desc return_mac ext_entry THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. trace NO EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. CONSTANTS 000000 aa 524000000023 000001 aa 524000000064 000002 aa 524000000036 000003 aa 524000000037 000004 aa 524000000053 000005 aa 524000000051 000006 aa 524000000050 000007 aa 524000000026 000010 aa 524000000034 000011 aa 524000000042 000012 aa 524000000035 000013 aa 404000000021 000014 aa 464000000000 000015 aa 162 165 156 156 runn 000016 aa 151 156 147 040 ing 000017 aa 164 150 145 040 the 000020 aa 144 145 166 151 devi 000021 aa 143 145 163 000 ces 000022 aa 155 157 166 151 movi 000023 aa 156 147 040 160 ng p 000024 aa 141 147 145 040 age 000025 aa 040 040 040 040 000026 aa 040 040 040 040 000027 aa 136 167 000 000 ^w 000030 aa 145 156 144 040 end 000031 aa 160 141 147 145 page 000032 aa 040 146 141 165 fau 000033 aa 154 164 040 040 lt 000034 aa 040 040 040 040 000035 aa 160 164 160 040 ptp 000036 aa 075 040 136 160 = ^p 000037 aa 160 141 147 145 page 000040 aa 040 146 141 165 fau 000041 aa 154 164 040 040 lt 000042 aa 040 040 040 040 000043 aa 040 040 040 040 000044 aa 160 164 160 040 ptp 000045 aa 075 040 136 160 = ^p 000046 aa 162 167 163 040 rws 000047 aa 143 157 155 160 comp 000050 aa 154 145 164 145 lete 000051 aa 040 040 040 040 000052 aa 040 040 040 040 000053 aa 160 144 155 145 pdme 000054 aa 160 040 075 040 p = 000055 aa 136 160 000 000 ^p 000056 aa 162 145 141 144 read 000057 aa 057 167 162 151 /wri 000060 aa 164 145 040 163 te s 000061 aa 164 141 162 164 tart 000062 aa 040 040 040 040 000063 aa 160 144 155 145 pdme 000064 aa 160 040 075 040 p = 000065 aa 136 160 000 000 ^p 000066 aa 160 144 137 144 pd_d 000067 aa 145 154 145 164 elet 000070 aa 145 137 040 040 e_ 000071 aa 040 040 040 040 000072 aa 040 040 040 040 000073 aa 160 144 155 145 pdme 000074 aa 160 040 075 040 p = 000075 aa 136 160 000 000 ^p 000076 aa 144 145 160 157 depo 000077 aa 163 151 164 151 siti 000100 aa 156 147 040 040 ng 000101 aa 040 040 040 040 000102 aa 040 040 040 040 000103 aa 144 145 166 141 deva 000104 aa 144 144 040 075 dd = 000105 aa 040 136 167 000 ^w 000106 aa 167 151 164 150 with 000107 aa 144 162 141 167 draw 000110 aa 151 156 147 040 ing 000111 aa 040 040 040 040 000112 aa 040 040 040 040 000113 aa 144 145 166 141 deva 000114 aa 144 144 040 075 dd = 000115 aa 040 136 167 000 ^w 000116 aa 167 162 151 164 writ 000117 aa 145 040 160 141 e pa 000120 aa 147 145 040 040 ge 000121 aa 040 040 040 040 000122 aa 040 040 040 040 000123 aa 143 155 145 160 cmep 000124 aa 040 075 040 136 = ^ 000125 aa 160 000 000 000 p 000126 aa 144 157 156 145 done 000127 aa 040 040 040 040 000130 aa 040 040 040 040 000131 aa 040 040 040 040 000132 aa 040 040 040 040 000133 aa 143 155 145 160 cmep 000134 aa 040 075 040 136 = ^ 000135 aa 160 000 000 000 p 000136 aa 141 142 157 162 abor 000137 aa 164 040 143 157 t co 000140 aa 155 160 154 145 mple 000141 aa 164 145 040 040 te 000142 aa 040 040 040 040 000143 aa 160 144 155 145 pdme 000144 aa 160 040 075 040 p = 000145 aa 136 160 054 040 ^p, 000146 aa 160 164 167 040 ptw 000147 aa 075 040 136 167 = ^w 000150 aa 162 167 163 040 rws 000151 aa 164 162 165 156 trun 000152 aa 143 141 164 145 cate 000153 aa 144 040 040 040 d 000154 aa 040 040 040 040 000155 aa 160 144 155 145 pdme 000156 aa 160 040 075 040 p = 000157 aa 136 160 054 040 ^p, 000160 aa 144 145 166 141 deva 000161 aa 144 144 040 075 dd = 000162 aa 040 136 167 000 ^w 000163 aa 156 157 040 160 no p 000164 aa 141 147 151 156 agin 000165 aa 147 040 144 145 g de 000166 aa 166 151 143 145 vice 000167 aa 040 040 040 040 000170 aa 160 164 167 040 ptw 000171 aa 075 040 136 167 = ^w 000172 aa 054 040 144 145 , de 000173 aa 166 141 144 144 vadd 000174 aa 040 075 040 136 = ^ 000175 aa 167 000 000 000 w 000176 aa 172 145 162 157 zero 000177 aa 040 160 141 147 pag 000200 aa 145 040 040 040 e 000201 aa 040 040 040 040 000202 aa 040 040 040 040 000203 aa 160 164 167 040 ptw 000204 aa 075 040 136 167 = ^w 000205 aa 054 040 144 145 , de 000206 aa 166 141 144 144 vadd 000207 aa 040 075 040 136 = ^ 000210 aa 167 000 000 000 w 000211 aa 162 145 150 141 reha 000212 aa 163 150 151 156 shin 000213 aa 147 040 040 040 g 000214 aa 040 040 040 040 000215 aa 040 040 040 040 000216 aa 157 154 144 040 old 000217 aa 144 145 166 141 deva 000220 aa 144 144 040 075 dd = 000221 aa 040 136 167 054 ^w, 000222 aa 040 156 145 167 new 000223 aa 040 144 145 166 dev 000224 aa 141 144 144 040 add 000225 aa 075 040 136 167 = ^w BEGIN PROCEDURE pc_trace_pl1 ENTRY TO pc_trace_pl1 STATEMENT 1 ON LINE 13 pc_trace_pl1: proc; 000226 da 000026200000 000227 aa 000200 6270 00 eax7 128 000230 aa 7 00034 3521 20 epp2 pr7|28,* 000231 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 000232 aa 000000000000 000233 aa 000000000000 STATEMENT 1 ON LINE 25 done: entry (a_pdmep); 000234 aa 000011 7100 04 tra 9,ic 000245 ENTRY TO done STATEMENT 1 ON LINE 25 done: entry (a_pdmep); 000235 at 000001000014 000236 ta 000235000000 000237 da 000033300000 000240 aa 000200 6270 00 eax7 128 000241 aa 7 00034 3521 20 epp2 pr7|28,* 000242 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 000243 aa 000002000000 000244 aa 000000000000 STATEMENT 1 ON LINE 27 cmep = a_pdmep; 000245 aa 6 00032 3735 20 epp7 pr6|26,* 000246 aa 7 00002 3715 20 epp5 pr7|2,* a_pdmep 000247 aa 5 00000 3715 20 epp5 pr5|0,* a_pdmep 000250 aa 6 00100 6515 00 spri5 pr6|64 cmep STATEMENT 1 ON LINE 28 call trace ("done cmep = ^p", cmep); 000251 aa 000 100 100 404 mlr (ic),(pr),fill(000) 000252 aa 777655 00 0040 desc9a -83,32 000126 = 144157156145 000253 aa 6 00110 00 0040 desc9a pr6|72,32 000254 aa 6 00110 3521 00 epp2 pr6|72 000255 aa 6 00122 2521 00 spri2 pr6|82 000256 aa 6 00100 3521 00 epp2 pr6|64 cmep 000257 aa 6 00124 2521 00 spri2 pr6|84 000260 aa 777532 3520 04 epp2 -166,ic 000012 = 524000000035 000261 aa 6 00126 2521 00 spri2 pr6|86 000262 aa 777532 3520 04 epp2 -166,ic 000014 = 464000000000 000263 aa 6 00130 2521 00 spri2 pr6|88 000264 aa 6 00120 6211 00 eax1 pr6|80 000265 aa 010000 4310 07 fld 4096,dl 000266 la 4 00030 3521 20 epp2 pr4|24,* trace 000267 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 29 call trace (format4, cmep -> fword (0), cmep -> fword (1), cmep -> fword (2), cmep -> fword (3)); 000270 aa 6 00044 3701 20 epp4 pr6|36,* 000271 ia 4 00016 3521 00 epp2 pr4|14 format4 000272 aa 6 00134 2521 00 spri2 pr6|92 000273 aa 6 00100 3521 20 epp2 pr6|64,* fword 000274 aa 6 00136 2521 00 spri2 pr6|94 000275 aa 6 00100 3735 20 epp7 pr6|64,* cmep 000276 aa 7 00001 3521 00 epp2 pr7|1 fword 000277 aa 6 00140 2521 00 spri2 pr6|96 000300 aa 7 00002 3521 00 epp2 pr7|2 fword 000301 aa 6 00142 2521 00 spri2 pr6|98 000302 aa 7 00003 3521 00 epp2 pr7|3 fword 000303 aa 6 00144 2521 00 spri2 pr6|100 000304 aa 777505 3520 04 epp2 -187,ic 000011 = 524000000042 000305 aa 6 00146 2521 00 spri2 pr6|102 000306 aa 777505 3520 04 epp2 -187,ic 000013 = 404000000021 000307 aa 6 00150 2521 00 spri2 pr6|104 000310 aa 6 00152 2521 00 spri2 pr6|106 000311 aa 6 00154 2521 00 spri2 pr6|108 000312 aa 6 00156 2521 00 spri2 pr6|110 000313 aa 6 00132 6211 00 eax1 pr6|90 000314 aa 024000 4310 07 fld 10240,dl 000315 la 4 00030 3521 20 epp2 pr4|24,* trace 000316 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 30 return; 000317 aa 0 00631 7101 00 tra pr0|409 return_mac ENTRY TO page_fault STATEMENT 1 ON LINE 34 page_fault: entry (a_pdmep); 000320 ta 000235000000 000321 da 000041300000 000322 aa 000200 6270 00 eax7 128 000323 aa 7 00034 3521 20 epp2 pr7|28,* 000324 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 000325 aa 000002000000 000326 aa 000000000000 STATEMENT 1 ON LINE 36 ptp = a_pdmep; 000327 aa 6 00032 3735 20 epp7 pr6|26,* 000330 aa 7 00002 3715 20 epp5 pr7|2,* a_pdmep 000331 aa 5 00000 3715 20 epp5 pr5|0,* a_pdmep 000332 aa 6 00104 6515 00 spri5 pr6|68 ptp STATEMENT 1 ON LINE 37 call trace ("page fault ptp = ^p", ptp); 000333 aa 000 100 100 404 mlr (ic),(pr),fill(000) 000334 aa 777504 00 0034 desc9a -188,28 000037 = 160141147145 000335 aa 6 00110 00 0034 desc9a pr6|72,28 000336 aa 6 00110 3521 00 epp2 pr6|72 000337 aa 6 00122 2521 00 spri2 pr6|82 000340 aa 6 00104 3521 00 epp2 pr6|68 ptp 000341 aa 6 00124 2521 00 spri2 pr6|84 000342 aa 777446 3520 04 epp2 -218,ic 000010 = 524000000034 000343 aa 6 00126 2521 00 spri2 pr6|86 000344 aa 777450 3520 04 epp2 -216,ic 000014 = 464000000000 000345 aa 6 00130 2521 00 spri2 pr6|88 000346 aa 6 00120 6211 00 eax1 pr6|80 000347 aa 010000 4310 07 fld 4096,dl 000350 aa 6 00044 3701 20 epp4 pr6|36,* 000351 la 4 00030 3521 20 epp2 pr4|24,* trace 000352 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 38 call trace (format1, ptp -> fword (0)); 000353 aa 6 00044 3701 20 epp4 pr6|36,* 000354 ia 4 00010 3521 00 epp2 pr4|8 format1 000355 aa 6 00122 2521 00 spri2 pr6|82 000356 aa 6 00104 3521 20 epp2 pr6|68,* fword 000357 aa 6 00124 2521 00 spri2 pr6|84 000360 aa 777427 3520 04 epp2 -233,ic 000007 = 524000000026 000361 aa 6 00126 2521 00 spri2 pr6|86 000362 aa 777431 3520 04 epp2 -231,ic 000013 = 404000000021 000363 aa 6 00130 2521 00 spri2 pr6|88 000364 aa 6 00120 6211 00 eax1 pr6|80 000365 aa 010000 4310 07 fld 4096,dl 000366 la 4 00030 3521 20 epp2 pr4|24,* trace 000367 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 39 return; 000370 aa 0 00631 7101 00 tra pr0|409 return_mac ENTRY TO page_fault_end STATEMENT 1 ON LINE 43 page_fault_end: entry (a_pdmep); 000371 ta 000235000000 000372 da 000050300000 000373 aa 000200 6270 00 eax7 128 000374 aa 7 00034 3521 20 epp2 pr7|28,* 000375 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 000376 aa 000002000000 000377 aa 000000000000 STATEMENT 1 ON LINE 45 ptp = a_pdmep; 000400 aa 6 00032 3735 20 epp7 pr6|26,* 000401 aa 7 00002 3715 20 epp5 pr7|2,* a_pdmep 000402 aa 5 00000 3715 20 epp5 pr5|0,* a_pdmep 000403 aa 6 00104 6515 00 spri5 pr6|68 ptp STATEMENT 1 ON LINE 46 call trace ("end page fault ptp = ^p", ptp); 000404 aa 000 100 100 404 mlr (ic),(pr),fill(000) 000405 aa 777424 00 0034 desc9a -236,28 000030 = 145156144040 000406 aa 6 00110 00 0034 desc9a pr6|72,28 000407 aa 6 00110 3521 00 epp2 pr6|72 000410 aa 6 00122 2521 00 spri2 pr6|82 000411 aa 6 00104 3521 00 epp2 pr6|68 ptp 000412 aa 6 00124 2521 00 spri2 pr6|84 000413 aa 777375 3520 04 epp2 -259,ic 000010 = 524000000034 000414 aa 6 00126 2521 00 spri2 pr6|86 000415 aa 777377 3520 04 epp2 -257,ic 000014 = 464000000000 000416 aa 6 00130 2521 00 spri2 pr6|88 000417 aa 6 00120 6211 00 eax1 pr6|80 000420 aa 010000 4310 07 fld 4096,dl 000421 aa 6 00044 3701 20 epp4 pr6|36,* 000422 la 4 00030 3521 20 epp2 pr4|24,* trace 000423 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 47 call trace (format1, ptp -> fword (0)); 000424 aa 6 00044 3701 20 epp4 pr6|36,* 000425 ia 4 00010 3521 00 epp2 pr4|8 format1 000426 aa 6 00122 2521 00 spri2 pr6|82 000427 aa 6 00104 3521 20 epp2 pr6|68,* fword 000430 aa 6 00124 2521 00 spri2 pr6|84 000431 aa 777356 3520 04 epp2 -274,ic 000007 = 524000000026 000432 aa 6 00126 2521 00 spri2 pr6|86 000433 aa 777360 3520 04 epp2 -272,ic 000013 = 404000000021 000434 aa 6 00130 2521 00 spri2 pr6|88 000435 aa 6 00120 6211 00 eax1 pr6|80 000436 aa 010000 4310 07 fld 4096,dl 000437 la 4 00030 3521 20 epp2 pr4|24,* trace 000440 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 48 return; 000441 aa 0 00631 7101 00 tra pr0|409 return_mac ENTRY TO write_page STATEMENT 1 ON LINE 52 write_page: entry (a_pdmep); 000442 ta 000235000000 000443 da 000056300000 000444 aa 000200 6270 00 eax7 128 000445 aa 7 00034 3521 20 epp2 pr7|28,* 000446 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 000447 aa 000002000000 000450 aa 000000000000 STATEMENT 1 ON LINE 54 cmep = a_pdmep; 000451 aa 6 00032 3735 20 epp7 pr6|26,* 000452 aa 7 00002 3715 20 epp5 pr7|2,* a_pdmep 000453 aa 5 00000 3715 20 epp5 pr5|0,* a_pdmep 000454 aa 6 00100 6515 00 spri5 pr6|64 cmep STATEMENT 1 ON LINE 55 call trace ("write page cmep = ^p", cmep); 000455 aa 000 100 100 404 mlr (ic),(pr),fill(000) 000456 aa 777441 00 0040 desc9a -223,32 000116 = 167162151164 000457 aa 6 00110 00 0040 desc9a pr6|72,32 000460 aa 6 00110 3521 00 epp2 pr6|72 000461 aa 6 00122 2521 00 spri2 pr6|82 000462 aa 6 00100 3521 00 epp2 pr6|64 cmep 000463 aa 6 00124 2521 00 spri2 pr6|84 000464 aa 777326 3520 04 epp2 -298,ic 000012 = 524000000035 000465 aa 6 00126 2521 00 spri2 pr6|86 000466 aa 777326 3520 04 epp2 -298,ic 000014 = 464000000000 000467 aa 6 00130 2521 00 spri2 pr6|88 000470 aa 6 00120 6211 00 eax1 pr6|80 000471 aa 010000 4310 07 fld 4096,dl 000472 aa 6 00044 3701 20 epp4 pr6|36,* 000473 la 4 00030 3521 20 epp2 pr4|24,* trace 000474 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 56 call trace (format4, cmep -> fword (0), cmep -> fword (1), cmep -> fword (2), cmep -> fword (3)); 000475 aa 6 00044 3701 20 epp4 pr6|36,* 000476 ia 4 00016 3521 00 epp2 pr4|14 format4 000477 aa 6 00134 2521 00 spri2 pr6|92 000500 aa 6 00100 3521 20 epp2 pr6|64,* fword 000501 aa 6 00136 2521 00 spri2 pr6|94 000502 aa 6 00100 3735 20 epp7 pr6|64,* cmep 000503 aa 7 00001 3521 00 epp2 pr7|1 fword 000504 aa 6 00140 2521 00 spri2 pr6|96 000505 aa 7 00002 3521 00 epp2 pr7|2 fword 000506 aa 6 00142 2521 00 spri2 pr6|98 000507 aa 7 00003 3521 00 epp2 pr7|3 fword 000510 aa 6 00144 2521 00 spri2 pr6|100 000511 aa 777300 3520 04 epp2 -320,ic 000011 = 524000000042 000512 aa 6 00146 2521 00 spri2 pr6|102 000513 aa 777300 3520 04 epp2 -320,ic 000013 = 404000000021 000514 aa 6 00150 2521 00 spri2 pr6|104 000515 aa 6 00152 2521 00 spri2 pr6|106 000516 aa 6 00154 2521 00 spri2 pr6|108 000517 aa 6 00156 2521 00 spri2 pr6|110 000520 aa 6 00132 6211 00 eax1 pr6|90 000521 aa 024000 4310 07 fld 10240,dl 000522 la 4 00030 3521 20 epp2 pr4|24,* trace 000523 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 57 return; 000524 aa 0 00631 7101 00 tra pr0|409 return_mac ENTRY TO abort_complete STATEMENT 1 ON LINE 60 abort_complete: entry (a_pdmep, a_ptp); 000525 at 000002000014 000526 ta 000014000000 000527 ta 000525000000 000530 da 000065300000 000531 aa 000200 6270 00 eax7 128 000532 aa 7 00034 3521 20 epp2 pr7|28,* 000533 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 000534 aa 000004000000 000535 aa 000000000000 STATEMENT 1 ON LINE 62 pdmep = a_pdmep; 000536 aa 6 00032 3735 20 epp7 pr6|26,* 000537 aa 7 00002 3715 20 epp5 pr7|2,* a_pdmep 000540 aa 5 00000 3715 20 epp5 pr5|0,* a_pdmep 000541 aa 6 00102 6515 00 spri5 pr6|66 pdmep STATEMENT 1 ON LINE 63 ptp = a_ptp; 000542 aa 7 00004 3535 20 epp3 pr7|4,* a_ptp 000543 aa 3 00000 3535 20 epp3 pr3|0,* a_ptp 000544 aa 6 00104 2535 00 spri3 pr6|68 ptp STATEMENT 1 ON LINE 64 call trace ("abort complete pdmep = ^p, ptw = ^w", pdmep, ptp -> fword (0)); 000545 aa 000 100 100 404 mlr (ic),(pr),fill(000) 000546 aa 777371 00 0050 desc9a -263,40 000136 = 141142157162 000547 aa 6 00120 00 0050 desc9a pr6|80,40 000550 aa 6 00120 3521 00 epp2 pr6|80 000551 aa 6 00134 2521 00 spri2 pr6|92 000552 aa 6 00102 3521 00 epp2 pr6|66 pdmep 000553 aa 6 00136 2521 00 spri2 pr6|94 000554 aa 3 00000 3521 00 epp2 pr3|0 fword 000555 aa 6 00140 2521 00 spri2 pr6|96 000556 aa 777230 3520 04 epp2 -360,ic 000006 = 524000000050 000557 aa 6 00142 2521 00 spri2 pr6|98 000560 aa 777234 3520 04 epp2 -356,ic 000014 = 464000000000 000561 aa 6 00144 2521 00 spri2 pr6|100 000562 aa 777231 3520 04 epp2 -359,ic 000013 = 404000000021 000563 aa 6 00146 2521 00 spri2 pr6|102 000564 aa 6 00132 6211 00 eax1 pr6|90 000565 aa 014000 4310 07 fld 6144,dl 000566 aa 6 00044 3701 20 epp4 pr6|36,* 000567 la 4 00030 3521 20 epp2 pr4|24,* trace 000570 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 65 call trace (format4, pdmep -> fword (0), pdmep -> fword (1), pdmep -> fword (2), pdmep -> fword (3)); 000571 aa 6 00044 3701 20 epp4 pr6|36,* 000572 ia 4 00016 3521 00 epp2 pr4|14 format4 000573 aa 6 00134 2521 00 spri2 pr6|92 000574 aa 6 00102 3521 20 epp2 pr6|66,* fword 000575 aa 6 00136 2521 00 spri2 pr6|94 000576 aa 6 00102 3735 20 epp7 pr6|66,* pdmep 000577 aa 7 00001 3521 00 epp2 pr7|1 fword 000600 aa 6 00140 2521 00 spri2 pr6|96 000601 aa 7 00002 3521 00 epp2 pr7|2 fword 000602 aa 6 00142 2521 00 spri2 pr6|98 000603 aa 7 00003 3521 00 epp2 pr7|3 fword 000604 aa 6 00144 2521 00 spri2 pr6|100 000605 aa 777204 3520 04 epp2 -380,ic 000011 = 524000000042 000606 aa 6 00146 2521 00 spri2 pr6|102 000607 aa 777204 3520 04 epp2 -380,ic 000013 = 404000000021 000610 aa 6 00150 2521 00 spri2 pr6|104 000611 aa 6 00152 2521 00 spri2 pr6|106 000612 aa 6 00154 2521 00 spri2 pr6|108 000613 aa 6 00156 2521 00 spri2 pr6|110 000614 aa 6 00132 6211 00 eax1 pr6|90 000615 aa 024000 4310 07 fld 10240,dl 000616 la 4 00030 3521 20 epp2 pr4|24,* trace 000617 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 66 return; 000620 aa 0 00631 7101 00 tra pr0|409 return_mac ENTRY TO move_page STATEMENT 1 ON LINE 70 move_page: entry (a_devadd); 000621 at 000001000013 000622 ta 000621000000 000623 da 000073300000 000624 aa 000200 6270 00 eax7 128 000625 aa 7 00034 3521 20 epp2 pr7|28,* 000626 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 000627 aa 000002000000 000630 aa 000000000000 STATEMENT 1 ON LINE 72 devadd = a_devadd; 000631 aa 6 00032 3735 20 epp7 pr6|26,* 000632 aa 7 00002 2361 20 ldq pr7|2,* a_devadd 000633 aa 6 00106 7561 00 stq pr6|70 devadd STATEMENT 1 ON LINE 73 call trace ("moving page ^w", devadd); 000634 aa 777166 2370 04 ldaq -394,ic 000022 = 155157166151 156147040160 000635 aa 6 00110 7571 00 staq pr6|72 000636 aa 777166 2370 04 ldaq -394,ic 000024 = 141147145040 040040040040 000637 aa 6 00112 7571 00 staq pr6|74 000640 aa 777166 2370 04 ldaq -394,ic 000026 = 040040040040 136167000000 000641 aa 6 00114 7571 00 staq pr6|76 000642 aa 6 00110 3521 00 epp2 pr6|72 000643 aa 6 00122 2521 00 spri2 pr6|82 000644 aa 6 00106 3521 00 epp2 pr6|70 devadd 000645 aa 6 00124 2521 00 spri2 pr6|84 000646 aa 777141 3520 04 epp2 -415,ic 000007 = 524000000026 000647 aa 6 00126 2521 00 spri2 pr6|86 000650 aa 777143 3520 04 epp2 -413,ic 000013 = 404000000021 000651 aa 6 00130 2521 00 spri2 pr6|88 000652 aa 6 00120 6211 00 eax1 pr6|80 000653 aa 010000 4310 07 fld 4096,dl 000654 aa 6 00044 3701 20 epp4 pr6|36,* 000655 la 4 00030 3521 20 epp2 pr4|24,* trace 000656 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 74 return; 000657 aa 0 00631 7101 00 tra pr0|409 return_mac ENTRY TO zero_page STATEMENT 1 ON LINE 78 zero_page: entry (a_devadd, a_ptp); 000660 at 000002000013 000661 ta 000014000000 000662 ta 000660000000 000663 da 000101300000 000664 aa 000200 6270 00 eax7 128 000665 aa 7 00034 3521 20 epp2 pr7|28,* 000666 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 000667 aa 000004000000 000670 aa 000000000000 STATEMENT 1 ON LINE 80 devadd = a_devadd; 000671 aa 6 00032 3735 20 epp7 pr6|26,* 000672 aa 7 00002 2361 20 ldq pr7|2,* a_devadd 000673 aa 6 00106 7561 00 stq pr6|70 devadd STATEMENT 1 ON LINE 81 ptp = a_ptp; 000674 aa 7 00004 3715 20 epp5 pr7|4,* a_ptp 000675 aa 5 00000 3715 20 epp5 pr5|0,* a_ptp 000676 aa 6 00104 6515 00 spri5 pr6|68 ptp STATEMENT 1 ON LINE 82 call trace ("zero page ptw = ^w, devadd = ^w", ptp -> fword (0), devadd); 000677 aa 000 100 100 404 mlr (ic),(pr),fill(000) 000700 aa 777277 00 0054 desc9a -321,44 000176 = 172145162157 000701 aa 6 00132 00 0054 desc9a pr6|90,44 000702 aa 6 00132 3521 00 epp2 pr6|90 000703 aa 6 00162 2521 00 spri2 pr6|114 000704 aa 5 00000 3521 00 epp2 pr5|0 fword 000705 aa 6 00164 2521 00 spri2 pr6|116 000706 aa 6 00106 3521 00 epp2 pr6|70 devadd 000707 aa 6 00166 2521 00 spri2 pr6|118 000710 aa 777075 3520 04 epp2 -451,ic 000005 = 524000000051 000711 aa 6 00170 2521 00 spri2 pr6|120 000712 aa 777101 3520 04 epp2 -447,ic 000013 = 404000000021 000713 aa 6 00172 2521 00 spri2 pr6|122 000714 aa 6 00174 2521 00 spri2 pr6|124 000715 aa 6 00160 6211 00 eax1 pr6|112 000716 aa 014000 4310 07 fld 6144,dl 000717 aa 6 00044 3701 20 epp4 pr6|36,* 000720 la 4 00030 3521 20 epp2 pr4|24,* trace 000721 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 83 return; 000722 aa 0 00631 7101 00 tra pr0|409 return_mac ENTRY TO no_pd_ STATEMENT 1 ON LINE 87 no_pd_: entry (a_devadd, a_ptp); 000723 ta 000660000000 000724 da 000106300000 000725 aa 000200 6270 00 eax7 128 000726 aa 7 00034 3521 20 epp2 pr7|28,* 000727 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 000730 aa 000004000000 000731 aa 000000000000 STATEMENT 1 ON LINE 89 devadd = a_devadd; 000732 aa 6 00032 3735 20 epp7 pr6|26,* 000733 aa 7 00002 2361 20 ldq pr7|2,* a_devadd 000734 aa 6 00106 7561 00 stq pr6|70 devadd STATEMENT 1 ON LINE 90 ptp = a_ptp; 000735 aa 7 00004 3715 20 epp5 pr7|4,* a_ptp 000736 aa 5 00000 3715 20 epp5 pr5|0,* a_ptp 000737 aa 6 00104 6515 00 spri5 pr6|68 ptp STATEMENT 1 ON LINE 91 call trace ("no paging device ptw = ^w, devadd = ^w", ptp -> fword (0), devadd); 000740 aa 000 100 100 404 mlr (ic),(pr),fill(000) 000741 aa 777223 00 0054 desc9a -365,44 000163 = 156157040160 000742 aa 6 00160 00 0054 desc9a pr6|112,44 000743 aa 6 00160 3521 00 epp2 pr6|112 000744 aa 6 00134 2521 00 spri2 pr6|92 000745 aa 5 00000 3521 00 epp2 pr5|0 fword 000746 aa 6 00136 2521 00 spri2 pr6|94 000747 aa 6 00106 3521 00 epp2 pr6|70 devadd 000750 aa 6 00140 2521 00 spri2 pr6|96 000751 aa 777034 3520 04 epp2 -484,ic 000005 = 524000000051 000752 aa 6 00142 2521 00 spri2 pr6|98 000753 aa 777040 3520 04 epp2 -480,ic 000013 = 404000000021 000754 aa 6 00144 2521 00 spri2 pr6|100 000755 aa 6 00146 2521 00 spri2 pr6|102 000756 aa 6 00132 6211 00 eax1 pr6|90 000757 aa 014000 4310 07 fld 6144,dl 000760 aa 6 00044 3701 20 epp4 pr6|36,* 000761 la 4 00030 3521 20 epp2 pr4|24,* trace 000762 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 92 return; 000763 aa 0 00631 7101 00 tra pr0|409 return_mac ENTRY TO rws_truncated STATEMENT 1 ON LINE 96 rws_truncated: entry (a_devadd, a_ptp); 000764 ta 000660000000 000765 da 000115300000 000766 aa 000200 6270 00 eax7 128 000767 aa 7 00034 3521 20 epp2 pr7|28,* 000770 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 000771 aa 000004000000 000772 aa 000000000000 STATEMENT 1 ON LINE 98 devadd = a_devadd; 000773 aa 6 00032 3735 20 epp7 pr6|26,* 000774 aa 7 00002 2361 20 ldq pr7|2,* a_devadd 000775 aa 6 00106 7561 00 stq pr6|70 devadd STATEMENT 1 ON LINE 99 pdmep = a_ptp; 000776 aa 7 00004 3715 20 epp5 pr7|4,* a_ptp 000777 aa 5 00000 3715 20 epp5 pr5|0,* a_ptp 001000 aa 6 00102 6515 00 spri5 pr6|66 pdmep STATEMENT 1 ON LINE 100 call trace ("rws truncated pdmep = ^p, devadd = ^w", pdmep, devadd); 001001 aa 000 100 100 404 mlr (ic),(pr),fill(000) 001002 aa 777147 00 0054 desc9a -409,44 000150 = 162167163040 001003 aa 6 00160 00 0054 desc9a pr6|112,44 001004 aa 6 00160 3521 00 epp2 pr6|112 001005 aa 6 00134 2521 00 spri2 pr6|92 001006 aa 6 00102 3521 00 epp2 pr6|66 pdmep 001007 aa 6 00136 2521 00 spri2 pr6|94 001010 aa 6 00106 3521 00 epp2 pr6|70 devadd 001011 aa 6 00140 2521 00 spri2 pr6|96 001012 aa 776772 3520 04 epp2 -518,ic 000004 = 524000000053 001013 aa 6 00142 2521 00 spri2 pr6|98 001014 aa 777000 3520 04 epp2 -512,ic 000014 = 464000000000 001015 aa 6 00144 2521 00 spri2 pr6|100 001016 aa 776775 3520 04 epp2 -515,ic 000013 = 404000000021 001017 aa 6 00146 2521 00 spri2 pr6|102 001020 aa 6 00132 6211 00 eax1 pr6|90 001021 aa 014000 4310 07 fld 6144,dl 001022 aa 6 00044 3701 20 epp4 pr6|36,* 001023 la 4 00030 3521 20 epp2 pr4|24,* trace 001024 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 101 call trace (format4, pdmep -> fword (0), pdmep -> fword (1), pdmep -> fword (2), pdmep -> fword (3)); 001025 aa 6 00044 3701 20 epp4 pr6|36,* 001026 ia 4 00016 3521 00 epp2 pr4|14 format4 001027 aa 6 00134 2521 00 spri2 pr6|92 001030 aa 6 00102 3521 20 epp2 pr6|66,* fword 001031 aa 6 00136 2521 00 spri2 pr6|94 001032 aa 6 00102 3735 20 epp7 pr6|66,* pdmep 001033 aa 7 00001 3521 00 epp2 pr7|1 fword 001034 aa 6 00140 2521 00 spri2 pr6|96 001035 aa 7 00002 3521 00 epp2 pr7|2 fword 001036 aa 6 00142 2521 00 spri2 pr6|98 001037 aa 7 00003 3521 00 epp2 pr7|3 fword 001040 aa 6 00144 2521 00 spri2 pr6|100 001041 aa 776750 3520 04 epp2 -536,ic 000011 = 524000000042 001042 aa 6 00146 2521 00 spri2 pr6|102 001043 aa 776750 3520 04 epp2 -536,ic 000013 = 404000000021 001044 aa 6 00150 2521 00 spri2 pr6|104 001045 aa 6 00152 2521 00 spri2 pr6|106 001046 aa 6 00154 2521 00 spri2 pr6|108 001047 aa 6 00156 2521 00 spri2 pr6|110 001050 aa 6 00132 6211 00 eax1 pr6|90 001051 aa 024000 4310 07 fld 10240,dl 001052 la 4 00030 3521 20 epp2 pr4|24,* trace 001053 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 102 return; 001054 aa 0 00631 7101 00 tra pr0|409 return_mac ENTRY TO withdrawing STATEMENT 1 ON LINE 106 withdrawing: entry (a_devadd); 001055 ta 000621000000 001056 da 000123300000 001057 aa 000200 6270 00 eax7 128 001060 aa 7 00034 3521 20 epp2 pr7|28,* 001061 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 001062 aa 000002000000 001063 aa 000000000000 STATEMENT 1 ON LINE 108 devadd = a_devadd; 001064 aa 6 00032 3735 20 epp7 pr6|26,* 001065 aa 7 00002 2361 20 ldq pr7|2,* a_devadd 001066 aa 6 00106 7561 00 stq pr6|70 devadd STATEMENT 1 ON LINE 109 call trace ("withdrawing devadd = ^w", devadd); 001067 aa 000 100 100 404 mlr (ic),(pr),fill(000) 001070 aa 777017 00 0040 desc9a -497,32 000106 = 167151164150 001071 aa 6 00110 00 0040 desc9a pr6|72,32 001072 aa 6 00110 3521 00 epp2 pr6|72 001073 aa 6 00122 2521 00 spri2 pr6|82 001074 aa 6 00106 3521 00 epp2 pr6|70 devadd 001075 aa 6 00124 2521 00 spri2 pr6|84 001076 aa 776705 3520 04 epp2 -571,ic 000003 = 524000000037 001077 aa 6 00126 2521 00 spri2 pr6|86 001100 aa 776713 3520 04 epp2 -565,ic 000013 = 404000000021 001101 aa 6 00130 2521 00 spri2 pr6|88 001102 aa 6 00120 6211 00 eax1 pr6|80 001103 aa 010000 4310 07 fld 4096,dl 001104 aa 6 00044 3701 20 epp4 pr6|36,* 001105 la 4 00030 3521 20 epp2 pr4|24,* trace 001106 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 110 return; 001107 aa 0 00631 7101 00 tra pr0|409 return_mac ENTRY TO depositing STATEMENT 1 ON LINE 114 depositing: entry (a_devadd); 001110 ta 000621000000 001111 da 000131300000 001112 aa 000200 6270 00 eax7 128 001113 aa 7 00034 3521 20 epp2 pr7|28,* 001114 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 001115 aa 000002000000 001116 aa 000000000000 STATEMENT 1 ON LINE 116 devadd = a_devadd; 001117 aa 6 00032 3735 20 epp7 pr6|26,* 001120 aa 7 00002 2361 20 ldq pr7|2,* a_devadd 001121 aa 6 00106 7561 00 stq pr6|70 devadd STATEMENT 1 ON LINE 117 call trace ("depositing devadd = ^w", devadd); 001122 aa 000 100 100 404 mlr (ic),(pr),fill(000) 001123 aa 776754 00 0040 desc9a -532,32 000076 = 144145160157 001124 aa 6 00110 00 0040 desc9a pr6|72,32 001125 aa 6 00110 3521 00 epp2 pr6|72 001126 aa 6 00122 2521 00 spri2 pr6|82 001127 aa 6 00106 3521 00 epp2 pr6|70 devadd 001130 aa 6 00124 2521 00 spri2 pr6|84 001131 aa 776652 3520 04 epp2 -598,ic 000003 = 524000000037 001132 aa 6 00126 2521 00 spri2 pr6|86 001133 aa 776660 3520 04 epp2 -592,ic 000013 = 404000000021 001134 aa 6 00130 2521 00 spri2 pr6|88 001135 aa 6 00120 6211 00 eax1 pr6|80 001136 aa 010000 4310 07 fld 4096,dl 001137 aa 6 00044 3701 20 epp4 pr6|36,* 001140 la 4 00030 3521 20 epp2 pr4|24,* trace 001141 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 118 return; 001142 aa 0 00631 7101 00 tra pr0|409 return_mac ENTRY TO tr_pd_delete_ STATEMENT 1 ON LINE 122 tr_pd_delete_: entry (a_pdmep); 001143 ta 000235000000 001144 da 000140300000 001145 aa 000200 6270 00 eax7 128 001146 aa 7 00034 3521 20 epp2 pr7|28,* 001147 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 001150 aa 000002000000 001151 aa 000000000000 STATEMENT 1 ON LINE 124 pdmep = a_pdmep; 001152 aa 6 00032 3735 20 epp7 pr6|26,* 001153 aa 7 00002 3715 20 epp5 pr7|2,* a_pdmep 001154 aa 5 00000 3715 20 epp5 pr5|0,* a_pdmep 001155 aa 6 00102 6515 00 spri5 pr6|66 pdmep STATEMENT 1 ON LINE 125 call trace ("pd_delete_ pdmep = ^p", pdmep); 001156 aa 000 100 100 404 mlr (ic),(pr),fill(000) 001157 aa 776710 00 0040 desc9a -568,32 000066 = 160144137144 001160 aa 6 00110 00 0040 desc9a pr6|72,32 001161 aa 6 00110 3521 00 epp2 pr6|72 001162 aa 6 00122 2521 00 spri2 pr6|82 001163 aa 6 00102 3521 00 epp2 pr6|66 pdmep 001164 aa 6 00124 2521 00 spri2 pr6|84 001165 aa 776615 3520 04 epp2 -627,ic 000002 = 524000000036 001166 aa 6 00126 2521 00 spri2 pr6|86 001167 aa 776625 3520 04 epp2 -619,ic 000014 = 464000000000 001170 aa 6 00130 2521 00 spri2 pr6|88 001171 aa 6 00120 6211 00 eax1 pr6|80 001172 aa 010000 4310 07 fld 4096,dl 001173 aa 6 00044 3701 20 epp4 pr6|36,* 001174 la 4 00030 3521 20 epp2 pr4|24,* trace 001175 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 126 call trace (format4, pdmep -> fword (0), pdmep -> fword (1), pdmep -> fword (2), pdmep -> fword (3)); 001176 aa 6 00044 3701 20 epp4 pr6|36,* 001177 ia 4 00016 3521 00 epp2 pr4|14 format4 001200 aa 6 00134 2521 00 spri2 pr6|92 001201 aa 6 00102 3521 20 epp2 pr6|66,* fword 001202 aa 6 00136 2521 00 spri2 pr6|94 001203 aa 6 00102 3735 20 epp7 pr6|66,* pdmep 001204 aa 7 00001 3521 00 epp2 pr7|1 fword 001205 aa 6 00140 2521 00 spri2 pr6|96 001206 aa 7 00002 3521 00 epp2 pr7|2 fword 001207 aa 6 00142 2521 00 spri2 pr6|98 001210 aa 7 00003 3521 00 epp2 pr7|3 fword 001211 aa 6 00144 2521 00 spri2 pr6|100 001212 aa 776577 3520 04 epp2 -641,ic 000011 = 524000000042 001213 aa 6 00146 2521 00 spri2 pr6|102 001214 aa 776577 3520 04 epp2 -641,ic 000013 = 404000000021 001215 aa 6 00150 2521 00 spri2 pr6|104 001216 aa 6 00152 2521 00 spri2 pr6|106 001217 aa 6 00154 2521 00 spri2 pr6|108 001220 aa 6 00156 2521 00 spri2 pr6|110 001221 aa 6 00132 6211 00 eax1 pr6|90 001222 aa 024000 4310 07 fld 10240,dl 001223 la 4 00030 3521 20 epp2 pr4|24,* trace 001224 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 127 return; 001225 aa 0 00631 7101 00 tra pr0|409 return_mac ENTRY TO tr_rws STATEMENT 1 ON LINE 131 tr_rws: entry (a_pdmep); 001226 ta 000235000000 001227 da 000145300000 001230 aa 000200 6270 00 eax7 128 001231 aa 7 00034 3521 20 epp2 pr7|28,* 001232 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 001233 aa 000002000000 001234 aa 000000000000 STATEMENT 1 ON LINE 133 pdmep = a_pdmep; 001235 aa 6 00032 3735 20 epp7 pr6|26,* 001236 aa 7 00002 3715 20 epp5 pr7|2,* a_pdmep 001237 aa 5 00000 3715 20 epp5 pr5|0,* a_pdmep 001240 aa 6 00102 6515 00 spri5 pr6|66 pdmep STATEMENT 1 ON LINE 134 call trace ("read/write start pdmep = ^p", pdmep); 001241 aa 000 100 100 404 mlr (ic),(pr),fill(000) 001242 aa 776615 00 0040 desc9a -627,32 000056 = 162145141144 001243 aa 6 00110 00 0040 desc9a pr6|72,32 001244 aa 6 00110 3521 00 epp2 pr6|72 001245 aa 6 00122 2521 00 spri2 pr6|82 001246 aa 6 00102 3521 00 epp2 pr6|66 pdmep 001247 aa 6 00124 2521 00 spri2 pr6|84 001250 aa 776532 3520 04 epp2 -678,ic 000002 = 524000000036 001251 aa 6 00126 2521 00 spri2 pr6|86 001252 aa 776542 3520 04 epp2 -670,ic 000014 = 464000000000 001253 aa 6 00130 2521 00 spri2 pr6|88 001254 aa 6 00120 6211 00 eax1 pr6|80 001255 aa 010000 4310 07 fld 4096,dl 001256 aa 6 00044 3701 20 epp4 pr6|36,* 001257 la 4 00030 3521 20 epp2 pr4|24,* trace 001260 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 135 call trace (format4, pdmep -> fword (0), pdmep -> fword (1), pdmep -> fword (2), pdmep -> fword (3)); 001261 aa 6 00044 3701 20 epp4 pr6|36,* 001262 ia 4 00016 3521 00 epp2 pr4|14 format4 001263 aa 6 00134 2521 00 spri2 pr6|92 001264 aa 6 00102 3521 20 epp2 pr6|66,* fword 001265 aa 6 00136 2521 00 spri2 pr6|94 001266 aa 6 00102 3735 20 epp7 pr6|66,* pdmep 001267 aa 7 00001 3521 00 epp2 pr7|1 fword 001270 aa 6 00140 2521 00 spri2 pr6|96 001271 aa 7 00002 3521 00 epp2 pr7|2 fword 001272 aa 6 00142 2521 00 spri2 pr6|98 001273 aa 7 00003 3521 00 epp2 pr7|3 fword 001274 aa 6 00144 2521 00 spri2 pr6|100 001275 aa 776514 3520 04 epp2 -692,ic 000011 = 524000000042 001276 aa 6 00146 2521 00 spri2 pr6|102 001277 aa 776514 3520 04 epp2 -692,ic 000013 = 404000000021 001300 aa 6 00150 2521 00 spri2 pr6|104 001301 aa 6 00152 2521 00 spri2 pr6|106 001302 aa 6 00154 2521 00 spri2 pr6|108 001303 aa 6 00156 2521 00 spri2 pr6|110 001304 aa 6 00132 6211 00 eax1 pr6|90 001305 aa 024000 4310 07 fld 10240,dl 001306 la 4 00030 3521 20 epp2 pr4|24,* trace 001307 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 136 return; 001310 aa 0 00631 7101 00 tra pr0|409 return_mac ENTRY TO rehash STATEMENT 1 ON LINE 140 rehash: entry (a_devadd, b_devadd); 001311 at 000002000013 001312 ta 000013000000 001313 ta 001311000000 001314 da 000152300000 001315 aa 000200 6270 00 eax7 128 001316 aa 7 00034 3521 20 epp2 pr7|28,* 001317 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 001320 aa 000004000000 001321 aa 000000000000 STATEMENT 1 ON LINE 142 devadd = a_devadd; 001322 aa 6 00032 3735 20 epp7 pr6|26,* 001323 aa 7 00002 2361 20 ldq pr7|2,* a_devadd 001324 aa 6 00106 7561 00 stq pr6|70 devadd STATEMENT 1 ON LINE 143 bdevadd = b_devadd; 001325 aa 7 00004 2361 20 ldq pr7|4,* b_devadd 001326 aa 6 00107 7561 00 stq pr6|71 bdevadd STATEMENT 1 ON LINE 144 call trace ("rehashing old devadd = ^w, new devadd = ^w", devadd, bdevadd); 001327 aa 000 100 100 404 mlr (ic),(pr),fill(000) 001330 aa 776662 00 0064 desc9a -590,52 000211 = 162145150141 001331 aa 6 00160 00 0064 desc9a pr6|112,52 001332 aa 6 00160 3521 00 epp2 pr6|112 001333 aa 6 00134 2521 00 spri2 pr6|92 001334 aa 6 00106 3521 00 epp2 pr6|70 devadd 001335 aa 6 00136 2521 00 spri2 pr6|94 001336 aa 6 00107 3521 00 epp2 pr6|71 bdevadd 001337 aa 6 00140 2521 00 spri2 pr6|96 001340 aa 776441 3520 04 epp2 -735,ic 000001 = 524000000064 001341 aa 6 00142 2521 00 spri2 pr6|98 001342 aa 776451 3520 04 epp2 -727,ic 000013 = 404000000021 001343 aa 6 00144 2521 00 spri2 pr6|100 001344 aa 6 00146 2521 00 spri2 pr6|102 001345 aa 6 00132 6211 00 eax1 pr6|90 001346 aa 014000 4310 07 fld 6144,dl 001347 aa 6 00044 3701 20 epp4 pr6|36,* 001350 la 4 00030 3521 20 epp2 pr4|24,* trace 001351 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 145 return; 001352 aa 0 00631 7101 00 tra pr0|409 return_mac ENTRY TO running STATEMENT 1 ON LINE 149 running: entry; 001353 da 000157200000 001354 aa 000200 6270 00 eax7 128 001355 aa 7 00034 3521 20 epp2 pr7|28,* 001356 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 001357 aa 000000000000 001360 aa 000000000000 STATEMENT 1 ON LINE 151 call trace ("running the devices"); 001361 aa 000 100 100 404 mlr (ic),(pr),fill(000) 001362 aa 776434 00 0024 desc9a -740,20 000015 = 162165156156 001363 aa 6 00110 00 0024 desc9a pr6|72,20 001364 aa 6 00110 3521 00 epp2 pr6|72 001365 aa 6 00122 2521 00 spri2 pr6|82 001366 aa 776412 3520 04 epp2 -758,ic 000000 = 524000000023 001367 aa 6 00124 2521 00 spri2 pr6|84 001370 aa 6 00120 6211 00 eax1 pr6|80 001371 aa 004000 4310 07 fld 2048,dl 001372 aa 6 00044 3701 20 epp4 pr6|36,* 001373 la 4 00030 3521 20 epp2 pr4|24,* trace 001374 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 152 return; 001375 aa 0 00631 7101 00 tra pr0|409 return_mac ENTRY TO rws_complete STATEMENT 1 ON LINE 156 rws_complete: entry (a_pdmep); 001376 ta 000235000000 001377 da 000166300000 001400 aa 000200 6270 00 eax7 128 001401 aa 7 00034 3521 20 epp2 pr7|28,* 001402 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 001403 aa 000002000000 001404 aa 000000000000 STATEMENT 1 ON LINE 158 pdmep = a_pdmep; 001405 aa 6 00032 3735 20 epp7 pr6|26,* 001406 aa 7 00002 3715 20 epp5 pr7|2,* a_pdmep 001407 aa 5 00000 3715 20 epp5 pr5|0,* a_pdmep 001410 aa 6 00102 6515 00 spri5 pr6|66 pdmep STATEMENT 1 ON LINE 159 call trace ("rws complete pdmep = ^p", pdmep); 001411 aa 000 100 100 404 mlr (ic),(pr),fill(000) 001412 aa 776435 00 0040 desc9a -739,32 000046 = 162167163040 001413 aa 6 00110 00 0040 desc9a pr6|72,32 001414 aa 6 00110 3521 00 epp2 pr6|72 001415 aa 6 00122 2521 00 spri2 pr6|82 001416 aa 6 00102 3521 00 epp2 pr6|66 pdmep 001417 aa 6 00124 2521 00 spri2 pr6|84 001420 aa 776362 3520 04 epp2 -782,ic 000002 = 524000000036 001421 aa 6 00126 2521 00 spri2 pr6|86 001422 aa 776372 3520 04 epp2 -774,ic 000014 = 464000000000 001423 aa 6 00130 2521 00 spri2 pr6|88 001424 aa 6 00120 6211 00 eax1 pr6|80 001425 aa 010000 4310 07 fld 4096,dl 001426 aa 6 00044 3701 20 epp4 pr6|36,* 001427 la 4 00030 3521 20 epp2 pr4|24,* trace 001430 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 160 call trace (format4, pdmep -> fword (0), pdmep -> fword (1), pdmep -> fword (2), pdmep -> fword (3)); 001431 aa 6 00044 3701 20 epp4 pr6|36,* 001432 ia 4 00016 3521 00 epp2 pr4|14 format4 001433 aa 6 00134 2521 00 spri2 pr6|92 001434 aa 6 00102 3521 20 epp2 pr6|66,* fword 001435 aa 6 00136 2521 00 spri2 pr6|94 001436 aa 6 00102 3735 20 epp7 pr6|66,* pdmep 001437 aa 7 00001 3521 00 epp2 pr7|1 fword 001440 aa 6 00140 2521 00 spri2 pr6|96 001441 aa 7 00002 3521 00 epp2 pr7|2 fword 001442 aa 6 00142 2521 00 spri2 pr6|98 001443 aa 7 00003 3521 00 epp2 pr7|3 fword 001444 aa 6 00144 2521 00 spri2 pr6|100 001445 aa 776344 3520 04 epp2 -796,ic 000011 = 524000000042 001446 aa 6 00146 2521 00 spri2 pr6|102 001447 aa 776344 3520 04 epp2 -796,ic 000013 = 404000000021 001450 aa 6 00150 2521 00 spri2 pr6|104 001451 aa 6 00152 2521 00 spri2 pr6|106 001452 aa 6 00154 2521 00 spri2 pr6|108 001453 aa 6 00156 2521 00 spri2 pr6|110 001454 aa 6 00132 6211 00 eax1 pr6|90 001455 aa 024000 4310 07 fld 10240,dl 001456 la 4 00030 3521 20 epp2 pr4|24,* trace 001457 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 161 return; 001460 aa 0 00631 7101 00 tra pr0|409 return_mac STATEMENT 1 ON LINE 163 end; END PROCEDURE pc_trace_pl1 ----------------------------------------------------------- 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