![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to pipe1.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 pipe1.lst CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / fpevent |
Power 6/32 Unix version 1.21
1 00000000 LL0:
2 00000000 .data
3 0000065c * .text
4 00000000 .align 1
5 00000000 .globl _pipe1
6 00000000 _pipe1:
7 0000F34C 0000 .word L381
8 0000F34E #
9 0000F34E # #include "evt_defs.h"
10 0000F34E #
11 0000F34E # /*
12 0000F34E # *********************************************************************
13 0000F34E # * FPP PIPELINED EVENTS TEST #1
14 0000F34E # *
15 0000F34E # * This test will execute the following code: "LDD DIVD MOVL CVDL"
16 0000F34E # * with an alignment fault on the MOVL. We will make sure that:
17 0000F34E # * 1. The fault is detected,
18 0000F34E # * 2. the divide operation completes, and
19 0000F34E # * 3. the convert double to integer isn't executed.
20 0000F34E # *
21 0000F34E # * NOTE: pipe14 also uses this tests data patterns
22 0000F34E # *********************************************************************
23 0000F34E # */
24 0000F34E # pipe1()
25 0000F34E # {
26 0000F34E 13 014f jbr L383
27 0000F351 L384:
28 0000F351 # asm("moval (r13),_pre_event_fp"); /* save the frame pointer */
29 0000F351 ed 6d effffffff4 moval (r13),_pre_event_fp
30 0000F358 # asm("moval (r14),_pre_event_sp"); /* save the stack pointer */
31 0000F358 ed 6e efffffffed moval (r14),_pre_event_sp
32 0000F35F # precision = DBL;
33 0000F35F 0d 02 efffffffe6 movl $2,_precision
34 0000F366 # test_event = ALIGN_CODE; /* alignment fault expected */
35 0000F366 0d 35 efffffffdf movl $53,_test_event
36 0000F36D # exp_event = FALSE; /* ... but not yet */
37 0000F36D 4d efffffffd9 clrl _exp_event
38 0000F373 # asm("movab _pipe1_ret,_event_return"); /* post event addr */
39 0000F373 e9 ef000000cf efffffffce movab _pipe1_ret,_event_return
40 0000F37E # for( index = 0; index < max_pipe1_index; index++ )
41 0000F37E 4d efffffffc8 clrl _index
42 0000F384 L387:
43 0000F384 1d efffffffc2 efffffffbd cmpl _index,_max_pipe1_index
44 0000F38F 91 03 13 010b jgeq L386
45 0000F394 # {
46 0000F394 # dbl_value_1 = pipe1_data[index].op_1; /* get the data */
47 0000F394 5c 18 efffffffb1 50 mull3 $24,_index,r0
48 0000F39C 0c 8f00000000 50 addl2 $_pipe1_data,r0
49 0000F3A3 0d a004 efffffffa5 movl 4(r0),_dbl_value_1+4
50 0000F3AB 0d 60 efffffff9a movl (r0),_dbl_value_1
51 0000F3B2 # dbl_value_2 = pipe1_data[index].op_2;
52 0000F3B2 5c 18 efffffff93 50 mull3 $24,_index,r0
53 0000F3BA 0c 8f00000008 50 addl2 $_pipe1_data+8,r0
54 0000F3C1 0d a004 efffffff87 movl 4(r0),_dbl_value_2+4
55 0000F3C9 0d 60 efffffff7c movl (r0),_dbl_value_2
56 0000F3D0 # dbl_expected = pipe1_data[index].exp;
57 0000F3D0 5c 18 efffffff75 50 mull3 $24,_index,r0
58 0000F3D8 0c 8f00000010 50 addl2 $_pipe1_data+16,r0
59 0000F3DF 0d a004 efffffff69 movl 4(r0),_dbl_expected+4
60 0000F3E7 0d 60 efffffff5e movl (r0),_dbl_expected
61 0000F3EE # sgl_value_10 = 0;
62 0000F3EE 4d efffffff58 clrl _sgl_value_10
63 0000F3F4 # asm(".globl _pipe1_lp1"); /* start of error loop */
64 0000F3F4 .globl _pipe1_lp1
65 0000F3F4 # asm("_pipe1_lp1:");
66 0000F3F4 _pipe1_lp1:
67 0000F3F4 # asm("bispsw $0x60"); /* enable ovfl & undfl */
68 0000F3F4 8b 8860 bispsw $0x60
69 0000F3F7 # asm("ldd _dbl_value_1"); /* load the Acc. */
70 0000F3F7 07 efffffff4f ldd _dbl_value_1
71 0000F3FD # exp_event = test_event; /* expect event soon */
72 0000F3FD 0d efffffff49 efffffff44 movl _test_event,_exp_event
73 0000F408 # asm("divd _dbl_value_2"); /* start the divide */
74 0000F408 f7 efffffff3e divd _dbl_value_2
75 0000F40E # asm("movl _sgl_dummy1+1,_sgl_dummy2+2"); /* trigger the fault */
76 0000F40E 0d efffffff39 efffffff35 movl _sgl_dummy1+1,_sgl_dummy2+2
77 0000F419 # asm("cvdl _sgl_value_10"); /* we shouldn't get to here */
78 0000F419 87 efffffff2d cvdl _sgl_value_10
79 0000F41F # /*
80 0000F41F # * If we got to here then there was no event
81 0000F41F # */
82 0000F41F # if( force_loop )
83 0000F41F 5d efffffff27 tstl _force_loop
84 0000F425 31 03 jeql L388
85 0000F427 # asm("brw _pipe1_lp1");; /* loop on the error */
Assemb00026B0C # asm("brw _pipe1_lp1");; /* loop on the error */
"pipe100026B0C 86: WARNING: brw: destination label is external
86 0000F427 13 ffca brw _pipe1_lp1
87 0000F42A L388:
88 0000F42A # exp_event = FALSE; /* reset event expected flag */
89 0000F42A 4d efffffff1c clrl _exp_event
90 0000F430 # asm("bicpsw $0x60"); /* disable ovfl & undfl evts */
91 0000F430 9b 8860 bicpsw $0x60
92 0000F433 # asm("movl _pre_event_fp,fp"); /* restore the frame pointer */
93 0000F433 0d efffffff13 5d movl _pre_event_fp,fp
94 0000F43A # asm("movl _pre_event_sp,sp"); /* restore the stack pointer */
95 0000F43A 0d efffffff0c 5e movl _pre_event_sp,sp
96 0000F441 # no_pipe1_evt();; /* report the error */
97 0000F441 fe 04 ef0000005c callf $4,_no_pipe1_evt
98 0000F448 # /*
99 0000F448 # * Come here after the event
100 0000F448 # */
101 0000F448 # asm(".globl _pipe1_ret");
102 0000F448 .globl _pipe1_ret
103 0000F448 # asm("_pipe1_ret:");
104 0000F448 _pipe1_ret:
105 0000F448 # asm("movl _pre_event_fp,fp"); /* restore the frame pointer */
106 0000F448 0d effffffefe 5d movl _pre_event_fp,fp
107 0000F44F # asm("movl _pre_event_sp,sp"); /* restore the stack pointer */
108 0000F44F 0d effffffef7 5e movl _pre_event_sp,sp
109 0000F456 # if( force_loop )
110 0000F456 5d effffffef0 tstl _force_loop
111 0000F45C 31 03 jeql L390
112 0000F45E # asm("brw _pipe1_lp1");; /* loop on the error */
"pipe100026B0C 113: WARNING: brw: destination label is external
113 0000F45E 13 ff93 brw _pipe1_lp1
114 0000F461 L390:
115 0000F461 # asm("bicpsw $0x60"); /* disable ovfl & undfl evts */
116 0000F461 9b 8860 bicpsw $0x60
117 0000F464 # if( (post_evt_acc.m != dbl_expected.m) ||
118 0000F464 # (post_evt_acc.l != dbl_expected.l) )
119 0000F464 1d effffffee2 effffffedd cmpl _post_evt_acc,_dbl_expected
120 0000F46F 21 0d jneq L9999
121 0000F471 1d effffffed9 effffffed4 cmpl _post_evt_acc+4,_dbl_expected+4
122 0000F47C 31 09 jeql L391
123 0000F47E L9999:
124 0000F47E # bad_pipe1_result(); /* incorrect result error */
125 0000F47E fe 04 ef00000111 callf $4,_bad_pipe1_result
126 0000F485 # else if( sgl_value_10 )
127 0000F485 11 0f jbr L393
128 0000F487 L391:
129 0000F487 5d effffffebf tstl _sgl_value_10
130 0000F48D 31 07 jeql L394
131 0000F48F # pipe1_queue_err(); /* queue not cleared error */
132 0000F48F fe 04 ef00000222 callf $4,_pipe1_queue_err
133 0000F496 # }
134 0000F496 L394:
135 0000F496 L393:
136 0000F496 L385:
137 0000F496 6d effffffeb0 incl _index
138 0000F49C 13 fee5 jbr L387
139 0000F49F L386:
140 0000F49F # }
141 0000F49F 40 ret#2
142 0000F4A0 .set L381,0x0
143 0000F4A0 L383:
144 0000F4A0 13 feae jbr L384
145 0000F4A3 .data
146 0000065c * .text
147 0000F4A3 00 .align 1
148 0000F4A4 .globl _no_pipe1_evt
149 0000F4A4 _no_pipe1_evt:
150 0000F4A4 0000 .word L396
151 0000F4A6 #
152 0000F4A6 #
153 0000F4A6 #
154 0000F4A6 # /****************************************************************************
155 0000F4A6 # * Report an "EVENT NOT DETECTED" error
156 0000F4A6 # *
157 0000F4A6 # * Cycle: xx. EVT test xx. subtest xx. index = xx. No alignment fault occurred.
158 0000F4A6 # * inst = LDD op1, DIVD op2, MOVL op3,op4; CVDL op5 (alignment fault on the MOVL)
159 0000F4A6 # * op1 = xxxxxxxx xxxxxxxx, op2 = xxxxxxxx xxxxxxxx
160 0000F4A6 # * addr. of op3 = xxxxxxxx, addr. of op4 = xxxxxxxx
161 0000F4A6 # ****************************************************************************/
162 0000F4A6 # no_pipe1_evt()
163 0000F4A6 # {
164 0000F4A6 13 00ea jbr L398
165 0000F4A9 L399:
166 0000F4A9 # errcnt++; /* bump the error count */
167 0000F4A9 6d effffffe9d incl _errcnt
168 0000F4AF # if ( prt_error )
169 0000F4AF 5d effffffe97 tstl _prt_error
170 0000F4B5 21 03 13 00b2 jeql L400
171 0000F4BA # {
172 0000F4BA # print_pipe1_err( ". No alignment fault occurred.");
173 0000F4BA .data 1
174 0000065c * L402:
175 0000065c * 2E204E6F20616C69676E6D656 .ascii ". No alignment fault occurred.\0"
E74206661756C74206F636375
727265642E00
176 0000067b * .text
177 0000F4BA dd 8f0000065c pushl $L402
178 0000F4C0 fe 08 ef000002f9 callf $8,_print_pipe1_err
179 0000F4C7 # writes("op1 = ");
180 0000F4C7 .data 1
181 0000067b * L404:
182 0000067b * 6F7031203D2000 .ascii "op1 = \0"
183 00000682 * .text
184 0000F4C7 dd 8f0000067b pushl $L404
185 0000F4CD fe 08 effffffe78 callf $8,_writes
186 0000F4D4 # write32h( dbl_value_1.m );
187 0000F4D4 dd effffffe72 pushl _dbl_value_1
188 0000F4DA fe 08 effffffe6b callf $8,_write32h
189 0000F4E1 # writes(" ");
190 0000F4E1 .data 1
191 00000682 * L406:
192 00000682 * 2000 .ascii " \0"
193 00000684 * .text
194 0000F4E1 dd 8f00000682 pushl $L406
195 0000F4E7 fe 08 effffffe5e callf $8,_writes
196 0000F4EE # write32h( dbl_value_1.l );
197 0000F4EE dd effffffe5c pushl _dbl_value_1+4
198 0000F4F4 fe 08 effffffe51 callf $8,_write32h
199 0000F4FB # writes(", op2 = ");
200 0000F4FB .data 1
201 00000684 * L407:
202 00000684 * 2C2020206F7032203D2000 .ascii ", op2 = \0"
203 0000068f * .text
204 0000F4FB dd 8f00000684 pushl $L407
205 0000F501 fe 08 effffffe44 callf $8,_writes
206 0000F508 # write32h( dbl_value_2.m );
207 0000F508 dd effffffe3e pushl _dbl_value_2
208 0000F50E fe 08 effffffe37 callf $8,_write32h
209 0000F515 # writes(" ");
210 0000F515 .data 1
211 0000068f * L408:
212 0000068f * 2000 .ascii " \0"
213 00000691 * .text
214 0000F515 dd 8f0000068f pushl $L408
215 0000F51B fe 08 effffffe2a callf $8,_writes
216 0000F522 # write32h( dbl_value_2.l );
217 0000F522 dd effffffe28 pushl _dbl_value_2+4
218 0000F528 fe 08 effffffe1d callf $8,_write32h
219 0000F52F # writes("\naddr. of ad_1 = ");
220 0000F52F .data 1
221 00000691 * L409:
222 00000691 * 0A616464722E206F662061645 .ascii "\12addr. of ad_1 = \0"
F31203D2000
223 000006a3 * .text
224 0000F52F dd 8f00000691 pushl $L409
225 0000F535 fe 08 effffffe10 callf $8,_writes
226 0000F53C # write32h( ( (int)&sgl_dummy1 )+1 );
227 0000F53C dd 8f00000001 pushl $_sgl_dummy1+1
228 0000F542 fe 08 effffffe03 callf $8,_write32h
229 0000F549 # writes(", addr. of ad_2 = ");
230 0000F549 .data 1
231 000006a3 * L410:
232 000006a3 * 2C202020616464722E206F662 .ascii ", addr. of ad_2 = \0"
061645F32203D2000
233 000006b8 * .text
234 0000F549 dd 8f000006a3 pushl $L410
235 0000F54F fe 08 effffffdf6 callf $8,_writes
236 0000F556 # write32h( ( (int)&sgl_dummy2 )+2 );
237 0000F556 dd 8f00000002 pushl $_sgl_dummy2+2
238 0000F55C fe 08 effffffde9 callf $8,_write32h
239 0000F563 # writec('\n');
240 0000F563 dd 0a pushl $10
241 0000F565 fe 08 effffffde0 callf $8,_writec
242 0000F56C # }
243 0000F56C # if ( halt_flg ) /* halt on error? */
244 0000F56C L400:
245 0000F56C 5d effffffdda tstl _halt_flg
246 0000F572 31 09 jeql L412
247 0000F574 # pipe1_halt( 1 );
248 0000F574 dd 01 pushl $1
249 0000F576 fe 08 ef000002fb callf $8,_pipe1_halt
250 0000F57D # if ( loop_on_err )
251 0000F57D L412:
252 0000F57D 5d effffffdc9 tstl _loop_on_err
253 0000F583 31 0d jeql L414
254 0000F585 # {
255 0000F585 # force_loop = TRUE; /* set the force loop flag */
256 0000F585 0d 01 effffffdc0 movl $1,_force_loop
257 0000F58C # asm("jmp _pipe1_lp1"); /* and loop */
258 0000F58C 71 effffffe62 jmp _pipe1_lp1
259 0000F592 # };
260 0000F592 L414:
261 0000F592 # }
262 0000F592 40 ret#2
263 0000F593 .set L396,0x0
264 0000F593 L398:
265 0000F593 13 ff13 jbr L399
266 0000F596 .data
267 0000065c * .text
268 0000F596 .align 1
269 0000F596 .globl _bad_pipe1_result
270 0000F596 _bad_pipe1_result:
271 0000F596 0000 .word L415
272 0000F598 #
273 0000F598 #
274 0000F598 #
275 0000F598 #
276 0000F598 # /****************************************************************************
277 0000F598 # * Report an "BAD ACCUMULATOR AFTER THE EVENT" error
278 0000F598 # *
279 0000F598 # * Cycle: xx. EVT test xx. subtest xx. index = xx. Bad final Accumulator.
280 0000F598 # * inst = LDD op1, DIVD op2, MOVL op3,op4; CVDL op5 (alignment fault on the MOVL)
281 0000F598 # * op1 = xxxxxxxx xxxxxxxx, final Acc. = xxxxxxxx xxxxxxxx
282 0000F598 # * op2 = xxxxxxxx xxxxxxxx, expected = xxxxxxxx xxxxxxxx
283 0000F598 # ****************************************************************************/
284 0000F598 # bad_pipe1_result()
285 0000F598 # {
286 0000F598 13 011a jbr L417
287 0000F59B L418:
288 0000F59B # errcnt++; /* bump the error count */
289 0000F59B 6d effffffdab incl _errcnt
290 0000F5A1 # if ( prt_error )
291 0000F5A1 5d effffffda5 tstl _prt_error
292 0000F5A7 21 03 13 00e2 jeql L419
293 0000F5AC # {
294 0000F5AC # print_pipe1_err( ". bad final accumulator.");
295 0000F5AC .data 1
296 000006b8 * L420:
297 000006b8 * 2E206261642066696E616C206 .ascii ". bad final accumulator.\0"
16363756D756C61746F722E00
298 000006d1 * .text
299 0000F5AC dd 8f000006b8 pushl $L420
300 0000F5B2 fe 08 ef00000207 callf $8,_print_pipe1_err
301 0000F5B9 # writes("op1 = ");
302 0000F5B9 .data 1
303 000006d1 * L421:
304 000006d1 * 6F7031203D2000 .ascii "op1 = \0"
305 000006d8 * .text
306 0000F5B9 dd 8f000006d1 pushl $L421
307 0000F5BF fe 08 effffffd86 callf $8,_writes
308 0000F5C6 # write32h( dbl_value_1.m );
309 0000F5C6 dd effffffd80 pushl _dbl_value_1
310 0000F5CC fe 08 effffffd79 callf $8,_write32h
311 0000F5D3 # writes(" ");
312 0000F5D3 .data 1
313 000006d8 * L422:
314 000006d8 * 2000 .ascii " \0"
315 000006da * .text
316 0000F5D3 dd 8f000006d8 pushl $L422
317 0000F5D9 fe 08 effffffd6c callf $8,_writes
318 0000F5E0 # write32h( dbl_value_1.l );
319 0000F5E0 dd effffffd6a pushl _dbl_value_1+4
320 0000F5E6 fe 08 effffffd5f callf $8,_write32h
321 0000F5ED # writes(", final Acc. = ");
322 0000F5ED .data 1
323 000006da * L423:
324 000006da * 2C20202066696E616C2041636 .ascii ", final Acc. = \0"
32E203D2000
325 000006ec * .text
326 0000F5ED dd 8f000006da pushl $L423
327 0000F5F3 fe 08 effffffd52 callf $8,_writes
328 0000F5FA # write32h( post_evt_acc.m );
329 0000F5FA dd effffffd4c pushl _post_evt_acc
330 0000F600 fe 08 effffffd45 callf $8,_write32h
331 0000F607 # writec(' ');
332 0000F607 dd 20 pushl $32
333 0000F609 fe 08 effffffd3c callf $8,_writec
334 0000F610 # write32h( post_evt_acc.l );
335 0000F610 dd effffffd3a pushl _post_evt_acc+4
336 0000F616 fe 08 effffffd2f callf $8,_write32h
337 0000F61D # writes("\nop2 = ");
338 0000F61D .data 1
339 000006ec * L424:
340 000006ec * 0A6F7032203D2000 .ascii "\12op2 = \0"
341 000006f4 * .text
342 0000F61D dd 8f000006ec pushl $L424
343 0000F623 fe 08 effffffd22 callf $8,_writes
344 0000F62A # write32h( dbl_value_2.m );
345 0000F62A dd effffffd1c pushl _dbl_value_2
346 0000F630 fe 08 effffffd15 callf $8,_write32h
347 0000F637 # writes(" ");
348 0000F637 .data 1
349 000006f4 * L425:
350 000006f4 * 2000 .ascii " \0"
351 000006f6 * .text
352 0000F637 dd 8f000006f4 pushl $L425
353 0000F63D fe 08 effffffd08 callf $8,_writes
354 0000F644 # write32h( dbl_value_2.l );
355 0000F644 dd effffffd06 pushl _dbl_value_2+4
356 0000F64A fe 08 effffffcfb callf $8,_write32h
357 0000F651 # writes(", expected = ");
358 0000F651 .data 1
359 000006f6 * L426:
360 000006f6 * 2C20202065787065637465642 .ascii ", expected = \0"
020203D2000
361 00000708 * .text
362 0000F651 dd 8f000006f6 pushl $L426
363 0000F657 fe 08 effffffcee callf $8,_writes
364 0000F65E # write32h( dbl_expected.m );
365 0000F65E dd effffffce8 pushl _dbl_expected
366 0000F664 fe 08 effffffce1 callf $8,_write32h
367 0000F66B # writes(" ");
368 0000F66B .data 1
369 00000708 * L427:
370 00000708 * 2000 .ascii " \0"
371 0000070a * .text
372 0000F66B dd 8f00000708 pushl $L427
373 0000F671 fe 08 effffffcd4 callf $8,_writes
374 0000F678 # write32h( dbl_expected.l );
375 0000F678 dd effffffcd2 pushl _dbl_expected+4
376 0000F67E fe 08 effffffcc7 callf $8,_write32h
377 0000F685 # writec('\n');
378 0000F685 dd 0a pushl $10
379 0000F687 fe 08 effffffcbe callf $8,_writec
380 0000F68E # }
381 0000F68E # if ( halt_flg ) /* halt on error? */
382 0000F68E L419:
383 0000F68E 5d effffffcb8 tstl _halt_flg
384 0000F694 31 09 jeql L428
385 0000F696 # pipe1_halt( 2 );
386 0000F696 dd 02 pushl $2
387 0000F698 fe 08 ef000001d9 callf $8,_pipe1_halt
388 0000F69F # if ( loop_on_err )
389 0000F69F L428:
390 0000F69F 5d effffffca7 tstl _loop_on_err
391 0000F6A5 31 0d jeql L429
392 0000F6A7 # {
393 0000F6A7 # force_loop = TRUE; /* set the force loop flag */
394 0000F6A7 0d 01 effffffc9e movl $1,_force_loop
395 0000F6AE # asm("jmp _pipe1_lp1"); /* and loop */
396 0000F6AE 71 effffffd40 jmp _pipe1_lp1
397 0000F6B4 # };
398 0000F6B4 L429:
399 0000F6B4 # }
400 0000F6B4 40 ret#2
401 0000F6B5 .set L415,0x0
402 0000F6B5 L417:
403 0000F6B5 13 fee3 jbr L418
404 0000F6B8 .data
405 0000065c * .text
406 0000F6B8 .align 1
407 0000F6B8 .globl _pipe1_queue_err
408 0000F6B8 _pipe1_queue_err:
409 0000F6B8 0000 .word L430
410 0000F6BA #
411 0000F6BA #
412 0000F6BA #
413 0000F6BA #
414 0000F6BA # /****************************************************************************
415 0000F6BA # * Report an "FPP QUEUE NOT CLEARED BY THE EVENT" error
416 0000F6BA # *
417 0000F6BA # * Cycle: xx. EVT test xx. subtest xx. index = xx. FPP queue not cleared.
418 0000F6BA # * inst = LDD op1, DIVD op2, MOVL op3,op4; CVDL op5 (alignment fault on the MOVL)
419 0000F6BA # * op1 = xxxxxxxx xxxxxxxx, final Acc. = xxxxxxxx xxxxxxxx
420 0000F6BA # * op2 = xxxxxxxx xxxxxxxx, final op5 = xxxxxxxx
421 0000F6BA # ****************************************************************************/
422 0000F6BA # pipe1_queue_err()
423 0000F6BA # {
424 0000F6BA 13 0100 jbr L432
425 0000F6BD L433:
426 0000F6BD # errcnt++; /* bump the error count */
427 0000F6BD 6d effffffc89 incl _errcnt
428 0000F6C3 # if ( prt_error )
429 0000F6C3 5d effffffc83 tstl _prt_error
430 0000F6C9 21 03 13 00c8 jeql L434
431 0000F6CE # {
432 0000F6CE # print_pipe1_err( ". FPP queue not cleared." );
433 0000F6CE .data 1
434 0000070a * L435:
435 0000070a * 2E20465050207175657565206 .ascii ". FPP queue not cleared.\0"
E6F7420636C65617265642E00
436 00000723 * .text
437 0000F6CE dd 8f0000070a pushl $L435
438 0000F6D4 fe 08 ef000000e5 callf $8,_print_pipe1_err
439 0000F6DB # writes("op1 = ");
440 0000F6DB .data 1
441 00000723 * L436:
442 00000723 * 6F7031203D2000 .ascii "op1 = \0"
443 0000072a * .text
444 0000F6DB dd 8f00000723 pushl $L436
445 0000F6E1 fe 08 effffffc64 callf $8,_writes
446 0000F6E8 # write32h( dbl_value_1.m );
447 0000F6E8 dd effffffc5e pushl _dbl_value_1
448 0000F6EE fe 08 effffffc57 callf $8,_write32h
449 0000F6F5 # writes(" ");
450 0000F6F5 .data 1
451 0000072a * L437:
452 0000072a * 2000 .ascii " \0"
453 0000072c * .text
454 0000F6F5 dd 8f0000072a pushl $L437
455 0000F6FB fe 08 effffffc4a callf $8,_writes
456 0000F702 # write32h( dbl_value_1.l );
457 0000F702 dd effffffc48 pushl _dbl_value_1+4
458 0000F708 fe 08 effffffc3d callf $8,_write32h
459 0000F70F # writes(", final Acc. = ");
460 0000F70F .data 1
461 0000072c * L438:
462 0000072c * 2C20202066696E616C2041636 .ascii ", final Acc. = \0"
32E203D2000
463 0000073e * .text
464 0000F70F dd 8f0000072c pushl $L438
465 0000F715 fe 08 effffffc30 callf $8,_writes
466 0000F71C # write32h( post_evt_acc.m );
467 0000F71C dd effffffc2a pushl _post_evt_acc
468 0000F722 fe 08 effffffc23 callf $8,_write32h
469 0000F729 # writec(' ');
470 0000F729 dd 20 pushl $32
471 0000F72B fe 08 effffffc1a callf $8,_writec
472 0000F732 # write32h( post_evt_acc.l );
473 0000F732 dd effffffc18 pushl _post_evt_acc+4
474 0000F738 fe 08 effffffc0d callf $8,_write32h
475 0000F73F # writes("\nop2 = ");
476 0000F73F .data 1
477 0000073e * L439:
478 0000073e * 0A6F7032203D2000 .ascii "\12op2 = \0"
479 00000746 * .text
480 0000F73F dd 8f0000073e pushl $L439
481 0000F745 fe 08 effffffc00 callf $8,_writes
482 0000F74C # write32h( dbl_value_2.m );
483 0000F74C dd effffffbfa pushl _dbl_value_2
484 0000F752 fe 08 effffffbf3 callf $8,_write32h
485 0000F759 # writes(" ");
486 0000F759 .data 1
487 00000746 * L440:
488 00000746 * 2000 .ascii " \0"
489 00000748 * .text
490 0000F759 dd 8f00000746 pushl $L440
491 0000F75F fe 08 effffffbe6 callf $8,_writes
492 0000F766 # write32h( dbl_value_2.l );
493 0000F766 dd effffffbe4 pushl _dbl_value_2+4
494 0000F76C fe 08 effffffbd9 callf $8,_write32h
495 0000F773 # writes(", final op5 = ");
496 0000F773 .data 1
497 00000748 * L441:
498 00000748 * 2C2020202066696E616C206F7 .ascii ", final op5 = \0"
035203D2000
499 0000075a * .text
500 0000F773 dd 8f00000748 pushl $L441
501 0000F779 fe 08 effffffbcc callf $8,_writes
502 0000F780 # write32h( sgl_value_10 );
503 0000F780 dd effffffbc6 pushl _sgl_value_10
504 0000F786 fe 08 effffffbbf callf $8,_write32h
505 0000F78D # writec('\n');
506 0000F78D dd 0a pushl $10
507 0000F78F fe 08 effffffbb6 callf $8,_writec
508 0000F796 # }
509 0000F796 # if ( halt_flg ) /* halt on error? */
510 0000F796 L434:
511 0000F796 5d effffffbb0 tstl _halt_flg
512 0000F79C 31 09 jeql L442
513 0000F79E # pipe1_halt( 3 );
514 0000F79E dd 03 pushl $3
515 0000F7A0 fe 08 ef000000d1 callf $8,_pipe1_halt
516 0000F7A7 # if ( loop_on_err )
517 0000F7A7 L442:
518 0000F7A7 5d effffffb9f tstl _loop_on_err
519 0000F7AD 31 0d jeql L443
520 0000F7AF # {
521 0000F7AF # force_loop = TRUE; /* set the force loop flag */
522 0000F7AF 0d 01 effffffb96 movl $1,_force_loop
523 0000F7B6 # asm("jmp _pipe1_lp1"); /* and loop */
524 0000F7B6 71 effffffc38 jmp _pipe1_lp1
525 0000F7BC # };
526 0000F7BC L443:
527 0000F7BC # }
528 0000F7BC 40 ret#2
529 0000F7BD .set L430,0x0
530 0000F7BD L432:
531 0000F7BD 13 fefd jbr L433
532 0000F7C0 .data
533 0000065c * .text
534 0000F7C0 .align 1
535 0000F7C0 .globl _print_pipe1_err
536 0000F7C0 _print_pipe1_err:
537 0000F7C0 0000 .word L444
538 0000F7C2 #
539 0000F7C2 #
540 0000F7C2 # /****************************************************************************
541 0000F7C2 # * Print an error message of the form:
542 0000F7C2 # *
543 0000F7C2 # * Cycle: xx. EVT test xx. subtest xx. <your message here>. index = xx
544 0000F7C2 # * inst = LDD op1, DIVD op2, MOVL op3,op4; CVDL op5 (alignment fault on the MOVL)
545 0000F7C2 # ****************************************************************************/
546 0000F7C2 # print_pipe1_err( msg )
547 0000F7C2 # char *msg; /* pointer to error message */
548 0000F7C2 # {
549 0000F7C2 13 00b0 jbr L446
550 0000F7C5 L447:
551 0000F7C5 # if( errcnt == 1 ) /* 1st error? */
552 0000F7C5 1d effffffb81 01 cmpl _errcnt,$1
553 0000F7CC 21 0d jneq L448
554 0000F7CE # writes(" \n"); /* start a new print line */
555 0000F7CE .data 1
556 0000075a * L449:
557 0000075a * 200A00 .ascii " \12\0"
558 0000075d * .text
559 0000F7CE dd 8f0000075a pushl $L449
560 0000F7D4 fe 08 effffffb71 callf $8,_writes
561 0000F7DB # writes("Cycle: ");
562 0000F7DB L448:
563 0000F7DB .data 1
564 0000075d * L450:
565 0000075d * 4379636C653A2000 .ascii "Cycle: \0"
566 00000765 * .text
567 0000F7DB dd 8f0000075d pushl $L450
568 0000F7E1 fe 08 effffffb64 callf $8,_writes
569 0000F7E8 # writed( cycle );
570 0000F7E8 dd effffffb5e pushl _cycle
571 0000F7EE fe 08 effffffb57 callf $8,_writed
572 0000F7F5 # writes(" EVT test ");
573 0000F7F5 .data 1
574 00000765 * L452:
575 00000765 * 202045565420746573742000 .ascii " EVT test \0"
576 00000771 * .text
577 0000F7F5 dd 8f00000765 pushl $L452
578 0000F7FB fe 08 effffffb4a callf $8,_writes
579 0000F802 # writed( test_no );
580 0000F802 dd effffffb44 pushl _test_no
581 0000F808 fe 08 effffffb3d callf $8,_writed
582 0000F80F # writes(". subtest ");
583 0000F80F .data 1
584 00000771 * L453:
585 00000771 * 2E20737562746573742000 .ascii ". subtest \0"
586 0000077c * .text
587 0000F80F dd 8f00000771 pushl $L453
588 0000F815 fe 08 effffffb30 callf $8,_writes
589 0000F81C # writed( subtest );
590 0000F81C dd effffffb2a pushl _subtest
591 0000F822 fe 08 effffffb23 callf $8,_writed
592 0000F829 # writes(". ");
593 0000F829 .data 1
594 0000077c * L454:
595 0000077c * 2E2000 .ascii ". \0"
596 0000077f * .text
597 0000F829 dd 8f0000077c pushl $L454
598 0000F82F fe 08 effffffb16 callf $8,_writes
599 0000F836 # writes( msg ); /* write the message */
600 0000F836 dd ad04 pushl 4(fp)
601 0000F839 fe 08 effffffb0c callf $8,_writes
602 0000F840 # writes(" index = ");
603 0000F840 .data 1
604 0000077f * L455:
605 0000077f * 20696E646578203D2000 .ascii " index = \0"
606 00000789 * .text
607 0000F840 dd 8f0000077f pushl $L455
608 0000F846 fe 08 effffffaff callf $8,_writes
609 0000F84D # writed( index );
610 0000F84D dd effffffaf9 pushl _index
611 0000F853 fe 08 effffffaf2 callf $8,_writed
612 0000F85A # writes( "\ninst = LDD op1, DIVD op2, MOVL op3,op4; CVDL op5 " );
613 0000F85A .data 1
614 00000789 * L456:
615 00000789 * 0A696E7374203D204C4444206 .ascii "\12inst = LDD op1, DIVD op2, MOVL op3,op4; CVDL op5 \0"
F70312C2044495644206F7032
2C204D4F564C206F70332C6F7
0343B204356444C206F703520
00
616 000007bc * .text
617 0000F85A dd 8f00000789 pushl $L456
618 0000F860 fe 08 effffffae5 callf $8,_writes
619 0000F867 # writes( "(alignment fault on the MOVL)\n" );
620 0000F867 .data 1
621 000007bc * L457:
622 000007bc * 28616C69676E6D656E7420666 .ascii "(alignment fault on the MOVL)\12\0"
1756C74206F6E20746865204D
4F564C290A00
623 000007db * .text
624 0000F867 dd 8f000007bc pushl $L457
625 0000F86D fe 08 effffffad8 callf $8,_writes
626 0000F874 # }
627 0000F874 40 ret#2
628 0000F875 .set L444,0x0
629 0000F875 L446:
630 0000F875 13 ff4d jbr L447
631 0000F878 .data
632 0000065c * .text
633 0000F878 .align 1
634 0000F878 .globl _pipe1_halt
635 0000F878 _pipe1_halt:
636 0000F878 0000 .word L458
637 0000F87A #
638 0000F87A #
639 0000F87A # /****************************************************************************
640 0000F87A # * Error Halt Routine
641 0000F87A # ****************************************************************************/
642 0000F87A # pipe1_halt( code )
643 0000F87A # int code; /* halt code to use */
644 0000F87A # {
645 0000F87A 13 0126 jbr L460
646 0000F87D L461:
647 0000F87D # err_code = code;
648 0000F87D 0d ad04 effffffac7 movl 4(fp),_err_code
649 0000F885 # sgl_value_1 = dbl_value_1.m;
650 0000F885 0d effffffac1 effffffabc movl _dbl_value_1,_sgl_value_1
651 0000F890 # sgl_value_2 = dbl_value_1.l;
652 0000F890 0d effffffaba effffffab1 movl _dbl_value_1+4,_sgl_value_2
653 0000F89B # sgl_value_3 = dbl_value_2.m;
654 0000F89B 0d effffffaab effffffaa6 movl _dbl_value_2,_sgl_value_3
655 0000F8A6 # sgl_value_4 = dbl_value_2.l;
656 0000F8A6 0d effffffaa4 effffffa9b movl _dbl_value_2+4,_sgl_value_4
657 0000F8B1 # asm("movl _test_no,r0"); /* r0 = test number */
658 0000F8B1 0d effffffa95 50 movl _test_no,r0
659 0000F8B8 # asm("movl _subtest,r1"); /* r1 = subtest number */
660 0000F8B8 0d effffffa8e 51 movl _subtest,r1
661 0000F8BF # asm("movl _err_code,r2"); /* r2 = error code */
662 0000F8BF 0d effffffa87 52 movl _err_code,r2
663 0000F8C6 # asm("movl _cycle,r3"); /* r3 = cycle count */
664 0000F8C6 0d effffffa80 53 movl _cycle,r3
665 0000F8CD # asm("movl _sgl_value_1,r4"); /* r4 = MSW of operand 1 */
666 0000F8CD 0d effffffa79 54 movl _sgl_value_1,r4
667 0000F8D4 # asm("movl _sgl_value_2,r5"); /* r5 = LSW of operand 1 */
668 0000F8D4 0d effffffa72 55 movl _sgl_value_2,r5
669 0000F8DB # asm("movl _sgl_value_3,r6"); /* r6 = MSW of operand 2 */
670 0000F8DB 0d effffffa6b 56 movl _sgl_value_3,r6
671 0000F8E2 # asm("movl _sgl_value_4,r7"); /* r7 = LSW of operand 2 */
672 0000F8E2 0d effffffa64 57 movl _sgl_value_4,r7
673 0000F8E9 # if( code == 1 ) {
674 0000F8E9 1d ad04 01 cmpl 4(fp),$1
675 0000F8ED 21 18 jneq L462
676 0000F8EF # asm("movab _sgl_dummy1+1,r8"); /* r8 = 1st movl op addr. */
677 0000F8EF e9 effffffa58 58 movab _sgl_dummy1+1,r8
678 0000F8F6 # asm("movab _sgl_dummy2+2,r9"); /* r9 = 2nd movl op addr. */
679 0000F8F6 e9 effffffa52 59 movab _sgl_dummy2+2,r9
680 0000F8FD # asm("movl _index,r10"); /* r10 = data index */
681 0000F8FD 0d effffffa49 5a movl _index,r10
682 0000F904 # }
683 0000F904 # else if( code == 2 ) {
684 0000F904 13 009a jbr L463
685 0000F907 L462:
686 0000F907 1d ad04 02 cmpl 4(fp),$2
687 0000F90B 21 51 jneq L464
688 0000F90D # sgl_value_5 = post_evt_acc.m;
689 0000F90D 0d effffffa39 effffffa34 movl _post_evt_acc,_sgl_value_5
690 0000F918 # sgl_value_6 = post_evt_acc.l;
691 0000F918 0d effffffa32 effffffa29 movl _post_evt_acc+4,_sgl_value_6
692 0000F923 # sgl_value_7 = dbl_expected.m;
693 0000F923 0d effffffa23 effffffa1e movl _dbl_expected,_sgl_value_7
694 0000F92E # sgl_value_8 = dbl_expected.l;
695 0000F92E 0d effffffa1c effffffa13 movl _dbl_expected+4,_sgl_value_8
696 0000F939 # asm("movl _sgl_value_5,r8"); /* r8 = MSW of final acc. */
697 0000F939 0d effffffa0d 58 movl _sgl_value_5,r8
698 0000F940 # asm("movl _sgl_value_6,r9"); /* r9 = LSW of final acc. */
699 0000F940 0d effffffa06 59 movl _sgl_value_6,r9
700 0000F947 # asm("movl _sgl_value_7,r10"); /* r10 = MSW of expected */
701 0000F947 0d effffff9ff 5a movl _sgl_value_7,r10
702 0000F94E # asm("movl _sgl_value_8,r11"); /* r11 = LSW of expected */
703 0000F94E 0d effffff9f8 5b movl _sgl_value_8,r11
704 0000F955 # asm("movl _index,r12"); /* r12 = data index */
705 0000F955 0d effffff9f1 5c movl _index,r12
706 0000F95C # }
707 0000F95C # else if( code == 3 ) {
708 0000F95C 11 43 jbr L465
709 0000F95E L464:
710 0000F95E 1d ad04 03 cmpl 4(fp),$3
711 0000F962 21 3d jneq L466
712 0000F964 # sgl_value_5 = post_evt_acc.m;
713 0000F964 0d effffff9e2 effffff9dd movl _post_evt_acc,_sgl_value_5
714 0000F96F # sgl_value_6 = post_evt_acc.l;
715 0000F96F 0d effffff9db effffff9d2 movl _post_evt_acc+4,_sgl_value_6
716 0000F97A # sgl_value_7 = sgl_value_10;
717 0000F97A 0d effffff9cc effffff9c7 movl _sgl_value_10,_sgl_value_7
718 0000F985 # asm("movl _sgl_value_5,r8"); /* r8 = MSW of final acc. */
719 0000F985 0d effffff9c1 58 movl _sgl_value_5,r8
720 0000F98C # asm("movl _sgl_value_6,r9"); /* r9 = LSW of final acc. */
721 0000F98C 0d effffff9ba 59 movl _sgl_value_6,r9
722 0000F993 # asm("movl _sgl_value_7,r10"); /* r10 = integer stored */
723 0000F993 0d effffff9b3 5a movl _sgl_value_7,r10
724 0000F99A # asm("movl _index,r11"); /* r11 = data index */
725 0000F99A 0d effffff9ac 5b movl _index,r11
726 0000F9A1 # };
727 0000F9A1 L466:
728 0000F9A1 L465:
729 0000F9A1 L463:
730 0000F9A1 # asm("halt");; /* HALT ... */
731 0000F9A1 00 halt
732 0000F9A2 # };
733 0000F9A2 40 ret#2
734 0000F9A3 .set L458,0x0
735 0000F9A3 L460:
736 0000F9A3 13 fed7 jbr L461
737 0000F9A6 .data
738 0000065c * #
738 0000065c * #
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.