![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to fpp_event.lst CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / fpevent|
Return to fpp_event.lst CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / fpevent |
1.1 root 1: 1 00000000 LL0:
2: 2 00000000 .data
3: 3 0000027c * .text
4: 4 00000000 .align 1
5: 5 00000000 .globl _XTrap
6: 6 00000000 _XTrap:
7: 7 0000C5B4 1f00 .word L218
8: 8 0000C5B6 # #include "fpp_defs.h"
9: 9 0000C5B6 #
10: 10 0000C5B6 # /*************************************************************************
11: 11 0000C5B6 # *
12: 12 0000C5B6 # * FLOATING POINT PROCESSOR EXCEPTION HANDLER
13: 13 0000C5B6 # *
14: 14 0000C5B6 # * This routine will be called after any trap or exception. It will
15: 15 0000C5B6 # * compare the actual event type to any expected event type ( in
16: 16 0000C5B6 # * _EXP_EVENT ). If no event was expected _EXP_EVENT will be = 0.
17: 17 0000C5B6 # *
18: 18 0000C5B6 # * If a previous error has set the FORCE_LOOP flag, then the test will exit
19: 19 0000C5B6 # * through the loop address pointer without any event type checking.
20: 20 0000C5B6 # * current subtest through _EVENT_RETURN.
21: 21 0000C5B6 # *
22: 22 0000C5B6 # * If the event was NOT it expected:
23: 23 0000C5B6 # * if _PRT_ERROR is set, an error message will be printed.
24: 24 0000C5B6 # * if _HALT_FLG is set, the program will halt.
25: 25 0000C5B6 # * if _UNEXP_EVENT_RET is non-zero, it will contain the return address,
26: 26 0000C5B6 # * or the program will return to the monitor via RETURN.
27: 27 0000C5B6 # *
28: 28 0000C5B6 # * The error message will be of the form:
29: 29 0000C5B6 # * ** cycle: xx. test: xx. unexpected event type: xx
30: 30 0000C5B6 # * ** Par0 : xxxxxxxx
31: 31 0000C5B6 # * ** Par1 : xxxxxxxx
32: 32 0000C5B6 # * ** PC : xxxxxxxx
33: 33 0000C5B6 # * ** PSL : xxxxxxxx
34: 34 0000C5B6 # *
35: 35 0000C5B6 # *
36: 36 0000C5B6 # * 30-Apr-85 combined 'fpp_event.s' and 'trap.c' into 'fpp_event.c'.
37: 37 0000C5B6 # *
38: 38 0000C5B6 # *************************************************************************/
39: 39 0000C5B6 #
40: 40 0000C5B6 # XTrap( code )
41: 41 0000C5B6 # long code; /* event type code */
42: 42 0000C5B6 # {
43: 43 0000C5B6 13 026d jbr L220
44: 44 0000C5B9 L221:
45: 45 0000C5B9 # register long r12, r11, r10, r9, r8;
46: 46 0000C5B9 # long tpc, tpsl;
47: 47 0000C5B9 # if( force_loop ) /* check for continual looping */
48: 48 0000C5B9 5d effffffff5 tstl _force_loop
49: 49 0000C5BF 31 06 jeql L222
50: 50 0000C5C1 # asm("jmp *_event_return");;
51: 51 0000C5C1 71 ffffffffed jmp *_event_return
52: 52 0000C5C7 L222:
53: 53 0000C5C7 # asm("movl 8(fp),r12"); /* get par 0 */
54: 54 0000C5C7 0d ad08 5c movl 8(fp),r12
55: 55 0000C5CB # asm("movl 12(fp),r11"); /* get par 1 */
56: 56 0000C5CB 0d ad0c 5b movl 12(fp),r11
57: 57 0000C5CF # asm("movl 16(fp),r10"); /* get par 2 */
58: 58 0000C5CF 0d ad10 5a movl 16(fp),r10
59: 59 0000C5D3 # asm("movl 20(fp),r9"); /* get par 3 */
60: 60 0000C5D3 0d ad14 59 movl 20(fp),r9
61: 61 0000C5D7 # asm("movl 24(fp),r8"); /* get par 4 */
62: 62 0000C5D7 0d ad18 58 movl 24(fp),r8
63: 63 0000C5DB # if( code == ARITH_CODE ) {
64: 64 0000C5DB 1d ad04 34 cmpl 4(fp),$52
65: 65 0000C5DF 21 10 jneq L223
66: 66 0000C5E1 # event_code = r12; /* set the arith fault type seen */
67: 67 0000C5E1 0d 5c efffffffcc movl r12,_event_code
68: 68 0000C5E8 # event_psl = r10; /* take the PSL off the stack */
69: 69 0000C5E8 0d 5a efffffffc5 movl r10,_event_psl
70: 70 0000C5EF # } else
71: 71 0000C5EF 11 07 jbr L224
72: 72 0000C5F1 L223:
73: 73 0000C5F1 # event_psl = r11;; /* take the PSL off the stack */
74: 74 0000C5F1 0d 5b efffffffbc movl r11,_event_psl
75: 75 0000C5F8 L224:
76: 76 0000C5F8 # if( code == exp_event ) { /* was the event expected? */
77: 77 0000C5F8 1d ad04 efffffffb4 cmpl 4(fp),_exp_event
78: 78 0000C600 21 18 jneq L225
79: 79 0000C602 # if( (exp_event != ARITH_CODE) || (exp_code == r12) )
80: 80 0000C602 1d efffffffac 34 cmpl _exp_event,$52
81: 81 0000C609 21 09 jneq L9999
82: 82 0000C60B 1d efffffffa3 5c cmpl _exp_code,r12
83: 83 0000C612 21 06 jneq L226
84: 84 0000C614 L9999:
85: 85 0000C614 # asm("jmp *_event_return");; /* exit -the evt was expected */
86: 86 0000C614 71 ffffffff9a jmp *_event_return
87: 87 0000C61A L226:
88: 88 0000C61A # }
89: 89 0000C61A # /*
90: 90 0000C61A # * If we get here then the event was not expected
91: 91 0000C61A # */
92: 92 0000C61A # errcnt++; /* bump the error count */
93: 93 0000C61A L225:
94: 94 0000C61A 6d efffffff94 incl _errcnt
95: 95 0000C620 # if( prt_error ) {
96: 96 0000C620 5d efffffff8e tstl _prt_error
97: 97 0000C626 21 03 13 01b1 jeql L227
98: 98 0000C62B # if( !error ) {
99: 99 0000C62B 5d efffffff83 tstl _error
100: 100 0000C631 21 10 jneq L228
101: 101 0000C633 # error = TRUE; /* set current-error flag */
102: 102 0000C633 0d 01 efffffff7a movl $1,_error
103: 103 0000C63A # writec('\n');
104: 104 0000C63A dd 0a pushl $10
105: 105 0000C63C fe 08 efffffff71 callf $8,_writec
106: 106 0000C643 # }
107: 107 0000C643 # writes("\n** cycle: ");
108: 108 0000C643 L228:
109: 109 0000C643 .data 1
110: 110 0000027c * L231:
111: 111 0000027c * 0A2A2A206379636C653A2000 .ascii "\12** cycle: \0"
112: 112 00000288 * .text
113: 113 0000C643 dd 8f0000027c pushl $L231
114: 114 0000C649 fe 08 efffffff64 callf $8,_writes
115: 115 0000C650 # writed( cycle );
116: 116 0000C650 dd efffffff5e pushl _cycle
117: 117 0000C656 fe 08 efffffff57 callf $8,_writed
118: 118 0000C65D # writes(". test: ");
119: 119 0000C65D .data 1
120: 120 00000288 * L233:
121: 121 00000288 * 2E20746573743A2000 .ascii ". test: \0"
122: 122 00000291 * .text
123: 123 0000C65D dd 8f00000288 pushl $L233
124: 124 0000C663 fe 08 efffffff4a callf $8,_writes
125: 125 0000C66A # writeh( test_no );
126: 126 0000C66A dd efffffff44 pushl _test_no
127: 127 0000C670 fe 08 efffffff3d callf $8,_writeh
128: 128 0000C677 # writes(". unexpected event -type: ");
129: 129 0000C677 .data 1
130: 130 00000291 * L235:
131: 131 00000291 * 2E20756E65787065637465642 .ascii ". unexpected event -type: \0"
132: 06576656E74202D747970653A
133: 2000
134: 132 000002ac * .text
135: 133 0000C677 dd 8f00000291 pushl $L235
136: 134 0000C67D fe 08 efffffff30 callf $8,_writes
137: 135 0000C684 # writeh( code );
138: 136 0000C684 dd ad04 pushl 4(fp)
139: 137 0000C687 fe 08 efffffff26 callf $8,_writeh
140: 138 0000C68E # writec('\n');
141: 139 0000C68E dd 0a pushl $10
142: 140 0000C690 fe 08 efffffff1d callf $8,_writec
143: 141 0000C697 # if( code==0x37 ) { /* FPP Emulation trap */
144: 142 0000C697 1d ad04 37 cmpl 4(fp),$55
145: 143 0000C69B 21 68 jneq L236
146: 144 0000C69D # writes("** Par 0 : "); write32h(r12); writec('\n');
147: 145 0000C69D .data 1
148: 146 000002ac * L237:
149: 147 000002ac * 2A2A205061722030203A20200 .ascii "** Par 0 : \0"
150: 0
151: 148 000002b9 * .text
152: 149 0000C69D dd 8f000002ac pushl $L237
153: 150 0000C6A3 fe 08 efffffff0a callf $8,_writes
154: 151 0000C6AA dd 5c pushl r12
155: 152 0000C6AC fe 08 efffffff01 callf $8,_write32h
156: 153 0000C6B3 dd 0a pushl $10
157: 154 0000C6B5 fe 08 effffffef8 callf $8,_writec
158: 155 0000C6BC # writes("** Par 1 : "); write32h(r11); writec('\n');
159: 156 0000C6BC .data 1
160: 157 000002b9 * L239:
161: 158 000002b9 * 2A2A205061722031203A20200 .ascii "** Par 1 : \0"
162: 0
163: 159 000002c6 * .text
164: 160 0000C6BC dd 8f000002b9 pushl $L239
165: 161 0000C6C2 fe 08 effffffeeb callf $8,_writes
166: 162 0000C6C9 dd 5b pushl r11
167: 163 0000C6CB fe 08 effffffee2 callf $8,_write32h
168: 164 0000C6D2 dd 0a pushl $10
169: 165 0000C6D4 fe 08 effffffed9 callf $8,_writec
170: 166 0000C6DB # writes("** Par 2 : "); write32h(r10); writec('\n');
171: 167 0000C6DB .data 1
172: 168 000002c6 * L240:
173: 169 000002c6 * 2A2A205061722032203A20200 .ascii "** Par 2 : \0"
174: 0
175: 170 000002d3 * .text
176: 171 0000C6DB dd 8f000002c6 pushl $L240
177: 172 0000C6E1 fe 08 effffffecc callf $8,_writes
178: 173 0000C6E8 dd 5a pushl r10
179: 174 0000C6EA fe 08 effffffec3 callf $8,_write32h
180: 175 0000C6F1 dd 0a pushl $10
181: 176 0000C6F3 fe 08 effffffeba callf $8,_writec
182: 177 0000C6FA # tpc = r9;
183: 178 0000C6FA 0d 59 adc8 movl r9,-56(fp)
184: 179 0000C6FE # tpsl = r8;
185: 180 0000C6FE 0d 58 adc4 movl r8,-60(fp)
186: 181 0000C702 # } else
187: 182 0000C702 13 0097 jbr L241
188: 183 0000C705 L236:
189: 184 0000C705 # if( (code==0x20) || /* bus error */
190: 185 0000C705 # (code==0x2f) || /* access control violation */
191: 186 0000C705 # (code==0x30) ) { /* page fault */
192: 187 0000C705 1d ad04 20 cmpl 4(fp),$32
193: 188 0000C709 31 0c jeql L9998
194: 189 0000C70B 1d ad04 2f cmpl 4(fp),$47
195: 190 0000C70F 31 06 jeql L9998
196: 191 0000C711 1d ad04 30 cmpl 4(fp),$48
197: 192 0000C715 21 48 jneq L242
198: 193 0000C717 L9998:
199: 194 0000C717 # writes("** Par 0 : "); write32h(r12); writec('\n');
200: 195 0000C717 .data 1
201: 196 000002d3 * L243:
202: 197 000002d3 * 2A2A205061722030203A20200 .ascii "** Par 0 : \0"
203: 0
204: 198 000002e0 * .text
205: 199 0000C717 dd 8f000002d3 pushl $L243
206: 200 0000C71D fe 08 effffffe90 callf $8,_writes
207: 201 0000C724 dd 5c pushl r12
208: 202 0000C726 fe 08 effffffe87 callf $8,_write32h
209: 203 0000C72D dd 0a pushl $10
210: 204 0000C72F fe 08 effffffe7e callf $8,_writec
211: 205 0000C736 # writes("** Par 1 : "); write32h(r11); writec('\n');
212: 206 0000C736 .data 1
213: 207 000002e0 * L244:
214: 208 000002e0 * 2A2A205061722031203A20200 .ascii "** Par 1 : \0"
215: 0
216: 209 000002ed * .text
217: 210 0000C736 dd 8f000002e0 pushl $L244
218: 211 0000C73C fe 08 effffffe71 callf $8,_writes
219: 212 0000C743 dd 5b pushl r11
220: 213 0000C745 fe 08 effffffe68 callf $8,_write32h
221: 214 0000C74C dd 0a pushl $10
222: 215 0000C74E fe 08 effffffe5f callf $8,_writec
223: 216 0000C755 # tpc = r10;
224: 217 0000C755 0d 5a adc8 movl r10,-56(fp)
225: 218 0000C759 # tpsl = r9;
226: 219 0000C759 0d 59 adc4 movl r9,-60(fp)
227: 220 0000C75D # } else
228: 221 0000C75D 11 3d jbr L245
229: 222 0000C75F L242:
230: 223 0000C75F # if( (code==0x34) || /* arithmetic acception */
231: 224 0000C75F # (code==0x2b) ) { /* Kcall */
232: 225 0000C75F 1d ad04 34 cmpl 4(fp),$52
233: 226 0000C763 31 06 jeql L9997
234: 227 0000C765 1d ad04 2b cmpl 4(fp),$43
235: 228 0000C769 21 29 jneq L246
236: 229 0000C76B L9997:
237: 230 0000C76B # writes("** Par. : ");
238: 231 0000C76B .data 1
239: 232 000002ed * L247:
240: 233 000002ed * 2A2A205061722E20203A20200 .ascii "** Par. : \0"
241: 0
242: 234 000002fa * .text
243: 235 0000C76B dd 8f000002ed pushl $L247
244: 236 0000C771 fe 08 effffffe3c callf $8,_writes
245: 237 0000C778 # writeh(r12); writec('\n');
246: 238 0000C778 dd 5c pushl r12
247: 239 0000C77A fe 08 effffffe33 callf $8,_writeh
248: 240 0000C781 dd 0a pushl $10
249: 241 0000C783 fe 08 effffffe2a callf $8,_writec
250: 242 0000C78A # tpc = r11;
251: 243 0000C78A 0d 5b adc8 movl r11,-56(fp)
252: 244 0000C78E # tpsl = r10;
253: 245 0000C78E 0d 5a adc4 movl r10,-60(fp)
254: 246 0000C792 # } else {
255: 247 0000C792 11 08 jbr L248
256: 248 0000C794 L246:
257: 249 0000C794 # tpc = r12;
258: 250 0000C794 0d 5c adc8 movl r12,-56(fp)
259: 251 0000C798 # tpsl = r11;
260: 252 0000C798 0d 5b adc4 movl r11,-60(fp)
261: 253 0000C79C # }
262: 254 0000C79C L248:
263: 255 0000C79C L245:
264: 256 0000C79C L241:
265: 257 0000C79C # writes("** PC : "); write32h(tpc); writec('\n');
266: 258 0000C79C .data 1
267: 259 000002fa * L249:
268: 260 000002fa * 2A2A205043202020203A20200 .ascii "** PC : \0"
269: 0
270: 261 00000307 * .text
271: 262 0000C79C dd 8f000002fa pushl $L249
272: 263 0000C7A2 fe 08 effffffe0b callf $8,_writes
273: 264 0000C7A9 dd adc8 pushl -56(fp)
274: 265 0000C7AC fe 08 effffffe01 callf $8,_write32h
275: 266 0000C7B3 dd 0a pushl $10
276: 267 0000C7B5 fe 08 effffffdf8 callf $8,_writec
277: 268 0000C7BC # writes("** PSL : "); write32h(tpsl); writec('\n');
278: 269 0000C7BC .data 1
279: 270 00000307 * L250:
280: 271 00000307 * 2A2A2050534C2020203A20200 .ascii "** PSL : \0"
281: 0
282: 272 00000314 * .text
283: 273 0000C7BC dd 8f00000307 pushl $L250
284: 274 0000C7C2 fe 08 effffffdeb callf $8,_writes
285: 275 0000C7C9 dd adc4 pushl -60(fp)
286: 276 0000C7CC fe 08 effffffde1 callf $8,_write32h
287: 277 0000C7D3 dd 0a pushl $10
288: 278 0000C7D5 fe 08 effffffdd8 callf $8,_writec
289: 279 0000C7DC # }
290: 280 0000C7DC # if( halt_flg ) { /* halt on the error? */
291: 281 0000C7DC L227:
292: 282 0000C7DC 5d effffffdd2 tstl _halt_flg
293: 283 0000C7E2 31 2b jeql L251
294: 284 0000C7E4 # asm("movl _test_no,r0"); /* r0 = test number */
295: 285 0000C7E4 0d effffffdca 50 movl _test_no,r0
296: 286 0000C7EB # asm("clrl r1"); /* r1 = 0 (subtest #) */
297: 287 0000C7EB 4d 51 clrl r1
298: 288 0000C7ED # asm("movl _event_type,r2"); /* r2 = event code */
299: 289 0000C7ED 0d effffffdc1 52 movl _event_type,r2
300: 290 0000C7F4 # asm("movl _cycle,r3"); /* r3 = cycle count */
301: 291 0000C7F4 0d effffffdba 53 movl _cycle,r3
302: 292 0000C7FB # asm("movl r12,r4"); /* r4 = parameter 1 */
303: 293 0000C7FB 0d 5c 54 movl r12,r4
304: 294 0000C7FE # asm("movl r11,r5"); /* r5 = parameter 2 */
305: 295 0000C7FE 0d 5b 55 movl r11,r5
306: 296 0000C801 # asm("movl r10,r6"); /* r6 = parameter 3 */
307: 297 0000C801 0d 5a 56 movl r10,r6
308: 298 0000C804 # asm("movl r9,r7"); /* r7 = parameter 4 */
309: 299 0000C804 0d 59 57 movl r9,r7
310: 300 0000C807 # asm("movl _index,r8"); /* r8 = data index */
311: 301 0000C807 0d effffffda7 58 movl _index,r8
312: 302 0000C80E # asm("halt"); /* halt */
313: 303 0000C80E 00 halt
314: 304 0000C80F # }
315: 305 0000C80F # if( unexp_event_ret )
316: 306 0000C80F L251:
317: 307 0000C80F 5d effffffd9f tstl _unexp_event_ret
318: 308 0000C815 31 08 jeql L252
319: 309 0000C817 # asm("jmp *_unexp_event_ret"); /* return to the test */
320: 310 0000C817 71 fffffffd97 jmp *_unexp_event_ret
321: 311 0000C81D # else
322: 312 0000C81D 11 06 jbr L253
323: 313 0000C81F L252:
324: 314 0000C81F # asm("jmp *return");
325: 315 0000C81F 71 fffffffd8f jmp *return
326: 316 0000C825 L253:
327: 317 0000C825 # }
328: 318 0000C825 40 ret#2
329: 319 0000C826 .set L218,0x1F00
330: 320 0000C826 L220:
331: 321 0000C826 3c 3c 5d 5e subl3 $60,fp,sp
332: 322 0000C82A 13 fd8c jbr L221
333: 323 0000C82D .data
334: 323 00018DE1 .data
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.