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 " pc_trace tracing routine called by the alm
15 " part of page control to print out tracing
16 " information by calling pc_trace_pl1 with
17 " pre-canned arument lists.
18 "
19 " " " " " " " " " " " " " " " " " " " " " " " " " " "
20
21 " Written sometime by somebody, whose august identity is now sadly
22 " lost in the dim mists of antiquity.
23 " Modified 03/01/81, W. Olin Sibert, for new sst include file and ADP conversion
24 "
25 name pc_trace
26
27 include pxss_page_stack
28 include sst
29 include page_info
30
31 segdef move_page,zero_page,no_paging_device,rws_truncated
32 segdef done,page_fault,page_fault_end,write_page
33 segdef abort_complete,running,rws_complete
34 segdef tr_pd_delete_,tr_rws,rehash,depositing,withdrawing
35
36 " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "
37
38 page_fault:
39 ldq sst|sst.trace_sw
40 canq sst.pc_trace_pf,dl
41 tze 0,7
42 spribp arg+18
43 tsx5 setup_argl_4
44 call pc_trace_pl1$page_faultarg
45 tra 0,7
46
47 " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "
48
49 page_fault_end:
50 ldq sst|sst.trace_sw
51 canq sst.pc_trace_pf,dl
52 tze 0,7
53 spribp arg+18
54 tsx5 setup_argl_4
55 call pc_trace_pl1$page_fault_endarg
56 tra 0,7
57
58 " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "
59
60 write_page:
61 ldq sst|sst.trace_sw
62 canq sst.pc_trace_pf,dl
63 tze 0,7
64 eppap sst|0,4
65 spriap arg+18
66 tsx5 setup_argl_4
67 call pc_trace_pl1$write_pagearg
68 tra 0,7
69
70 " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "
71
72 done:
73 ldq sst|sst.trace_sw
74 canq sst.pc_trace_pf,dl
75 tze 0,7
76 eppap sst|0,4
77 spriap arg+18
78 tsx5 setup_argl_4
79 call pc_trace_pl1$donearg
80 tra 0,7
81
82 " " " " " " " " " " " " " " " " " " " " " " " " " " " " "
83
84 abort_complete:
85 ldq sst|sst.trace_sw
86 canq sst.pc_trace,dl
87 tze 0,7
88 eppap sst|0,1 get a pointer to the pdmep
89 spriap arg+18
90 spribp arg+20 save ptp
91 tsx5 setup_argl_1
92 call pc_trace_pl1$abort_completearg
93 tra 0,7
94
95 setup_argl_1:
96 epplb arg+18
97 sprilb arg+2
98 epplb arg+20
99 sprilb arg+4
100 ldaq argl1
101 staq arg
102 tra 0,5
103 even
104 argl1:
105 zero 4,4
106 zero 0,0
107
108 " " " " " " " " " " " " " " " " " " " " " " " " " " " " "
109
110 move_page:
111 ldq sst|sst.trace_sw
112 canq sst.pc_trace,dl
113 tze 0,7
114 tsx5 setup_argl_2
115 call pc_trace_pl1$move_pagearg
116 tra 0,7
117
118 setup_argl_2:
119 epplb devadd
120 sprilb arg+2
121 ldaq argl2
122 staq arg
123 tra 0,5
124 even
125 argl2:
126 zero 2,4
127 zero 0,0
128
129 " " " " " " " " " " " " " " " " " " " " " " " " " " " " "
130
131 zero_page:
132 ldq sst|sst.trace_sw
133 canq sst.pc_trace,dl
134 tze 0,7
135 spribp arg+18 save ptp
136 tsx5 setup_argl_3
137 call pc_trace_pl1$zero_pagearg
138 tra 0,7
139
140 even
141 setup_argl_3:
142 epplb arg+18
143 sprilb arg+4
144 epplb devadd
145 sprilb arg+2
146 ldaq argl3
147 staq arg
148 tra 0,5
149 even
150 argl3:
151 zero 4,4
152 zero 0,0
153
154 " " " " " " " " " " " " " " " " " " " " " " " " " " " " "
155
156 no_paging_device:
157 ldq sst|sst.trace_sw
158 canq sst.pc_trace,dl
159 tze 0,7
160 spribp arg+18 save ptp
161 tsx5 setup_argl_3
162 call pc_trace_pl1$no_pd_arg
163 tra 0,7
164
165 " " " " " " " " "" " " " " " " " " " " " " " " " " " " " "
166
167 rws_truncated:
168 ldq sst|sst.trace_sw
169 canq sst.pc_trace,dl
170 tze 0,7
171 eppap sst|0,1
172 spriap arg+18 save pointer to pdme
173 tsx5 setup_argl_3
174 call pc_trace_pl1$rws_truncatedarg
175 tra 0,7
176
177 " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "
178
179 tr_pd_delete_:
180 ldq sst|sst.trace_sw
181 canq sst.pc_trace,dl
182 tze 0,7
183 eppap sst|0,0
184 spriap arg+18
185 tsx5 setup_argl_4
186 call pc_trace_pl1$tr_pd_delete_arg
187 tra 0,7
188
189 setup_argl_4:
190 epplb arg+18
191 sprilb arg+2
192 ldaq argl2
193 staq arg
194 tra 0,5
195 even
196 argl4:
197 zero 2,4
198 zero 0,0
199 argl0:
200 zero 0,0
201 zero 0,0
202
203 " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "
204
205 tr_rws:
206 ldq sst|sst.trace_sw
207 canq sst.pc_trace,dl
208 tze 0,7
209 eppap sst|0,1
210 spriap arg+18
211 tsx5 setup_argl_4
212 call pc_trace_pl1$tr_rwsarg
213 tra 0,7
214
215 " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "
216
217 rehash:
218 ldq sst|sst.trace_sw
219 canq sst.pc_trace,dl
220 tze 0,7
221 lda ap|2,* old devadd
222 sta arg+18
223 lda ap|4,*
224 sta devadd
225 tsx5 setup_argl_3
226 call pc_trace_pl1$rehasharg
227 tra 0,7
228
229 " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "
230
231 depositing:
232 ldq sst|sst.trace_sw
233 canq sst.pc_trace,dl
234 tze 0,0
235 tsx5 setup_argl_2
236 call pc_trace_pl1$depositingarg
237 tra 0,0
238
239 " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "
240
241 withdrawing:
242 ldq sst|sst.trace_sw
243 canq sst.pc_trace,dl
244 tze 0,0
245 tsx5 setup_argl_2
246 call pc_trace_pl1$withdrawingarg
247 tra 0,0
248
249 " " " " " " " " " " " " " " " " " " " " " " " " " " " " "
250
251 running:
252 ldq sst|sst.trace_sw
253 canq sst.pc_trace,dl
254 tze 0,6
255 call pc_trace_pl1$runningargl0
256 tra 0,6
257
258 " " " " " " " " " " " " " " " " " " " " " " " " " " " " "
259
260 rws_complete:
261 ldq sst|sst.trace_sw
262 canq sst.pc_trace,dl
263 tze 0,7
264 eppap sst|0,1
265 spriap arg+18
266 tsx5 setup_argl_4
267 call pc_trace_pl1$rws_completearg
268 tra 0,7
269 " ^L
270 end