![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to fmovemc.has CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Isaki's NoNo m68k/m88k emulator] / nono / exp|
Return to fmovemc.has CVS log | Up to [Isaki's NoNo m68k/m88k emulator] / nono / exp |
1.1 root 1: ;
2: ; nono
3: ; Copyright (C) 2019 [email protected]
4: ;
5:
6: ; How to compile:
7: ; > has fmovem.has
8: ; > hlk fmovem.o si_util.o
9:
10: .xref hexstr_long
11: .include doscall.mac
12: .list
13: .cpu 68030
14:
15: PRINT .macro msg
16: pea.l msg(pc)
17: DOS _PRINT
18: addq.l #4,sp
19: .endm
20:
21: SET_FLINE_TRAP .macro
22: move.l (a5),a4
23: lea.l fline_handler(pc),a1
24: move.l a1,(a5)
25: .endm
26:
27: RESTORE_FLINE_TRAP .macro
28: move.l a4,(a5)
29: .endm
30:
31: .text
32: .even
33: test_fmovem_dn_to____:
34: PRINT msg_fmovem_dn_to____
35: fmove.l #0,fpcr
36: fmove.l #0,fpsr
37: fmove.l #0,fpiar
38: move.l #$55555555,d0
39: SET_FLINE_TRAP
40: moveq.l #0,d7
41: lea.l @f,a3
42: .dc.w $f200, $8000
43: @@:
44: RESTORE_FLINE_TRAP
45: tst.l d7
46: beq @f
47: PRINT msg_fail_trap
48: rts
49: @@:
50: fmove.l fpcr,d0
51: moveq.l #0,d1
52: cmp.l d1,d0
53: beq @f
54: pea.l msg_fail_cr(pc)
55: move.l d1,-(sp)
56: move.l d0,-(sp)
57: bsr result
58: lea.l 12(sp),sp
59: @@:
60: fmove.l fpsr,d0
61: moveq.l #0,d1
62: cmp.l d1,d0
63: beq @f
64: pea.l msg_fail_sr(pc)
65: move.l d1,-(sp)
66: move.l d0,-(sp)
67: bsr result
68: lea.l 12(sp),sp
69: @@:
70: fmove.l fpiar,a0
71: move.l #$55555555,a1
72: cmpa.l a1,a0
73: beq @f
74: pea.l msg_fail_ir(pc)
75: move.l a1,-(sp)
76: move.l a0,-(sp)
77: bsr result
78: lea.l 12(sp),sp
79: @@:
80: tst.l d7
81: bne @f
82: PRINT msg_ok
83: @@:
84: rts
85:
86: test_fmovem_an_to____:
87: PRINT msg_fmovem_an_to____
88: fmove.l #0,fpcr
89: fmove.l #0,fpsr
90: fmove.l #0,fpiar
91: move.l #$55555555,a0
92: SET_FLINE_TRAP
93: moveq.l #0,d7
94: lea.l @f,a3
95: .dc.w $f208, $8000
96: @@:
97: RESTORE_FLINE_TRAP
98: tst.l d7
99: beq @f
100: PRINT msg_fail_trap
101: rts
102: @@:
103: fmove.l fpcr,d0
104: moveq.l #0,d1
105: cmp.l d1,d0
106: beq @f
107: pea.l msg_fail_cr(pc)
108: move.l d1,-(sp)
109: move.l d0,-(sp)
110: bsr result
111: lea.l 12(sp),sp
112: @@:
113: fmove.l fpsr,d0
114: moveq.l #0,d1
115: cmp.l d1,d0
116: beq @f
117: pea.l msg_fail_sr(pc)
118: move.l d1,-(sp)
119: move.l d0,-(sp)
120: bsr result
121: lea.l 12(sp),sp
122: @@:
123: fmove.l fpiar,a0
124: move.l #$55555555,a1
125: cmpa.l a1,a0
126: beq @f
127: pea.l msg_fail_ir(pc)
128: move.l a1,-(sp)
129: move.l a0,-(sp)
130: bsr result
131: lea.l 12(sp),sp
132: @@:
133: tst.l d7
134: bne @f
135: PRINT msg_ok
136: @@:
137: rts
138:
139: test_fmovem_anin_to____:
140: PRINT msg_fmovem_anin_to____
141: fmove.l #0,fpcr
142: fmove.l #0,fpsr
143: fmove.l #0,fpiar
144: move.l #$55555555,workarea
145: lea.l workarea(pc),a0
146: SET_FLINE_TRAP
147: moveq.l #0,d7
148: lea.l @f,a3
149: .dc.w $f210, $8000
150: @@:
151: RESTORE_FLINE_TRAP
152: tst.l d7
153: beq @f
154: PRINT msg_fail_trap
155: rts
156: @@:
157: lea.l workarea(pc),a1
158: cmpa.l a1,a0
159: beq @f
160: pea.l msg_fail_addr(pc)
161: move.l a1,-(sp)
162: move.l a0,-(sp)
163: bsr result
164: lea.l 12(sp),sp
165: @@:
166: fmove.l fpcr,d0
167: moveq.l #0,d1
168: cmp.l d1,d0
169: beq @f
170: pea.l msg_fail_cr(pc)
171: move.l d1,-(sp)
172: move.l d0,-(sp)
173: bsr result
174: lea.l 12(sp),sp
175: @@:
176: fmove.l fpsr,d0
177: moveq.l #0,d1
178: cmp.l d1,d0
179: beq @f
180: pea.l msg_fail_sr(pc)
181: move.l d1,-(sp)
182: move.l d0,-(sp)
183: bsr result
184: lea.l 12(sp),sp
185: @@:
186: fmove.l fpiar,a0
187: move.l #$55555555,a1
188: cmpa.l a1,a0
189: beq @f
190: pea.l msg_fail_ir(pc)
191: move.l a1,-(sp)
192: move.l a0,-(sp)
193: bsr result
194: lea.l 12(sp),sp
195: @@:
196: tst.l d7
197: bne @f
198: PRINT msg_ok
199: @@:
200: rts
201:
202: test_fmovem_anpi_to____:
203: PRINT msg_fmovem_anpi_to____
204: fmove.l #0,fpcr
205: fmove.l #0,fpsr
206: fmove.l #0,fpiar
207: move.l #$55555555,workarea
208: lea.l workarea(pc),a0
209: SET_FLINE_TRAP
210: moveq.l #0,d7
211: lea.l @f,a3
212: .dc.w $f218, $8000
213: @@:
214: RESTORE_FLINE_TRAP
215: tst.l d7
216: beq @f
217: PRINT msg_fail_trap
218: rts
219: @@:
220: lea.l workarea+4(pc),a1
221: cmpa.l a1,a0
222: beq @f
223: pea.l msg_fail_addr(pc)
224: move.l a1,-(sp)
225: move.l a0,-(sp)
226: bsr result
227: lea.l 12(sp),sp
228: @@:
229: fmove.l fpcr,d0
230: moveq.l #0,d1
231: cmp.l d1,d0
232: beq @f
233: pea.l msg_fail_cr(pc)
234: move.l d1,-(sp)
235: move.l d0,-(sp)
236: bsr result
237: lea.l 12(sp),sp
238: @@:
239: fmove.l fpsr,d0
240: moveq.l #0,d1
241: cmp.l d1,d0
242: beq @f
243: pea.l msg_fail_sr(pc)
244: move.l d1,-(sp)
245: move.l d0,-(sp)
246: bsr result
247: lea.l 12(sp),sp
248: @@:
249: fmove.l fpiar,a0
250: move.l #$55555555,a1
251: cmpa.l a1,a0
252: beq @f
253: pea.l msg_fail_ir(pc)
254: move.l a1,-(sp)
255: move.l a0,-(sp)
256: bsr result
257: lea.l 12(sp),sp
258: @@:
259: tst.l d7
260: bne @f
261: PRINT msg_ok
262: @@:
263: rts
264:
265: test_fmovem_anpd_to____:
266: PRINT msg_fmovem_anpd_to____
267: fmove.l #0,fpcr
268: fmove.l #0,fpsr
269: fmove.l #0,fpiar
270: move.l #$55555555,workarea
271: lea.l workarea+4(pc),a0
272: SET_FLINE_TRAP
273: moveq.l #0,d7
274: lea.l @f,a3
275: .dc.w $f220, $8000
276: @@:
277: RESTORE_FLINE_TRAP
278: tst.l d7
279: beq @f
280: PRINT msg_fail_trap
281: rts
282: @@:
283: lea.l workarea(pc),a1
284: cmpa.l a1,a0
285: beq @f
286: pea.l msg_fail_addr(pc)
287: move.l a1,-(sp)
288: move.l a0,-(sp)
289: bsr result
290: lea.l 12(sp),sp
291: @@:
292: fmove.l fpcr,d0
293: moveq.l #0,d1
294: cmp.l d1,d0
295: beq @f
296: pea.l msg_fail_cr(pc)
297: move.l d1,-(sp)
298: move.l d0,-(sp)
299: bsr result
300: lea.l 12(sp),sp
301: @@:
302: fmove.l fpsr,d0
303: moveq.l #0,d1
304: cmp.l d1,d0
305: beq @f
306: pea.l msg_fail_sr(pc)
307: move.l d1,-(sp)
308: move.l d0,-(sp)
309: bsr result
310: lea.l 12(sp),sp
311: @@:
312: fmove.l fpiar,a0
313: move.l #$55555555,a1
314: cmpa.l a1,a0
315: beq @f
316: pea.l msg_fail_ir(pc)
317: move.l a1,-(sp)
318: move.l a0,-(sp)
319: bsr result
320: lea.l 12(sp),sp
321: @@:
322: tst.l d7
323: bne @f
324: PRINT msg_ok
325: @@:
326: rts
327:
328: test_fmovem_imm_to____:
329: PRINT msg_fmovem_imm_to____
330: fmove.l #0,fpcr
331: fmove.l #0,fpsr
332: fmove.l #0,fpiar
333: SET_FLINE_TRAP
334: moveq.l #0,d7
335: lea.l @f,a3
336: .dc.w $f23c, $8000
337: .dc.l $55555555
338: @@:
339: RESTORE_FLINE_TRAP
340: tst.l d7
341: beq @f
342: PRINT msg_fail_trap
343: rts
344: @@:
345: fmove.l fpcr,d0
346: moveq.l #0,d1
347: cmp.l d1,d0
348: beq @f
349: pea.l msg_fail_cr(pc)
350: move.l d1,-(sp)
351: move.l d0,-(sp)
352: bsr result
353: lea.l 12(sp),sp
354: @@:
355: fmove.l fpsr,d0
356: moveq.l #0,d1
357: cmp.l d1,d0
358: beq @f
359: pea.l msg_fail_sr(pc)
360: move.l d1,-(sp)
361: move.l d0,-(sp)
362: bsr result
363: lea.l 12(sp),sp
364: @@:
365: fmove.l fpiar,a0
366: move.l #$55555555,a1
367: cmpa.l a1,a0
368: beq @f
369: pea.l msg_fail_ir(pc)
370: move.l a1,-(sp)
371: move.l a0,-(sp)
372: bsr result
373: lea.l 12(sp),sp
374: @@:
375: tst.l d7
376: bne @f
377: PRINT msg_ok
378: @@:
379: rts
380:
381: test_fmovem_dn_to___I:
382: PRINT msg_fmovem_dn_to___I
383: fmove.l #0,fpcr
384: fmove.l #0,fpsr
385: fmove.l #0,fpiar
386: move.l #$55555555,d0
387: SET_FLINE_TRAP
388: moveq.l #0,d7
389: lea.l @f,a3
390: fmovem.l d0,fpiar
391: @@:
392: RESTORE_FLINE_TRAP
393: tst.l d7
394: beq @f
395: PRINT msg_fail_trap
396: rts
397: @@:
398: fmove.l fpcr,d0
399: moveq.l #0,d1
400: cmp.l d1,d0
401: beq @f
402: pea.l msg_fail_cr(pc)
403: move.l d1,-(sp)
404: move.l d0,-(sp)
405: bsr result
406: lea.l 12(sp),sp
407: @@:
408: fmove.l fpsr,d0
409: moveq.l #0,d1
410: cmp.l d1,d0
411: beq @f
412: pea.l msg_fail_sr(pc)
413: move.l d1,-(sp)
414: move.l d0,-(sp)
415: bsr result
416: lea.l 12(sp),sp
417: @@:
418: fmove.l fpiar,a0
419: move.l #$55555555,a1
420: cmpa.l a1,a0
421: beq @f
422: pea.l msg_fail_ir(pc)
423: move.l a1,-(sp)
424: move.l a0,-(sp)
425: bsr result
426: lea.l 12(sp),sp
427: @@:
428: tst.l d7
429: bne @f
430: PRINT msg_ok
431: @@:
432: rts
433:
434: test_fmovem_an_to___I:
435: PRINT msg_fmovem_an_to___I
436: fmove.l #0,fpcr
437: fmove.l #0,fpsr
438: fmove.l #0,fpiar
439: move.l #$55555555,a0
440: SET_FLINE_TRAP
441: moveq.l #0,d7
442: lea.l @f,a3
443: fmovem.l a0,fpiar
444: @@:
445: RESTORE_FLINE_TRAP
446: tst.l d7
447: beq @f
448: PRINT msg_fail_trap
449: rts
450: @@:
451: fmove.l fpcr,d0
452: moveq.l #0,d1
453: cmp.l d1,d0
454: beq @f
455: pea.l msg_fail_cr(pc)
456: move.l d1,-(sp)
457: move.l d0,-(sp)
458: bsr result
459: lea.l 12(sp),sp
460: @@:
461: fmove.l fpsr,d0
462: moveq.l #0,d1
463: cmp.l d1,d0
464: beq @f
465: pea.l msg_fail_sr(pc)
466: move.l d1,-(sp)
467: move.l d0,-(sp)
468: bsr result
469: lea.l 12(sp),sp
470: @@:
471: fmove.l fpiar,a0
472: move.l #$55555555,a1
473: cmpa.l a1,a0
474: beq @f
475: pea.l msg_fail_ir(pc)
476: move.l a1,-(sp)
477: move.l a0,-(sp)
478: bsr result
479: lea.l 12(sp),sp
480: @@:
481: tst.l d7
482: bne @f
483: PRINT msg_ok
484: @@:
485: rts
486:
487: test_fmovem_anin_to___I:
488: PRINT msg_fmovem_anin_to___I
489: fmove.l #0,fpcr
490: fmove.l #0,fpsr
491: fmove.l #0,fpiar
492: move.l #$55555555,workarea
493: lea.l workarea(pc),a0
494: SET_FLINE_TRAP
495: moveq.l #0,d7
496: lea.l @f,a3
497: fmovem.l (a0),fpiar
498: @@:
499: RESTORE_FLINE_TRAP
500: tst.l d7
501: beq @f
502: PRINT msg_fail_trap
503: rts
504: @@:
505: lea.l workarea(pc),a1
506: cmpa.l a1,a0
507: beq @f
508: pea.l msg_fail_addr(pc)
509: move.l a1,-(sp)
510: move.l a0,-(sp)
511: bsr result
512: lea.l 12(sp),sp
513: @@:
514: fmove.l fpcr,d0
515: moveq.l #0,d1
516: cmp.l d1,d0
517: beq @f
518: pea.l msg_fail_cr(pc)
519: move.l d1,-(sp)
520: move.l d0,-(sp)
521: bsr result
522: lea.l 12(sp),sp
523: @@:
524: fmove.l fpsr,d0
525: moveq.l #0,d1
526: cmp.l d1,d0
527: beq @f
528: pea.l msg_fail_sr(pc)
529: move.l d1,-(sp)
530: move.l d0,-(sp)
531: bsr result
532: lea.l 12(sp),sp
533: @@:
534: fmove.l fpiar,a0
535: move.l #$55555555,a1
536: cmpa.l a1,a0
537: beq @f
538: pea.l msg_fail_ir(pc)
539: move.l a1,-(sp)
540: move.l a0,-(sp)
541: bsr result
542: lea.l 12(sp),sp
543: @@:
544: tst.l d7
545: bne @f
546: PRINT msg_ok
547: @@:
548: rts
549:
550: test_fmovem_anpi_to___I:
551: PRINT msg_fmovem_anpi_to___I
552: fmove.l #0,fpcr
553: fmove.l #0,fpsr
554: fmove.l #0,fpiar
555: move.l #$55555555,workarea
556: lea.l workarea(pc),a0
557: SET_FLINE_TRAP
558: moveq.l #0,d7
559: lea.l @f,a3
560: fmovem.l (a0)+,fpiar
561: @@:
562: RESTORE_FLINE_TRAP
563: tst.l d7
564: beq @f
565: PRINT msg_fail_trap
566: rts
567: @@:
568: lea.l workarea+4(pc),a1
569: cmpa.l a1,a0
570: beq @f
571: pea.l msg_fail_addr(pc)
572: move.l a1,-(sp)
573: move.l a0,-(sp)
574: bsr result
575: lea.l 12(sp),sp
576: @@:
577: fmove.l fpcr,d0
578: moveq.l #0,d1
579: cmp.l d1,d0
580: beq @f
581: pea.l msg_fail_cr(pc)
582: move.l d1,-(sp)
583: move.l d0,-(sp)
584: bsr result
585: lea.l 12(sp),sp
586: @@:
587: fmove.l fpsr,d0
588: moveq.l #0,d1
589: cmp.l d1,d0
590: beq @f
591: pea.l msg_fail_sr(pc)
592: move.l d1,-(sp)
593: move.l d0,-(sp)
594: bsr result
595: lea.l 12(sp),sp
596: @@:
597: fmove.l fpiar,a0
598: move.l #$55555555,a1
599: cmpa.l a1,a0
600: beq @f
601: pea.l msg_fail_ir(pc)
602: move.l a1,-(sp)
603: move.l a0,-(sp)
604: bsr result
605: lea.l 12(sp),sp
606: @@:
607: tst.l d7
608: bne @f
609: PRINT msg_ok
610: @@:
611: rts
612:
613: test_fmovem_anpd_to___I:
614: PRINT msg_fmovem_anpd_to___I
615: fmove.l #0,fpcr
616: fmove.l #0,fpsr
617: fmove.l #0,fpiar
618: move.l #$55555555,workarea
619: lea.l workarea+4(pc),a0
620: SET_FLINE_TRAP
621: moveq.l #0,d7
622: lea.l @f,a3
623: fmovem.l -(a0),fpiar
624: @@:
625: RESTORE_FLINE_TRAP
626: tst.l d7
627: beq @f
628: PRINT msg_fail_trap
629: rts
630: @@:
631: lea.l workarea(pc),a1
632: cmpa.l a1,a0
633: beq @f
634: pea.l msg_fail_addr(pc)
635: move.l a1,-(sp)
636: move.l a0,-(sp)
637: bsr result
638: lea.l 12(sp),sp
639: @@:
640: fmove.l fpcr,d0
641: moveq.l #0,d1
642: cmp.l d1,d0
643: beq @f
644: pea.l msg_fail_cr(pc)
645: move.l d1,-(sp)
646: move.l d0,-(sp)
647: bsr result
648: lea.l 12(sp),sp
649: @@:
650: fmove.l fpsr,d0
651: moveq.l #0,d1
652: cmp.l d1,d0
653: beq @f
654: pea.l msg_fail_sr(pc)
655: move.l d1,-(sp)
656: move.l d0,-(sp)
657: bsr result
658: lea.l 12(sp),sp
659: @@:
660: fmove.l fpiar,a0
661: move.l #$55555555,a1
662: cmpa.l a1,a0
663: beq @f
664: pea.l msg_fail_ir(pc)
665: move.l a1,-(sp)
666: move.l a0,-(sp)
667: bsr result
668: lea.l 12(sp),sp
669: @@:
670: tst.l d7
671: bne @f
672: PRINT msg_ok
673: @@:
674: rts
675:
676: test_fmovem_imm_to___I:
677: PRINT msg_fmovem_imm_to___I
678: fmove.l #0,fpcr
679: fmove.l #0,fpsr
680: fmove.l #0,fpiar
681: SET_FLINE_TRAP
682: moveq.l #0,d7
683: lea.l @f,a3
684: fmovem.l #$55555555,fpiar
685: @@:
686: RESTORE_FLINE_TRAP
687: tst.l d7
688: beq @f
689: PRINT msg_fail_trap
690: rts
691: @@:
692: fmove.l fpcr,d0
693: moveq.l #0,d1
694: cmp.l d1,d0
695: beq @f
696: pea.l msg_fail_cr(pc)
697: move.l d1,-(sp)
698: move.l d0,-(sp)
699: bsr result
700: lea.l 12(sp),sp
701: @@:
702: fmove.l fpsr,d0
703: moveq.l #0,d1
704: cmp.l d1,d0
705: beq @f
706: pea.l msg_fail_sr(pc)
707: move.l d1,-(sp)
708: move.l d0,-(sp)
709: bsr result
710: lea.l 12(sp),sp
711: @@:
712: fmove.l fpiar,a0
713: move.l #$55555555,a1
714: cmpa.l a1,a0
715: beq @f
716: pea.l msg_fail_ir(pc)
717: move.l a1,-(sp)
718: move.l a0,-(sp)
719: bsr result
720: lea.l 12(sp),sp
721: @@:
722: tst.l d7
723: bne @f
724: PRINT msg_ok
725: @@:
726: rts
727:
728: test_fmovem_dn_to__S_:
729: PRINT msg_fmovem_dn_to__S_
730: fmove.l #0,fpcr
731: fmove.l #0,fpsr
732: fmove.l #0,fpiar
733: move.l #$55555555,d0
734: SET_FLINE_TRAP
735: moveq.l #0,d7
736: lea.l @f,a3
737: fmovem.l d0,fpsr
738: @@:
739: RESTORE_FLINE_TRAP
740: tst.l d7
741: beq @f
742: PRINT msg_fail_trap
743: rts
744: @@:
745: fmove.l fpcr,d0
746: moveq.l #0,d1
747: cmp.l d1,d0
748: beq @f
749: pea.l msg_fail_cr(pc)
750: move.l d1,-(sp)
751: move.l d0,-(sp)
752: bsr result
753: lea.l 12(sp),sp
754: @@:
755: fmove.l fpsr,d0
756: move.l #$05555550,d1
757: cmp.l d1,d0
758: beq @f
759: pea.l msg_fail_sr(pc)
760: move.l d1,-(sp)
761: move.l d0,-(sp)
762: bsr result
763: lea.l 12(sp),sp
764: @@:
765: fmove.l fpiar,a0
766: move.l d7,a1 ; d7=0
767: cmpa.l a1,a0
768: beq @f
769: pea.l msg_fail_ir(pc)
770: move.l a1,-(sp)
771: move.l a0,-(sp)
772: bsr result
773: lea.l 12(sp),sp
774: @@:
775: tst.l d7
776: bne @f
777: PRINT msg_ok
778: @@:
779: rts
780:
781: test_fmovem_an_to__S_:
782: PRINT msg_fmovem_an_to__S_
783: SET_FLINE_TRAP
784: moveq.l #0,d7
785: lea.l @f,a3
786: .dc.w $f208, $8800
787: @@:
788: RESTORE_FLINE_TRAP
789: tst.l d7
790: bne @f
791: PRINT msg_fail_notrap
792: rts
793: @@:
794: PRINT msg_oktrap
795: rts
796:
797: test_fmovem_anin_to__S_:
798: PRINT msg_fmovem_anin_to__S_
799: fmove.l #0,fpcr
800: fmove.l #0,fpsr
801: fmove.l #0,fpiar
802: move.l #$55555555,workarea
803: lea.l workarea(pc),a0
804: SET_FLINE_TRAP
805: moveq.l #0,d7
806: lea.l @f,a3
807: fmovem.l (a0),fpsr
808: @@:
809: RESTORE_FLINE_TRAP
810: tst.l d7
811: beq @f
812: PRINT msg_fail_trap
813: rts
814: @@:
815: lea.l workarea(pc),a1
816: cmpa.l a1,a0
817: beq @f
818: pea.l msg_fail_addr(pc)
819: move.l a1,-(sp)
820: move.l a0,-(sp)
821: bsr result
822: lea.l 12(sp),sp
823: @@:
824: fmove.l fpcr,d0
825: moveq.l #0,d1
826: cmp.l d1,d0
827: beq @f
828: pea.l msg_fail_cr(pc)
829: move.l d1,-(sp)
830: move.l d0,-(sp)
831: bsr result
832: lea.l 12(sp),sp
833: @@:
834: fmove.l fpsr,d0
835: move.l #$05555550,d1
836: cmp.l d1,d0
837: beq @f
838: pea.l msg_fail_sr(pc)
839: move.l d1,-(sp)
840: move.l d0,-(sp)
841: bsr result
842: lea.l 12(sp),sp
843: @@:
844: fmove.l fpiar,a0
845: move.l d7,a1 ; d7=0
846: cmpa.l a1,a0
847: beq @f
848: pea.l msg_fail_ir(pc)
849: move.l a1,-(sp)
850: move.l a0,-(sp)
851: bsr result
852: lea.l 12(sp),sp
853: @@:
854: tst.l d7
855: bne @f
856: PRINT msg_ok
857: @@:
858: rts
859:
860: test_fmovem_anpi_to__S_:
861: PRINT msg_fmovem_anpi_to__S_
862: fmove.l #0,fpcr
863: fmove.l #0,fpsr
864: fmove.l #0,fpiar
865: move.l #$55555555,workarea
866: lea.l workarea(pc),a0
867: SET_FLINE_TRAP
868: moveq.l #0,d7
869: lea.l @f,a3
870: fmovem.l (a0)+,fpsr
871: @@:
872: RESTORE_FLINE_TRAP
873: tst.l d7
874: beq @f
875: PRINT msg_fail_trap
876: rts
877: @@:
878: lea.l workarea+4(pc),a1
879: cmpa.l a1,a0
880: beq @f
881: pea.l msg_fail_addr(pc)
882: move.l a1,-(sp)
883: move.l a0,-(sp)
884: bsr result
885: lea.l 12(sp),sp
886: @@:
887: fmove.l fpcr,d0
888: moveq.l #0,d1
889: cmp.l d1,d0
890: beq @f
891: pea.l msg_fail_cr(pc)
892: move.l d1,-(sp)
893: move.l d0,-(sp)
894: bsr result
895: lea.l 12(sp),sp
896: @@:
897: fmove.l fpsr,d0
898: move.l #$05555550,d1
899: cmp.l d1,d0
900: beq @f
901: pea.l msg_fail_sr(pc)
902: move.l d1,-(sp)
903: move.l d0,-(sp)
904: bsr result
905: lea.l 12(sp),sp
906: @@:
907: fmove.l fpiar,a0
908: move.l d7,a1 ; d7=0
909: cmpa.l a1,a0
910: beq @f
911: pea.l msg_fail_ir(pc)
912: move.l a1,-(sp)
913: move.l a0,-(sp)
914: bsr result
915: lea.l 12(sp),sp
916: @@:
917: tst.l d7
918: bne @f
919: PRINT msg_ok
920: @@:
921: rts
922:
923: test_fmovem_anpd_to__S_:
924: PRINT msg_fmovem_anpd_to__S_
925: fmove.l #0,fpcr
926: fmove.l #0,fpsr
927: fmove.l #0,fpiar
928: move.l #$55555555,workarea
929: lea.l workarea+4(pc),a0
930: SET_FLINE_TRAP
931: moveq.l #0,d7
932: lea.l @f,a3
933: fmovem.l -(a0),fpsr
934: @@:
935: RESTORE_FLINE_TRAP
936: tst.l d7
937: beq @f
938: PRINT msg_fail_trap
939: rts
940: @@:
941: lea.l workarea(pc),a1
942: cmpa.l a1,a0
943: beq @f
944: pea.l msg_fail_addr(pc)
945: move.l a1,-(sp)
946: move.l a0,-(sp)
947: bsr result
948: lea.l 12(sp),sp
949: @@:
950: fmove.l fpcr,d0
951: moveq.l #0,d1
952: cmp.l d1,d0
953: beq @f
954: pea.l msg_fail_cr(pc)
955: move.l d1,-(sp)
956: move.l d0,-(sp)
957: bsr result
958: lea.l 12(sp),sp
959: @@:
960: fmove.l fpsr,d0
961: move.l #$05555550,d1
962: cmp.l d1,d0
963: beq @f
964: pea.l msg_fail_sr(pc)
965: move.l d1,-(sp)
966: move.l d0,-(sp)
967: bsr result
968: lea.l 12(sp),sp
969: @@:
970: fmove.l fpiar,a0
971: move.l d7,a1 ; d7=0
972: cmpa.l a1,a0
973: beq @f
974: pea.l msg_fail_ir(pc)
975: move.l a1,-(sp)
976: move.l a0,-(sp)
977: bsr result
978: lea.l 12(sp),sp
979: @@:
980: tst.l d7
981: bne @f
982: PRINT msg_ok
983: @@:
984: rts
985:
986: test_fmovem_imm_to__S_:
987: PRINT msg_fmovem_imm_to__S_
988: fmove.l #0,fpcr
989: fmove.l #0,fpsr
990: fmove.l #0,fpiar
991: SET_FLINE_TRAP
992: moveq.l #0,d7
993: lea.l @f,a3
994: fmovem.l #$55555555,fpsr
995: @@:
996: RESTORE_FLINE_TRAP
997: tst.l d7
998: beq @f
999: PRINT msg_fail_trap
1000: rts
1001: @@:
1002: fmove.l fpcr,d0
1003: moveq.l #0,d1
1004: cmp.l d1,d0
1005: beq @f
1006: pea.l msg_fail_cr(pc)
1007: move.l d1,-(sp)
1008: move.l d0,-(sp)
1009: bsr result
1010: lea.l 12(sp),sp
1011: @@:
1012: fmove.l fpsr,d0
1013: move.l #$05555550,d1
1014: cmp.l d1,d0
1015: beq @f
1016: pea.l msg_fail_sr(pc)
1017: move.l d1,-(sp)
1018: move.l d0,-(sp)
1019: bsr result
1020: lea.l 12(sp),sp
1021: @@:
1022: fmove.l fpiar,a0
1023: move.l d7,a1 ; d7=0
1024: cmpa.l a1,a0
1025: beq @f
1026: pea.l msg_fail_ir(pc)
1027: move.l a1,-(sp)
1028: move.l a0,-(sp)
1029: bsr result
1030: lea.l 12(sp),sp
1031: @@:
1032: tst.l d7
1033: bne @f
1034: PRINT msg_ok
1035: @@:
1036: rts
1037:
1038: test_fmovem_dn_to__SI:
1039: PRINT msg_fmovem_dn_to__SI
1040: SET_FLINE_TRAP
1041: moveq.l #0,d7
1042: lea.l @f,a3
1043: .dc.w $f200, $8c00
1044: @@:
1045: RESTORE_FLINE_TRAP
1046: tst.l d7
1047: bne @f
1048: PRINT msg_fail_notrap
1049: rts
1050: @@:
1051: PRINT msg_oktrap
1052: rts
1053:
1054: test_fmovem_an_to__SI:
1055: PRINT msg_fmovem_an_to__SI
1056: SET_FLINE_TRAP
1057: moveq.l #0,d7
1058: lea.l @f,a3
1059: .dc.w $f208, $8c00
1060: @@:
1061: RESTORE_FLINE_TRAP
1062: tst.l d7
1063: bne @f
1064: PRINT msg_fail_notrap
1065: rts
1066: @@:
1067: PRINT msg_oktrap
1068: rts
1069:
1070: test_fmovem_anin_to__SI:
1071: PRINT msg_fmovem_anin_to__SI
1072: fmove.l #0,fpcr
1073: fmove.l #0,fpsr
1074: fmove.l #0,fpiar
1075: move.l #$55555555,workarea
1076: move.l #$aaaaaaaa,workarea+4
1077: lea.l workarea(pc),a0
1078: SET_FLINE_TRAP
1079: moveq.l #0,d7
1080: lea.l @f,a3
1081: fmovem.l (a0),fpsr/fpiar
1082: @@:
1083: RESTORE_FLINE_TRAP
1084: tst.l d7
1085: beq @f
1086: PRINT msg_fail_trap
1087: rts
1088: @@:
1089: lea.l workarea(pc),a1
1090: cmpa.l a1,a0
1091: beq @f
1092: pea.l msg_fail_addr(pc)
1093: move.l a1,-(sp)
1094: move.l a0,-(sp)
1095: bsr result
1096: lea.l 12(sp),sp
1097: @@:
1098: fmove.l fpcr,d0
1099: moveq.l #0,d1
1100: cmp.l d1,d0
1101: beq @f
1102: pea.l msg_fail_cr(pc)
1103: move.l d1,-(sp)
1104: move.l d0,-(sp)
1105: bsr result
1106: lea.l 12(sp),sp
1107: @@:
1108: fmove.l fpsr,d0
1109: move.l #$05555550,d1
1110: cmp.l d1,d0
1111: beq @f
1112: pea.l msg_fail_sr(pc)
1113: move.l d1,-(sp)
1114: move.l d0,-(sp)
1115: bsr result
1116: lea.l 12(sp),sp
1117: @@:
1118: fmove.l fpiar,a0
1119: move.l #$aaaaaaaa,a1
1120: cmpa.l a1,a0
1121: beq @f
1122: pea.l msg_fail_ir(pc)
1123: move.l a1,-(sp)
1124: move.l a0,-(sp)
1125: bsr result
1126: lea.l 12(sp),sp
1127: @@:
1128: tst.l d7
1129: bne @f
1130: PRINT msg_ok
1131: @@:
1132: rts
1133:
1134: test_fmovem_anpi_to__SI:
1135: PRINT msg_fmovem_anpi_to__SI
1136: fmove.l #0,fpcr
1137: fmove.l #0,fpsr
1138: fmove.l #0,fpiar
1139: move.l #$55555555,workarea
1140: move.l #$aaaaaaaa,workarea+4
1141: lea.l workarea(pc),a0
1142: SET_FLINE_TRAP
1143: moveq.l #0,d7
1144: lea.l @f,a3
1145: fmovem.l (a0)+,fpsr/fpiar
1146: @@:
1147: RESTORE_FLINE_TRAP
1148: tst.l d7
1149: beq @f
1150: PRINT msg_fail_trap
1151: rts
1152: @@:
1153: lea.l workarea+8(pc),a1
1154: cmpa.l a1,a0
1155: beq @f
1156: pea.l msg_fail_addr(pc)
1157: move.l a1,-(sp)
1158: move.l a0,-(sp)
1159: bsr result
1160: lea.l 12(sp),sp
1161: @@:
1162: fmove.l fpcr,d0
1163: moveq.l #0,d1
1164: cmp.l d1,d0
1165: beq @f
1166: pea.l msg_fail_cr(pc)
1167: move.l d1,-(sp)
1168: move.l d0,-(sp)
1169: bsr result
1170: lea.l 12(sp),sp
1171: @@:
1172: fmove.l fpsr,d0
1173: move.l #$05555550,d1
1174: cmp.l d1,d0
1175: beq @f
1176: pea.l msg_fail_sr(pc)
1177: move.l d1,-(sp)
1178: move.l d0,-(sp)
1179: bsr result
1180: lea.l 12(sp),sp
1181: @@:
1182: fmove.l fpiar,a0
1183: move.l #$aaaaaaaa,a1
1184: cmpa.l a1,a0
1185: beq @f
1186: pea.l msg_fail_ir(pc)
1187: move.l a1,-(sp)
1188: move.l a0,-(sp)
1189: bsr result
1190: lea.l 12(sp),sp
1191: @@:
1192: tst.l d7
1193: bne @f
1194: PRINT msg_ok
1195: @@:
1196: rts
1197:
1198: test_fmovem_anpd_to__SI:
1199: PRINT msg_fmovem_anpd_to__SI
1200: fmove.l #0,fpcr
1201: fmove.l #0,fpsr
1202: fmove.l #0,fpiar
1203: move.l #$55555555,workarea
1204: move.l #$aaaaaaaa,workarea+4
1205: lea.l workarea+8(pc),a0
1206: SET_FLINE_TRAP
1207: moveq.l #0,d7
1208: lea.l @f,a3
1209: fmovem.l -(a0),fpsr/fpiar
1210: @@:
1211: RESTORE_FLINE_TRAP
1212: tst.l d7
1213: beq @f
1214: PRINT msg_fail_trap
1215: rts
1216: @@:
1217: lea.l workarea(pc),a1
1218: cmpa.l a1,a0
1219: beq @f
1220: pea.l msg_fail_addr(pc)
1221: move.l a1,-(sp)
1222: move.l a0,-(sp)
1223: bsr result
1224: lea.l 12(sp),sp
1225: @@:
1226: fmove.l fpcr,d0
1227: moveq.l #0,d1
1228: cmp.l d1,d0
1229: beq @f
1230: pea.l msg_fail_cr(pc)
1231: move.l d1,-(sp)
1232: move.l d0,-(sp)
1233: bsr result
1234: lea.l 12(sp),sp
1235: @@:
1236: fmove.l fpsr,d0
1237: move.l #$05555550,d1
1238: cmp.l d1,d0
1239: beq @f
1240: pea.l msg_fail_sr(pc)
1241: move.l d1,-(sp)
1242: move.l d0,-(sp)
1243: bsr result
1244: lea.l 12(sp),sp
1245: @@:
1246: fmove.l fpiar,a0
1247: move.l #$aaaaaaaa,a1
1248: cmpa.l a1,a0
1249: beq @f
1250: pea.l msg_fail_ir(pc)
1251: move.l a1,-(sp)
1252: move.l a0,-(sp)
1253: bsr result
1254: lea.l 12(sp),sp
1255: @@:
1256: tst.l d7
1257: bne @f
1258: PRINT msg_ok
1259: @@:
1260: rts
1261:
1262: test_fmovem_imm_to__SI:
1263: PRINT msg_fmovem_imm_to__SI
1264: fmove.l #0,fpcr
1265: fmove.l #0,fpsr
1266: fmove.l #0,fpiar
1267: SET_FLINE_TRAP
1268: moveq.l #0,d7
1269: lea.l @f,a3
1270: fmovem.l #$55555555,#$aaaaaaaa,fpsr/fpiar
1271: @@:
1272: RESTORE_FLINE_TRAP
1273: tst.l d7
1274: beq @f
1275: PRINT msg_fail_trap
1276: rts
1277: @@:
1278: fmove.l fpcr,d0
1279: moveq.l #0,d1
1280: cmp.l d1,d0
1281: beq @f
1282: pea.l msg_fail_cr(pc)
1283: move.l d1,-(sp)
1284: move.l d0,-(sp)
1285: bsr result
1286: lea.l 12(sp),sp
1287: @@:
1288: fmove.l fpsr,d0
1289: move.l #$05555550,d1
1290: cmp.l d1,d0
1291: beq @f
1292: pea.l msg_fail_sr(pc)
1293: move.l d1,-(sp)
1294: move.l d0,-(sp)
1295: bsr result
1296: lea.l 12(sp),sp
1297: @@:
1298: fmove.l fpiar,a0
1299: move.l #$aaaaaaaa,a1
1300: cmpa.l a1,a0
1301: beq @f
1302: pea.l msg_fail_ir(pc)
1303: move.l a1,-(sp)
1304: move.l a0,-(sp)
1305: bsr result
1306: lea.l 12(sp),sp
1307: @@:
1308: tst.l d7
1309: bne @f
1310: PRINT msg_ok
1311: @@:
1312: rts
1313:
1314: test_fmovem_dn_to_C__:
1315: PRINT msg_fmovem_dn_to_C__
1316: fmove.l #0,fpcr
1317: fmove.l #0,fpsr
1318: fmove.l #0,fpiar
1319: move.l #$55555555,d0
1320: SET_FLINE_TRAP
1321: moveq.l #0,d7
1322: lea.l @f,a3
1323: fmovem.l d0,fpcr
1324: @@:
1325: RESTORE_FLINE_TRAP
1326: tst.l d7
1327: beq @f
1328: PRINT msg_fail_trap
1329: rts
1330: @@:
1331: fmove.l fpcr,d0
1332: move.l #$00005550,d1
1333: cmp.l d1,d0
1334: beq @f
1335: pea.l msg_fail_cr(pc)
1336: move.l d1,-(sp)
1337: move.l d0,-(sp)
1338: bsr result
1339: lea.l 12(sp),sp
1340: @@:
1341: fmove.l fpsr,d0
1342: moveq.l #0,d1
1343: cmp.l d1,d0
1344: beq @f
1345: pea.l msg_fail_sr(pc)
1346: move.l d1,-(sp)
1347: move.l d0,-(sp)
1348: bsr result
1349: lea.l 12(sp),sp
1350: @@:
1351: fmove.l fpiar,a0
1352: move.l d7,a1 ; d7=0
1353: cmpa.l a1,a0
1354: beq @f
1355: pea.l msg_fail_ir(pc)
1356: move.l a1,-(sp)
1357: move.l a0,-(sp)
1358: bsr result
1359: lea.l 12(sp),sp
1360: @@:
1361: tst.l d7
1362: bne @f
1363: PRINT msg_ok
1364: @@:
1365: rts
1366:
1367: test_fmovem_an_to_C__:
1368: PRINT msg_fmovem_an_to_C__
1369: SET_FLINE_TRAP
1370: moveq.l #0,d7
1371: lea.l @f,a3
1372: .dc.w $f208, $9000
1373: @@:
1374: RESTORE_FLINE_TRAP
1375: tst.l d7
1376: bne @f
1377: PRINT msg_fail_notrap
1378: rts
1379: @@:
1380: PRINT msg_oktrap
1381: rts
1382:
1383: test_fmovem_anin_to_C__:
1384: PRINT msg_fmovem_anin_to_C__
1385: fmove.l #0,fpcr
1386: fmove.l #0,fpsr
1387: fmove.l #0,fpiar
1388: move.l #$55555555,workarea
1389: lea.l workarea(pc),a0
1390: SET_FLINE_TRAP
1391: moveq.l #0,d7
1392: lea.l @f,a3
1393: fmovem.l (a0),fpcr
1394: @@:
1395: RESTORE_FLINE_TRAP
1396: tst.l d7
1397: beq @f
1398: PRINT msg_fail_trap
1399: rts
1400: @@:
1401: lea.l workarea(pc),a1
1402: cmpa.l a1,a0
1403: beq @f
1404: pea.l msg_fail_addr(pc)
1405: move.l a1,-(sp)
1406: move.l a0,-(sp)
1407: bsr result
1408: lea.l 12(sp),sp
1409: @@:
1410: fmove.l fpcr,d0
1411: move.l #$00005550,d1
1412: cmp.l d1,d0
1413: beq @f
1414: pea.l msg_fail_cr(pc)
1415: move.l d1,-(sp)
1416: move.l d0,-(sp)
1417: bsr result
1418: lea.l 12(sp),sp
1419: @@:
1420: fmove.l fpsr,d0
1421: moveq.l #0,d1
1422: cmp.l d1,d0
1423: beq @f
1424: pea.l msg_fail_sr(pc)
1425: move.l d1,-(sp)
1426: move.l d0,-(sp)
1427: bsr result
1428: lea.l 12(sp),sp
1429: @@:
1430: fmove.l fpiar,a0
1431: move.l d7,a1 ; d7=0
1432: cmpa.l a1,a0
1433: beq @f
1434: pea.l msg_fail_ir(pc)
1435: move.l a1,-(sp)
1436: move.l a0,-(sp)
1437: bsr result
1438: lea.l 12(sp),sp
1439: @@:
1440: tst.l d7
1441: bne @f
1442: PRINT msg_ok
1443: @@:
1444: rts
1445:
1446: test_fmovem_anpi_to_C__:
1447: PRINT msg_fmovem_anpi_to_C__
1448: fmove.l #0,fpcr
1449: fmove.l #0,fpsr
1450: fmove.l #0,fpiar
1451: move.l #$55555555,workarea
1452: lea.l workarea(pc),a0
1453: SET_FLINE_TRAP
1454: moveq.l #0,d7
1455: lea.l @f,a3
1456: fmovem.l (a0)+,fpcr
1457: @@:
1458: RESTORE_FLINE_TRAP
1459: tst.l d7
1460: beq @f
1461: PRINT msg_fail_trap
1462: rts
1463: @@:
1464: lea.l workarea+4(pc),a1
1465: cmpa.l a1,a0
1466: beq @f
1467: pea.l msg_fail_addr(pc)
1468: move.l a1,-(sp)
1469: move.l a0,-(sp)
1470: bsr result
1471: lea.l 12(sp),sp
1472: @@:
1473: fmove.l fpcr,d0
1474: move.l #$00005550,d1
1475: cmp.l d1,d0
1476: beq @f
1477: pea.l msg_fail_cr(pc)
1478: move.l d1,-(sp)
1479: move.l d0,-(sp)
1480: bsr result
1481: lea.l 12(sp),sp
1482: @@:
1483: fmove.l fpsr,d0
1484: moveq.l #0,d1
1485: cmp.l d1,d0
1486: beq @f
1487: pea.l msg_fail_sr(pc)
1488: move.l d1,-(sp)
1489: move.l d0,-(sp)
1490: bsr result
1491: lea.l 12(sp),sp
1492: @@:
1493: fmove.l fpiar,a0
1494: move.l d7,a1 ; d7=0
1495: cmpa.l a1,a0
1496: beq @f
1497: pea.l msg_fail_ir(pc)
1498: move.l a1,-(sp)
1499: move.l a0,-(sp)
1500: bsr result
1501: lea.l 12(sp),sp
1502: @@:
1503: tst.l d7
1504: bne @f
1505: PRINT msg_ok
1506: @@:
1507: rts
1508:
1509: test_fmovem_anpd_to_C__:
1510: PRINT msg_fmovem_anpd_to_C__
1511: fmove.l #0,fpcr
1512: fmove.l #0,fpsr
1513: fmove.l #0,fpiar
1514: move.l #$55555555,workarea
1515: lea.l workarea+4(pc),a0
1516: SET_FLINE_TRAP
1517: moveq.l #0,d7
1518: lea.l @f,a3
1519: fmovem.l -(a0),fpcr
1520: @@:
1521: RESTORE_FLINE_TRAP
1522: tst.l d7
1523: beq @f
1524: PRINT msg_fail_trap
1525: rts
1526: @@:
1527: lea.l workarea(pc),a1
1528: cmpa.l a1,a0
1529: beq @f
1530: pea.l msg_fail_addr(pc)
1531: move.l a1,-(sp)
1532: move.l a0,-(sp)
1533: bsr result
1534: lea.l 12(sp),sp
1535: @@:
1536: fmove.l fpcr,d0
1537: move.l #$00005550,d1
1538: cmp.l d1,d0
1539: beq @f
1540: pea.l msg_fail_cr(pc)
1541: move.l d1,-(sp)
1542: move.l d0,-(sp)
1543: bsr result
1544: lea.l 12(sp),sp
1545: @@:
1546: fmove.l fpsr,d0
1547: moveq.l #0,d1
1548: cmp.l d1,d0
1549: beq @f
1550: pea.l msg_fail_sr(pc)
1551: move.l d1,-(sp)
1552: move.l d0,-(sp)
1553: bsr result
1554: lea.l 12(sp),sp
1555: @@:
1556: fmove.l fpiar,a0
1557: move.l d7,a1 ; d7=0
1558: cmpa.l a1,a0
1559: beq @f
1560: pea.l msg_fail_ir(pc)
1561: move.l a1,-(sp)
1562: move.l a0,-(sp)
1563: bsr result
1564: lea.l 12(sp),sp
1565: @@:
1566: tst.l d7
1567: bne @f
1568: PRINT msg_ok
1569: @@:
1570: rts
1571:
1572: test_fmovem_imm_to_C__:
1573: PRINT msg_fmovem_imm_to_C__
1574: fmove.l #0,fpcr
1575: fmove.l #0,fpsr
1576: fmove.l #0,fpiar
1577: SET_FLINE_TRAP
1578: moveq.l #0,d7
1579: lea.l @f,a3
1580: fmovem.l #$55555555,fpcr
1581: @@:
1582: RESTORE_FLINE_TRAP
1583: tst.l d7
1584: beq @f
1585: PRINT msg_fail_trap
1586: rts
1587: @@:
1588: fmove.l fpcr,d0
1589: move.l #$00005550,d1
1590: cmp.l d1,d0
1591: beq @f
1592: pea.l msg_fail_cr(pc)
1593: move.l d1,-(sp)
1594: move.l d0,-(sp)
1595: bsr result
1596: lea.l 12(sp),sp
1597: @@:
1598: fmove.l fpsr,d0
1599: moveq.l #0,d1
1600: cmp.l d1,d0
1601: beq @f
1602: pea.l msg_fail_sr(pc)
1603: move.l d1,-(sp)
1604: move.l d0,-(sp)
1605: bsr result
1606: lea.l 12(sp),sp
1607: @@:
1608: fmove.l fpiar,a0
1609: move.l d7,a1 ; d7=0
1610: cmpa.l a1,a0
1611: beq @f
1612: pea.l msg_fail_ir(pc)
1613: move.l a1,-(sp)
1614: move.l a0,-(sp)
1615: bsr result
1616: lea.l 12(sp),sp
1617: @@:
1618: tst.l d7
1619: bne @f
1620: PRINT msg_ok
1621: @@:
1622: rts
1623:
1624: test_fmovem_dn_to_C_I:
1625: PRINT msg_fmovem_dn_to_C_I
1626: SET_FLINE_TRAP
1627: moveq.l #0,d7
1628: lea.l @f,a3
1629: .dc.w $f200, $9400
1630: @@:
1631: RESTORE_FLINE_TRAP
1632: tst.l d7
1633: bne @f
1634: PRINT msg_fail_notrap
1635: rts
1636: @@:
1637: PRINT msg_oktrap
1638: rts
1639:
1640: test_fmovem_an_to_C_I:
1641: PRINT msg_fmovem_an_to_C_I
1642: SET_FLINE_TRAP
1643: moveq.l #0,d7
1644: lea.l @f,a3
1645: .dc.w $f208, $9400
1646: @@:
1647: RESTORE_FLINE_TRAP
1648: tst.l d7
1649: bne @f
1650: PRINT msg_fail_notrap
1651: rts
1652: @@:
1653: PRINT msg_oktrap
1654: rts
1655:
1656: test_fmovem_anin_to_C_I:
1657: PRINT msg_fmovem_anin_to_C_I
1658: fmove.l #0,fpcr
1659: fmove.l #0,fpsr
1660: fmove.l #0,fpiar
1661: move.l #$55555555,workarea
1662: move.l #$aaaaaaaa,workarea+4
1663: lea.l workarea(pc),a0
1664: SET_FLINE_TRAP
1665: moveq.l #0,d7
1666: lea.l @f,a3
1667: fmovem.l (a0),fpcr/fpiar
1668: @@:
1669: RESTORE_FLINE_TRAP
1670: tst.l d7
1671: beq @f
1672: PRINT msg_fail_trap
1673: rts
1674: @@:
1675: lea.l workarea(pc),a1
1676: cmpa.l a1,a0
1677: beq @f
1678: pea.l msg_fail_addr(pc)
1679: move.l a1,-(sp)
1680: move.l a0,-(sp)
1681: bsr result
1682: lea.l 12(sp),sp
1683: @@:
1684: fmove.l fpcr,d0
1685: move.l #$00005550,d1
1686: cmp.l d1,d0
1687: beq @f
1688: pea.l msg_fail_cr(pc)
1689: move.l d1,-(sp)
1690: move.l d0,-(sp)
1691: bsr result
1692: lea.l 12(sp),sp
1693: @@:
1694: fmove.l fpsr,d0
1695: moveq.l #0,d1
1696: cmp.l d1,d0
1697: beq @f
1698: pea.l msg_fail_sr(pc)
1699: move.l d1,-(sp)
1700: move.l d0,-(sp)
1701: bsr result
1702: lea.l 12(sp),sp
1703: @@:
1704: fmove.l fpiar,a0
1705: move.l #$aaaaaaaa,a1
1706: cmpa.l a1,a0
1707: beq @f
1708: pea.l msg_fail_ir(pc)
1709: move.l a1,-(sp)
1710: move.l a0,-(sp)
1711: bsr result
1712: lea.l 12(sp),sp
1713: @@:
1714: tst.l d7
1715: bne @f
1716: PRINT msg_ok
1717: @@:
1718: rts
1719:
1720: test_fmovem_anpi_to_C_I:
1721: PRINT msg_fmovem_anpi_to_C_I
1722: fmove.l #0,fpcr
1723: fmove.l #0,fpsr
1724: fmove.l #0,fpiar
1725: move.l #$55555555,workarea
1726: move.l #$aaaaaaaa,workarea+4
1727: lea.l workarea(pc),a0
1728: SET_FLINE_TRAP
1729: moveq.l #0,d7
1730: lea.l @f,a3
1731: fmovem.l (a0)+,fpcr/fpiar
1732: @@:
1733: RESTORE_FLINE_TRAP
1734: tst.l d7
1735: beq @f
1736: PRINT msg_fail_trap
1737: rts
1738: @@:
1739: lea.l workarea+8(pc),a1
1740: cmpa.l a1,a0
1741: beq @f
1742: pea.l msg_fail_addr(pc)
1743: move.l a1,-(sp)
1744: move.l a0,-(sp)
1745: bsr result
1746: lea.l 12(sp),sp
1747: @@:
1748: fmove.l fpcr,d0
1749: move.l #$00005550,d1
1750: cmp.l d1,d0
1751: beq @f
1752: pea.l msg_fail_cr(pc)
1753: move.l d1,-(sp)
1754: move.l d0,-(sp)
1755: bsr result
1756: lea.l 12(sp),sp
1757: @@:
1758: fmove.l fpsr,d0
1759: moveq.l #0,d1
1760: cmp.l d1,d0
1761: beq @f
1762: pea.l msg_fail_sr(pc)
1763: move.l d1,-(sp)
1764: move.l d0,-(sp)
1765: bsr result
1766: lea.l 12(sp),sp
1767: @@:
1768: fmove.l fpiar,a0
1769: move.l #$aaaaaaaa,a1
1770: cmpa.l a1,a0
1771: beq @f
1772: pea.l msg_fail_ir(pc)
1773: move.l a1,-(sp)
1774: move.l a0,-(sp)
1775: bsr result
1776: lea.l 12(sp),sp
1777: @@:
1778: tst.l d7
1779: bne @f
1780: PRINT msg_ok
1781: @@:
1782: rts
1783:
1784: test_fmovem_anpd_to_C_I:
1785: PRINT msg_fmovem_anpd_to_C_I
1786: fmove.l #0,fpcr
1787: fmove.l #0,fpsr
1788: fmove.l #0,fpiar
1789: move.l #$55555555,workarea
1790: move.l #$aaaaaaaa,workarea+4
1791: lea.l workarea+8(pc),a0
1792: SET_FLINE_TRAP
1793: moveq.l #0,d7
1794: lea.l @f,a3
1795: fmovem.l -(a0),fpcr/fpiar
1796: @@:
1797: RESTORE_FLINE_TRAP
1798: tst.l d7
1799: beq @f
1800: PRINT msg_fail_trap
1801: rts
1802: @@:
1803: lea.l workarea(pc),a1
1804: cmpa.l a1,a0
1805: beq @f
1806: pea.l msg_fail_addr(pc)
1807: move.l a1,-(sp)
1808: move.l a0,-(sp)
1809: bsr result
1810: lea.l 12(sp),sp
1811: @@:
1812: fmove.l fpcr,d0
1813: move.l #$00005550,d1
1814: cmp.l d1,d0
1815: beq @f
1816: pea.l msg_fail_cr(pc)
1817: move.l d1,-(sp)
1818: move.l d0,-(sp)
1819: bsr result
1820: lea.l 12(sp),sp
1821: @@:
1822: fmove.l fpsr,d0
1823: moveq.l #0,d1
1824: cmp.l d1,d0
1825: beq @f
1826: pea.l msg_fail_sr(pc)
1827: move.l d1,-(sp)
1828: move.l d0,-(sp)
1829: bsr result
1830: lea.l 12(sp),sp
1831: @@:
1832: fmove.l fpiar,a0
1833: move.l #$aaaaaaaa,a1
1834: cmpa.l a1,a0
1835: beq @f
1836: pea.l msg_fail_ir(pc)
1837: move.l a1,-(sp)
1838: move.l a0,-(sp)
1839: bsr result
1840: lea.l 12(sp),sp
1841: @@:
1842: tst.l d7
1843: bne @f
1844: PRINT msg_ok
1845: @@:
1846: rts
1847:
1848: test_fmovem_imm_to_C_I:
1849: PRINT msg_fmovem_imm_to_C_I
1850: fmove.l #0,fpcr
1851: fmove.l #0,fpsr
1852: fmove.l #0,fpiar
1853: SET_FLINE_TRAP
1854: moveq.l #0,d7
1855: lea.l @f,a3
1856: fmovem.l #$55555555,#$aaaaaaaa,fpcr/fpiar
1857: @@:
1858: RESTORE_FLINE_TRAP
1859: tst.l d7
1860: beq @f
1861: PRINT msg_fail_trap
1862: rts
1863: @@:
1864: fmove.l fpcr,d0
1865: move.l #$00005550,d1
1866: cmp.l d1,d0
1867: beq @f
1868: pea.l msg_fail_cr(pc)
1869: move.l d1,-(sp)
1870: move.l d0,-(sp)
1871: bsr result
1872: lea.l 12(sp),sp
1873: @@:
1874: fmove.l fpsr,d0
1875: moveq.l #0,d1
1876: cmp.l d1,d0
1877: beq @f
1878: pea.l msg_fail_sr(pc)
1879: move.l d1,-(sp)
1880: move.l d0,-(sp)
1881: bsr result
1882: lea.l 12(sp),sp
1883: @@:
1884: fmove.l fpiar,a0
1885: move.l #$aaaaaaaa,a1
1886: cmpa.l a1,a0
1887: beq @f
1888: pea.l msg_fail_ir(pc)
1889: move.l a1,-(sp)
1890: move.l a0,-(sp)
1891: bsr result
1892: lea.l 12(sp),sp
1893: @@:
1894: tst.l d7
1895: bne @f
1896: PRINT msg_ok
1897: @@:
1898: rts
1899:
1900: test_fmovem_dn_to_CS_:
1901: PRINT msg_fmovem_dn_to_CS_
1902: SET_FLINE_TRAP
1903: moveq.l #0,d7
1904: lea.l @f,a3
1905: .dc.w $f200, $9800
1906: @@:
1907: RESTORE_FLINE_TRAP
1908: tst.l d7
1909: bne @f
1910: PRINT msg_fail_notrap
1911: rts
1912: @@:
1913: PRINT msg_oktrap
1914: rts
1915:
1916: test_fmovem_an_to_CS_:
1917: PRINT msg_fmovem_an_to_CS_
1918: SET_FLINE_TRAP
1919: moveq.l #0,d7
1920: lea.l @f,a3
1921: .dc.w $f208, $9800
1922: @@:
1923: RESTORE_FLINE_TRAP
1924: tst.l d7
1925: bne @f
1926: PRINT msg_fail_notrap
1927: rts
1928: @@:
1929: PRINT msg_oktrap
1930: rts
1931:
1932: test_fmovem_anin_to_CS_:
1933: PRINT msg_fmovem_anin_to_CS_
1934: fmove.l #0,fpcr
1935: fmove.l #0,fpsr
1936: fmove.l #0,fpiar
1937: move.l #$55555555,workarea
1938: move.l #$aaaaaaaa,workarea+4
1939: lea.l workarea(pc),a0
1940: SET_FLINE_TRAP
1941: moveq.l #0,d7
1942: lea.l @f,a3
1943: fmovem.l (a0),fpcr/fpsr
1944: @@:
1945: RESTORE_FLINE_TRAP
1946: tst.l d7
1947: beq @f
1948: PRINT msg_fail_trap
1949: rts
1950: @@:
1951: lea.l workarea(pc),a1
1952: cmpa.l a1,a0
1953: beq @f
1954: pea.l msg_fail_addr(pc)
1955: move.l a1,-(sp)
1956: move.l a0,-(sp)
1957: bsr result
1958: lea.l 12(sp),sp
1959: @@:
1960: fmove.l fpcr,d0
1961: move.l #$00005550,d1
1962: cmp.l d1,d0
1963: beq @f
1964: pea.l msg_fail_cr(pc)
1965: move.l d1,-(sp)
1966: move.l d0,-(sp)
1967: bsr result
1968: lea.l 12(sp),sp
1969: @@:
1970: fmove.l fpsr,d0
1971: move.l #$0aaaaaa8,d1
1972: cmp.l d1,d0
1973: beq @f
1974: pea.l msg_fail_sr(pc)
1975: move.l d1,-(sp)
1976: move.l d0,-(sp)
1977: bsr result
1978: lea.l 12(sp),sp
1979: @@:
1980: fmove.l fpiar,a0
1981: move.l d7,a1 ; d7=0
1982: cmpa.l a1,a0
1983: beq @f
1984: pea.l msg_fail_ir(pc)
1985: move.l a1,-(sp)
1986: move.l a0,-(sp)
1987: bsr result
1988: lea.l 12(sp),sp
1989: @@:
1990: tst.l d7
1991: bne @f
1992: PRINT msg_ok
1993: @@:
1994: rts
1995:
1996: test_fmovem_anpi_to_CS_:
1997: PRINT msg_fmovem_anpi_to_CS_
1998: fmove.l #0,fpcr
1999: fmove.l #0,fpsr
2000: fmove.l #0,fpiar
2001: move.l #$55555555,workarea
2002: move.l #$aaaaaaaa,workarea+4
2003: lea.l workarea(pc),a0
2004: SET_FLINE_TRAP
2005: moveq.l #0,d7
2006: lea.l @f,a3
2007: fmovem.l (a0)+,fpcr/fpsr
2008: @@:
2009: RESTORE_FLINE_TRAP
2010: tst.l d7
2011: beq @f
2012: PRINT msg_fail_trap
2013: rts
2014: @@:
2015: lea.l workarea+8(pc),a1
2016: cmpa.l a1,a0
2017: beq @f
2018: pea.l msg_fail_addr(pc)
2019: move.l a1,-(sp)
2020: move.l a0,-(sp)
2021: bsr result
2022: lea.l 12(sp),sp
2023: @@:
2024: fmove.l fpcr,d0
2025: move.l #$00005550,d1
2026: cmp.l d1,d0
2027: beq @f
2028: pea.l msg_fail_cr(pc)
2029: move.l d1,-(sp)
2030: move.l d0,-(sp)
2031: bsr result
2032: lea.l 12(sp),sp
2033: @@:
2034: fmove.l fpsr,d0
2035: move.l #$0aaaaaa8,d1
2036: cmp.l d1,d0
2037: beq @f
2038: pea.l msg_fail_sr(pc)
2039: move.l d1,-(sp)
2040: move.l d0,-(sp)
2041: bsr result
2042: lea.l 12(sp),sp
2043: @@:
2044: fmove.l fpiar,a0
2045: move.l d7,a1 ; d7=0
2046: cmpa.l a1,a0
2047: beq @f
2048: pea.l msg_fail_ir(pc)
2049: move.l a1,-(sp)
2050: move.l a0,-(sp)
2051: bsr result
2052: lea.l 12(sp),sp
2053: @@:
2054: tst.l d7
2055: bne @f
2056: PRINT msg_ok
2057: @@:
2058: rts
2059:
2060: test_fmovem_anpd_to_CS_:
2061: PRINT msg_fmovem_anpd_to_CS_
2062: fmove.l #0,fpcr
2063: fmove.l #0,fpsr
2064: fmove.l #0,fpiar
2065: move.l #$55555555,workarea
2066: move.l #$aaaaaaaa,workarea+4
2067: lea.l workarea+8(pc),a0
2068: SET_FLINE_TRAP
2069: moveq.l #0,d7
2070: lea.l @f,a3
2071: fmovem.l -(a0),fpcr/fpsr
2072: @@:
2073: RESTORE_FLINE_TRAP
2074: tst.l d7
2075: beq @f
2076: PRINT msg_fail_trap
2077: rts
2078: @@:
2079: lea.l workarea(pc),a1
2080: cmpa.l a1,a0
2081: beq @f
2082: pea.l msg_fail_addr(pc)
2083: move.l a1,-(sp)
2084: move.l a0,-(sp)
2085: bsr result
2086: lea.l 12(sp),sp
2087: @@:
2088: fmove.l fpcr,d0
2089: move.l #$00005550,d1
2090: cmp.l d1,d0
2091: beq @f
2092: pea.l msg_fail_cr(pc)
2093: move.l d1,-(sp)
2094: move.l d0,-(sp)
2095: bsr result
2096: lea.l 12(sp),sp
2097: @@:
2098: fmove.l fpsr,d0
2099: move.l #$0aaaaaa8,d1
2100: cmp.l d1,d0
2101: beq @f
2102: pea.l msg_fail_sr(pc)
2103: move.l d1,-(sp)
2104: move.l d0,-(sp)
2105: bsr result
2106: lea.l 12(sp),sp
2107: @@:
2108: fmove.l fpiar,a0
2109: move.l d7,a1 ; d7=0
2110: cmpa.l a1,a0
2111: beq @f
2112: pea.l msg_fail_ir(pc)
2113: move.l a1,-(sp)
2114: move.l a0,-(sp)
2115: bsr result
2116: lea.l 12(sp),sp
2117: @@:
2118: tst.l d7
2119: bne @f
2120: PRINT msg_ok
2121: @@:
2122: rts
2123:
2124: test_fmovem_imm_to_CS_:
2125: PRINT msg_fmovem_imm_to_CS_
2126: fmove.l #0,fpcr
2127: fmove.l #0,fpsr
2128: fmove.l #0,fpiar
2129: SET_FLINE_TRAP
2130: moveq.l #0,d7
2131: lea.l @f,a3
2132: fmovem.l #$55555555,#$aaaaaaaa,fpcr/fpsr
2133: @@:
2134: RESTORE_FLINE_TRAP
2135: tst.l d7
2136: beq @f
2137: PRINT msg_fail_trap
2138: rts
2139: @@:
2140: fmove.l fpcr,d0
2141: move.l #$00005550,d1
2142: cmp.l d1,d0
2143: beq @f
2144: pea.l msg_fail_cr(pc)
2145: move.l d1,-(sp)
2146: move.l d0,-(sp)
2147: bsr result
2148: lea.l 12(sp),sp
2149: @@:
2150: fmove.l fpsr,d0
2151: move.l #$0aaaaaa8,d1
2152: cmp.l d1,d0
2153: beq @f
2154: pea.l msg_fail_sr(pc)
2155: move.l d1,-(sp)
2156: move.l d0,-(sp)
2157: bsr result
2158: lea.l 12(sp),sp
2159: @@:
2160: fmove.l fpiar,a0
2161: move.l d7,a1 ; d7=0
2162: cmpa.l a1,a0
2163: beq @f
2164: pea.l msg_fail_ir(pc)
2165: move.l a1,-(sp)
2166: move.l a0,-(sp)
2167: bsr result
2168: lea.l 12(sp),sp
2169: @@:
2170: tst.l d7
2171: bne @f
2172: PRINT msg_ok
2173: @@:
2174: rts
2175:
2176: test_fmovem_dn_to_CSI:
2177: PRINT msg_fmovem_dn_to_CSI
2178: SET_FLINE_TRAP
2179: moveq.l #0,d7
2180: lea.l @f,a3
2181: .dc.w $f200, $9c00
2182: @@:
2183: RESTORE_FLINE_TRAP
2184: tst.l d7
2185: bne @f
2186: PRINT msg_fail_notrap
2187: rts
2188: @@:
2189: PRINT msg_oktrap
2190: rts
2191:
2192: test_fmovem_an_to_CSI:
2193: PRINT msg_fmovem_an_to_CSI
2194: SET_FLINE_TRAP
2195: moveq.l #0,d7
2196: lea.l @f,a3
2197: .dc.w $f208, $9c00
2198: @@:
2199: RESTORE_FLINE_TRAP
2200: tst.l d7
2201: bne @f
2202: PRINT msg_fail_notrap
2203: rts
2204: @@:
2205: PRINT msg_oktrap
2206: rts
2207:
2208: test_fmovem_anin_to_CSI:
2209: PRINT msg_fmovem_anin_to_CSI
2210: fmove.l #0,fpcr
2211: fmove.l #0,fpsr
2212: fmove.l #0,fpiar
2213: move.l #$55555555,workarea
2214: move.l #$aaaaaaaa,workarea+4
2215: move.l #$33333333,workarea+8
2216: lea.l workarea(pc),a0
2217: SET_FLINE_TRAP
2218: moveq.l #0,d7
2219: lea.l @f,a3
2220: fmovem.l (a0),fpcr/fpsr/fpiar
2221: @@:
2222: RESTORE_FLINE_TRAP
2223: tst.l d7
2224: beq @f
2225: PRINT msg_fail_trap
2226: rts
2227: @@:
2228: lea.l workarea(pc),a1
2229: cmpa.l a1,a0
2230: beq @f
2231: pea.l msg_fail_addr(pc)
2232: move.l a1,-(sp)
2233: move.l a0,-(sp)
2234: bsr result
2235: lea.l 12(sp),sp
2236: @@:
2237: fmove.l fpcr,d0
2238: move.l #$00005550,d1
2239: cmp.l d1,d0
2240: beq @f
2241: pea.l msg_fail_cr(pc)
2242: move.l d1,-(sp)
2243: move.l d0,-(sp)
2244: bsr result
2245: lea.l 12(sp),sp
2246: @@:
2247: fmove.l fpsr,d0
2248: move.l #$0aaaaaa8,d1
2249: cmp.l d1,d0
2250: beq @f
2251: pea.l msg_fail_sr(pc)
2252: move.l d1,-(sp)
2253: move.l d0,-(sp)
2254: bsr result
2255: lea.l 12(sp),sp
2256: @@:
2257: fmove.l fpiar,a0
2258: move.l #$33333333,a1
2259: cmpa.l a1,a0
2260: beq @f
2261: pea.l msg_fail_ir(pc)
2262: move.l a1,-(sp)
2263: move.l a0,-(sp)
2264: bsr result
2265: lea.l 12(sp),sp
2266: @@:
2267: tst.l d7
2268: bne @f
2269: PRINT msg_ok
2270: @@:
2271: rts
2272:
2273: test_fmovem_anpi_to_CSI:
2274: PRINT msg_fmovem_anpi_to_CSI
2275: fmove.l #0,fpcr
2276: fmove.l #0,fpsr
2277: fmove.l #0,fpiar
2278: move.l #$55555555,workarea
2279: move.l #$aaaaaaaa,workarea+4
2280: move.l #$33333333,workarea+8
2281: lea.l workarea(pc),a0
2282: SET_FLINE_TRAP
2283: moveq.l #0,d7
2284: lea.l @f,a3
2285: fmovem.l (a0)+,fpcr/fpsr/fpiar
2286: @@:
2287: RESTORE_FLINE_TRAP
2288: tst.l d7
2289: beq @f
2290: PRINT msg_fail_trap
2291: rts
2292: @@:
2293: lea.l workarea+12(pc),a1
2294: cmpa.l a1,a0
2295: beq @f
2296: pea.l msg_fail_addr(pc)
2297: move.l a1,-(sp)
2298: move.l a0,-(sp)
2299: bsr result
2300: lea.l 12(sp),sp
2301: @@:
2302: fmove.l fpcr,d0
2303: move.l #$00005550,d1
2304: cmp.l d1,d0
2305: beq @f
2306: pea.l msg_fail_cr(pc)
2307: move.l d1,-(sp)
2308: move.l d0,-(sp)
2309: bsr result
2310: lea.l 12(sp),sp
2311: @@:
2312: fmove.l fpsr,d0
2313: move.l #$0aaaaaa8,d1
2314: cmp.l d1,d0
2315: beq @f
2316: pea.l msg_fail_sr(pc)
2317: move.l d1,-(sp)
2318: move.l d0,-(sp)
2319: bsr result
2320: lea.l 12(sp),sp
2321: @@:
2322: fmove.l fpiar,a0
2323: move.l #$33333333,a1
2324: cmpa.l a1,a0
2325: beq @f
2326: pea.l msg_fail_ir(pc)
2327: move.l a1,-(sp)
2328: move.l a0,-(sp)
2329: bsr result
2330: lea.l 12(sp),sp
2331: @@:
2332: tst.l d7
2333: bne @f
2334: PRINT msg_ok
2335: @@:
2336: rts
2337:
2338: test_fmovem_anpd_to_CSI:
2339: PRINT msg_fmovem_anpd_to_CSI
2340: fmove.l #0,fpcr
2341: fmove.l #0,fpsr
2342: fmove.l #0,fpiar
2343: move.l #$55555555,workarea
2344: move.l #$aaaaaaaa,workarea+4
2345: move.l #$33333333,workarea+8
2346: lea.l workarea+12(pc),a0
2347: SET_FLINE_TRAP
2348: moveq.l #0,d7
2349: lea.l @f,a3
2350: fmovem.l -(a0),fpcr/fpsr/fpiar
2351: @@:
2352: RESTORE_FLINE_TRAP
2353: tst.l d7
2354: beq @f
2355: PRINT msg_fail_trap
2356: rts
2357: @@:
2358: lea.l workarea(pc),a1
2359: cmpa.l a1,a0
2360: beq @f
2361: pea.l msg_fail_addr(pc)
2362: move.l a1,-(sp)
2363: move.l a0,-(sp)
2364: bsr result
2365: lea.l 12(sp),sp
2366: @@:
2367: fmove.l fpcr,d0
2368: move.l #$00005550,d1
2369: cmp.l d1,d0
2370: beq @f
2371: pea.l msg_fail_cr(pc)
2372: move.l d1,-(sp)
2373: move.l d0,-(sp)
2374: bsr result
2375: lea.l 12(sp),sp
2376: @@:
2377: fmove.l fpsr,d0
2378: move.l #$0aaaaaa8,d1
2379: cmp.l d1,d0
2380: beq @f
2381: pea.l msg_fail_sr(pc)
2382: move.l d1,-(sp)
2383: move.l d0,-(sp)
2384: bsr result
2385: lea.l 12(sp),sp
2386: @@:
2387: fmove.l fpiar,a0
2388: move.l #$33333333,a1
2389: cmpa.l a1,a0
2390: beq @f
2391: pea.l msg_fail_ir(pc)
2392: move.l a1,-(sp)
2393: move.l a0,-(sp)
2394: bsr result
2395: lea.l 12(sp),sp
2396: @@:
2397: tst.l d7
2398: bne @f
2399: PRINT msg_ok
2400: @@:
2401: rts
2402:
2403: test_fmovem_imm_to_CSI:
2404: PRINT msg_fmovem_imm_to_CSI
2405: fmove.l #0,fpcr
2406: fmove.l #0,fpsr
2407: fmove.l #0,fpiar
2408: SET_FLINE_TRAP
2409: moveq.l #0,d7
2410: lea.l @f,a3
2411: fmovem.l #$55555555,#$aaaaaaaa,#$33333333,fpcr/fpsr/fpiar
2412: @@:
2413: RESTORE_FLINE_TRAP
2414: tst.l d7
2415: beq @f
2416: PRINT msg_fail_trap
2417: rts
2418: @@:
2419: fmove.l fpcr,d0
2420: move.l #$00005550,d1
2421: cmp.l d1,d0
2422: beq @f
2423: pea.l msg_fail_cr(pc)
2424: move.l d1,-(sp)
2425: move.l d0,-(sp)
2426: bsr result
2427: lea.l 12(sp),sp
2428: @@:
2429: fmove.l fpsr,d0
2430: move.l #$0aaaaaa8,d1
2431: cmp.l d1,d0
2432: beq @f
2433: pea.l msg_fail_sr(pc)
2434: move.l d1,-(sp)
2435: move.l d0,-(sp)
2436: bsr result
2437: lea.l 12(sp),sp
2438: @@:
2439: fmove.l fpiar,a0
2440: move.l #$33333333,a1
2441: cmpa.l a1,a0
2442: beq @f
2443: pea.l msg_fail_ir(pc)
2444: move.l a1,-(sp)
2445: move.l a0,-(sp)
2446: bsr result
2447: lea.l 12(sp),sp
2448: @@:
2449: tst.l d7
2450: bne @f
2451: PRINT msg_ok
2452: @@:
2453: rts
2454:
2455: test_fmovem_____to_dn:
2456: PRINT msg_fmovem_____to_dn
2457: fmove.l #$00000000,fpcr
2458: fmove.l #$00000000,fpsr
2459: fmove.l #$55555555,fpiar
2460: SET_FLINE_TRAP
2461: moveq.l #0,d7
2462: lea.l @f,a3
2463: .dc.w $f200, $a000
2464: @@:
2465: RESTORE_FLINE_TRAP
2466: tst.l d7
2467: beq @f
2468: PRINT msg_fail_trap
2469: rts
2470: @@:
2471: move.l #$55555555,d1
2472: cmp.l d1,d0
2473: beq @f
2474: pea.l msg_fail(pc)
2475: move.l d1,-(sp)
2476: move.l d0,-(sp)
2477: bsr result
2478: lea.l 12(sp),sp
2479: @@:
2480: tst.l d7
2481: bne @f
2482: PRINT msg_ok
2483: @@:
2484: rts
2485:
2486: test_fmovem_____to_an:
2487: PRINT msg_fmovem_____to_an
2488: fmove.l #$00000000,fpcr
2489: fmove.l #$00000000,fpsr
2490: fmove.l #$55555555,fpiar
2491: SET_FLINE_TRAP
2492: moveq.l #0,d7
2493: lea.l @f,a3
2494: .dc.w $f208, $a000
2495: @@:
2496: RESTORE_FLINE_TRAP
2497: tst.l d7
2498: beq @f
2499: PRINT msg_fail_trap
2500: rts
2501: @@:
2502: movea.l #$55555555,a1
2503: cmp.l a1,a0
2504: beq @f
2505: pea.l msg_fail(pc)
2506: move.l a1,-(sp)
2507: move.l a0,-(sp)
2508: bsr result
2509: lea.l 12(sp),sp
2510: @@:
2511: tst.l d7
2512: bne @f
2513: PRINT msg_ok
2514: @@:
2515: rts
2516:
2517: test_fmovem_____to_anin:
2518: PRINT msg_fmovem_____to_anin
2519: fmove.l #$00000000,fpcr
2520: fmove.l #$00000000,fpsr
2521: fmove.l #$55555555,fpiar
2522: lea.l workarea(pc),a0
2523: SET_FLINE_TRAP
2524: moveq.l #0,d7
2525: lea.l @f,a3
2526: .dc.w $f210, $a000
2527: @@:
2528: RESTORE_FLINE_TRAP
2529: tst.l d7
2530: beq @f
2531: PRINT msg_fail_trap
2532: rts
2533: @@:
2534: lea.l workarea(pc),a1
2535: cmpa.l a1,a0
2536: beq @f
2537: pea.l msg_fail_addr(pc)
2538: move.l a1,-(sp)
2539: move.l a0,-(sp)
2540: bsr result
2541: lea.l 12(sp),sp
2542: @@:
2543: move.l #$55555555,d1
2544: cmp.l workarea+0,d1
2545: beq @f
2546: pea.l msg_fail(pc)
2547: move.l d1,-(sp)
2548: move.l workarea+4,-(sp)
2549: bsr result
2550: lea.l 12(sp),sp
2551: @@:
2552: tst.l d7
2553: bne @f
2554: PRINT msg_ok
2555: @@:
2556: rts
2557:
2558: test_fmovem_____to_anpi:
2559: PRINT msg_fmovem_____to_anpi
2560: fmove.l #$00000000,fpcr
2561: fmove.l #$00000000,fpsr
2562: fmove.l #$55555555,fpiar
2563: lea.l workarea(pc),a0
2564: SET_FLINE_TRAP
2565: moveq.l #0,d7
2566: lea.l @f,a3
2567: .dc.w $f218, $a000
2568: @@:
2569: RESTORE_FLINE_TRAP
2570: tst.l d7
2571: beq @f
2572: PRINT msg_fail_trap
2573: rts
2574: @@:
2575: lea.l workarea+4(pc),a1
2576: cmpa.l a1,a0
2577: beq @f
2578: pea.l msg_fail_addr(pc)
2579: move.l a1,-(sp)
2580: move.l a0,-(sp)
2581: bsr result
2582: lea.l 12(sp),sp
2583: @@:
2584: move.l #$55555555,d1
2585: cmp.l workarea+0,d1
2586: beq @f
2587: pea.l msg_fail(pc)
2588: move.l d1,-(sp)
2589: move.l workarea+4,-(sp)
2590: bsr result
2591: lea.l 12(sp),sp
2592: @@:
2593: tst.l d7
2594: bne @f
2595: PRINT msg_ok
2596: @@:
2597: rts
2598:
2599: test_fmovem_____to_anpd:
2600: PRINT msg_fmovem_____to_anpd
2601: fmove.l #$00000000,fpcr
2602: fmove.l #$00000000,fpsr
2603: fmove.l #$55555555,fpiar
2604: lea.l workarea+4(pc),a0
2605: SET_FLINE_TRAP
2606: moveq.l #0,d7
2607: lea.l @f,a3
2608: .dc.w $f220, $a000
2609: @@:
2610: RESTORE_FLINE_TRAP
2611: tst.l d7
2612: beq @f
2613: PRINT msg_fail_trap
2614: rts
2615: @@:
2616: lea.l workarea(pc),a1
2617: cmpa.l a1,a0
2618: beq @f
2619: pea.l msg_fail_addr(pc)
2620: move.l a1,-(sp)
2621: move.l a0,-(sp)
2622: bsr result
2623: lea.l 12(sp),sp
2624: @@:
2625: move.l #$55555555,d1
2626: cmp.l workarea+0,d1
2627: beq @f
2628: pea.l msg_fail(pc)
2629: move.l d1,-(sp)
2630: move.l workarea+4,-(sp)
2631: bsr result
2632: lea.l 12(sp),sp
2633: @@:
2634: tst.l d7
2635: bne @f
2636: PRINT msg_ok
2637: @@:
2638: rts
2639:
2640: test_fmovem_____to_imm:
2641: PRINT msg_fmovem_____to_imm
2642: SET_FLINE_TRAP
2643: moveq.l #0,d7
2644: lea.l @f,a3
2645: .dc.w $f23c, $a000
2646: @@:
2647: RESTORE_FLINE_TRAP
2648: tst.l d7
2649: bne @f
2650: PRINT msg_fail_notrap
2651: rts
2652: @@:
2653: PRINT msg_oktrap
2654: rts
2655:
2656: test_fmovem___I_to_dn:
2657: PRINT msg_fmovem___I_to_dn
2658: fmove.l #$00000000,fpcr
2659: fmove.l #$00000000,fpsr
2660: fmove.l #$55555555,fpiar
2661: SET_FLINE_TRAP
2662: moveq.l #0,d7
2663: lea.l @f,a3
2664: fmovem.l fpiar,d0
2665: @@:
2666: RESTORE_FLINE_TRAP
2667: tst.l d7
2668: beq @f
2669: PRINT msg_fail_trap
2670: rts
2671: @@:
2672: move.l #$55555555,d1
2673: cmp.l d1,d0
2674: beq @f
2675: pea.l msg_fail(pc)
2676: move.l d1,-(sp)
2677: move.l d0,-(sp)
2678: bsr result
2679: lea.l 12(sp),sp
2680: @@:
2681: tst.l d7
2682: bne @f
2683: PRINT msg_ok
2684: @@:
2685: rts
2686:
2687: test_fmovem___I_to_an:
2688: PRINT msg_fmovem___I_to_an
2689: fmove.l #$00000000,fpcr
2690: fmove.l #$00000000,fpsr
2691: fmove.l #$55555555,fpiar
2692: SET_FLINE_TRAP
2693: moveq.l #0,d7
2694: lea.l @f,a3
2695: fmovem.l fpiar,a0
2696: @@:
2697: RESTORE_FLINE_TRAP
2698: tst.l d7
2699: beq @f
2700: PRINT msg_fail_trap
2701: rts
2702: @@:
2703: movea.l #$55555555,a1
2704: cmp.l a1,a0
2705: beq @f
2706: pea.l msg_fail(pc)
2707: move.l a1,-(sp)
2708: move.l a0,-(sp)
2709: bsr result
2710: lea.l 12(sp),sp
2711: @@:
2712: tst.l d7
2713: bne @f
2714: PRINT msg_ok
2715: @@:
2716: rts
2717:
2718: test_fmovem___I_to_anin:
2719: PRINT msg_fmovem___I_to_anin
2720: fmove.l #$00000000,fpcr
2721: fmove.l #$00000000,fpsr
2722: fmove.l #$55555555,fpiar
2723: lea.l workarea(pc),a0
2724: SET_FLINE_TRAP
2725: moveq.l #0,d7
2726: lea.l @f,a3
2727: fmovem.l fpiar,(a0)
2728: @@:
2729: RESTORE_FLINE_TRAP
2730: tst.l d7
2731: beq @f
2732: PRINT msg_fail_trap
2733: rts
2734: @@:
2735: lea.l workarea(pc),a1
2736: cmpa.l a1,a0
2737: beq @f
2738: pea.l msg_fail_addr(pc)
2739: move.l a1,-(sp)
2740: move.l a0,-(sp)
2741: bsr result
2742: lea.l 12(sp),sp
2743: @@:
2744: move.l #$55555555,d1
2745: cmp.l workarea+0,d1
2746: beq @f
2747: pea.l msg_fail(pc)
2748: move.l d1,-(sp)
2749: move.l workarea+4,-(sp)
2750: bsr result
2751: lea.l 12(sp),sp
2752: @@:
2753: tst.l d7
2754: bne @f
2755: PRINT msg_ok
2756: @@:
2757: rts
2758:
2759: test_fmovem___I_to_anpi:
2760: PRINT msg_fmovem___I_to_anpi
2761: fmove.l #$00000000,fpcr
2762: fmove.l #$00000000,fpsr
2763: fmove.l #$55555555,fpiar
2764: lea.l workarea(pc),a0
2765: SET_FLINE_TRAP
2766: moveq.l #0,d7
2767: lea.l @f,a3
2768: fmovem.l fpiar,(a0)+
2769: @@:
2770: RESTORE_FLINE_TRAP
2771: tst.l d7
2772: beq @f
2773: PRINT msg_fail_trap
2774: rts
2775: @@:
2776: lea.l workarea+4(pc),a1
2777: cmpa.l a1,a0
2778: beq @f
2779: pea.l msg_fail_addr(pc)
2780: move.l a1,-(sp)
2781: move.l a0,-(sp)
2782: bsr result
2783: lea.l 12(sp),sp
2784: @@:
2785: move.l #$55555555,d1
2786: cmp.l workarea+0,d1
2787: beq @f
2788: pea.l msg_fail(pc)
2789: move.l d1,-(sp)
2790: move.l workarea+4,-(sp)
2791: bsr result
2792: lea.l 12(sp),sp
2793: @@:
2794: tst.l d7
2795: bne @f
2796: PRINT msg_ok
2797: @@:
2798: rts
2799:
2800: test_fmovem___I_to_anpd:
2801: PRINT msg_fmovem___I_to_anpd
2802: fmove.l #$00000000,fpcr
2803: fmove.l #$00000000,fpsr
2804: fmove.l #$55555555,fpiar
2805: lea.l workarea+4(pc),a0
2806: SET_FLINE_TRAP
2807: moveq.l #0,d7
2808: lea.l @f,a3
2809: fmovem.l fpiar,-(a0)
2810: @@:
2811: RESTORE_FLINE_TRAP
2812: tst.l d7
2813: beq @f
2814: PRINT msg_fail_trap
2815: rts
2816: @@:
2817: lea.l workarea(pc),a1
2818: cmpa.l a1,a0
2819: beq @f
2820: pea.l msg_fail_addr(pc)
2821: move.l a1,-(sp)
2822: move.l a0,-(sp)
2823: bsr result
2824: lea.l 12(sp),sp
2825: @@:
2826: move.l #$55555555,d1
2827: cmp.l workarea+0,d1
2828: beq @f
2829: pea.l msg_fail(pc)
2830: move.l d1,-(sp)
2831: move.l workarea+4,-(sp)
2832: bsr result
2833: lea.l 12(sp),sp
2834: @@:
2835: tst.l d7
2836: bne @f
2837: PRINT msg_ok
2838: @@:
2839: rts
2840:
2841: test_fmovem___I_to_imm:
2842: PRINT msg_fmovem___I_to_imm
2843: SET_FLINE_TRAP
2844: moveq.l #0,d7
2845: lea.l @f,a3
2846: .dc.w $f23c, $a400
2847: @@:
2848: RESTORE_FLINE_TRAP
2849: tst.l d7
2850: bne @f
2851: PRINT msg_fail_notrap
2852: rts
2853: @@:
2854: PRINT msg_oktrap
2855: rts
2856:
2857: test_fmovem__S__to_dn:
2858: PRINT msg_fmovem__S__to_dn
2859: fmove.l #$00000000,fpcr
2860: fmove.l #$55555555,fpsr
2861: fmove.l #$00000000,fpiar
2862: SET_FLINE_TRAP
2863: moveq.l #0,d7
2864: lea.l @f,a3
2865: fmovem.l fpsr,d0
2866: @@:
2867: RESTORE_FLINE_TRAP
2868: tst.l d7
2869: beq @f
2870: PRINT msg_fail_trap
2871: rts
2872: @@:
2873: move.l #$05555550,d1
2874: cmp.l d1,d0
2875: beq @f
2876: pea.l msg_fail(pc)
2877: move.l d1,-(sp)
2878: move.l d0,-(sp)
2879: bsr result
2880: lea.l 12(sp),sp
2881: @@:
2882: tst.l d7
2883: bne @f
2884: PRINT msg_ok
2885: @@:
2886: rts
2887:
2888: test_fmovem__S__to_an:
2889: PRINT msg_fmovem__S__to_an
2890: SET_FLINE_TRAP
2891: moveq.l #0,d7
2892: lea.l @f,a3
2893: .dc.w $f208, $a800
2894: @@:
2895: RESTORE_FLINE_TRAP
2896: tst.l d7
2897: bne @f
2898: PRINT msg_fail_notrap
2899: rts
2900: @@:
2901: PRINT msg_oktrap
2902: rts
2903:
2904: test_fmovem__S__to_anin:
2905: PRINT msg_fmovem__S__to_anin
2906: fmove.l #$00000000,fpcr
2907: fmove.l #$55555555,fpsr
2908: fmove.l #$00000000,fpiar
2909: lea.l workarea(pc),a0
2910: SET_FLINE_TRAP
2911: moveq.l #0,d7
2912: lea.l @f,a3
2913: fmovem.l fpsr,(a0)
2914: @@:
2915: RESTORE_FLINE_TRAP
2916: tst.l d7
2917: beq @f
2918: PRINT msg_fail_trap
2919: rts
2920: @@:
2921: lea.l workarea(pc),a1
2922: cmpa.l a1,a0
2923: beq @f
2924: pea.l msg_fail_addr(pc)
2925: move.l a1,-(sp)
2926: move.l a0,-(sp)
2927: bsr result
2928: lea.l 12(sp),sp
2929: @@:
2930: move.l #$05555550,d1
2931: cmp.l workarea+0,d1
2932: beq @f
2933: pea.l msg_fail(pc)
2934: move.l d1,-(sp)
2935: move.l workarea+4,-(sp)
2936: bsr result
2937: lea.l 12(sp),sp
2938: @@:
2939: tst.l d7
2940: bne @f
2941: PRINT msg_ok
2942: @@:
2943: rts
2944:
2945: test_fmovem__S__to_anpi:
2946: PRINT msg_fmovem__S__to_anpi
2947: fmove.l #$00000000,fpcr
2948: fmove.l #$55555555,fpsr
2949: fmove.l #$00000000,fpiar
2950: lea.l workarea(pc),a0
2951: SET_FLINE_TRAP
2952: moveq.l #0,d7
2953: lea.l @f,a3
2954: fmovem.l fpsr,(a0)+
2955: @@:
2956: RESTORE_FLINE_TRAP
2957: tst.l d7
2958: beq @f
2959: PRINT msg_fail_trap
2960: rts
2961: @@:
2962: lea.l workarea+4(pc),a1
2963: cmpa.l a1,a0
2964: beq @f
2965: pea.l msg_fail_addr(pc)
2966: move.l a1,-(sp)
2967: move.l a0,-(sp)
2968: bsr result
2969: lea.l 12(sp),sp
2970: @@:
2971: move.l #$05555550,d1
2972: cmp.l workarea+0,d1
2973: beq @f
2974: pea.l msg_fail(pc)
2975: move.l d1,-(sp)
2976: move.l workarea+4,-(sp)
2977: bsr result
2978: lea.l 12(sp),sp
2979: @@:
2980: tst.l d7
2981: bne @f
2982: PRINT msg_ok
2983: @@:
2984: rts
2985:
2986: test_fmovem__S__to_anpd:
2987: PRINT msg_fmovem__S__to_anpd
2988: fmove.l #$00000000,fpcr
2989: fmove.l #$55555555,fpsr
2990: fmove.l #$00000000,fpiar
2991: lea.l workarea+4(pc),a0
2992: SET_FLINE_TRAP
2993: moveq.l #0,d7
2994: lea.l @f,a3
2995: fmovem.l fpsr,-(a0)
2996: @@:
2997: RESTORE_FLINE_TRAP
2998: tst.l d7
2999: beq @f
3000: PRINT msg_fail_trap
3001: rts
3002: @@:
3003: lea.l workarea(pc),a1
3004: cmpa.l a1,a0
3005: beq @f
3006: pea.l msg_fail_addr(pc)
3007: move.l a1,-(sp)
3008: move.l a0,-(sp)
3009: bsr result
3010: lea.l 12(sp),sp
3011: @@:
3012: move.l #$05555550,d1
3013: cmp.l workarea+0,d1
3014: beq @f
3015: pea.l msg_fail(pc)
3016: move.l d1,-(sp)
3017: move.l workarea+4,-(sp)
3018: bsr result
3019: lea.l 12(sp),sp
3020: @@:
3021: tst.l d7
3022: bne @f
3023: PRINT msg_ok
3024: @@:
3025: rts
3026:
3027: test_fmovem__S__to_imm:
3028: PRINT msg_fmovem__S__to_imm
3029: SET_FLINE_TRAP
3030: moveq.l #0,d7
3031: lea.l @f,a3
3032: .dc.w $f23c, $a800
3033: @@:
3034: RESTORE_FLINE_TRAP
3035: tst.l d7
3036: bne @f
3037: PRINT msg_fail_notrap
3038: rts
3039: @@:
3040: PRINT msg_oktrap
3041: rts
3042:
3043: test_fmovem__SI_to_dn:
3044: PRINT msg_fmovem__SI_to_dn
3045: SET_FLINE_TRAP
3046: moveq.l #0,d7
3047: lea.l @f,a3
3048: .dc.w $f200, $ac00
3049: @@:
3050: RESTORE_FLINE_TRAP
3051: tst.l d7
3052: bne @f
3053: PRINT msg_fail_notrap
3054: rts
3055: @@:
3056: PRINT msg_oktrap
3057: rts
3058:
3059: test_fmovem__SI_to_an:
3060: PRINT msg_fmovem__SI_to_an
3061: SET_FLINE_TRAP
3062: moveq.l #0,d7
3063: lea.l @f,a3
3064: .dc.w $f208, $ac00
3065: @@:
3066: RESTORE_FLINE_TRAP
3067: tst.l d7
3068: bne @f
3069: PRINT msg_fail_notrap
3070: rts
3071: @@:
3072: PRINT msg_oktrap
3073: rts
3074:
3075: test_fmovem__SI_to_anin:
3076: PRINT msg_fmovem__SI_to_anin
3077: fmove.l #$00000000,fpcr
3078: fmove.l #$55555555,fpsr
3079: fmove.l #$aaaaaaaa,fpiar
3080: lea.l workarea(pc),a0
3081: SET_FLINE_TRAP
3082: moveq.l #0,d7
3083: lea.l @f,a3
3084: fmovem.l fpsr/fpiar,(a0)
3085: @@:
3086: RESTORE_FLINE_TRAP
3087: tst.l d7
3088: beq @f
3089: PRINT msg_fail_trap
3090: rts
3091: @@:
3092: lea.l workarea(pc),a1
3093: cmpa.l a1,a0
3094: beq @f
3095: pea.l msg_fail_addr(pc)
3096: move.l a1,-(sp)
3097: move.l a0,-(sp)
3098: bsr result
3099: lea.l 12(sp),sp
3100: @@:
3101: move.l #$05555550,d1
3102: cmp.l workarea+0,d1
3103: beq @f
3104: pea.l msg_fail(pc)
3105: move.l d1,-(sp)
3106: move.l workarea+4,-(sp)
3107: bsr result
3108: lea.l 12(sp),sp
3109: @@:
3110: move.l #$aaaaaaaa,d1
3111: cmp.l workarea+4,d1
3112: beq @f
3113: pea.l msg_fail(pc)
3114: move.l d1,-(sp)
3115: move.l workarea+8,-(sp)
3116: bsr result
3117: lea.l 12(sp),sp
3118: @@:
3119: tst.l d7
3120: bne @f
3121: PRINT msg_ok
3122: @@:
3123: rts
3124:
3125: test_fmovem__SI_to_anpi:
3126: PRINT msg_fmovem__SI_to_anpi
3127: fmove.l #$00000000,fpcr
3128: fmove.l #$55555555,fpsr
3129: fmove.l #$aaaaaaaa,fpiar
3130: lea.l workarea(pc),a0
3131: SET_FLINE_TRAP
3132: moveq.l #0,d7
3133: lea.l @f,a3
3134: fmovem.l fpsr/fpiar,(a0)+
3135: @@:
3136: RESTORE_FLINE_TRAP
3137: tst.l d7
3138: beq @f
3139: PRINT msg_fail_trap
3140: rts
3141: @@:
3142: lea.l workarea+8(pc),a1
3143: cmpa.l a1,a0
3144: beq @f
3145: pea.l msg_fail_addr(pc)
3146: move.l a1,-(sp)
3147: move.l a0,-(sp)
3148: bsr result
3149: lea.l 12(sp),sp
3150: @@:
3151: move.l #$05555550,d1
3152: cmp.l workarea+0,d1
3153: beq @f
3154: pea.l msg_fail(pc)
3155: move.l d1,-(sp)
3156: move.l workarea+4,-(sp)
3157: bsr result
3158: lea.l 12(sp),sp
3159: @@:
3160: move.l #$aaaaaaaa,d1
3161: cmp.l workarea+4,d1
3162: beq @f
3163: pea.l msg_fail(pc)
3164: move.l d1,-(sp)
3165: move.l workarea+8,-(sp)
3166: bsr result
3167: lea.l 12(sp),sp
3168: @@:
3169: tst.l d7
3170: bne @f
3171: PRINT msg_ok
3172: @@:
3173: rts
3174:
3175: test_fmovem__SI_to_anpd:
3176: PRINT msg_fmovem__SI_to_anpd
3177: fmove.l #$00000000,fpcr
3178: fmove.l #$55555555,fpsr
3179: fmove.l #$aaaaaaaa,fpiar
3180: lea.l workarea+8(pc),a0
3181: SET_FLINE_TRAP
3182: moveq.l #0,d7
3183: lea.l @f,a3
3184: fmovem.l fpsr/fpiar,-(a0)
3185: @@:
3186: RESTORE_FLINE_TRAP
3187: tst.l d7
3188: beq @f
3189: PRINT msg_fail_trap
3190: rts
3191: @@:
3192: lea.l workarea(pc),a1
3193: cmpa.l a1,a0
3194: beq @f
3195: pea.l msg_fail_addr(pc)
3196: move.l a1,-(sp)
3197: move.l a0,-(sp)
3198: bsr result
3199: lea.l 12(sp),sp
3200: @@:
3201: move.l #$05555550,d1
3202: cmp.l workarea+0,d1
3203: beq @f
3204: pea.l msg_fail(pc)
3205: move.l d1,-(sp)
3206: move.l workarea+4,-(sp)
3207: bsr result
3208: lea.l 12(sp),sp
3209: @@:
3210: move.l #$aaaaaaaa,d1
3211: cmp.l workarea+4,d1
3212: beq @f
3213: pea.l msg_fail(pc)
3214: move.l d1,-(sp)
3215: move.l workarea+8,-(sp)
3216: bsr result
3217: lea.l 12(sp),sp
3218: @@:
3219: tst.l d7
3220: bne @f
3221: PRINT msg_ok
3222: @@:
3223: rts
3224:
3225: test_fmovem__SI_to_imm:
3226: PRINT msg_fmovem__SI_to_imm
3227: SET_FLINE_TRAP
3228: moveq.l #0,d7
3229: lea.l @f,a3
3230: .dc.w $f23c, $ac00
3231: @@:
3232: RESTORE_FLINE_TRAP
3233: tst.l d7
3234: bne @f
3235: PRINT msg_fail_notrap
3236: rts
3237: @@:
3238: PRINT msg_oktrap
3239: rts
3240:
3241: test_fmovem_C___to_dn:
3242: PRINT msg_fmovem_C___to_dn
3243: fmove.l #$55555555,fpcr
3244: fmove.l #$00000000,fpsr
3245: fmove.l #$00000000,fpiar
3246: SET_FLINE_TRAP
3247: moveq.l #0,d7
3248: lea.l @f,a3
3249: fmovem.l fpcr,d0
3250: @@:
3251: RESTORE_FLINE_TRAP
3252: tst.l d7
3253: beq @f
3254: PRINT msg_fail_trap
3255: rts
3256: @@:
3257: move.l #$00005550,d1
3258: cmp.l d1,d0
3259: beq @f
3260: pea.l msg_fail(pc)
3261: move.l d1,-(sp)
3262: move.l d0,-(sp)
3263: bsr result
3264: lea.l 12(sp),sp
3265: @@:
3266: tst.l d7
3267: bne @f
3268: PRINT msg_ok
3269: @@:
3270: rts
3271:
3272: test_fmovem_C___to_an:
3273: PRINT msg_fmovem_C___to_an
3274: SET_FLINE_TRAP
3275: moveq.l #0,d7
3276: lea.l @f,a3
3277: .dc.w $f208, $b000
3278: @@:
3279: RESTORE_FLINE_TRAP
3280: tst.l d7
3281: bne @f
3282: PRINT msg_fail_notrap
3283: rts
3284: @@:
3285: PRINT msg_oktrap
3286: rts
3287:
3288: test_fmovem_C___to_anin:
3289: PRINT msg_fmovem_C___to_anin
3290: fmove.l #$55555555,fpcr
3291: fmove.l #$00000000,fpsr
3292: fmove.l #$00000000,fpiar
3293: lea.l workarea(pc),a0
3294: SET_FLINE_TRAP
3295: moveq.l #0,d7
3296: lea.l @f,a3
3297: fmovem.l fpcr,(a0)
3298: @@:
3299: RESTORE_FLINE_TRAP
3300: tst.l d7
3301: beq @f
3302: PRINT msg_fail_trap
3303: rts
3304: @@:
3305: lea.l workarea(pc),a1
3306: cmpa.l a1,a0
3307: beq @f
3308: pea.l msg_fail_addr(pc)
3309: move.l a1,-(sp)
3310: move.l a0,-(sp)
3311: bsr result
3312: lea.l 12(sp),sp
3313: @@:
3314: move.l #$00005550,d1
3315: cmp.l workarea+0,d1
3316: beq @f
3317: pea.l msg_fail(pc)
3318: move.l d1,-(sp)
3319: move.l workarea+4,-(sp)
3320: bsr result
3321: lea.l 12(sp),sp
3322: @@:
3323: tst.l d7
3324: bne @f
3325: PRINT msg_ok
3326: @@:
3327: rts
3328:
3329: test_fmovem_C___to_anpi:
3330: PRINT msg_fmovem_C___to_anpi
3331: fmove.l #$55555555,fpcr
3332: fmove.l #$00000000,fpsr
3333: fmove.l #$00000000,fpiar
3334: lea.l workarea(pc),a0
3335: SET_FLINE_TRAP
3336: moveq.l #0,d7
3337: lea.l @f,a3
3338: fmovem.l fpcr,(a0)+
3339: @@:
3340: RESTORE_FLINE_TRAP
3341: tst.l d7
3342: beq @f
3343: PRINT msg_fail_trap
3344: rts
3345: @@:
3346: lea.l workarea+4(pc),a1
3347: cmpa.l a1,a0
3348: beq @f
3349: pea.l msg_fail_addr(pc)
3350: move.l a1,-(sp)
3351: move.l a0,-(sp)
3352: bsr result
3353: lea.l 12(sp),sp
3354: @@:
3355: move.l #$00005550,d1
3356: cmp.l workarea+0,d1
3357: beq @f
3358: pea.l msg_fail(pc)
3359: move.l d1,-(sp)
3360: move.l workarea+4,-(sp)
3361: bsr result
3362: lea.l 12(sp),sp
3363: @@:
3364: tst.l d7
3365: bne @f
3366: PRINT msg_ok
3367: @@:
3368: rts
3369:
3370: test_fmovem_C___to_anpd:
3371: PRINT msg_fmovem_C___to_anpd
3372: fmove.l #$55555555,fpcr
3373: fmove.l #$00000000,fpsr
3374: fmove.l #$00000000,fpiar
3375: lea.l workarea+4(pc),a0
3376: SET_FLINE_TRAP
3377: moveq.l #0,d7
3378: lea.l @f,a3
3379: fmovem.l fpcr,-(a0)
3380: @@:
3381: RESTORE_FLINE_TRAP
3382: tst.l d7
3383: beq @f
3384: PRINT msg_fail_trap
3385: rts
3386: @@:
3387: lea.l workarea(pc),a1
3388: cmpa.l a1,a0
3389: beq @f
3390: pea.l msg_fail_addr(pc)
3391: move.l a1,-(sp)
3392: move.l a0,-(sp)
3393: bsr result
3394: lea.l 12(sp),sp
3395: @@:
3396: move.l #$00005550,d1
3397: cmp.l workarea+0,d1
3398: beq @f
3399: pea.l msg_fail(pc)
3400: move.l d1,-(sp)
3401: move.l workarea+4,-(sp)
3402: bsr result
3403: lea.l 12(sp),sp
3404: @@:
3405: tst.l d7
3406: bne @f
3407: PRINT msg_ok
3408: @@:
3409: rts
3410:
3411: test_fmovem_C___to_imm:
3412: PRINT msg_fmovem_C___to_imm
3413: SET_FLINE_TRAP
3414: moveq.l #0,d7
3415: lea.l @f,a3
3416: .dc.w $f23c, $b000
3417: @@:
3418: RESTORE_FLINE_TRAP
3419: tst.l d7
3420: bne @f
3421: PRINT msg_fail_notrap
3422: rts
3423: @@:
3424: PRINT msg_oktrap
3425: rts
3426:
3427: test_fmovem_C_I_to_dn:
3428: PRINT msg_fmovem_C_I_to_dn
3429: SET_FLINE_TRAP
3430: moveq.l #0,d7
3431: lea.l @f,a3
3432: .dc.w $f200, $b400
3433: @@:
3434: RESTORE_FLINE_TRAP
3435: tst.l d7
3436: bne @f
3437: PRINT msg_fail_notrap
3438: rts
3439: @@:
3440: PRINT msg_oktrap
3441: rts
3442:
3443: test_fmovem_C_I_to_an:
3444: PRINT msg_fmovem_C_I_to_an
3445: SET_FLINE_TRAP
3446: moveq.l #0,d7
3447: lea.l @f,a3
3448: .dc.w $f208, $b400
3449: @@:
3450: RESTORE_FLINE_TRAP
3451: tst.l d7
3452: bne @f
3453: PRINT msg_fail_notrap
3454: rts
3455: @@:
3456: PRINT msg_oktrap
3457: rts
3458:
3459: test_fmovem_C_I_to_anin:
3460: PRINT msg_fmovem_C_I_to_anin
3461: fmove.l #$55555555,fpcr
3462: fmove.l #$00000000,fpsr
3463: fmove.l #$aaaaaaaa,fpiar
3464: lea.l workarea(pc),a0
3465: SET_FLINE_TRAP
3466: moveq.l #0,d7
3467: lea.l @f,a3
3468: fmovem.l fpcr/fpiar,(a0)
3469: @@:
3470: RESTORE_FLINE_TRAP
3471: tst.l d7
3472: beq @f
3473: PRINT msg_fail_trap
3474: rts
3475: @@:
3476: lea.l workarea(pc),a1
3477: cmpa.l a1,a0
3478: beq @f
3479: pea.l msg_fail_addr(pc)
3480: move.l a1,-(sp)
3481: move.l a0,-(sp)
3482: bsr result
3483: lea.l 12(sp),sp
3484: @@:
3485: move.l #$00005550,d1
3486: cmp.l workarea+0,d1
3487: beq @f
3488: pea.l msg_fail(pc)
3489: move.l d1,-(sp)
3490: move.l workarea+4,-(sp)
3491: bsr result
3492: lea.l 12(sp),sp
3493: @@:
3494: move.l #$aaaaaaaa,d1
3495: cmp.l workarea+4,d1
3496: beq @f
3497: pea.l msg_fail(pc)
3498: move.l d1,-(sp)
3499: move.l workarea+8,-(sp)
3500: bsr result
3501: lea.l 12(sp),sp
3502: @@:
3503: tst.l d7
3504: bne @f
3505: PRINT msg_ok
3506: @@:
3507: rts
3508:
3509: test_fmovem_C_I_to_anpi:
3510: PRINT msg_fmovem_C_I_to_anpi
3511: fmove.l #$55555555,fpcr
3512: fmove.l #$00000000,fpsr
3513: fmove.l #$aaaaaaaa,fpiar
3514: lea.l workarea(pc),a0
3515: SET_FLINE_TRAP
3516: moveq.l #0,d7
3517: lea.l @f,a3
3518: fmovem.l fpcr/fpiar,(a0)+
3519: @@:
3520: RESTORE_FLINE_TRAP
3521: tst.l d7
3522: beq @f
3523: PRINT msg_fail_trap
3524: rts
3525: @@:
3526: lea.l workarea+8(pc),a1
3527: cmpa.l a1,a0
3528: beq @f
3529: pea.l msg_fail_addr(pc)
3530: move.l a1,-(sp)
3531: move.l a0,-(sp)
3532: bsr result
3533: lea.l 12(sp),sp
3534: @@:
3535: move.l #$00005550,d1
3536: cmp.l workarea+0,d1
3537: beq @f
3538: pea.l msg_fail(pc)
3539: move.l d1,-(sp)
3540: move.l workarea+4,-(sp)
3541: bsr result
3542: lea.l 12(sp),sp
3543: @@:
3544: move.l #$aaaaaaaa,d1
3545: cmp.l workarea+4,d1
3546: beq @f
3547: pea.l msg_fail(pc)
3548: move.l d1,-(sp)
3549: move.l workarea+8,-(sp)
3550: bsr result
3551: lea.l 12(sp),sp
3552: @@:
3553: tst.l d7
3554: bne @f
3555: PRINT msg_ok
3556: @@:
3557: rts
3558:
3559: test_fmovem_C_I_to_anpd:
3560: PRINT msg_fmovem_C_I_to_anpd
3561: fmove.l #$55555555,fpcr
3562: fmove.l #$00000000,fpsr
3563: fmove.l #$aaaaaaaa,fpiar
3564: lea.l workarea+8(pc),a0
3565: SET_FLINE_TRAP
3566: moveq.l #0,d7
3567: lea.l @f,a3
3568: fmovem.l fpcr/fpiar,-(a0)
3569: @@:
3570: RESTORE_FLINE_TRAP
3571: tst.l d7
3572: beq @f
3573: PRINT msg_fail_trap
3574: rts
3575: @@:
3576: lea.l workarea(pc),a1
3577: cmpa.l a1,a0
3578: beq @f
3579: pea.l msg_fail_addr(pc)
3580: move.l a1,-(sp)
3581: move.l a0,-(sp)
3582: bsr result
3583: lea.l 12(sp),sp
3584: @@:
3585: move.l #$00005550,d1
3586: cmp.l workarea+0,d1
3587: beq @f
3588: pea.l msg_fail(pc)
3589: move.l d1,-(sp)
3590: move.l workarea+4,-(sp)
3591: bsr result
3592: lea.l 12(sp),sp
3593: @@:
3594: move.l #$aaaaaaaa,d1
3595: cmp.l workarea+4,d1
3596: beq @f
3597: pea.l msg_fail(pc)
3598: move.l d1,-(sp)
3599: move.l workarea+8,-(sp)
3600: bsr result
3601: lea.l 12(sp),sp
3602: @@:
3603: tst.l d7
3604: bne @f
3605: PRINT msg_ok
3606: @@:
3607: rts
3608:
3609: test_fmovem_C_I_to_imm:
3610: PRINT msg_fmovem_C_I_to_imm
3611: SET_FLINE_TRAP
3612: moveq.l #0,d7
3613: lea.l @f,a3
3614: .dc.w $f23c, $b400
3615: @@:
3616: RESTORE_FLINE_TRAP
3617: tst.l d7
3618: bne @f
3619: PRINT msg_fail_notrap
3620: rts
3621: @@:
3622: PRINT msg_oktrap
3623: rts
3624:
3625: test_fmovem_CS__to_dn:
3626: PRINT msg_fmovem_CS__to_dn
3627: SET_FLINE_TRAP
3628: moveq.l #0,d7
3629: lea.l @f,a3
3630: .dc.w $f200, $b800
3631: @@:
3632: RESTORE_FLINE_TRAP
3633: tst.l d7
3634: bne @f
3635: PRINT msg_fail_notrap
3636: rts
3637: @@:
3638: PRINT msg_oktrap
3639: rts
3640:
3641: test_fmovem_CS__to_an:
3642: PRINT msg_fmovem_CS__to_an
3643: SET_FLINE_TRAP
3644: moveq.l #0,d7
3645: lea.l @f,a3
3646: .dc.w $f208, $b800
3647: @@:
3648: RESTORE_FLINE_TRAP
3649: tst.l d7
3650: bne @f
3651: PRINT msg_fail_notrap
3652: rts
3653: @@:
3654: PRINT msg_oktrap
3655: rts
3656:
3657: test_fmovem_CS__to_anin:
3658: PRINT msg_fmovem_CS__to_anin
3659: fmove.l #$55555555,fpcr
3660: fmove.l #$aaaaaaaa,fpsr
3661: fmove.l #$00000000,fpiar
3662: lea.l workarea(pc),a0
3663: SET_FLINE_TRAP
3664: moveq.l #0,d7
3665: lea.l @f,a3
3666: fmovem.l fpcr/fpsr,(a0)
3667: @@:
3668: RESTORE_FLINE_TRAP
3669: tst.l d7
3670: beq @f
3671: PRINT msg_fail_trap
3672: rts
3673: @@:
3674: lea.l workarea(pc),a1
3675: cmpa.l a1,a0
3676: beq @f
3677: pea.l msg_fail_addr(pc)
3678: move.l a1,-(sp)
3679: move.l a0,-(sp)
3680: bsr result
3681: lea.l 12(sp),sp
3682: @@:
3683: move.l #$00005550,d1
3684: cmp.l workarea+0,d1
3685: beq @f
3686: pea.l msg_fail(pc)
3687: move.l d1,-(sp)
3688: move.l workarea+4,-(sp)
3689: bsr result
3690: lea.l 12(sp),sp
3691: @@:
3692: move.l #$0aaaaaa8,d1
3693: cmp.l workarea+4,d1
3694: beq @f
3695: pea.l msg_fail(pc)
3696: move.l d1,-(sp)
3697: move.l workarea+8,-(sp)
3698: bsr result
3699: lea.l 12(sp),sp
3700: @@:
3701: tst.l d7
3702: bne @f
3703: PRINT msg_ok
3704: @@:
3705: rts
3706:
3707: test_fmovem_CS__to_anpi:
3708: PRINT msg_fmovem_CS__to_anpi
3709: fmove.l #$55555555,fpcr
3710: fmove.l #$aaaaaaaa,fpsr
3711: fmove.l #$00000000,fpiar
3712: lea.l workarea(pc),a0
3713: SET_FLINE_TRAP
3714: moveq.l #0,d7
3715: lea.l @f,a3
3716: fmovem.l fpcr/fpsr,(a0)+
3717: @@:
3718: RESTORE_FLINE_TRAP
3719: tst.l d7
3720: beq @f
3721: PRINT msg_fail_trap
3722: rts
3723: @@:
3724: lea.l workarea+8(pc),a1
3725: cmpa.l a1,a0
3726: beq @f
3727: pea.l msg_fail_addr(pc)
3728: move.l a1,-(sp)
3729: move.l a0,-(sp)
3730: bsr result
3731: lea.l 12(sp),sp
3732: @@:
3733: move.l #$00005550,d1
3734: cmp.l workarea+0,d1
3735: beq @f
3736: pea.l msg_fail(pc)
3737: move.l d1,-(sp)
3738: move.l workarea+4,-(sp)
3739: bsr result
3740: lea.l 12(sp),sp
3741: @@:
3742: move.l #$0aaaaaa8,d1
3743: cmp.l workarea+4,d1
3744: beq @f
3745: pea.l msg_fail(pc)
3746: move.l d1,-(sp)
3747: move.l workarea+8,-(sp)
3748: bsr result
3749: lea.l 12(sp),sp
3750: @@:
3751: tst.l d7
3752: bne @f
3753: PRINT msg_ok
3754: @@:
3755: rts
3756:
3757: test_fmovem_CS__to_anpd:
3758: PRINT msg_fmovem_CS__to_anpd
3759: fmove.l #$55555555,fpcr
3760: fmove.l #$aaaaaaaa,fpsr
3761: fmove.l #$00000000,fpiar
3762: lea.l workarea+8(pc),a0
3763: SET_FLINE_TRAP
3764: moveq.l #0,d7
3765: lea.l @f,a3
3766: fmovem.l fpcr/fpsr,-(a0)
3767: @@:
3768: RESTORE_FLINE_TRAP
3769: tst.l d7
3770: beq @f
3771: PRINT msg_fail_trap
3772: rts
3773: @@:
3774: lea.l workarea(pc),a1
3775: cmpa.l a1,a0
3776: beq @f
3777: pea.l msg_fail_addr(pc)
3778: move.l a1,-(sp)
3779: move.l a0,-(sp)
3780: bsr result
3781: lea.l 12(sp),sp
3782: @@:
3783: move.l #$00005550,d1
3784: cmp.l workarea+0,d1
3785: beq @f
3786: pea.l msg_fail(pc)
3787: move.l d1,-(sp)
3788: move.l workarea+4,-(sp)
3789: bsr result
3790: lea.l 12(sp),sp
3791: @@:
3792: move.l #$0aaaaaa8,d1
3793: cmp.l workarea+4,d1
3794: beq @f
3795: pea.l msg_fail(pc)
3796: move.l d1,-(sp)
3797: move.l workarea+8,-(sp)
3798: bsr result
3799: lea.l 12(sp),sp
3800: @@:
3801: tst.l d7
3802: bne @f
3803: PRINT msg_ok
3804: @@:
3805: rts
3806:
3807: test_fmovem_CS__to_imm:
3808: PRINT msg_fmovem_CS__to_imm
3809: SET_FLINE_TRAP
3810: moveq.l #0,d7
3811: lea.l @f,a3
3812: .dc.w $f23c, $b800
3813: @@:
3814: RESTORE_FLINE_TRAP
3815: tst.l d7
3816: bne @f
3817: PRINT msg_fail_notrap
3818: rts
3819: @@:
3820: PRINT msg_oktrap
3821: rts
3822:
3823: test_fmovem_CSI_to_dn:
3824: PRINT msg_fmovem_CSI_to_dn
3825: SET_FLINE_TRAP
3826: moveq.l #0,d7
3827: lea.l @f,a3
3828: .dc.w $f200, $bc00
3829: @@:
3830: RESTORE_FLINE_TRAP
3831: tst.l d7
3832: bne @f
3833: PRINT msg_fail_notrap
3834: rts
3835: @@:
3836: PRINT msg_oktrap
3837: rts
3838:
3839: test_fmovem_CSI_to_an:
3840: PRINT msg_fmovem_CSI_to_an
3841: SET_FLINE_TRAP
3842: moveq.l #0,d7
3843: lea.l @f,a3
3844: .dc.w $f208, $bc00
3845: @@:
3846: RESTORE_FLINE_TRAP
3847: tst.l d7
3848: bne @f
3849: PRINT msg_fail_notrap
3850: rts
3851: @@:
3852: PRINT msg_oktrap
3853: rts
3854:
3855: test_fmovem_CSI_to_anin:
3856: PRINT msg_fmovem_CSI_to_anin
3857: fmove.l #$55555555,fpcr
3858: fmove.l #$aaaaaaaa,fpsr
3859: fmove.l #$33333333,fpiar
3860: lea.l workarea(pc),a0
3861: SET_FLINE_TRAP
3862: moveq.l #0,d7
3863: lea.l @f,a3
3864: fmovem.l fpcr/fpsr/fpiar,(a0)
3865: @@:
3866: RESTORE_FLINE_TRAP
3867: tst.l d7
3868: beq @f
3869: PRINT msg_fail_trap
3870: rts
3871: @@:
3872: lea.l workarea(pc),a1
3873: cmpa.l a1,a0
3874: beq @f
3875: pea.l msg_fail_addr(pc)
3876: move.l a1,-(sp)
3877: move.l a0,-(sp)
3878: bsr result
3879: lea.l 12(sp),sp
3880: @@:
3881: move.l #$00005550,d1
3882: cmp.l workarea+0,d1
3883: beq @f
3884: pea.l msg_fail(pc)
3885: move.l d1,-(sp)
3886: move.l workarea+4,-(sp)
3887: bsr result
3888: lea.l 12(sp),sp
3889: @@:
3890: move.l #$0aaaaaa8,d1
3891: cmp.l workarea+4,d1
3892: beq @f
3893: pea.l msg_fail(pc)
3894: move.l d1,-(sp)
3895: move.l workarea+8,-(sp)
3896: bsr result
3897: lea.l 12(sp),sp
3898: @@:
3899: move.l #$33333333,d1
3900: cmp.l workarea+8,d1
3901: beq @f
3902: pea.l msg_fail(pc)
3903: move.l d1,-(sp)
3904: move.l workarea+12,-(sp)
3905: bsr result
3906: lea.l 12(sp),sp
3907: @@:
3908: tst.l d7
3909: bne @f
3910: PRINT msg_ok
3911: @@:
3912: rts
3913:
3914: test_fmovem_CSI_to_anpi:
3915: PRINT msg_fmovem_CSI_to_anpi
3916: fmove.l #$55555555,fpcr
3917: fmove.l #$aaaaaaaa,fpsr
3918: fmove.l #$33333333,fpiar
3919: lea.l workarea(pc),a0
3920: SET_FLINE_TRAP
3921: moveq.l #0,d7
3922: lea.l @f,a3
3923: fmovem.l fpcr/fpsr/fpiar,(a0)+
3924: @@:
3925: RESTORE_FLINE_TRAP
3926: tst.l d7
3927: beq @f
3928: PRINT msg_fail_trap
3929: rts
3930: @@:
3931: lea.l workarea+12(pc),a1
3932: cmpa.l a1,a0
3933: beq @f
3934: pea.l msg_fail_addr(pc)
3935: move.l a1,-(sp)
3936: move.l a0,-(sp)
3937: bsr result
3938: lea.l 12(sp),sp
3939: @@:
3940: move.l #$00005550,d1
3941: cmp.l workarea+0,d1
3942: beq @f
3943: pea.l msg_fail(pc)
3944: move.l d1,-(sp)
3945: move.l workarea+4,-(sp)
3946: bsr result
3947: lea.l 12(sp),sp
3948: @@:
3949: move.l #$0aaaaaa8,d1
3950: cmp.l workarea+4,d1
3951: beq @f
3952: pea.l msg_fail(pc)
3953: move.l d1,-(sp)
3954: move.l workarea+8,-(sp)
3955: bsr result
3956: lea.l 12(sp),sp
3957: @@:
3958: move.l #$33333333,d1
3959: cmp.l workarea+8,d1
3960: beq @f
3961: pea.l msg_fail(pc)
3962: move.l d1,-(sp)
3963: move.l workarea+12,-(sp)
3964: bsr result
3965: lea.l 12(sp),sp
3966: @@:
3967: tst.l d7
3968: bne @f
3969: PRINT msg_ok
3970: @@:
3971: rts
3972:
3973: test_fmovem_CSI_to_anpd:
3974: PRINT msg_fmovem_CSI_to_anpd
3975: fmove.l #$55555555,fpcr
3976: fmove.l #$aaaaaaaa,fpsr
3977: fmove.l #$33333333,fpiar
3978: lea.l workarea+12(pc),a0
3979: SET_FLINE_TRAP
3980: moveq.l #0,d7
3981: lea.l @f,a3
3982: fmovem.l fpcr/fpsr/fpiar,-(a0)
3983: @@:
3984: RESTORE_FLINE_TRAP
3985: tst.l d7
3986: beq @f
3987: PRINT msg_fail_trap
3988: rts
3989: @@:
3990: lea.l workarea(pc),a1
3991: cmpa.l a1,a0
3992: beq @f
3993: pea.l msg_fail_addr(pc)
3994: move.l a1,-(sp)
3995: move.l a0,-(sp)
3996: bsr result
3997: lea.l 12(sp),sp
3998: @@:
3999: move.l #$00005550,d1
4000: cmp.l workarea+0,d1
4001: beq @f
4002: pea.l msg_fail(pc)
4003: move.l d1,-(sp)
4004: move.l workarea+4,-(sp)
4005: bsr result
4006: lea.l 12(sp),sp
4007: @@:
4008: move.l #$0aaaaaa8,d1
4009: cmp.l workarea+4,d1
4010: beq @f
4011: pea.l msg_fail(pc)
4012: move.l d1,-(sp)
4013: move.l workarea+8,-(sp)
4014: bsr result
4015: lea.l 12(sp),sp
4016: @@:
4017: move.l #$33333333,d1
4018: cmp.l workarea+8,d1
4019: beq @f
4020: pea.l msg_fail(pc)
4021: move.l d1,-(sp)
4022: move.l workarea+12,-(sp)
4023: bsr result
4024: lea.l 12(sp),sp
4025: @@:
4026: tst.l d7
4027: bne @f
4028: PRINT msg_ok
4029: @@:
4030: rts
4031:
4032: test_fmovem_CSI_to_imm:
4033: PRINT msg_fmovem_CSI_to_imm
4034: SET_FLINE_TRAP
4035: moveq.l #0,d7
4036: lea.l @f,a3
4037: .dc.w $f23c, $bc00
4038: @@:
4039: RESTORE_FLINE_TRAP
4040: tst.l d7
4041: bne @f
4042: PRINT msg_fail_notrap
4043: rts
4044: @@:
4045: PRINT msg_oktrap
4046: rts
4047:
4048: start:
4049: clr.l -(sp)
4050: DOS _SUPER
4051: movem.l d7/a3-a5,-(sp)
4052: moveq.l #$2c,d0 ; alternate of "lea.l $2c,a5"
4053: move.l d0,a5 ;
4054: bsr test_fmovem_dn_to____
4055: bsr test_fmovem_an_to____
4056: bsr test_fmovem_anin_to____
4057: bsr test_fmovem_anpi_to____
4058: bsr test_fmovem_anpd_to____
4059: bsr test_fmovem_imm_to____
4060: bsr test_fmovem_dn_to___I
4061: bsr test_fmovem_an_to___I
4062: bsr test_fmovem_anin_to___I
4063: bsr test_fmovem_anpi_to___I
4064: bsr test_fmovem_anpd_to___I
4065: bsr test_fmovem_imm_to___I
4066: bsr test_fmovem_dn_to__S_
4067: bsr test_fmovem_an_to__S_
4068: bsr test_fmovem_anin_to__S_
4069: bsr test_fmovem_anpi_to__S_
4070: bsr test_fmovem_anpd_to__S_
4071: bsr test_fmovem_imm_to__S_
4072: bsr test_fmovem_dn_to__SI
4073: bsr test_fmovem_an_to__SI
4074: bsr test_fmovem_anin_to__SI
4075: bsr test_fmovem_anpi_to__SI
4076: bsr test_fmovem_anpd_to__SI
4077: bsr test_fmovem_imm_to__SI
4078: bsr test_fmovem_dn_to_C__
4079: bsr test_fmovem_an_to_C__
4080: bsr test_fmovem_anin_to_C__
4081: bsr test_fmovem_anpi_to_C__
4082: bsr test_fmovem_anpd_to_C__
4083: bsr test_fmovem_imm_to_C__
4084: bsr test_fmovem_dn_to_C_I
4085: bsr test_fmovem_an_to_C_I
4086: bsr test_fmovem_anin_to_C_I
4087: bsr test_fmovem_anpi_to_C_I
4088: bsr test_fmovem_anpd_to_C_I
4089: bsr test_fmovem_imm_to_C_I
4090: bsr test_fmovem_dn_to_CS_
4091: bsr test_fmovem_an_to_CS_
4092: bsr test_fmovem_anin_to_CS_
4093: bsr test_fmovem_anpi_to_CS_
4094: bsr test_fmovem_anpd_to_CS_
4095: bsr test_fmovem_imm_to_CS_
4096: bsr test_fmovem_dn_to_CSI
4097: bsr test_fmovem_an_to_CSI
4098: bsr test_fmovem_anin_to_CSI
4099: bsr test_fmovem_anpi_to_CSI
4100: bsr test_fmovem_anpd_to_CSI
4101: bsr test_fmovem_imm_to_CSI
4102: bsr test_fmovem_____to_dn
4103: bsr test_fmovem_____to_an
4104: bsr test_fmovem_____to_anin
4105: bsr test_fmovem_____to_anpi
4106: bsr test_fmovem_____to_anpd
4107: bsr test_fmovem_____to_imm
4108: bsr test_fmovem___I_to_dn
4109: bsr test_fmovem___I_to_an
4110: bsr test_fmovem___I_to_anin
4111: bsr test_fmovem___I_to_anpi
4112: bsr test_fmovem___I_to_anpd
4113: bsr test_fmovem___I_to_imm
4114: bsr test_fmovem__S__to_dn
4115: bsr test_fmovem__S__to_an
4116: bsr test_fmovem__S__to_anin
4117: bsr test_fmovem__S__to_anpi
4118: bsr test_fmovem__S__to_anpd
4119: bsr test_fmovem__S__to_imm
4120: bsr test_fmovem__SI_to_dn
4121: bsr test_fmovem__SI_to_an
4122: bsr test_fmovem__SI_to_anin
4123: bsr test_fmovem__SI_to_anpi
4124: bsr test_fmovem__SI_to_anpd
4125: bsr test_fmovem__SI_to_imm
4126: bsr test_fmovem_C___to_dn
4127: bsr test_fmovem_C___to_an
4128: bsr test_fmovem_C___to_anin
4129: bsr test_fmovem_C___to_anpi
4130: bsr test_fmovem_C___to_anpd
4131: bsr test_fmovem_C___to_imm
4132: bsr test_fmovem_C_I_to_dn
4133: bsr test_fmovem_C_I_to_an
4134: bsr test_fmovem_C_I_to_anin
4135: bsr test_fmovem_C_I_to_anpi
4136: bsr test_fmovem_C_I_to_anpd
4137: bsr test_fmovem_C_I_to_imm
4138: bsr test_fmovem_CS__to_dn
4139: bsr test_fmovem_CS__to_an
4140: bsr test_fmovem_CS__to_anin
4141: bsr test_fmovem_CS__to_anpi
4142: bsr test_fmovem_CS__to_anpd
4143: bsr test_fmovem_CS__to_imm
4144: bsr test_fmovem_CSI_to_dn
4145: bsr test_fmovem_CSI_to_an
4146: bsr test_fmovem_CSI_to_anin
4147: bsr test_fmovem_CSI_to_anpi
4148: bsr test_fmovem_CSI_to_anpd
4149: bsr test_fmovem_CSI_to_imm
4150: movem.l (sp)+,d7/a3-a5
4151: DOS _EXIT
4152:
4153: ; 結果表示
4154: ; スタックには、メッセージ、期待値、実際の値の順で積む。
4155: result:
4156: link a6,#0
4157: movem.l d0/a0,-(sp)
4158:
4159: move.l 8+8(a6),-(sp)
4160: DOS _PRINT
4161: addq.l #4,sp
4162:
4163: move.l 8+4(a6),d0
4164: lea.l buf(pc),a0
4165: bsr hexstr_long
4166: PRINT buf
4167: PRINT msg_but
4168:
4169: move.l 8+0(a6),a0
4170: lea.l buf(pc),a0
4171: bsr hexstr_long
4172: PRINT buf
4173: PRINT msg_crlf
4174:
4175: addq.l #1,d7 ; errcnt
4176: movem.l (sp)+,d0/a0
4177: unlk a6
4178: rts
4179:
4180: ; Fライン例外ハンドラ
4181: ; a3 に戻りアドレスをセットしてあること
4182: ; d7 を 1 にして帰る
4183: fline_handler:
4184: moveq.l #1,d7
4185: move.l a3,2(sp)
4186: rte
4187:
4188: msg_oktrap: .dc.b $9,"ok(trap)",$d,$a,0, 0,0
4189: msg_fail_notrap: .dc.b $9,"FAIL: trap expected but not occured",$d,$a,0
4190: msg_fail_trap: .dc.b $9,"FAIL: unexpected trap occured",$d,$a,0
4191:
4192: msg_ok: .dc.b $9,"ok",$d,$a,0
4193: msg_fail: .dc.b $9,"fail",$d,$a,0
4194: msg_fail_cr: .dc.b $9,"FAIL: fpcr expects ",0
4195: msg_fail_sr: .dc.b $9,"FAIL: fpsr expects ",0
4196: msg_fail_ir: .dc.b $9,"FAIL: fpiar expects ",0
4197: msg_fail_addr: .dc.b $9,"FAIL: an expects ",0
4198: msg_but: .dc.b " but ",0
4199: msg_crlf: .dc.b $d,$a,0
4200:
4201:
4202: msg_fmovem_dn_to____: .dc.b "fmovem_dn_to____",0
4203: msg_fmovem_an_to____: .dc.b "fmovem_an_to____",0
4204: msg_fmovem_anin_to____: .dc.b "fmovem_anin_to____",0
4205: msg_fmovem_anpi_to____: .dc.b "fmovem_anpi_to____",0
4206: msg_fmovem_anpd_to____: .dc.b "fmovem_anpd_to____",0
4207: msg_fmovem_imm_to____: .dc.b "fmovem_imm_to____",0
4208: msg_fmovem_dn_to___I: .dc.b "fmovem_dn_to___I",0
4209: msg_fmovem_an_to___I: .dc.b "fmovem_an_to___I",0
4210: msg_fmovem_anin_to___I: .dc.b "fmovem_anin_to___I",0
4211: msg_fmovem_anpi_to___I: .dc.b "fmovem_anpi_to___I",0
4212: msg_fmovem_anpd_to___I: .dc.b "fmovem_anpd_to___I",0
4213: msg_fmovem_imm_to___I: .dc.b "fmovem_imm_to___I",0
4214: msg_fmovem_dn_to__S_: .dc.b "fmovem_dn_to__S_",0
4215: msg_fmovem_an_to__S_: .dc.b "fmovem_an_to__S_",0
4216: msg_fmovem_anin_to__S_: .dc.b "fmovem_anin_to__S_",0
4217: msg_fmovem_anpi_to__S_: .dc.b "fmovem_anpi_to__S_",0
4218: msg_fmovem_anpd_to__S_: .dc.b "fmovem_anpd_to__S_",0
4219: msg_fmovem_imm_to__S_: .dc.b "fmovem_imm_to__S_",0
4220: msg_fmovem_dn_to__SI: .dc.b "fmovem_dn_to__SI",0
4221: msg_fmovem_an_to__SI: .dc.b "fmovem_an_to__SI",0
4222: msg_fmovem_anin_to__SI: .dc.b "fmovem_anin_to__SI",0
4223: msg_fmovem_anpi_to__SI: .dc.b "fmovem_anpi_to__SI",0
4224: msg_fmovem_anpd_to__SI: .dc.b "fmovem_anpd_to__SI",0
4225: msg_fmovem_imm_to__SI: .dc.b "fmovem_imm_to__SI",0
4226: msg_fmovem_dn_to_C__: .dc.b "fmovem_dn_to_C__",0
4227: msg_fmovem_an_to_C__: .dc.b "fmovem_an_to_C__",0
4228: msg_fmovem_anin_to_C__: .dc.b "fmovem_anin_to_C__",0
4229: msg_fmovem_anpi_to_C__: .dc.b "fmovem_anpi_to_C__",0
4230: msg_fmovem_anpd_to_C__: .dc.b "fmovem_anpd_to_C__",0
4231: msg_fmovem_imm_to_C__: .dc.b "fmovem_imm_to_C__",0
4232: msg_fmovem_dn_to_C_I: .dc.b "fmovem_dn_to_C_I",0
4233: msg_fmovem_an_to_C_I: .dc.b "fmovem_an_to_C_I",0
4234: msg_fmovem_anin_to_C_I: .dc.b "fmovem_anin_to_C_I",0
4235: msg_fmovem_anpi_to_C_I: .dc.b "fmovem_anpi_to_C_I",0
4236: msg_fmovem_anpd_to_C_I: .dc.b "fmovem_anpd_to_C_I",0
4237: msg_fmovem_imm_to_C_I: .dc.b "fmovem_imm_to_C_I",0
4238: msg_fmovem_dn_to_CS_: .dc.b "fmovem_dn_to_CS_",0
4239: msg_fmovem_an_to_CS_: .dc.b "fmovem_an_to_CS_",0
4240: msg_fmovem_anin_to_CS_: .dc.b "fmovem_anin_to_CS_",0
4241: msg_fmovem_anpi_to_CS_: .dc.b "fmovem_anpi_to_CS_",0
4242: msg_fmovem_anpd_to_CS_: .dc.b "fmovem_anpd_to_CS_",0
4243: msg_fmovem_imm_to_CS_: .dc.b "fmovem_imm_to_CS_",0
4244: msg_fmovem_dn_to_CSI: .dc.b "fmovem_dn_to_CSI",0
4245: msg_fmovem_an_to_CSI: .dc.b "fmovem_an_to_CSI",0
4246: msg_fmovem_anin_to_CSI: .dc.b "fmovem_anin_to_CSI",0
4247: msg_fmovem_anpi_to_CSI: .dc.b "fmovem_anpi_to_CSI",0
4248: msg_fmovem_anpd_to_CSI: .dc.b "fmovem_anpd_to_CSI",0
4249: msg_fmovem_imm_to_CSI: .dc.b "fmovem_imm_to_CSI",0
4250: msg_fmovem_____to_dn: .dc.b "fmovem_____to_dn",0
4251: msg_fmovem_____to_an: .dc.b "fmovem_____to_an",0
4252: msg_fmovem_____to_anin: .dc.b "fmovem_____to_anin",0
4253: msg_fmovem_____to_anpi: .dc.b "fmovem_____to_anpi",0
4254: msg_fmovem_____to_anpd: .dc.b "fmovem_____to_anpd",0
4255: msg_fmovem_____to_imm: .dc.b "fmovem_____to_imm",0
4256: msg_fmovem___I_to_dn: .dc.b "fmovem___I_to_dn",0
4257: msg_fmovem___I_to_an: .dc.b "fmovem___I_to_an",0
4258: msg_fmovem___I_to_anin: .dc.b "fmovem___I_to_anin",0
4259: msg_fmovem___I_to_anpi: .dc.b "fmovem___I_to_anpi",0
4260: msg_fmovem___I_to_anpd: .dc.b "fmovem___I_to_anpd",0
4261: msg_fmovem___I_to_imm: .dc.b "fmovem___I_to_imm",0
4262: msg_fmovem__S__to_dn: .dc.b "fmovem__S__to_dn",0
4263: msg_fmovem__S__to_an: .dc.b "fmovem__S__to_an",0
4264: msg_fmovem__S__to_anin: .dc.b "fmovem__S__to_anin",0
4265: msg_fmovem__S__to_anpi: .dc.b "fmovem__S__to_anpi",0
4266: msg_fmovem__S__to_anpd: .dc.b "fmovem__S__to_anpd",0
4267: msg_fmovem__S__to_imm: .dc.b "fmovem__S__to_imm",0
4268: msg_fmovem__SI_to_dn: .dc.b "fmovem__SI_to_dn",0
4269: msg_fmovem__SI_to_an: .dc.b "fmovem__SI_to_an",0
4270: msg_fmovem__SI_to_anin: .dc.b "fmovem__SI_to_anin",0
4271: msg_fmovem__SI_to_anpi: .dc.b "fmovem__SI_to_anpi",0
4272: msg_fmovem__SI_to_anpd: .dc.b "fmovem__SI_to_anpd",0
4273: msg_fmovem__SI_to_imm: .dc.b "fmovem__SI_to_imm",0
4274: msg_fmovem_C___to_dn: .dc.b "fmovem_C___to_dn",0
4275: msg_fmovem_C___to_an: .dc.b "fmovem_C___to_an",0
4276: msg_fmovem_C___to_anin: .dc.b "fmovem_C___to_anin",0
4277: msg_fmovem_C___to_anpi: .dc.b "fmovem_C___to_anpi",0
4278: msg_fmovem_C___to_anpd: .dc.b "fmovem_C___to_anpd",0
4279: msg_fmovem_C___to_imm: .dc.b "fmovem_C___to_imm",0
4280: msg_fmovem_C_I_to_dn: .dc.b "fmovem_C_I_to_dn",0
4281: msg_fmovem_C_I_to_an: .dc.b "fmovem_C_I_to_an",0
4282: msg_fmovem_C_I_to_anin: .dc.b "fmovem_C_I_to_anin",0
4283: msg_fmovem_C_I_to_anpi: .dc.b "fmovem_C_I_to_anpi",0
4284: msg_fmovem_C_I_to_anpd: .dc.b "fmovem_C_I_to_anpd",0
4285: msg_fmovem_C_I_to_imm: .dc.b "fmovem_C_I_to_imm",0
4286: msg_fmovem_CS__to_dn: .dc.b "fmovem_CS__to_dn",0
4287: msg_fmovem_CS__to_an: .dc.b "fmovem_CS__to_an",0
4288: msg_fmovem_CS__to_anin: .dc.b "fmovem_CS__to_anin",0
4289: msg_fmovem_CS__to_anpi: .dc.b "fmovem_CS__to_anpi",0
4290: msg_fmovem_CS__to_anpd: .dc.b "fmovem_CS__to_anpd",0
4291: msg_fmovem_CS__to_imm: .dc.b "fmovem_CS__to_imm",0
4292: msg_fmovem_CSI_to_dn: .dc.b "fmovem_CSI_to_dn",0
4293: msg_fmovem_CSI_to_an: .dc.b "fmovem_CSI_to_an",0
4294: msg_fmovem_CSI_to_anin: .dc.b "fmovem_CSI_to_anin",0
4295: msg_fmovem_CSI_to_anpi: .dc.b "fmovem_CSI_to_anpi",0
4296: msg_fmovem_CSI_to_anpd: .dc.b "fmovem_CSI_to_anpd",0
4297: msg_fmovem_CSI_to_imm: .dc.b "fmovem_CSI_to_imm",0
4298:
4299: .data
4300: .even
4301: workarea: .ds.b 24
4302: buf: .dc.b 20
4303:
4304: .end start
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.