![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to pipe8.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 pipe8.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 000003d0 * .text
4 00000000 .align 1
5 00000000 .globl _pipe8
6 00000000 _pipe8:
7 00011CBC 0000 .word L381
8 00011CBE #
9 00011CBE # #include "evt_defs.h"
10 00011CBE #
11 00011CBE # /*
12 00011CBE # *********************************************************************
13 00011CBE # * FPP PIPELINED EVENTS TEST #8
14 00011CBE # *
15 00011CBE # * This test will execute the following code: "LDF EXPF CVLF"
16 00011CBE # * with an underflow fault on the EXPF. We will make sure that:
17 00011CBE # * 1. The fault is detected, and
18 00011CBE # * 2. the convert long to float instruction is not executed.
19 00011CBE # *********************************************************************
20 00011CBE # */
21 00011CBE # pipe8()
22 00011CBE # {
23 00011CBE 13 00fe jbr L383
24 00011CC1 L384:
25 00011CC1 # asm("moval (r13),_pre_event_fp"); /* save the frame pointer */
26 00011CC1 ed 6d effffffff4 moval (r13),_pre_event_fp
27 00011CC8 # asm("moval (r14),_pre_event_sp"); /* save the stack pointer */
28 00011CC8 ed 6e efffffffed moval (r14),_pre_event_sp
29 00011CCF # precision = SGL;
30 00011CCF 0d 01 efffffffe6 movl $1,_precision
31 00011CD6 # test_event = ARITH_CODE; /* expect an arithmetic fault */
32 00011CD6 0d 34 efffffffdf movl $52,_test_event
33 00011CDD # exp_code = FLT_UNDFL_CODE; /* - an specificly underflow */
34 00011CDD 0d 05 efffffffd8 movl $5,_exp_code
35 00011CE4 # exp_event = FALSE; /* ... but not yet */
36 00011CE4 4d efffffffd2 clrl _exp_event
37 00011CEA # asm("movab _pipe8_ret,_event_return"); /* set event return address */
38 00011CEA e9 ef00000084 efffffffc7 movab _pipe8_ret,_event_return
39 00011CF5 # max_index = exf_u_cnt; /* set max operand index */
40 00011CF5 0d efffffffc1 efffffffbc movl _exf_u_cnt,_max_index
41 00011D00 # for( index = 0; index < max_index; index++ )
42 00011D00 4d efffffffb6 clrl _index
43 00011D06 L387:
44 00011D06 1d efffffffb0 efffffffab cmpl _index,_max_index
45 00011D11 91 03 13 00a8 jgeq L386
46 00011D16 # {
47 00011D16 # dbl_ld_acc = exf_u_dat[index].op_1; /* get the data */
48 00011D16 48 04 efffffff9f 50 shll $4,_index,r0
49 00011D1E 0c 8f00000000 50 addl2 $_exf_u_dat,r0
50 00011D25 0d a004 efffffff93 movl 4(r0),_dbl_ld_acc+4
51 00011D2D 0d 60 efffffff88 movl (r0),_dbl_ld_acc
52 00011D34 # asm(".globl _pipe8_lp1");
53 00011D34 .globl _pipe8_lp1
54 00011D34 # asm("_pipe8_lp1:");
55 00011D34 _pipe8_lp1:
56 00011D34 # asm("bispsw $0x60"); /* enable ovfl,undfl */
57 00011D34 8b 8860 bispsw $0x60
58 00011D37 # asm("ldf _dbl_ld_acc"); /* load the Acc. */
59 00011D37 06 efffffff7f ldf _dbl_ld_acc
60 00011D3D # exp_event = test_event; /* expect event soon */
61 00011D3D 0d efffffff79 efffffff74 movl _test_event,_exp_event
62 00011D48 # asm("expf"); /* get undfl. event */
63 00011D48 55 expf
64 00011D49 # asm("cvlf $2"); /* queue the convert */
65 00011D49 76 02 cvlf $2
66 00011D4B # /*
67 00011D4B # * If we got to here then there was no event
68 00011D4B # */
69 00011D4B # if( force_loop )
70 00011D4B 5d efffffff6b tstl _force_loop
71 00011D51 31 03 jeql L388
72 00011D53 # asm("brw _pipe8_lp1");; /* loop on the error */
Assemb0002947C # asm("brw _pipe8_lp1");; /* loop on the error */
"pipe80002947C 73: WARNING: brw: destination label is external
73 00011D53 13 ffde brw _pipe8_lp1
74 00011D56 L388:
75 00011D56 # exp_event = FALSE; /* reset event expected flag */
76 00011D56 4d efffffff60 clrl _exp_event
77 00011D5C # asm("movl _pre_event_fp,fp"); /* restore the frame pointer */
78 00011D5C 0d efffffff5a 5d movl _pre_event_fp,fp
79 00011D63 # asm("movl _pre_event_sp,sp"); /* restore the stack pointer */
80 00011D63 0d efffffff53 5e movl _pre_event_sp,sp
81 00011D6A # asm("bicpsw $0x60"); /* disable ovfl & undfl evts */
82 00011D6A 9b 8860 bicpsw $0x60
83 00011D6D # no_pipe8_evt();; /* report the error */
84 00011D6D fe 04 ef0000004e callf $4,_no_pipe8_evt
85 00011D74 # /*
86 00011D74 # * Come here after the event
87 00011D74 # */
88 00011D74 # asm(".globl _pipe8_ret");
89 00011D74 .globl _pipe8_ret
90 00011D74 # asm("_pipe8_ret:");
91 00011D74 _pipe8_ret:
92 00011D74 # asm("movl _pre_event_fp,fp"); /* restore the frame pointer */
93 00011D74 0d efffffff42 5d movl _pre_event_fp,fp
94 00011D7B # asm("movl _pre_event_sp,sp"); /* restore the stack pointer */
95 00011D7B 0d efffffff3b 5e movl _pre_event_sp,sp
96 00011D82 # if( force_loop )
97 00011D82 5d efffffff34 tstl _force_loop
98 00011D88 31 03 jeql L390
99 00011D8A # asm("brw _pipe8_lp1");; /* loop on the error */
"pipe80002947C 100: WARNING: brw: destination label is external
100 00011D8A 13 ffa7 brw _pipe8_lp1
101 00011D8D L390:
102 00011D8D # asm("bicpsw $0x60"); /* disable ovfl & undfl evts */
103 00011D8D 9b 8860 bicpsw $0x60
104 00011D90 # if( post_evt_acc.m == 0x41000000 ) /* is the Acc. = floating 2? */
105 00011D90 1d efffffff26 8f41000000 cmpl _post_evt_acc,$1090519040
106 00011D9B 21 09 jneq L391
107 00011D9D # pipe8_queue_er(); /* queue not cleared error */
108 00011D9D fe 04 ef00000134 callf $4,_pipe8_queue_er
109 00011DA4 # else if( post_evt_acc.m ) /* is the Acc. non zero? */
110 00011DA4 11 0f jbr L393
111 00011DA6 L391:
112 00011DA6 5d efffffff10 tstl _post_evt_acc
113 00011DAC 31 07 jeql L394
114 00011DAE # bad_pipe8_result(); /* incorrect result error */
115 00011DAE fe 04 ef00000079 callf $4,_bad_pipe8_result
116 00011DB5 #
117 00011DB5 # }
118 00011DB5 L394:
119 00011DB5 L393:
120 00011DB5 L385:
121 00011DB5 6d efffffff01 incl _index
122 00011DBB 13 ff48 jbr L387
123 00011DBE L386:
124 00011DBE # }
125 00011DBE 40 ret#2
126 00011DBF .set L381,0x0
127 00011DBF L383:
128 00011DBF 13 feff jbr L384
129 00011DC2 .data
130 000003d0 * .text
131 00011DC2 .align 1
132 00011DC2 .globl _no_pipe8_evt
133 00011DC2 _no_pipe8_evt:
134 00011DC2 0000 .word L396
135 00011DC4 #
136 00011DC4 #
137 00011DC4 #
138 00011DC4 # /****************************************************************************
139 00011DC4 # * Report an "EVENT NOT DETECTED" error
140 00011DC4 # *
141 00011DC4 # * Cycle: xx. EVT test xx. subtest xx. No underflow fault detected. index = xx
142 00011DC4 # * inst = LDD op_1, EXPF, CVLF '2' (underflow fault on EXPF)
143 00011DC4 # * op_1 = xxxxxxxx
144 00011DC4 # ****************************************************************************/
145 00011DC4 # no_pipe8_evt()
146 00011DC4 # {
147 00011DC4 11 65 jbr L398
148 00011DC6 L399:
149 00011DC6 # errcnt++; /* bump the error count */
150 00011DC6 6d effffffef0 incl _errcnt
151 00011DCC # if ( prt_error )
152 00011DCC 5d effffffeea tstl _prt_error
153 00011DD2 31 30 jeql L400
154 00011DD4 # {
155 00011DD4 # print_pipe8_er( ". No underflow fault detected." );
156 00011DD4 .data 1
157 000003d0 * L402:
158 000003d0 * 2E204E6F20756E646572666C6 .ascii ". No underflow fault detected.\0"
F77206661756C742064657465
637465642E00
159 000003ef * .text
160 00011DD4 dd 8f000003d0 pushl $L402
161 00011DDA fe 08 ef000001a1 callf $8,_print_pipe8_er
162 00011DE1 # writes("op_1 = ");
163 00011DE1 .data 1
164 000003ef * L404:
165 000003ef * 6F705F31203D2000 .ascii "op_1 = \0"
166 000003f7 * .text
167 00011DE1 dd 8f000003ef pushl $L404
168 00011DE7 fe 08 effffffece callf $8,_writes
169 00011DEE # write32h( dbl_ld_acc.m );
170 00011DEE dd effffffec8 pushl _dbl_ld_acc
171 00011DF4 fe 08 effffffec1 callf $8,_write32h
172 00011DFB # writec('\n');
173 00011DFB dd 0a pushl $10
174 00011DFD fe 08 effffffeb8 callf $8,_writec
175 00011E04 # }
176 00011E04 # if ( halt_flg ) /* halt on error? */
177 00011E04 L400:
178 00011E04 5d effffffeb2 tstl _halt_flg
179 00011E0A 31 09 jeql L407
180 00011E0C # pipe8_halt( 1 ); /* halt with a code of 1 */
181 00011E0C dd 01 pushl $1
182 00011E0E fe 08 ef0000020b callf $8,_pipe8_halt
183 00011E15 # if ( loop_on_err )
184 00011E15 L407:
185 00011E15 5d effffffea1 tstl _loop_on_err
186 00011E1B 31 0d jeql L409
187 00011E1D # {
188 00011E1D # force_loop = TRUE; /* set the force loop flag */
189 00011E1D 0d 01 effffffe98 movl $1,_force_loop
190 00011E24 # asm("jmp _pipe8_lp1"); /* and loop */
191 00011E24 71 efffffff0a jmp _pipe8_lp1
192 00011E2A # };
193 00011E2A L409:
194 00011E2A # }
195 00011E2A 40 ret#2
196 00011E2B .set L396,0x0
197 00011E2B L398:
198 00011E2B 11 99 jbr L399
199 00011E2D .data
200 000003d0 * .text
201 00011E2D 00 .align 1
202 00011E2E .globl _bad_pipe8_result
203 00011E2E _bad_pipe8_result:
204 00011E2E 0000 .word L410
205 00011E30 #
206 00011E30 #
207 00011E30 #
208 00011E30 #
209 00011E30 # /****************************************************************************
210 00011E30 # * Report an "BAD ACCUMULATOR AFTER THE EVENT" error
211 00011E30 # *
212 00011E30 # * Cycle: xx. EVT test xx. subtest xx. Bad final Accumulator. index = xx
213 00011E30 # * inst = LDD op_1, EXPF, CVLF '2' (underflow fault on EXPF)
214 00011E30 # * The 'Convert '2' to Floating Point' should not be executed.
215 00011E30 # * op_1 = xxxxxxxx, final Acc. = xxxxxxxx, expected = xxxxxxxx
216 00011E30 # ****************************************************************************/
217 00011E30 # bad_pipe8_result()
218 00011E30 # {
219 00011E30 13 00a2 jbr L412
220 00011E33 L413:
221 00011E33 # errcnt++; /* bump the error count */
222 00011E33 6d effffffe83 incl _errcnt
223 00011E39 # if ( prt_error )
224 00011E39 5d effffffe7d tstl _prt_error
225 00011E3F 31 6d jeql L414
226 00011E41 # {
227 00011E41 # print_pipe8_er( ". Bad final Accumulator" );
228 00011E41 .data 1
229 000003f7 * L415:
230 000003f7 * 2E204261642066696E616C204 .ascii ". Bad final Accumulator\0"
16363756D756C61746F7200
231 0000040f * .text
232 00011E41 dd 8f000003f7 pushl $L415
233 00011E47 fe 08 ef00000134 callf $8,_print_pipe8_er
234 00011E4E # writes(
235 00011E4E # "The 'Convert '2' to Floating Point' should not be executed\n");
236 00011E4E .data 1
237 0000040f * L416:
238 0000040f * 5468652027436F6E766572742 .ascii "The 'Convert '2' to Floating Point' should not be executed\12\0"
027322720746F20466C6F6174
696E6720506F696E742720736
86F756C64206E6F7420626520
65786563757465640A00
239 0000044b * .text
240 00011E4E dd 8f0000040f pushl $L416
241 00011E54 fe 08 effffffe61 callf $8,_writes
242 00011E5B # writes("op_1 = ");
243 00011E5B .data 1
244 0000044b * L417:
245 0000044b * 6F705F31203D2000 .ascii "op_1 = \0"
246 00000453 * .text
247 00011E5B dd 8f0000044b pushl $L417
248 00011E61 fe 08 effffffe54 callf $8,_writes
249 00011E68 # write32h( dbl_ld_acc.m );
250 00011E68 dd effffffe4e pushl _dbl_ld_acc
251 00011E6E fe 08 effffffe47 callf $8,_write32h
252 00011E75 # writes(", final Acc. = ");
253 00011E75 .data 1
254 00000453 * L418:
255 00000453 * 2C20202066696E616C2041636 .ascii ", final Acc. = \0"
32E203D2000
256 00000465 * .text
257 00011E75 dd 8f00000453 pushl $L418
258 00011E7B fe 08 effffffe3a callf $8,_writes
259 00011E82 # write32h( post_evt_acc.m );
260 00011E82 dd effffffe34 pushl _post_evt_acc
261 00011E88 fe 08 effffffe2d callf $8,_write32h
262 00011E8F # writes(", expected = ");
263 00011E8F .data 1
264 00000465 * L419:
265 00000465 * 2C20202065787065637465642 .ascii ", expected = \0"
020203D2000
266 00000477 * .text
267 00011E8F dd 8f00000465 pushl $L419
268 00011E95 fe 08 effffffe20 callf $8,_writes
269 00011E9C # write32h( 0 ); /* the expected result = 0 */
270 00011E9C dd 00 pushl $0
271 00011E9E fe 08 effffffe17 callf $8,_write32h
272 00011EA5 # writec('\n');
273 00011EA5 dd 0a pushl $10
274 00011EA7 fe 08 effffffe0e callf $8,_writec
275 00011EAE # }
276 00011EAE # if ( halt_flg ) /* halt on error? */
277 00011EAE L414:
278 00011EAE 5d effffffe08 tstl _halt_flg
279 00011EB4 31 09 jeql L420
280 00011EB6 # pipe8_halt( 2 ); /* halt with a code of 2 */
281 00011EB6 dd 02 pushl $2
282 00011EB8 fe 08 ef00000161 callf $8,_pipe8_halt
283 00011EBF # if ( loop_on_err )
284 00011EBF L420:
285 00011EBF 5d effffffdf7 tstl _loop_on_err
286 00011EC5 31 0d jeql L421
287 00011EC7 # {
288 00011EC7 # force_loop = TRUE; /* set the force loop flag */
289 00011EC7 0d 01 effffffdee movl $1,_force_loop
290 00011ECE # asm("jmp _pipe8_lp1"); /* and loop */
291 00011ECE 71 effffffe60 jmp _pipe8_lp1
292 00011ED4 # };
293 00011ED4 L421:
294 00011ED4 # }
295 00011ED4 40 ret#2
296 00011ED5 .set L410,0x0
297 00011ED5 L412:
298 00011ED5 13 ff5b jbr L413
299 00011ED8 .data
300 000003d0 * .text
301 00011ED8 .align 1
302 00011ED8 .globl _pipe8_queue_er
303 00011ED8 _pipe8_queue_er:
304 00011ED8 0000 .word L422
305 00011EDA #
306 00011EDA #
307 00011EDA #
308 00011EDA #
309 00011EDA #
310 00011EDA # /****************************************************************************
311 00011EDA # * Report an "FPP queue not cleared" message
312 00011EDA # *
313 00011EDA # * Cycle: xx. EVT test xx. subtest xx. Fpp queue not cleared. index = xx
314 00011EDA # * inst = LDD op_1, EXPF, CVLF '2' (underflow fault on EXPF)
315 00011EDA # * The 'Convert '2' to Floating Point' was apparently executed.
316 00011EDA # * op_1 = xxxxxxxx, final Acc. = xxxxxxxx, expected = xxxxxxxx
317 00011EDA # ****************************************************************************/
318 00011EDA # pipe8_queue_er()
319 00011EDA # {
320 00011EDA 13 00a2 jbr L424
321 00011EDD L425:
322 00011EDD # errcnt++; /* bump the error count */
323 00011EDD 6d effffffdd9 incl _errcnt
324 00011EE3 # if ( prt_error )
325 00011EE3 5d effffffdd3 tstl _prt_error
326 00011EE9 31 6d jeql L426
327 00011EEB # {
328 00011EEB # print_pipe8_er( ". Fpp queue not cleared" );
329 00011EEB .data 1
330 00000477 * L427:
331 00000477 * 2E20467070207175657565206 .ascii ". Fpp queue not cleared\0"
E6F7420636C656172656400
332 0000048f * .text
333 00011EEB dd 8f00000477 pushl $L427
334 00011EF1 fe 08 ef0000008a callf $8,_print_pipe8_er
335 00011EF8 # writes(
336 00011EF8 # "The 'Convert '2' to Floating Point' was apparently executed.\n");
337 00011EF8 .data 1
338 0000048f * L428:
339 0000048f * 5468652027436F6E766572742 .ascii "The 'Convert '2' to Floating Point' was apparently executed.\12\0"
027322720746F20466C6F6174
696E6720506F696E742720776
173206170706172656E746C79
2065786563757465642E0A00
340 000004cd * .text
341 00011EF8 dd 8f0000048f pushl $L428
342 00011EFE fe 08 effffffdb7 callf $8,_writes
343 00011F05 # writes("op_1 = ");
344 00011F05 .data 1
345 000004cd * L429:
346 000004cd * 6F705F31203D2000 .ascii "op_1 = \0"
347 000004d5 * .text
348 00011F05 dd 8f000004cd pushl $L429
349 00011F0B fe 08 effffffdaa callf $8,_writes
350 00011F12 # write32h( dbl_ld_acc.m );
351 00011F12 dd effffffda4 pushl _dbl_ld_acc
352 00011F18 fe 08 effffffd9d callf $8,_write32h
353 00011F1F # writes(", final Acc. = ");
354 00011F1F .data 1
355 000004d5 * L430:
356 000004d5 * 2C20202066696E616C2041636 .ascii ", final Acc. = \0"
32E203D2000
357 000004e7 * .text
358 00011F1F dd 8f000004d5 pushl $L430
359 00011F25 fe 08 effffffd90 callf $8,_writes
360 00011F2C # write32h( post_evt_acc.m );
361 00011F2C dd effffffd8a pushl _post_evt_acc
362 00011F32 fe 08 effffffd83 callf $8,_write32h
363 00011F39 # writes(", expected = ");
364 00011F39 .data 1
365 000004e7 * L431:
366 000004e7 * 2C20202065787065637465642 .ascii ", expected = \0"
020203D2000
367 000004f9 * .text
368 00011F39 dd 8f000004e7 pushl $L431
369 00011F3F fe 08 effffffd76 callf $8,_writes
370 00011F46 # write32h( 0 ); /* expected result = 0 */
371 00011F46 dd 00 pushl $0
372 00011F48 fe 08 effffffd6d callf $8,_write32h
373 00011F4F # writec('\n');
374 00011F4F dd 0a pushl $10
375 00011F51 fe 08 effffffd64 callf $8,_writec
376 00011F58 # }
377 00011F58 # if ( halt_flg ) /* halt on error? */
378 00011F58 L426:
379 00011F58 5d effffffd5e tstl _halt_flg
380 00011F5E 31 09 jeql L432
381 00011F60 # pipe8_halt( 3 ); /* halt with a code of 3 */
382 00011F60 dd 03 pushl $3
383 00011F62 fe 08 ef000000b7 callf $8,_pipe8_halt
384 00011F69 # if ( loop_on_err )
385 00011F69 L432:
386 00011F69 5d effffffd4d tstl _loop_on_err
387 00011F6F 31 0d jeql L433
388 00011F71 # {
389 00011F71 # force_loop = TRUE; /* set the force loop flag */
390 00011F71 0d 01 effffffd44 movl $1,_force_loop
391 00011F78 # asm("jmp _pipe8_lp1"); /* and loop */
392 00011F78 71 effffffdb6 jmp _pipe8_lp1
393 00011F7E # };
394 00011F7E L433:
395 00011F7E # }
396 00011F7E 40 ret#2
397 00011F7F .set L422,0x0
398 00011F7F L424:
399 00011F7F 13 ff5b jbr L425
400 00011F82 .data
401 000003d0 * .text
402 00011F82 .align 1
403 00011F82 .globl _print_pipe8_er
404 00011F82 _print_pipe8_er:
405 00011F82 0000 .word L434
406 00011F84 #
407 00011F84 #
408 00011F84 #
409 00011F84 #
410 00011F84 # /****************************************************************************
411 00011F84 # * Report an error message of the form:
412 00011F84 # *
413 00011F84 # * Cycle: xx. EVT test xx. subtest xx. <your message here> index = xx
414 00011F84 # * inst = LDD op_1, EXPF, CVLF '2' (underflow fault on EXPF)
415 00011F84 # ****************************************************************************/
416 00011F84 # print_pipe8_er( msg )
417 00011F84 # char *msg; /* error message to print */
418 00011F84 # {
419 00011F84 13 0096 jbr L436
420 00011F87 L437:
421 00011F87 # if( errcnt == 1 ) /* 1st error? */
422 00011F87 1d effffffd2f 01 cmpl _errcnt,$1
423 00011F8E 21 0d jneq L438
424 00011F90 # writes(" \n"); /* start a new print line */
425 00011F90 .data 1
426 000004f9 * L439:
427 000004f9 * 200A00 .ascii " \12\0"
428 000004fc * .text
429 00011F90 dd 8f000004f9 pushl $L439
430 00011F96 fe 08 effffffd1f callf $8,_writes
431 00011F9D # writes("Cycle: ");
432 00011F9D L438:
433 00011F9D .data 1
434 000004fc * L440:
435 000004fc * 4379636C653A2000 .ascii "Cycle: \0"
436 00000504 * .text
437 00011F9D dd 8f000004fc pushl $L440
438 00011FA3 fe 08 effffffd12 callf $8,_writes
439 00011FAA # writed( cycle );
440 00011FAA dd effffffd0c pushl _cycle
441 00011FB0 fe 08 effffffd05 callf $8,_writed
442 00011FB7 # writes(" EVT test ");
443 00011FB7 .data 1
444 00000504 * L442:
445 00000504 * 202045565420746573742000 .ascii " EVT test \0"
446 00000510 * .text
447 00011FB7 dd 8f00000504 pushl $L442
448 00011FBD fe 08 effffffcf8 callf $8,_writes
449 00011FC4 # writed( test_no );
450 00011FC4 dd effffffcf2 pushl _test_no
451 00011FCA fe 08 effffffceb callf $8,_writed
452 00011FD1 # writes(". subtest ");
453 00011FD1 .data 1
454 00000510 * L443:
455 00000510 * 2E20737562746573742000 .ascii ". subtest \0"
456 0000051b * .text
457 00011FD1 dd 8f00000510 pushl $L443
458 00011FD7 fe 08 effffffcde callf $8,_writes
459 00011FDE # writed( subtest );
460 00011FDE dd effffffcd8 pushl _subtest
461 00011FE4 fe 08 effffffcd1 callf $8,_writed
462 00011FEB # writes( msg ); /* print the message */
463 00011FEB dd ad04 pushl 4(fp)
464 00011FEE fe 08 effffffcc7 callf $8,_writes
465 00011FF5 # writes(" index = ");
466 00011FF5 .data 1
467 0000051b * L444:
468 0000051b * 20696E646578203D2000 .ascii " index = \0"
469 00000525 * .text
470 00011FF5 dd 8f0000051b pushl $L444
471 00011FFB fe 08 effffffcba callf $8,_writes
472 00012002 # writed( index );
473 00012002 dd effffffcb4 pushl _index
474 00012008 fe 08 effffffcad callf $8,_writed
475 0001200F # writes(
476 0001200F # "\ninst = LDD op_1, EXPF, CVLF '2' (underflow fault on EXPF)\n");
477 0001200F .data 1
478 00000525 * L445:
479 00000525 * 0A696E7374203D204C4444206 .ascii "\12inst = LDD op_1, EXPF, CVLF '2' (underflow fault on EXPF)\12\0"
F705F312C20455850462C2043
564C462027322720202020287
56E646572666C6F7720666175
6C74206F6E2045585046290A0
0
480 00000564 * .text
481 0001200F dd 8f00000525 pushl $L445
482 00012015 fe 08 effffffca0 callf $8,_writes
483 0001201C # }
484 0001201C 40 ret#2
485 0001201D .set L434,0x0
486 0001201D L436:
487 0001201D 13 ff67 jbr L437
488 00012020 .data
489 000003d0 * .text
490 00012020 .align 1
491 00012020 .globl _pipe8_halt
492 00012020 _pipe8_halt:
493 00012020 0000 .word L446
494 00012022 #
495 00012022 #
496 00012022 #
497 00012022 # /****************************************************************************
498 00012022 # * halt on error routine
499 00012022 # ****************************************************************************/
500 00012022 # pipe8_halt( code )
501 00012022 # int code; /* error code to halt with */
502 00012022 # {
503 00012022 11 63 jbr L448
504 00012024 L449:
505 00012024 # err_code = code;
506 00012024 0d ad04 effffffc90 movl 4(fp),_err_code
507 0001202C # sgl_value_1 = dbl_ld_acc.m;
508 0001202C 0d effffffc8a effffffc85 movl _dbl_ld_acc,_sgl_value_1
509 00012037 # sgl_value_2 = post_evt_acc.m;
510 00012037 0d effffffc7f effffffc7a movl _post_evt_acc,_sgl_value_2
511 00012042 # sgl_value_3 = dbl_expected.m;
512 00012042 0d effffffc74 effffffc6f movl _dbl_expected,_sgl_value_3
513 0001204D # asm("movl _test_no,r0"); /* r0 = test number */
514 0001204D 0d effffffc69 50 movl _test_no,r0
515 00012054 # asm("movl _subtest,r1"); /* r1 = subtest number */
516 00012054 0d effffffc62 51 movl _subtest,r1
517 0001205B # asm("movl _err_code,r2"); /* r2 = error code */
518 0001205B 0d effffffc5b 52 movl _err_code,r2
519 00012062 # asm("movl _cycle,r3"); /* r3 = cycle count */
520 00012062 0d effffffc54 53 movl _cycle,r3
521 00012069 # asm("movl _sgl_value_1,r4"); /* r4 = initial operand */
522 00012069 0d effffffc4d 54 movl _sgl_value_1,r4
523 00012070 # asm("movl _sgl_value_2,r5"); /* r5 = final accumulator */
524 00012070 0d effffffc46 55 movl _sgl_value_2,r5
525 00012077 # asm("movl _sgl_value_3,r6"); /* r6 = expected accumulator */
526 00012077 0d effffffc3f 56 movl _sgl_value_3,r6
527 0001207E # asm("movl _index,r7"); /* r7 = data index */
528 0001207E 0d effffffc38 57 movl _index,r7
529 00012085 # asm("halt"); /* HALT ... */
530 00012085 00 halt
531 00012086 # }
532 00012086 40 ret#2
533 00012087 .set L446,0x0
534 00012087 L448:
535 00012087 11 9b jbr L449
536 00012089 .data
536 00023D45 .data
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.