1 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2 MOTOROLA MICROPROCESSOR & MEMORY TECHNOLOGY GROUP
3 M68000 Hi-Performance Microprocessor Division
4 M68060 Software Package
5 Production Release P1.00 -- October 10, 1994
6
7 M68060 Software Package Copyright © 1993, 1994 Motorola Inc. All rights reserved.
8
9 THE SOFTWARE is provided on an "AS IS" basis and without warranty.
10 To the maximum extent permitted by applicable law,
11 MOTOROLA DISCLAIMS ALL WARRANTIES WHETHER EXPRESS OR IMPLIED,
12 INCLUDING IMPLIED WARRANTIES OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE
13 and any warranty against infringement with regard to the SOFTWARE
14 (INCLUDING ANY MODIFIED VERSIONS THEREOF) and any accompanying written materials.
15
16 To the maximum extent permitted by applicable law,
17 IN NO EVENT SHALL MOTOROLA BE LIABLE FOR ANY DAMAGES WHATSOEVER
18 (INCLUDING WITHOUT LIMITATION, DAMAGES FOR LOSS OF BUSINESS PROFITS,
19 BUSINESS INTERRUPTION, LOSS OF BUSINESS INFORMATION, OR OTHER PECUNIARY LOSS)
20 ARISING OF THE USE OR INABILITY TO USE THE SOFTWARE.
21 Motorola assumes no responsibility for the maintenance and support of the SOFTWARE.
22
23 You are hereby granted a copyright license to use, modify, and distribute the SOFTWARE
24 so long as this entire notice is retained without alteration in any modified and/or
25 redistributed versions, and that such modified versions are clearly identified as such.
26 No licenses are granted by implication, estoppel or otherwise under any patents
27 or trademarks of Motorola, Inc.
28 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
29 #############################################
30 set SREGS, -64
31 set IREGS, -128
32 set IFPREGS, -224
33 set SFPREGS, -320
34 set IFPCREGS, -332
35 set SFPCREGS, -344
36 set ICCR, -346
37 set SCCR, -348
38 set TESTCTR, -352
39 set DATA, -384
40
41 #############################################
42 TESTTOP:
43 bra.l _060TESTS_
44 short 0x0000
45
46 bra.l _060TESTS_unimp
47 short 0x0000
48
49 bra.l _060TESTS_enable
50 short 0x0000
51
52 start_str:
53 string "Testing 68060 FPSP started:\n"
54
55 start_str_unimp:
56 string "Testing 68060 FPSP unimplemented instruction started:\n"
57
58 start_str_enable:
59 string "Testing 68060 FPSP exception enabled started:\n"
60
61 pass_str:
62 string "passed\n"
63
64 fail_str:
65 string " failed\n"
66
67 align 0x4
68 chk_test:
69 tst.l %d0
70 bne.b test_fail
71 test_pass:
72 pea pass_str(%pc)
73 bsr.l _print_str
74 addq.l &0x4,%sp
75 rts
76 test_fail:
77 mov.l %d1,-(%sp)
78 bsr.l _print_num
79 addq.l &0x4,%sp
80
81 pea fail_str(%pc)
82 bsr.l _print_str
83 addq.l &0x4,%sp
84 rts
85
86 #############################################
87 _060TESTS_:
88 link %a6,&-384
89
90 movm.l &0x3f3c,-(%sp)
91 fmovm.x &0xff,-(%sp)
92
93 pea start_str(%pc)
94 bsr.l _print_str
95 addq.l &0x4,%sp
96
97 ### effadd
98 clr.l TESTCTR(%a6)
99 pea effadd_str(%pc)
100 bsr.l _print_str
101 addq.l &0x4,%sp
102
103 bsr.l effadd_0
104
105 bsr.l chk_test
106
107 ### unsupp
108 clr.l TESTCTR(%a6)
109 pea unsupp_str(%pc)
110 bsr.l _print_str
111 addq.l &0x4,%sp
112
113 bsr.l unsupp_0
114
115 bsr.l chk_test
116
117 ### ovfl non-maskable
118 clr.l TESTCTR(%a6)
119 pea ovfl_nm_str(%pc)
120 bsr.l _print_str
121 bsr.l ovfl_nm_0
122
123 bsr.l chk_test
124
125 ### unfl non-maskable
126 clr.l TESTCTR(%a6)
127 pea unfl_nm_str(%pc)
128 bsr.l _print_str
129 bsr.l unfl_nm_0
130
131 bsr.l chk_test
132
133 movm.l (%sp)+,&0x3cfc
134 fmovm.x (%sp)+,&0xff
135
136 unlk %a6
137 rts
138
139 _060TESTS_unimp:
140 link %a6,&-384
141
142 movm.l &0x3f3c,-(%sp)
143 fmovm.x &0xff,-(%sp)
144
145 pea start_str_unimp(%pc)
146 bsr.l _print_str
147 addq.l &0x4,%sp
148
149 ### unimp
150 clr.l TESTCTR(%a6)
151 pea unimp_str(%pc)
152 bsr.l _print_str
153 addq.l &0x4,%sp
154
155 bsr.l unimp_0
156
157 bsr.l chk_test
158
159 movm.l (%sp)+,&0x3cfc
160 fmovm.x (%sp)+,&0xff
161
162 unlk %a6
163 rts
164
165 _060TESTS_enable:
166 link %a6,&-384
167
168 movm.l &0x3f3c,-(%sp)
169 fmovm.x &0xff,-(%sp)
170
171 pea start_str_enable(%pc)
172 bsr.l _print_str
173 addq.l &0x4,%sp
174
175 ### snan
176 clr.l TESTCTR(%a6)
177 pea snan_str(%pc)
178 bsr.l _print_str
179 bsr.l snan_0
180
181 bsr.l chk_test
182
183 ### operr
184 clr.l TESTCTR(%a6)
185 pea operr_str(%pc)
186 bsr.l _print_str
187 bsr.l operr_0
188
189 bsr.l chk_test
190
191 ### ovfl
192 clr.l TESTCTR(%a6)
193 pea ovfl_str(%pc)
194 bsr.l _print_str
195 bsr.l ovfl_0
196
197 bsr.l chk_test
198
199 ### unfl
200 clr.l TESTCTR(%a6)
201 pea unfl_str(%pc)
202 bsr.l _print_str
203 bsr.l unfl_0
204
205 bsr.l chk_test
206
207 ### dz
208 clr.l TESTCTR(%a6)
209 pea dz_str(%pc)
210 bsr.l _print_str
211 bsr.l dz_0
212
213 bsr.l chk_test
214
215 ### inexact
216 clr.l TESTCTR(%a6)
217 pea inex_str(%pc)
218 bsr.l _print_str
219 bsr.l inex_0
220
221 bsr.l chk_test
222
223 movm.l (%sp)+,&0x3cfc
224 fmovm.x (%sp)+,&0xff
225
226 unlk %a6
227 rts
228
229 #############################################
230 #############################################
231
232 unimp_str:
233 string "\tUnimplemented FP instructions..."
234
235 align 0x4
236 unimp_0:
237 addq.l &0x1,TESTCTR(%a6)
238
239 movm.l DEF_REGS(%pc),&0x3fff
240 fmovm.x DEF_FPREGS(%pc),&0xff
241 fmovm.l DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
242
243 mov.w &0x0000,ICCR(%a6)
244 movm.l &0x7fff,IREGS(%a6)
245 fmovm.x &0xff,IFPREGS(%a6)
246 fmovm.l %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
247
248 mov.l &0x40000000,DATA+0x0(%a6)
249 mov.l &0xc90fdaa2,DATA+0x4(%a6)
250 mov.l &0x2168c235,DATA+0x8(%a6)
251
252 mov.w &0x0000,%cc
253 unimp_0_pc:
254 fsin.x DATA(%a6),%fp0
255
256 mov.w %cc,SCCR(%a6)
257 movm.l &0x7fff,SREGS(%a6)
258 fmovm.x &0xff,SFPREGS(%a6)
259 fmovm.l %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
260
261 mov.l &0xbfbf0000,IFPREGS+0x0(%a6)
262 mov.l &0x80000000,IFPREGS+0x4(%a6)
263 mov.l &0x00000000,IFPREGS+0x8(%a6)
264 mov.l &0x08000208,IFPCREGS+0x4(%a6)
265 lea unimp_0_pc(%pc),%a0
266 mov.l %a0,IFPCREGS+0x8(%a6)
267
268 bsr.l chkregs
269 tst.b %d0
270 bne.l error
271
272 bsr.l chkfpregs
273 tst.b %d0
274 bne.l error
275
276 unimp_1:
277 addq.l &0x1,TESTCTR(%a6)
278
279 movm.l DEF_REGS(%pc),&0x3fff
280 fmovm.x DEF_FPREGS(%pc),&0xff
281 fmovm.l DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
282
283 mov.w &0x0000,ICCR(%a6)
284 movm.l &0x7fff,IREGS(%a6)
285 fmovm.x &0xff,IFPREGS(%a6)
286 fmovm.l %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
287
288 mov.l &0x3ffe0000,DATA+0x0(%a6)
289 mov.l &0xc90fdaa2,DATA+0x4(%a6)
290 mov.l &0x2168c235,DATA+0x8(%a6)
291
292 mov.w &0x0000,%cc
293 unimp_1_pc:
294 ftan.x DATA(%a6),%fp0
295
296 mov.w %cc,SCCR(%a6)
297 movm.l &0x7fff,SREGS(%a6)
298 fmovm.x &0xff,SFPREGS(%a6)
299 fmovm.l %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
300
301 mov.l &0x3fff0000,IFPREGS+0x0(%a6)
302 mov.l &0x80000000,IFPREGS+0x4(%a6)
303 mov.l &0x00000000,IFPREGS+0x8(%a6)
304 mov.l &0x00000208,IFPCREGS+0x4(%a6)
305 lea unimp_1_pc(%pc),%a0
306 mov.l %a0,IFPCREGS+0x8(%a6)
307
308 bsr.l chkregs
309 tst.b %d0
310 bne.l error
311
312 bsr.l chkfpregs
313 tst.b %d0
314 bne.l error
315
316
317 unimp_2:
318 addq.l &0x1,TESTCTR(%a6)
319
320 movm.l DEF_REGS(%pc),&0x3fff
321 fmovm.x DEF_FPREGS(%pc),&0xff
322 fmovm.l DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
323
324 mov.w &0x0000,ICCR(%a6)
325 movm.l &0x7fff,IREGS(%a6)
326 fmovm.x &0xff,IFPREGS(%a6)
327 fmovm.l %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
328
329 mov.w &0x0000,%cc
330 unimp_2_pc:
331 fmovcr.x &0x31,%fp0
332
333 mov.w %cc,SCCR(%a6)
334 movm.l &0x7fff,SREGS(%a6)
335 fmovm.x &0xff,SFPREGS(%a6)
336 fmovm.l %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
337
338 mov.l &0x40000000,IFPREGS+0x0(%a6)
339 mov.l &0x935d8ddd,IFPREGS+0x4(%a6)
340 mov.l &0xaaa8ac17,IFPREGS+0x8(%a6)
341 mov.l &0x00000208,IFPCREGS+0x4(%a6)
342 lea unimp_2_pc(%pc),%a0
343 mov.l %a0,IFPCREGS+0x8(%a6)
344
345 bsr.l chkregs
346 tst.b %d0
347 bne.l error
348
349 bsr.l chkfpregs
350 tst.b %d0
351 bne.l error
352
353
354 unimp_3:
355 addq.l &0x1,TESTCTR(%a6)
356
357 movm.l DEF_REGS(%pc),&0x3fff
358 fmovm.x DEF_FPREGS(%pc),&0xff
359 fmovm.l DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
360
361 fmov.l &0x0f000000,%fpsr
362 mov.l &0x00,%d7
363
364 mov.w &0x0000,ICCR(%a6)
365 movm.l &0x7fff,IREGS(%a6)
366 fmovm.x &0xff,IFPREGS(%a6)
367 fmovm.l %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
368
369 mov.w &0x0000,%cc
370 unimp_3_pc:
371 fsgt %d7
372
373 mov.w %cc,SCCR(%a6)
374 movm.l &0x7fff,SREGS(%a6)
375 fmovm.x &0xff,SFPREGS(%a6)
376 fmovm.l %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
377 mov.l &0x0f008080,IFPCREGS+0x4(%a6)
378 lea unimp_3_pc(%pc),%a0
379 mov.l %a0,IFPCREGS+0x8(%a6)
380
381 bsr.l chkregs
382 tst.b %d0
383 bne.l error
384
385 bsr.l chkfpregs
386 tst.b %d0
387 bne.l error
388
389
390 unimp_4:
391 addq.l &0x1,TESTCTR(%a6)
392
393 movm.l DEF_REGS(%pc),&0x3fff
394 fmovm.x DEF_FPREGS(%pc),&0xff
395 fmovm.l DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
396
397 fmov.l &0x0f000000,%fpsr
398 mov.l &0x2,%d7
399
400 mov.w &0x0000,ICCR(%a6)
401 movm.l &0x7fff,IREGS(%a6)
402 fmovm.x &0xff,IFPREGS(%a6)
403 fmovm.l %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
404
405 mov.w &0x0000,%cc
406 unimp_4_pc:
407 fdbgt.w %d7,unimp_4_pc
408
409 mov.w %cc,SCCR(%a6)
410 movm.l &0x7fff,SREGS(%a6)
411 fmovm.x &0xff,SFPREGS(%a6)
412 fmovm.l %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
413 mov.w &0xffff,IREGS+28+2(%a6)
414 mov.l &0x0f008080,IFPCREGS+0x4(%a6)
415 lea unimp_4_pc(%pc),%a0
416 mov.l %a0,IFPCREGS+0x8(%a6)
417
418 bsr.l chkregs
419 tst.b %d0
420 bne.l error
421
422 bsr.l chkfpregs
423 tst.b %d0
424 bne.l error
425
426
427 unimp_5:
428 addq.l &0x1,TESTCTR(%a6)
429
430 movm.l DEF_REGS(%pc),&0x3fff
431 fmovm.x DEF_FPREGS(%pc),&0xff
432 fmovm.l DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
433
434 fmov.l &0x0f000000,%fpsr
435
436 mov.w &0x0000,ICCR(%a6)
437 movm.l &0x7fff,IREGS(%a6)
438 fmovm.x &0xff,IFPREGS(%a6)
439 fmovm.l %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
440
441 mov.w &0x0000,%cc
442 unimp_5_pc:
443 ftpgt.l &0xabcdef01
444
445 mov.w %cc,SCCR(%a6)
446 movm.l &0x7fff,SREGS(%a6)
447 fmovm.x &0xff,SFPREGS(%a6)
448 fmovm.l %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
449 mov.l &0x0f008080,IFPCREGS+0x4(%a6)
450 lea unimp_5_pc(%pc),%a0
451 mov.l %a0,IFPCREGS+0x8(%a6)
452
453 bsr.l chkregs
454 tst.b %d0
455 bne.l error
456
457 bsr.l chkfpregs
458 tst.b %d0
459 bne.l error
460
461 clr.l %d0
462 rts
463
464 #############################################
465
466 effadd_str:
467 string "\tUnimplemented <ea>..."
468
469 align 0x4
470 effadd_0:
471 addq.l &0x1,TESTCTR(%a6)
472
473 movm.l DEF_REGS(%pc),&0x3fff
474 fmovm.x DEF_FPREGS(%pc),&0xff
475 fmovm.l DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
476
477 mov.w &0x0000,ICCR(%a6)
478 movm.l &0x7fff,IREGS(%a6)
479 fmovm.x &0xff,IFPREGS(%a6)
480 fmovm.l %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
481
482 fmov.b &0x2,%fp0
483
484 mov.w &0x0000,%cc
485 effadd_0_pc:
486 fmul.x &0xc00000008000000000000000,%fp0
487
488 mov.w %cc,SCCR(%a6)
489 movm.l &0x7fff,SREGS(%a6)
490 fmovm.x &0xff,SFPREGS(%a6)
491 fmovm.l %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
492
493 mov.l &0xc0010000,IFPREGS+0x0(%a6)
494 mov.l &0x80000000,IFPREGS+0x4(%a6)
495 mov.l &0x00000000,IFPREGS+0x8(%a6)
496 mov.l &0x08000000,IFPCREGS+0x4(%a6)
497 lea effadd_0_pc(%pc),%a0
498 mov.l %a0,IFPCREGS+0x8(%a6)
499
500 bsr.l chkregs
501 tst.b %d0
502 bne.l error
503
504 bsr.l chkfpregs
505 tst.b %d0
506 bne.l error
507
508 effadd_1:
509 addq.l &0x1,TESTCTR(%a6)
510
511 movm.l DEF_REGS(%pc),&0x3fff
512 fmovm.x DEF_FPREGS(%pc),&0xff
513 fmovm.l DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
514
515 mov.w &0x0000,ICCR(%a6)
516 movm.l &0x7fff,IREGS(%a6)
517 fmovm.x &0xff,IFPREGS(%a6)
518 fmovm.l %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
519
520 mov.w &0x0000,%cc
521 effadd_1_pc:
522 fabs.p &0xc12300012345678912345678,%fp0
523
524 mov.w %cc,SCCR(%a6)
525 movm.l &0x7fff,SREGS(%a6)
526 fmovm.x &0xff,SFPREGS(%a6)
527 fmovm.l %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
528
529 mov.l &0x3e660000,IFPREGS+0x0(%a6)
530 mov.l &0xd0ed23e8,IFPREGS+0x4(%a6)
531 mov.l &0xd14035bc,IFPREGS+0x8(%a6)
532 mov.l &0x00000108,IFPCREGS+0x4(%a6)
533 lea effadd_1_pc(%pc),%a0
534 mov.l %a0,IFPCREGS+0x8(%a6)
535
536 bsr.l chkregs
537 tst.b %d0
538 bne.l error
539
540 bsr.l chkfpregs
541 tst.b %d0
542 bne.l error
543
544 fmovml_0:
545 addq.l &0x1,TESTCTR(%a6)
546
547 movm.l DEF_REGS(%pc),&0x3fff
548 fmovm.x DEF_FPREGS(%pc),&0xff
549 fmovm.l DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
550
551 mov.w &0x0000,ICCR(%a6)
552 mov.w &0x0000,%cc
553 movm.l &0x7fff,IREGS(%a6)
554 fmovm.x &0xff,IFPREGS(%a6)
555 fmovm.l %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
556
557 fmovm.l &0xffffffffffffffff,%fpcr,%fpsr
558
559 mov.w %cc,SCCR(%a6)
560 movm.l &0x7fff,SREGS(%a6)
561 fmovm.x &0xff,SFPREGS(%a6)
562 fmovm.l %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
563 mov.l &0x0000fff0,IFPCREGS+0x0(%a6)
564 mov.l &0x0ffffff8,IFPCREGS+0x4(%a6)
565
566 bsr.l chkregs
567 tst.b %d0
568 bne.l error
569
570 bsr.l chkfpregs
571 tst.b %d0
572 bne.l error
573
574 fmovml_1:
575 addq.l &0x1,TESTCTR(%a6)
576
577 movm.l DEF_REGS(%pc),&0x3fff
578 fmovm.x DEF_FPREGS(%pc),&0xff
579 fmovm.l DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
580
581 mov.w &0x0000,ICCR(%a6)
582 mov.w &0x0000,%cc
583 movm.l &0x7fff,IREGS(%a6)
584 fmovm.x &0xff,IFPREGS(%a6)
585 fmovm.l %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
586
587 fmovm.l &0xffffffffffffffff,%fpcr,%fpiar
588
589 mov.w %cc,SCCR(%a6)
590 movm.l &0x7fff,SREGS(%a6)
591 fmovm.x &0xff,SFPREGS(%a6)
592 fmovm.l %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
593 mov.l &0x0000fff0,IFPCREGS+0x0(%a6)
594 mov.l &0xffffffff,IFPCREGS+0x8(%a6)
595
596 bsr.l chkregs
597 tst.b %d0
598 bne.l error
599
600 bsr.l chkfpregs
601 tst.b %d0
602 bne.l error
603
604 fmovml_2:
605 addq.l &0x1,TESTCTR(%a6)
606
607 movm.l DEF_REGS(%pc),&0x3fff
608 fmovm.x DEF_FPREGS(%pc),&0xff
609 fmovm.l DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
610
611 mov.w &0x0000,ICCR(%a6)
612 mov.w &0x0000,%cc
613 movm.l &0x7fff,IREGS(%a6)
614 fmovm.x &0xff,IFPREGS(%a6)
615 fmovm.l %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
616
617 fmovm.l &0xffffffffffffffff,%fpsr,%fpiar
618
619 mov.w %cc,SCCR(%a6)
620 movm.l &0x7fff,SREGS(%a6)
621 fmovm.x &0xff,SFPREGS(%a6)
622 fmovm.l %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
623 mov.l &0x0ffffff8,IFPCREGS+0x4(%a6)
624 mov.l &0xffffffff,IFPCREGS+0x8(%a6)
625
626 bsr.l chkregs
627 tst.b %d0
628 bne.l error
629
630 bsr.l chkfpregs
631 tst.b %d0
632 bne.l error
633
634 fmovml_3:
635 addq.l &0x1,TESTCTR(%a6)
636
637 movm.l DEF_REGS(%pc),&0x3fff
638 fmovm.x DEF_FPREGS(%pc),&0xff
639 fmovm.l DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
640
641 mov.w &0x0000,ICCR(%a6)
642 mov.w &0x0000,%cc
643 movm.l &0x7fff,IREGS(%a6)
644 fmovm.x &0xff,IFPREGS(%a6)
645 fmovm.l %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
646
647 fmovm.l &0xffffffffffffffffffffffff,%fpcr,%fpsr,%fpiar
648
649 mov.w %cc,SCCR(%a6)
650 movm.l &0x7fff,SREGS(%a6)
651 fmovm.x &0xff,SFPREGS(%a6)
652 fmovm.l %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
653 mov.l &0x0000fff0,IFPCREGS+0x0(%a6)
654 mov.l &0x0ffffff8,IFPCREGS+0x4(%a6)
655 mov.l &0xffffffff,IFPCREGS+0x8(%a6)
656
657 bsr.l chkregs
658 tst.b %d0
659 bne.l error
660
661 bsr.l chkfpregs
662 tst.b %d0
663 bne.l error
664
665
666 fmovmx_0:
667 addq.l &0x1,TESTCTR(%a6)
668
669 movm.l DEF_REGS(%pc),&0x3fff
670 fmovm.x DEF_FPREGS(%pc),&0xff
671 fmovm.l DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
672
673 fmov.b &0x1,%fp0
674 fmov.b &0x2,%fp1
675 fmov.b &0x3,%fp2
676 fmov.b &0x4,%fp3
677 fmov.b &0x5,%fp4
678 fmov.b &0x6,%fp5
679 fmov.b &0x7,%fp6
680 fmov.b &0x8,%fp7
681
682 fmov.l &0x0,%fpiar
683 mov.l &0xffffffaa,%d0
684
685 mov.w &0x0000,ICCR(%a6)
686 movm.l &0xffff,IREGS(%a6)
687
688 fmovm.l %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
689 fmovm.x &0xff,IFPREGS(%a6)
690
691 mov.w &0x0000,%cc
692
693 fmovm.x %d0,-(%sp)
694
695 mov.w %cc,SCCR(%a6)
696
697 fmovm.l %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
698
699 fmov.s &0x7f800000,%fp1
700 fmov.s &0x7f800000,%fp3
701 fmov.s &0x7f800000,%fp5
702 fmov.s &0x7f800000,%fp7
703
704 fmov.x (%sp)+,%fp1
705 fmov.x (%sp)+,%fp3
706 fmov.x (%sp)+,%fp5
707 fmov.x (%sp)+,%fp7
708
709 movm.l &0xffff,SREGS(%a6)
710 fmovm.x &0xff,SFPREGS(%a6)
711
712 bsr.l chkregs
713 tst.b %d0
714 bne.l error
715
716 bsr.l chkfpregs
717 tst.b %d0
718 bne.l error
719
720 fmovmx_1:
721 addq.l &0x1,TESTCTR(%a6)
722
723 movm.l DEF_REGS(%pc),&0x3fff
724 fmovm.x DEF_FPREGS(%pc),&0xff
725 fmovm.l DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
726
727 fmov.b &0x1,%fp0
728 fmov.b &0x2,%fp1
729 fmov.b &0x3,%fp2
730 fmov.b &0x4,%fp3
731 fmov.b &0x5,%fp4
732 fmov.b &0x6,%fp5
733 fmov.b &0x7,%fp6
734 fmov.b &0x8,%fp7
735
736 fmov.x %fp6,-(%sp)
737 fmov.x %fp4,-(%sp)
738 fmov.x %fp2,-(%sp)
739 fmov.x %fp0,-(%sp)
740
741 fmovm.x &0xff,IFPREGS(%a6)
742
743 fmov.s &0x7f800000,%fp6
744 fmov.s &0x7f800000,%fp4
745 fmov.s &0x7f800000,%fp2
746 fmov.s &0x7f800000,%fp0
747
748 fmov.l &0x0,%fpiar
749 fmov.l &0x0,%fpsr
750 mov.l &0xffffffaa,%d0
751
752 mov.w &0x0000,ICCR(%a6)
753 movm.l &0xffff,IREGS(%a6)
754
755 fmovm.l %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
756
757 mov.w &0x0000,%cc
758
759 fmovm.x (%sp)+,%d0
760
761 mov.w %cc,SCCR(%a6)
762
763 fmovm.l %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
764
765 movm.l &0xffff,SREGS(%a6)
766 fmovm.x &0xff,SFPREGS(%a6)
767
768 bsr.l chkregs
769 tst.b %d0
770 bne.l error
771
772 bsr.l chkfpregs
773 tst.b %d0
774 bne.l error
775
776 fmovmx_2:
777 addq.l &0x1,TESTCTR(%a6)
778
779 movm.l DEF_REGS(%pc),&0x3fff
780 fmovm.x DEF_FPREGS(%pc),&0xff
781 fmovm.l DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
782
783 fmov.b &0x1,%fp0
784 fmov.b &0x2,%fp1
785 fmov.b &0x3,%fp2
786 fmov.b &0x4,%fp3
787 fmov.b &0x5,%fp4
788 fmov.b &0x6,%fp5
789 fmov.b &0x7,%fp6
790 fmov.b &0x8,%fp7
791
792 fmov.l &0x0,%fpiar
793 mov.l &0xffffff00,%d0
794
795 mov.w &0x0000,ICCR(%a6)
796 movm.l &0xffff,IREGS(%a6)
797
798 fmovm.l %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
799 fmovm.x &0xff,IFPREGS(%a6)
800
801 mov.w &0x0000,%cc
802
803 fmovm.x %d0,-(%sp)
804
805 mov.w %cc,SCCR(%a6)
806
807 fmovm.l %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
808
809 movm.l &0xffff,SREGS(%a6)
810 fmovm.x &0xff,SFPREGS(%a6)
811
812 bsr.l chkregs
813 tst.b %d0
814 bne.l error
815
816 bsr.l chkfpregs
817 tst.b %d0
818 bne.l error
819
820 clr.l %d0
821 rts
822
823 ###########################################################
824
825
826 ovfl_nm_str:
827 string "\tNon-maskable overflow..."
828
829 align 0x4
830 ovfl_nm_0:
831 addq.l &0x1,TESTCTR(%a6)
832
833 movm.l DEF_REGS(%pc),&0x3fff
834 fmovm.x DEF_FPREGS(%pc),&0xff
835 fmovm.l DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
836
837 mov.w &0x0000,ICCR(%a6)
838 movm.l &0x7fff,IREGS(%a6)
839 fmovm.x &0xff,IFPREGS(%a6)
840 fmovm.l %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
841
842 fmov.b &0x2,%fp0
843 mov.l &0x7ffe0000,DATA+0x0(%a6)
844 mov.l &0x80000000,DATA+0x4(%a6)
845 mov.l &0x00000000,DATA+0x8(%a6)
846
847 mov.w &0x0000,%cc
848 ovfl_nm_0_pc:
849 fmul.x DATA(%a6),%fp0
850
851 mov.w %cc,SCCR(%a6)
852 movm.l &0x7fff,SREGS(%a6)
853 fmovm.x &0xff,SFPREGS(%a6)
854 fmovm.l %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
855
856 mov.l &0x7fff0000,IFPREGS+0x0(%a6)
857 mov.l &0x00000000,IFPREGS+0x4(%a6)
858 mov.l &0x00000000,IFPREGS+0x8(%a6)
859 mov.l &0x02001048,IFPCREGS+0x4(%a6)
860 lea ovfl_nm_0_pc(%pc),%a0
861 mov.l %a0,IFPCREGS+0x8(%a6)
862
863 bsr.l chkregs
864 tst.b %d0
865 bne.l error
866
867 bsr.l chkfpregs
868 tst.b %d0
869 bne.l error
870
871 clr.l %d0
872 rts
873
874 ###########################################################
875
876
877 ovfl_str:
878 string "\tEnabled overflow..."
879
880 align 0x4
881 ovfl_0:
882 addq.l &0x1,TESTCTR(%a6)
883
884 movm.l DEF_REGS(%pc),&0x3fff
885 fmovm.x DEF_FPREGS(%pc),&0xff
886 fmovm.l DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
887
888 mov.w &0x0000,ICCR(%a6)
889 movm.l &0x7fff,IREGS(%a6)
890 fmovm.x &0xff,IFPREGS(%a6)
891 fmov.l &0x00001000,%fpcr
892 fmovm.l %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
893
894 fmov.b &0x2,%fp0
895 mov.l &0x7ffe0000,DATA+0x0(%a6)
896 mov.l &0x80000000,DATA+0x4(%a6)
897 mov.l &0x00000000,DATA+0x8(%a6)
898
899 mov.w &0x0000,%cc
900 ovfl_0_pc:
901 fmul.x DATA(%a6),%fp0
902
903 mov.w %cc,SCCR(%a6)
904 movm.l &0x7fff,SREGS(%a6)
905 fmovm.x &0xff,SFPREGS(%a6)
906 fmovm.l %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
907
908 mov.l &0x7fff0000,IFPREGS+0x0(%a6)
909 mov.l &0x00000000,IFPREGS+0x4(%a6)
910 mov.l &0x00000000,IFPREGS+0x8(%a6)
911 mov.l &0x02001048,IFPCREGS+0x4(%a6)
912 lea ovfl_0_pc(%pc),%a0
913 mov.l %a0,IFPCREGS+0x8(%a6)
914
915 bsr.l chkregs
916 tst.b %d0
917 bne.l error
918
919 bsr.l chkfpregs
920 tst.b %d0
921 bne.l error
922
923 clr.l %d0
924 rts
925
926 #####################################################################
927
928
929 unfl_str:
930 string "\tEnabled underflow..."
931
932 align 0x4
933 unfl_0:
934 addq.l &0x1,TESTCTR(%a6)
935
936 movm.l DEF_REGS(%pc),&0x3fff
937 fmovm.x DEF_FPREGS(%pc),&0xff
938 fmovm.l DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
939
940 mov.w &0x0000,ICCR(%a6)
941 movm.l &0x7fff,IREGS(%a6)
942 fmovm.x &0xff,IFPREGS(%a6)
943 fmov.l &0x00000800,%fpcr
944 fmovm.l %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
945
946 mov.l &0x00000000,DATA+0x0(%a6)
947 mov.l &0x80000000,DATA+0x4(%a6)
948 mov.l &0x00000000,DATA+0x8(%a6)
949 fmovm.x DATA(%a6),&0x80
950
951 mov.w &0x0000,%cc
952 unfl_0_pc:
953 fdiv.b &0x2,%fp0
954
955 mov.w %cc,SCCR(%a6)
956 movm.l &0x7fff,SREGS(%a6)
957 fmovm.x &0xff,SFPREGS(%a6)
958 fmovm.l %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
959
960 mov.l &0x00000000,IFPREGS+0x0(%a6)
961 mov.l &0x40000000,IFPREGS+0x4(%a6)
962 mov.l &0x00000000,IFPREGS+0x8(%a6)
963 mov.l &0x00000800,IFPCREGS+0x4(%a6)
964 lea unfl_0_pc(%pc),%a0
965 mov.l %a0,IFPCREGS+0x8(%a6)
966
967 bsr.l chkregs
968 tst.b %d0
969 bne.l error
970
971 bsr.l chkfpregs
972 tst.b %d0
973 bne.l error
974
975 clr.l %d0
976 rts
977
978 #####################################################################
979
980
981 unfl_nm_str:
982 string "\tNon-maskable underflow..."
983
984 align 0x4
985 unfl_nm_0:
986 addq.l &0x1,TESTCTR(%a6)
987
988 movm.l DEF_REGS(%pc),&0x3fff
989 fmovm.x DEF_FPREGS(%pc),&0xff
990 fmovm.l DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
991
992 mov.w &0x0000,ICCR(%a6)
993 movm.l &0x7fff,IREGS(%a6)
994 fmovm.x &0xff,IFPREGS(%a6)
995 fmovm.l %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
996
997 mov.l &0x00000000,DATA+0x0(%a6)
998 mov.l &0x80000000,DATA+0x4(%a6)
999 mov.l &0x00000000,DATA+0x8(%a6)
1000 fmovm.x DATA(%a6),&0x80
1001
1002 mov.w &0x0000,%cc
1003 unfl_nm_0_pc:
1004 fdiv.b &0x2,%fp0
1005
1006 mov.w %cc,SCCR(%a6)
1007 movm.l &0x7fff,SREGS(%a6)
1008 fmovm.x &0xff,SFPREGS(%a6)
1009 fmovm.l %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
1010
1011 mov.l &0x00000000,IFPREGS+0x0(%a6)
1012 mov.l &0x40000000,IFPREGS+0x4(%a6)
1013 mov.l &0x00000000,IFPREGS+0x8(%a6)
1014 mov.l &0x00000800,IFPCREGS+0x4(%a6)
1015 lea unfl_nm_0_pc(%pc),%a0
1016 mov.l %a0,IFPCREGS+0x8(%a6)
1017
1018 bsr.l chkregs
1019 tst.b %d0
1020 bne.l error
1021
1022 bsr.l chkfpregs
1023 tst.b %d0
1024 bne.l error
1025
1026 clr.l %d0
1027 rts
1028
1029 #####################################################################
1030
1031 inex_str:
1032 string "\tEnabled inexact..."
1033
1034 align 0x4
1035 inex_0:
1036 addq.l &0x1,TESTCTR(%a6)
1037
1038 movm.l DEF_REGS(%pc),&0x3fff
1039 fmovm.x DEF_FPREGS(%pc),&0xff
1040 fmovm.l DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
1041
1042 mov.w &0x0000,ICCR(%a6)
1043 movm.l &0x7fff,IREGS(%a6)
1044 fmovm.x &0xff,IFPREGS(%a6)
1045 fmov.l &0x00000200,%fpcr # enable inexact
1046 fmovm.l %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
1047
1048 mov.l &0x50000000,DATA+0x0(%a6)
1049 mov.l &0x80000000,DATA+0x4(%a6)
1050 mov.l &0x00000000,DATA+0x8(%a6)
1051 fmovm.x DATA(%a6),&0x80
1052
1053 mov.w &0x0000,%cc
1054 inex_0_pc:
1055 fadd.b &0x2,%fp0
1056
1057 mov.w %cc,SCCR(%a6)
1058 movm.l &0x7fff,SREGS(%a6)
1059 fmovm.x &0xff,SFPREGS(%a6)
1060 fmovm.l %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
1061
1062 mov.l &0x50000000,IFPREGS+0x0(%a6)
1063 mov.l &0x80000000,IFPREGS+0x4(%a6)
1064 mov.l &0x00000000,IFPREGS+0x8(%a6)
1065 mov.l &0x00000208,IFPCREGS+0x4(%a6)
1066 lea inex_0_pc(%pc),%a0
1067 mov.l %a0,IFPCREGS+0x8(%a6)
1068
1069 bsr.l chkregs
1070 tst.b %d0
1071 bne.l error
1072
1073 bsr.l chkfpregs
1074 tst.b %d0
1075 bne.l error
1076
1077 clr.l %d0
1078 rts
1079
1080 #####################################################################
1081
1082 snan_str:
1083 string "\tEnabled SNAN..."
1084
1085 align 0x4
1086 snan_0:
1087 addq.l &0x1,TESTCTR(%a6)
1088
1089 movm.l DEF_REGS(%pc),&0x3fff
1090 fmovm.x DEF_FPREGS(%pc),&0xff
1091 fmovm.l DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
1092
1093 mov.w &0x0000,ICCR(%a6)
1094 movm.l &0x7fff,IREGS(%a6)
1095 fmovm.x &0xff,IFPREGS(%a6)
1096 fmov.l &0x00004000,%fpcr # enable SNAN
1097 fmovm.l %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
1098
1099 mov.l &0xffff0000,DATA+0x0(%a6)
1100 mov.l &0x00000000,DATA+0x4(%a6)
1101 mov.l &0x00000001,DATA+0x8(%a6)
1102 fmovm.x DATA(%a6),&0x80
1103
1104 mov.w &0x0000,%cc
1105 snan_0_pc:
1106 fadd.b &0x2,%fp0
1107
1108 mov.w %cc,SCCR(%a6)
1109 movm.l &0x7fff,SREGS(%a6)
1110 fmovm.x &0xff,SFPREGS(%a6)
1111 fmovm.l %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
1112
1113 mov.l &0xffff0000,IFPREGS+0x0(%a6)
1114 mov.l &0x00000000,IFPREGS+0x4(%a6)
1115 mov.l &0x00000001,IFPREGS+0x8(%a6)
1116 mov.l &0x09004080,IFPCREGS+0x4(%a6)
1117 lea snan_0_pc(%pc),%a0
1118 mov.l %a0,IFPCREGS+0x8(%a6)
1119
1120 bsr.l chkregs
1121 tst.b %d0
1122 bne.l error
1123
1124 bsr.l chkfpregs
1125 tst.b %d0
1126 bne.l error
1127
1128 clr.l %d0
1129 rts
1130
1131 #####################################################################
1132
1133 operr_str:
1134 string "\tEnabled OPERR..."
1135
1136 align 0x4
1137 operr_0:
1138 addq.l &0x1,TESTCTR(%a6)
1139
1140 movm.l DEF_REGS(%pc),&0x3fff
1141 fmovm.x DEF_FPREGS(%pc),&0xff
1142 fmovm.l DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
1143
1144 mov.w &0x0000,ICCR(%a6)
1145 movm.l &0x7fff,IREGS(%a6)
1146 fmovm.x &0xff,IFPREGS(%a6)
1147 fmov.l &0x00002000,%fpcr # enable OPERR
1148 fmovm.l %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
1149
1150 mov.l &0xffff0000,DATA+0x0(%a6)
1151 mov.l &0x00000000,DATA+0x4(%a6)
1152 mov.l &0x00000000,DATA+0x8(%a6)
1153 fmovm.x DATA(%a6),&0x80
1154
1155 mov.w &0x0000,%cc
1156 operr_0_pc:
1157 fadd.s &0x7f800000,%fp0
1158
1159 mov.w %cc,SCCR(%a6)
1160 movm.l &0x7fff,SREGS(%a6)
1161 fmovm.x &0xff,SFPREGS(%a6)
1162 fmovm.l %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
1163
1164 mov.l &0xffff0000,IFPREGS+0x0(%a6)
1165 mov.l &0x00000000,IFPREGS+0x4(%a6)
1166 mov.l &0x00000000,IFPREGS+0x8(%a6)
1167 mov.l &0x01002080,IFPCREGS+0x4(%a6)
1168 lea operr_0_pc(%pc),%a0
1169 mov.l %a0,IFPCREGS+0x8(%a6)
1170
1171 bsr.l chkregs
1172 tst.b %d0
1173 bne.l error
1174
1175 bsr.l chkfpregs
1176 tst.b %d0
1177 bne.l error
1178
1179 clr.l %d0
1180 rts
1181
1182 #####################################################################
1183
1184 dz_str:
1185 string "\tEnabled DZ..."
1186
1187 align 0x4
1188 dz_0:
1189 addq.l &0x1,TESTCTR(%a6)
1190
1191 movm.l DEF_REGS(%pc),&0x3fff
1192 fmovm.x DEF_FPREGS(%pc),&0xff
1193 fmovm.l DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
1194
1195 mov.w &0x0000,ICCR(%a6)
1196 movm.l &0x7fff,IREGS(%a6)
1197 fmovm.x &0xff,IFPREGS(%a6)
1198 fmov.l &0x00000400,%fpcr # enable DZ
1199 fmovm.l %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
1200
1201 mov.l &0x40000000,DATA+0x0(%a6)
1202 mov.l &0x80000000,DATA+0x4(%a6)
1203 mov.l &0x00000000,DATA+0x8(%a6)
1204 fmovm.x DATA(%a6),&0x80
1205
1206 mov.w &0x0000,%cc
1207 dz_0_pc:
1208 fdiv.b &0x0,%fp0
1209
1210 mov.w %cc,SCCR(%a6)
1211 movm.l &0x7fff,SREGS(%a6)
1212 fmovm.x &0xff,SFPREGS(%a6)
1213 fmovm.l %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
1214
1215 mov.l &0x40000000,IFPREGS+0x0(%a6)
1216 mov.l &0x80000000,IFPREGS+0x4(%a6)
1217 mov.l &0x00000000,IFPREGS+0x8(%a6)
1218 mov.l &0x02000410,IFPCREGS+0x4(%a6)
1219 lea dz_0_pc(%pc),%a0
1220 mov.l %a0,IFPCREGS+0x8(%a6)
1221
1222 bsr.l chkregs
1223 tst.b %d0
1224 bne.l error
1225
1226 bsr.l chkfpregs
1227 tst.b %d0
1228 bne.l error
1229
1230 clr.l %d0
1231 rts
1232
1233 #####################################################################
1234
1235 unsupp_str:
1236 string "\tUnimplemented data type/format..."
1237
1238
1239 align 0x4
1240 unsupp_0:
1241 addq.l &0x1,TESTCTR(%a6)
1242
1243 movm.l DEF_REGS(%pc),&0x3fff
1244 fmovm.x DEF_FPREGS(%pc),&0xff
1245 fmovm.l DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
1246
1247 mov.w &0x0000,ICCR(%a6)
1248 movm.l &0x7fff,IREGS(%a6)
1249 fmovm.x &0xff,IFPREGS(%a6)
1250 fmovm.l %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
1251
1252 mov.l &0xc03f0000,DATA+0x0(%a6)
1253 mov.l &0x00000000,DATA+0x4(%a6)
1254 mov.l &0x00000001,DATA+0x8(%a6)
1255 fmov.b &0x2,%fp0
1256 mov.w &0x0000,%cc
1257 unsupp_0_pc:
1258 fmul.x DATA(%a6),%fp0
1259
1260 mov.w %cc,SCCR(%a6)
1261 movm.l &0x7fff,SREGS(%a6)
1262 fmovm.x &0xff,SFPREGS(%a6)
1263 fmovm.l %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
1264
1265 mov.l &0xc0010000,IFPREGS+0x0(%a6)
1266 mov.l &0x80000000,IFPREGS+0x4(%a6)
1267 mov.l &0x00000000,IFPREGS+0x8(%a6)
1268 mov.l &0x08000000,IFPCREGS+0x4(%a6)
1269 lea unsupp_0_pc(%pc),%a0
1270 mov.l %a0,IFPCREGS+0x8(%a6)
1271
1272 bsr.l chkregs
1273 tst.b %d0
1274 bne.l error
1275
1276 bsr.l chkfpregs
1277 tst.b %d0
1278 bne.l error
1279
1280
1281 unsupp_1:
1282 addq.l &0x1,TESTCTR(%a6)
1283
1284 movm.l DEF_REGS(%pc),&0x3fff
1285 fmovm.x DEF_FPREGS(%pc),&0xff
1286 fmovm.l DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
1287
1288 mov.w &0x0000,ICCR(%a6)
1289 movm.l &0x7fff,IREGS(%a6)
1290 fmovm.x &0xff,IFPREGS(%a6)
1291 fmovm.l %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
1292
1293 mov.l &0x80000000,DATA+0x0(%a6)
1294 mov.l &0x01000000,DATA+0x4(%a6)
1295 mov.l &0x00000000,DATA+0x8(%a6)
1296 fmov.l &0x7fffffff,%fp0
1297
1298 mov.w &0x0000,%cc
1299 unsupp_1_pc:
1300 fmul.x DATA(%a6),%fp0
1301
1302 mov.w %cc,SCCR(%a6)
1303 movm.l &0x7fff,SREGS(%a6)
1304 fmovm.x &0xff,SFPREGS(%a6)
1305 fmovm.l %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
1306
1307 mov.l &0x80170000,IFPREGS+0x0(%a6)
1308 mov.l &0xfffffffe,IFPREGS+0x4(%a6)
1309 mov.l &0x00000000,IFPREGS+0x8(%a6)
1310 mov.l &0x08000000,IFPCREGS+0x4(%a6)
1311 lea unsupp_1_pc(%pc),%a0
1312 mov.l %a0,IFPCREGS+0x8(%a6)
1313
1314 bsr.l chkregs
1315 tst.b %d0
1316 bne.l error
1317
1318 bsr.l chkfpregs
1319 tst.b %d0
1320 bne.l error
1321
1322
1323 unsupp_2:
1324 addq.l &0x1,TESTCTR(%a6)
1325
1326 movm.l DEF_REGS(%pc),&0x3fff
1327 fmovm.x DEF_FPREGS(%pc),&0xff
1328 fmovm.l DEF_FPCREGS(%pc),%fpcr,%fpsr,%fpiar
1329
1330 mov.w &0x0000,ICCR(%a6)
1331 movm.l &0x7fff,IREGS(%a6)
1332 fmovm.x &0xff,IFPREGS(%a6)
1333 fmovm.l %fpcr,%fpsr,%fpiar,IFPCREGS(%a6)
1334
1335 mov.l &0xc1230001,DATA+0x0(%a6)
1336 mov.l &0x23456789,DATA+0x4(%a6)
1337 mov.l &0x12345678,DATA+0x8(%a6)
1338
1339 mov.w &0x0000,%cc
1340 unsupp_2_pc:
1341 fabs.p DATA(%a6),%fp0
1342
1343 mov.w %cc,SCCR(%a6)
1344 movm.l &0x7fff,SREGS(%a6)
1345 fmovm.x &0xff,SFPREGS(%a6)
1346 fmovm.l %fpcr,%fpsr,%fpiar,SFPCREGS(%a6)
1347
1348 mov.l &0x3e660000,IFPREGS+0x0(%a6)
1349 mov.l &0xd0ed23e8,IFPREGS+0x4(%a6)
1350 mov.l &0xd14035bc,IFPREGS+0x8(%a6)
1351 mov.l &0x00000108,IFPCREGS+0x4(%a6)
1352 lea unsupp_2_pc(%pc),%a0
1353 mov.l %a0,IFPCREGS+0x8(%a6)
1354
1355 bsr.l chkregs
1356 tst.b %d0
1357 bne.l error
1358
1359 bsr.l chkfpregs
1360 tst.b %d0
1361 bne.l error
1362
1363 clr.l %d0
1364 rts
1365
1366 ###########################################################
1367 ###########################################################
1368
1369 chkregs:
1370 lea IREGS(%a6),%a0
1371 lea SREGS(%a6),%a1
1372 mov.l &14,%d0
1373 chkregs_loop:
1374 cmp.l (%a0)+,(%a1)+
1375 bne.l chkregs_error
1376 dbra.w %d0,chkregs_loop
1377
1378 mov.w ICCR(%a6),%d0
1379 mov.w SCCR(%a6),%d1
1380 cmp.w %d0,%d1
1381 bne.l chkregs_error
1382
1383 clr.l %d0
1384 rts
1385
1386 chkregs_error:
1387 movq.l &0x1,%d0
1388 rts
1389
1390 error:
1391 mov.l TESTCTR(%a6),%d1
1392 movq.l &0x1,%d0
1393 rts
1394
1395 chkfpregs:
1396 lea IFPREGS(%a6),%a0
1397 lea SFPREGS(%a6),%a1
1398 mov.l &23,%d0
1399 chkfpregs_loop:
1400 cmp.l (%a0)+,(%a1)+
1401 bne.l chkfpregs_error
1402 dbra.w %d0,chkfpregs_loop
1403
1404 lea IFPCREGS(%a6),%a0
1405 lea SFPCREGS(%a6),%a1
1406 cmp.l (%a0)+,(%a1)+
1407 bne.l chkfpregs_error
1408 cmp.l (%a0)+,(%a1)+
1409 bne.l chkfpregs_error
1410 cmp.l (%a0)+,(%a1)+
1411 bne.l chkfpregs_error
1412
1413 clr.l %d0
1414 rts
1415
1416 chkfpregs_error:
1417 movq.l &0x1,%d0
1418 rts
1419
1420 DEF_REGS:
1421 long 0xacacacac, 0xacacacac, 0xacacacac, 0xacacacac
1422 long 0xacacacac, 0xacacacac, 0xacacacac, 0xacacacac
1423
1424 long 0xacacacac, 0xacacacac, 0xacacacac, 0xacacacac
1425 long 0xacacacac, 0xacacacac, 0xacacacac, 0xacacacac
1426
1427 DEF_FPREGS:
1428 long 0x7fff0000, 0xffffffff, 0xffffffff
1429 long 0x7fff0000, 0xffffffff, 0xffffffff
1430 long 0x7fff0000, 0xffffffff, 0xffffffff
1431 long 0x7fff0000, 0xffffffff, 0xffffffff
1432 long 0x7fff0000, 0xffffffff, 0xffffffff
1433 long 0x7fff0000, 0xffffffff, 0xffffffff
1434 long 0x7fff0000, 0xffffffff, 0xffffffff
1435 long 0x7fff0000, 0xffffffff, 0xffffffff
1436
1437 DEF_FPCREGS:
1438 long 0x00000000, 0x00000000, 0x00000000
1439
1440 ############################################################
1441
1442 _print_str:
1443 mov.l %d0,-(%sp)
1444 mov.l (TESTTOP-0x80+0x0,%pc),%d0
1445 pea (TESTTOP-0x80,%pc,%d0)
1446 mov.l 0x4(%sp),%d0
1447 rtd &0x4
1448
1449 _print_num:
1450 mov.l %d0,-(%sp)
1451 mov.l (TESTTOP-0x80+0x4,%pc),%d0
1452 pea (TESTTOP-0x80,%pc,%d0)
1453 mov.l 0x4(%sp),%d0
1454 rtd &0x4
1455
1456 ############################################################