![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to fmoveto.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 fmoveto.has CVS log | Up to [Isaki's NoNo m68k/m88k emulator] / nono / exp |
1.1 root 1: ;
2: ; nono
3: ; Copyright (C) 2025 nono project
4: ;
5: ; Redistribution and use in source and binary forms, with or without
6: ; modification, are permitted provided that the following conditions
7: ; are met:
8: ; 1. Redistributions of source code must retain the above copyright
9: ; notice, this list of conditions and the following disclaimer.
10: ; 2. Redistributions in binary form must reproduce the above copyright
11: ; notice, this list of conditions and the following disclaimer in the
12: ; documentation and/or other materials provided with the distribution.
13: ;
14: ; THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
15: ; IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
16: ; OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
17: ; IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
18: ; INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
19: ; BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
20: ; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED
21: ; AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
22: ; OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
23: ; OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
24: ; SUCH DAMAGE.
25:
26: ; FMOVE.? FPn,<ea> で例外の起きる <ea> を確認する。
27: ; あと不当命令のところで命令を処理してしまわないことを確認する。
28:
29: ; How to compile
30: ; > has fmoveto.has
31: ; > hlk fmoveto.o
32:
33: .include doscall.mac
34: .include iocscall.mac
35: .list
36: .cpu 68030
37:
38: PRINT .macro msg
39: pea.l msg
40: DOS _PRINT
41: addq.l #4,sp
42: .endm
43:
44: .text
45: .even
46:
47:
48: start:
49: bsr parse_arg
50: clr.l -(sp)
51: DOS _SUPER
52:
53: fmovem.x fp0-fp7,-(sp)
54: fmovem.l fpcr/fpsr/fpiar,-(sp)
55:
56: moveq.l #0,d0
57: fmove.s d0,fp0 ; FP0 = +0.0
58: fmove.l d0,fpcr ; Init round prec, round mode.
59: move.l d0,failed ; Init failed count.
60:
61: @@:
62: tst.b is_fmove(pc)
63: beq @f
64: PRINT msg_head_fmove(pc)
65: PRINT msg_head_guide7(pc)
66: bsr test_fmove_d
67: bsr test_fmove_a
68: bsr test_fmove_m
69: bsr test_fmove_mi
70: bsr test_fmove_md
71: bsr test_fmove_r
72: bsr test_fmove_x
73: bsr test_fmove_p
74: bsr test_fmove_i
75: bsr test_fmove_o
76: @@:
77: tst.b is_fgen(pc)
78: beq @f
79: PRINT msg_head_fgen(pc)
80: PRINT msg_head_guide7(pc)
81: bsr test_fgen_d
82: bsr test_fgen_a
83: bsr test_fgen_m
84: bsr test_fgen_mi
85: bsr test_fgen_md
86: bsr test_fgen_r
87: bsr test_fgen_x
88: bsr test_fgen_p
89: bsr test_fgen_i
90: bsr test_fgen_o
91: @@:
92: tst.b is_fscale(pc)
93: beq @f
94: PRINT msg_head_fscale(pc)
95: PRINT msg_head_guide7(pc)
96: bsr test_fscale_d
97: bsr test_fscale_a
98: bsr test_fscale_m
99: bsr test_fscale_mi
100: bsr test_fscale_md
101: bsr test_fscale_r
102: bsr test_fscale_x
103: bsr test_fscale_p
104: bsr test_fscale_i
105: bsr test_fscale_o
106: @@:
107: tst.b is_fscc(pc)
108: beq @f
109: PRINT msg_head_fscc(pc)
110: bsr test_fscc_d
111: bsr test_fscc_m
112: bsr test_fscc_mi
113: bsr test_fscc_md
114: bsr test_fscc_r
115: bsr test_fscc_x
116: bsr test_fscc_o
117: @@:
118: tst.b is_fmovem_rm(pc)
119: beq @f
120: PRINT msg_head_fmovem_rm(pc)
121: bsr test_fmovem_rm_d
122: bsr test_fmovem_rm_a
123: bsr test_fmovem_rm_m
124: bsr test_fmovem_rm_mi
125: bsr test_fmovem_rm_md
126: bsr test_fmovem_rm_r
127: bsr test_fmovem_rm_x
128: bsr test_fmovem_rm_p
129: bsr test_fmovem_rm_i
130: bsr test_fmovem_rm_o
131: @@:
132: tst.b is_fmovem_mr(pc)
133: beq @f
134: PRINT msg_head_fmovem_mr(pc)
135: bsr test_fmovem_mr_d
136: bsr test_fmovem_mr_a
137: bsr test_fmovem_mr_m
138: bsr test_fmovem_mr_mi
139: bsr test_fmovem_mr_md
140: bsr test_fmovem_mr_r
141: bsr test_fmovem_mr_x
142: bsr test_fmovem_mr_p
143: bsr test_fmovem_mr_i
144: bsr test_fmovem_mr_o
145: @@:
146: tst.b is_fmovem_cm(pc)
147: beq @f
148: PRINT msg_head_fmovem_cm(pc)
149: PRINT msg_head_guide4(pc)
150: bsr test_fmovem_cm_d
151: bsr test_fmovem_cm_a
152: bsr test_fmovem_cm_m
153: bsr test_fmovem_cm_mi
154: bsr test_fmovem_cm_md
155: bsr test_fmovem_cm_r
156: bsr test_fmovem_cm_x
157: bsr test_fmovem_cm_p
158: bsr test_fmovem_cm_i
159: bsr test_fmovem_cm_o
160: @@:
161: tst.b is_fmovem_mc(pc)
162: beq @f
163: PRINT msg_head_fmovem_mc(pc)
164: PRINT msg_head_guide4(pc)
165: bsr test_fmovem_mc_d
166: bsr test_fmovem_mc_a
167: bsr test_fmovem_mc_m
168: bsr test_fmovem_mc_mi
169: bsr test_fmovem_mc_md
170: bsr test_fmovem_mc_r
171: bsr test_fmovem_mc_x
172: bsr test_fmovem_mc_p
173: bsr test_fmovem_mc_i
174: bsr test_fmovem_mc_o
175: @@:
176: tst.l failed(pc)
177: beq @f
178: PRINT msg_failed(pc)
179: @@:
180: fmovem.l (sp)+,fpcr/fpsr/fpiar
181: fmovem.x (sp)+,fp0-fp7
182: DOS _EXIT
183:
184: test_fmove_d:
185: lea.l result(pc),a2
186: ; FMOVE.B FPn,Dn
187: move.b #$0b,(a2)+
188: fmovem.l #$0b000000,fpsr
189: bsr set_fline
190: moveq.l #0,d7
191: lea.l @f,a3
192: .dc.l $f2067800
193: @@:
194: bsr restore_fline
195: fmovem.l fpsr,d0
196: rol.l #8,d0
197: or.l d7,d0
198: move.b d0,(a2)+
199:
200: ; FMOVE.W FPn,Dn
201: move.b #$0b,(a2)+
202: fmovem.l #$0b000000,fpsr
203: bsr set_fline
204: moveq.l #0,d7
205: lea.l @f,a3
206: .dc.l $f2067000
207: @@:
208: bsr restore_fline
209: fmovem.l fpsr,d0
210: rol.l #8,d0
211: or.l d7,d0
212: move.b d0,(a2)+
213:
214: ; FMOVE.L FPn,Dn
215: move.b #$0b,(a2)+
216: fmovem.l #$0b000000,fpsr
217: bsr set_fline
218: moveq.l #0,d7
219: lea.l @f,a3
220: .dc.l $f2066000
221: @@:
222: bsr restore_fline
223: fmovem.l fpsr,d0
224: rol.l #8,d0
225: or.l d7,d0
226: move.b d0,(a2)+
227:
228: ; FMOVE.S FPn,Dn
229: move.b #$0b,(a2)+
230: fmovem.l #$0b000000,fpsr
231: bsr set_fline
232: moveq.l #0,d7
233: lea.l @f,a3
234: .dc.l $f2066400
235: @@:
236: bsr restore_fline
237: fmovem.l fpsr,d0
238: rol.l #8,d0
239: or.l d7,d0
240: move.b d0,(a2)+
241:
242: ; FMOVE.D FPn,Dn
243: move.b #$1b,(a2)+
244: fmovem.l #$0b000000,fpsr
245: bsr set_fline
246: moveq.l #0,d7
247: lea.l @f,a3
248: .dc.l $f2067400
249: @@:
250: bsr restore_fline
251: fmovem.l fpsr,d0
252: rol.l #8,d0
253: or.l d7,d0
254: move.b d0,(a2)+
255:
256: ; FMOVE.X FPn,Dn
257: move.b #$1b,(a2)+
258: fmovem.l #$0b000000,fpsr
259: bsr set_fline
260: moveq.l #0,d7
261: lea.l @f,a3
262: .dc.l $f2066800
263: @@:
264: bsr restore_fline
265: fmovem.l fpsr,d0
266: rol.l #8,d0
267: or.l d7,d0
268: move.b d0,(a2)+
269:
270: ; FMOVE.P FPn,Dn
271: move.b #$1b,(a2)+
272: fmovem.l #$0b000000,fpsr
273: bsr set_fline
274: moveq.l #0,d7
275: lea.l @f,a3
276: .dc.l $f2066c00
277: @@:
278: bsr restore_fline
279: fmovem.l fpsr,d0
280: rol.l #8,d0
281: or.l d7,d0
282: move.b d0,(a2)+
283:
284: lea.l msg_test_d,a0
285: moveq.l #7-1,d0
286: bsr print_result
287: rts
288:
289: test_fmove_a:
290: lea.l result(pc),a2
291: ; FMOVE.B FPn,An
292: move.b #$1b,(a2)+
293: fmovem.l #$0b000000,fpsr
294: bsr set_fline
295: moveq.l #0,d7
296: lea.l @f,a3
297: .dc.l $f2087800
298: @@:
299: bsr restore_fline
300: fmovem.l fpsr,d0
301: rol.l #8,d0
302: or.l d7,d0
303: move.b d0,(a2)+
304:
305: ; FMOVE.W FPn,An
306: move.b #$1b,(a2)+
307: fmovem.l #$0b000000,fpsr
308: bsr set_fline
309: moveq.l #0,d7
310: lea.l @f,a3
311: .dc.l $f2087000
312: @@:
313: bsr restore_fline
314: fmovem.l fpsr,d0
315: rol.l #8,d0
316: or.l d7,d0
317: move.b d0,(a2)+
318:
319: ; FMOVE.L FPn,An
320: move.b #$1b,(a2)+
321: fmovem.l #$0b000000,fpsr
322: bsr set_fline
323: moveq.l #0,d7
324: lea.l @f,a3
325: .dc.l $f2086000
326: @@:
327: bsr restore_fline
328: fmovem.l fpsr,d0
329: rol.l #8,d0
330: or.l d7,d0
331: move.b d0,(a2)+
332:
333: ; FMOVE.S FPn,An
334: move.b #$1b,(a2)+
335: fmovem.l #$0b000000,fpsr
336: bsr set_fline
337: moveq.l #0,d7
338: lea.l @f,a3
339: .dc.l $f2086400
340: @@:
341: bsr restore_fline
342: fmovem.l fpsr,d0
343: rol.l #8,d0
344: or.l d7,d0
345: move.b d0,(a2)+
346:
347: ; FMOVE.D FPn,An
348: move.b #$1b,(a2)+
349: fmovem.l #$0b000000,fpsr
350: bsr set_fline
351: moveq.l #0,d7
352: lea.l @f,a3
353: .dc.l $f2087400
354: @@:
355: bsr restore_fline
356: fmovem.l fpsr,d0
357: rol.l #8,d0
358: or.l d7,d0
359: move.b d0,(a2)+
360:
361: ; FMOVE.X FPn,An
362: move.b #$1b,(a2)+
363: fmovem.l #$0b000000,fpsr
364: bsr set_fline
365: moveq.l #0,d7
366: lea.l @f,a3
367: .dc.l $f2086800
368: @@:
369: bsr restore_fline
370: fmovem.l fpsr,d0
371: rol.l #8,d0
372: or.l d7,d0
373: move.b d0,(a2)+
374:
375: ; FMOVE.P FPn,An
376: move.b #$1b,(a2)+
377: fmovem.l #$0b000000,fpsr
378: bsr set_fline
379: moveq.l #0,d7
380: lea.l @f,a3
381: .dc.l $f2086c00
382: @@:
383: bsr restore_fline
384: fmovem.l fpsr,d0
385: rol.l #8,d0
386: or.l d7,d0
387: move.b d0,(a2)+
388:
389: lea.l msg_test_a,a0
390: moveq.l #7-1,d0
391: bsr print_result
392: rts
393:
394: test_fmove_m:
395: lea.l result(pc),a2
396: ; FMOVE.B FPn,(An)
397: move.b #$0b,(a2)+
398: fmovem.l #$0b000000,fpsr
399: bsr set_fline
400: moveq.l #0,d7
401: lea.l workarea(pc),a0
402: lea.l @f,a3
403: .dc.l $f2107800
404: @@:
405: bsr restore_fline
406: fmovem.l fpsr,d0
407: rol.l #8,d0
408: or.l d7,d0
409: move.b d0,(a2)+
410:
411: ; FMOVE.W FPn,(An)
412: move.b #$0b,(a2)+
413: fmovem.l #$0b000000,fpsr
414: bsr set_fline
415: moveq.l #0,d7
416: lea.l workarea(pc),a0
417: lea.l @f,a3
418: .dc.l $f2107000
419: @@:
420: bsr restore_fline
421: fmovem.l fpsr,d0
422: rol.l #8,d0
423: or.l d7,d0
424: move.b d0,(a2)+
425:
426: ; FMOVE.L FPn,(An)
427: move.b #$0b,(a2)+
428: fmovem.l #$0b000000,fpsr
429: bsr set_fline
430: moveq.l #0,d7
431: lea.l workarea(pc),a0
432: lea.l @f,a3
433: .dc.l $f2106000
434: @@:
435: bsr restore_fline
436: fmovem.l fpsr,d0
437: rol.l #8,d0
438: or.l d7,d0
439: move.b d0,(a2)+
440:
441: ; FMOVE.S FPn,(An)
442: move.b #$0b,(a2)+
443: fmovem.l #$0b000000,fpsr
444: bsr set_fline
445: moveq.l #0,d7
446: lea.l workarea(pc),a0
447: lea.l @f,a3
448: .dc.l $f2106400
449: @@:
450: bsr restore_fline
451: fmovem.l fpsr,d0
452: rol.l #8,d0
453: or.l d7,d0
454: move.b d0,(a2)+
455:
456: ; FMOVE.D FPn,(An)
457: move.b #$0b,(a2)+
458: fmovem.l #$0b000000,fpsr
459: bsr set_fline
460: moveq.l #0,d7
461: lea.l workarea(pc),a0
462: lea.l @f,a3
463: .dc.l $f2107400
464: @@:
465: bsr restore_fline
466: fmovem.l fpsr,d0
467: rol.l #8,d0
468: or.l d7,d0
469: move.b d0,(a2)+
470:
471: ; FMOVE.X FPn,(An)
472: move.b #$0b,(a2)+
473: fmovem.l #$0b000000,fpsr
474: bsr set_fline
475: moveq.l #0,d7
476: lea.l workarea(pc),a0
477: lea.l @f,a3
478: .dc.l $f2106800
479: @@:
480: bsr restore_fline
481: fmovem.l fpsr,d0
482: rol.l #8,d0
483: or.l d7,d0
484: move.b d0,(a2)+
485:
486: ; FMOVE.P FPn,(An)
487: move.b #$0b,(a2)+
488: fmovem.l #$0b000000,fpsr
489: bsr set_fline
490: moveq.l #0,d7
491: lea.l workarea(pc),a0
492: lea.l @f,a3
493: .dc.l $f2106c00
494: @@:
495: bsr restore_fline
496: fmovem.l fpsr,d0
497: rol.l #8,d0
498: or.l d7,d0
499: move.b d0,(a2)+
500:
501: lea.l msg_test_m,a0
502: moveq.l #7-1,d0
503: bsr print_result
504: rts
505:
506: test_fmove_mi:
507: lea.l result(pc),a2
508: ; FMOVE.B FPn,(An)+
509: move.b #$0b,(a2)+
510: fmovem.l #$0b000000,fpsr
511: bsr set_fline
512: moveq.l #0,d7
513: lea.l workarea(pc),a0
514: lea.l @f,a3
515: .dc.l $f2187800
516: @@:
517: bsr restore_fline
518: fmovem.l fpsr,d0
519: rol.l #8,d0
520: or.l d7,d0
521: move.b d0,(a2)+
522:
523: ; FMOVE.W FPn,(An)+
524: move.b #$0b,(a2)+
525: fmovem.l #$0b000000,fpsr
526: bsr set_fline
527: moveq.l #0,d7
528: lea.l workarea(pc),a0
529: lea.l @f,a3
530: .dc.l $f2187000
531: @@:
532: bsr restore_fline
533: fmovem.l fpsr,d0
534: rol.l #8,d0
535: or.l d7,d0
536: move.b d0,(a2)+
537:
538: ; FMOVE.L FPn,(An)+
539: move.b #$0b,(a2)+
540: fmovem.l #$0b000000,fpsr
541: bsr set_fline
542: moveq.l #0,d7
543: lea.l workarea(pc),a0
544: lea.l @f,a3
545: .dc.l $f2186000
546: @@:
547: bsr restore_fline
548: fmovem.l fpsr,d0
549: rol.l #8,d0
550: or.l d7,d0
551: move.b d0,(a2)+
552:
553: ; FMOVE.S FPn,(An)+
554: move.b #$0b,(a2)+
555: fmovem.l #$0b000000,fpsr
556: bsr set_fline
557: moveq.l #0,d7
558: lea.l workarea(pc),a0
559: lea.l @f,a3
560: .dc.l $f2186400
561: @@:
562: bsr restore_fline
563: fmovem.l fpsr,d0
564: rol.l #8,d0
565: or.l d7,d0
566: move.b d0,(a2)+
567:
568: ; FMOVE.D FPn,(An)+
569: move.b #$0b,(a2)+
570: fmovem.l #$0b000000,fpsr
571: bsr set_fline
572: moveq.l #0,d7
573: lea.l workarea(pc),a0
574: lea.l @f,a3
575: .dc.l $f2187400
576: @@:
577: bsr restore_fline
578: fmovem.l fpsr,d0
579: rol.l #8,d0
580: or.l d7,d0
581: move.b d0,(a2)+
582:
583: ; FMOVE.X FPn,(An)+
584: move.b #$0b,(a2)+
585: fmovem.l #$0b000000,fpsr
586: bsr set_fline
587: moveq.l #0,d7
588: lea.l workarea(pc),a0
589: lea.l @f,a3
590: .dc.l $f2186800
591: @@:
592: bsr restore_fline
593: fmovem.l fpsr,d0
594: rol.l #8,d0
595: or.l d7,d0
596: move.b d0,(a2)+
597:
598: ; FMOVE.P FPn,(An)+
599: move.b #$0b,(a2)+
600: fmovem.l #$0b000000,fpsr
601: bsr set_fline
602: moveq.l #0,d7
603: lea.l workarea(pc),a0
604: lea.l @f,a3
605: .dc.l $f2186c00
606: @@:
607: bsr restore_fline
608: fmovem.l fpsr,d0
609: rol.l #8,d0
610: or.l d7,d0
611: move.b d0,(a2)+
612:
613: lea.l msg_test_mi,a0
614: moveq.l #7-1,d0
615: bsr print_result
616: rts
617:
618: test_fmove_md:
619: lea.l result(pc),a2
620: ; FMOVE.B FPn,-(An)
621: move.b #$0b,(a2)+
622: fmovem.l #$0b000000,fpsr
623: bsr set_fline
624: moveq.l #0,d7
625: lea.l workarea+12(pc),a0
626: lea.l @f,a3
627: .dc.l $f2207800
628: @@:
629: bsr restore_fline
630: fmovem.l fpsr,d0
631: rol.l #8,d0
632: or.l d7,d0
633: move.b d0,(a2)+
634:
635: ; FMOVE.W FPn,-(An)
636: move.b #$0b,(a2)+
637: fmovem.l #$0b000000,fpsr
638: bsr set_fline
639: moveq.l #0,d7
640: lea.l workarea+12(pc),a0
641: lea.l @f,a3
642: .dc.l $f2207000
643: @@:
644: bsr restore_fline
645: fmovem.l fpsr,d0
646: rol.l #8,d0
647: or.l d7,d0
648: move.b d0,(a2)+
649:
650: ; FMOVE.L FPn,-(An)
651: move.b #$0b,(a2)+
652: fmovem.l #$0b000000,fpsr
653: bsr set_fline
654: moveq.l #0,d7
655: lea.l workarea+12(pc),a0
656: lea.l @f,a3
657: .dc.l $f2206000
658: @@:
659: bsr restore_fline
660: fmovem.l fpsr,d0
661: rol.l #8,d0
662: or.l d7,d0
663: move.b d0,(a2)+
664:
665: ; FMOVE.S FPn,-(An)
666: move.b #$0b,(a2)+
667: fmovem.l #$0b000000,fpsr
668: bsr set_fline
669: moveq.l #0,d7
670: lea.l workarea+12(pc),a0
671: lea.l @f,a3
672: .dc.l $f2206400
673: @@:
674: bsr restore_fline
675: fmovem.l fpsr,d0
676: rol.l #8,d0
677: or.l d7,d0
678: move.b d0,(a2)+
679:
680: ; FMOVE.D FPn,-(An)
681: move.b #$0b,(a2)+
682: fmovem.l #$0b000000,fpsr
683: bsr set_fline
684: moveq.l #0,d7
685: lea.l workarea+12(pc),a0
686: lea.l @f,a3
687: .dc.l $f2207400
688: @@:
689: bsr restore_fline
690: fmovem.l fpsr,d0
691: rol.l #8,d0
692: or.l d7,d0
693: move.b d0,(a2)+
694:
695: ; FMOVE.X FPn,-(An)
696: move.b #$0b,(a2)+
697: fmovem.l #$0b000000,fpsr
698: bsr set_fline
699: moveq.l #0,d7
700: lea.l workarea+12(pc),a0
701: lea.l @f,a3
702: .dc.l $f2206800
703: @@:
704: bsr restore_fline
705: fmovem.l fpsr,d0
706: rol.l #8,d0
707: or.l d7,d0
708: move.b d0,(a2)+
709:
710: ; FMOVE.P FPn,-(An)
711: move.b #$0b,(a2)+
712: fmovem.l #$0b000000,fpsr
713: bsr set_fline
714: moveq.l #0,d7
715: lea.l workarea+12(pc),a0
716: lea.l @f,a3
717: .dc.l $f2206c00
718: @@:
719: bsr restore_fline
720: fmovem.l fpsr,d0
721: rol.l #8,d0
722: or.l d7,d0
723: move.b d0,(a2)+
724:
725: lea.l msg_test_md,a0
726: moveq.l #7-1,d0
727: bsr print_result
728: rts
729:
730: test_fmove_r:
731: lea.l result(pc),a2
732: ; FMOVE.B FPn,d16(An)
733: move.b #$0b,(a2)+
734: fmovem.l #$0b000000,fpsr
735: bsr set_fline
736: moveq.l #0,d7
737: lea.l workarea(pc),a0
738: lea.l @f,a3
739: .dc.l $f2287800
740: .dc.w $0000
741: @@:
742: bsr restore_fline
743: fmovem.l fpsr,d0
744: rol.l #8,d0
745: or.l d7,d0
746: move.b d0,(a2)+
747:
748: ; FMOVE.W FPn,d16(An)
749: move.b #$0b,(a2)+
750: fmovem.l #$0b000000,fpsr
751: bsr set_fline
752: moveq.l #0,d7
753: lea.l workarea(pc),a0
754: lea.l @f,a3
755: .dc.l $f2287000
756: .dc.w $0000
757: @@:
758: bsr restore_fline
759: fmovem.l fpsr,d0
760: rol.l #8,d0
761: or.l d7,d0
762: move.b d0,(a2)+
763:
764: ; FMOVE.L FPn,d16(An)
765: move.b #$0b,(a2)+
766: fmovem.l #$0b000000,fpsr
767: bsr set_fline
768: moveq.l #0,d7
769: lea.l workarea(pc),a0
770: lea.l @f,a3
771: .dc.l $f2286000
772: .dc.w $0000
773: @@:
774: bsr restore_fline
775: fmovem.l fpsr,d0
776: rol.l #8,d0
777: or.l d7,d0
778: move.b d0,(a2)+
779:
780: ; FMOVE.S FPn,d16(An)
781: move.b #$0b,(a2)+
782: fmovem.l #$0b000000,fpsr
783: bsr set_fline
784: moveq.l #0,d7
785: lea.l workarea(pc),a0
786: lea.l @f,a3
787: .dc.l $f2286400
788: .dc.w $0000
789: @@:
790: bsr restore_fline
791: fmovem.l fpsr,d0
792: rol.l #8,d0
793: or.l d7,d0
794: move.b d0,(a2)+
795:
796: ; FMOVE.D FPn,d16(An)
797: move.b #$0b,(a2)+
798: fmovem.l #$0b000000,fpsr
799: bsr set_fline
800: moveq.l #0,d7
801: lea.l workarea(pc),a0
802: lea.l @f,a3
803: .dc.l $f2287400
804: .dc.w $0000
805: @@:
806: bsr restore_fline
807: fmovem.l fpsr,d0
808: rol.l #8,d0
809: or.l d7,d0
810: move.b d0,(a2)+
811:
812: ; FMOVE.X FPn,d16(An)
813: move.b #$0b,(a2)+
814: fmovem.l #$0b000000,fpsr
815: bsr set_fline
816: moveq.l #0,d7
817: lea.l workarea(pc),a0
818: lea.l @f,a3
819: .dc.l $f2286800
820: .dc.w $0000
821: @@:
822: bsr restore_fline
823: fmovem.l fpsr,d0
824: rol.l #8,d0
825: or.l d7,d0
826: move.b d0,(a2)+
827:
828: ; FMOVE.P FPn,d16(An)
829: move.b #$0b,(a2)+
830: fmovem.l #$0b000000,fpsr
831: bsr set_fline
832: moveq.l #0,d7
833: lea.l workarea(pc),a0
834: lea.l @f,a3
835: .dc.l $f2286c00
836: .dc.w $0000
837: @@:
838: bsr restore_fline
839: fmovem.l fpsr,d0
840: rol.l #8,d0
841: or.l d7,d0
842: move.b d0,(a2)+
843:
844: lea.l msg_test_r,a0
845: moveq.l #7-1,d0
846: bsr print_result
847: rts
848:
849: test_fmove_x:
850: lea.l result(pc),a2
851: ; FMOVE.B FPn,d8(An,IX)
852: move.b #$0b,(a2)+
853: fmovem.l #$0b000000,fpsr
854: bsr set_fline
855: moveq.l #0,d7
856: moveq.l #0,d4
857: lea.l workarea(pc),a0
858: lea.l @f,a3
859: .dc.l $f2307800
860: .dc.w $4000
861: @@:
862: bsr restore_fline
863: fmovem.l fpsr,d0
864: rol.l #8,d0
865: or.l d7,d0
866: move.b d0,(a2)+
867:
868: ; FMOVE.W FPn,d8(An,IX)
869: move.b #$0b,(a2)+
870: fmovem.l #$0b000000,fpsr
871: bsr set_fline
872: moveq.l #0,d7
873: moveq.l #0,d4
874: lea.l workarea(pc),a0
875: lea.l @f,a3
876: .dc.l $f2307000
877: .dc.w $4000
878: @@:
879: bsr restore_fline
880: fmovem.l fpsr,d0
881: rol.l #8,d0
882: or.l d7,d0
883: move.b d0,(a2)+
884:
885: ; FMOVE.L FPn,d8(An,IX)
886: move.b #$0b,(a2)+
887: fmovem.l #$0b000000,fpsr
888: bsr set_fline
889: moveq.l #0,d7
890: moveq.l #0,d4
891: lea.l workarea(pc),a0
892: lea.l @f,a3
893: .dc.l $f2306000
894: .dc.w $4000
895: @@:
896: bsr restore_fline
897: fmovem.l fpsr,d0
898: rol.l #8,d0
899: or.l d7,d0
900: move.b d0,(a2)+
901:
902: ; FMOVE.S FPn,d8(An,IX)
903: move.b #$0b,(a2)+
904: fmovem.l #$0b000000,fpsr
905: bsr set_fline
906: moveq.l #0,d7
907: moveq.l #0,d4
908: lea.l workarea(pc),a0
909: lea.l @f,a3
910: .dc.l $f2306400
911: .dc.w $4000
912: @@:
913: bsr restore_fline
914: fmovem.l fpsr,d0
915: rol.l #8,d0
916: or.l d7,d0
917: move.b d0,(a2)+
918:
919: ; FMOVE.D FPn,d8(An,IX)
920: move.b #$0b,(a2)+
921: fmovem.l #$0b000000,fpsr
922: bsr set_fline
923: moveq.l #0,d7
924: moveq.l #0,d4
925: lea.l workarea(pc),a0
926: lea.l @f,a3
927: .dc.l $f2307400
928: .dc.w $4000
929: @@:
930: bsr restore_fline
931: fmovem.l fpsr,d0
932: rol.l #8,d0
933: or.l d7,d0
934: move.b d0,(a2)+
935:
936: ; FMOVE.X FPn,d8(An,IX)
937: move.b #$0b,(a2)+
938: fmovem.l #$0b000000,fpsr
939: bsr set_fline
940: moveq.l #0,d7
941: moveq.l #0,d4
942: lea.l workarea(pc),a0
943: lea.l @f,a3
944: .dc.l $f2306800
945: .dc.w $4000
946: @@:
947: bsr restore_fline
948: fmovem.l fpsr,d0
949: rol.l #8,d0
950: or.l d7,d0
951: move.b d0,(a2)+
952:
953: ; FMOVE.P FPn,d8(An,IX)
954: move.b #$0b,(a2)+
955: fmovem.l #$0b000000,fpsr
956: bsr set_fline
957: moveq.l #0,d7
958: moveq.l #0,d4
959: lea.l workarea(pc),a0
960: lea.l @f,a3
961: .dc.l $f2306c00
962: .dc.w $4000
963: @@:
964: bsr restore_fline
965: fmovem.l fpsr,d0
966: rol.l #8,d0
967: or.l d7,d0
968: move.b d0,(a2)+
969:
970: lea.l msg_test_x,a0
971: moveq.l #7-1,d0
972: bsr print_result
973: rts
974:
975: test_fmove_p:
976: lea.l result(pc),a2
977: ; FMOVE.B FPn,(PC)
978: move.b #$1b,(a2)+
979: fmovem.l #$0b000000,fpsr
980: bsr set_fline
981: moveq.l #0,d7
982: lea.l @f,a3
983: .dc.l $f23a7800
984: @@:
985: bsr restore_fline
986: fmovem.l fpsr,d0
987: rol.l #8,d0
988: or.l d7,d0
989: move.b d0,(a2)+
990:
991: ; FMOVE.W FPn,(PC)
992: move.b #$1b,(a2)+
993: fmovem.l #$0b000000,fpsr
994: bsr set_fline
995: moveq.l #0,d7
996: lea.l @f,a3
997: .dc.l $f23a7000
998: @@:
999: bsr restore_fline
1000: fmovem.l fpsr,d0
1001: rol.l #8,d0
1002: or.l d7,d0
1003: move.b d0,(a2)+
1004:
1005: ; FMOVE.L FPn,(PC)
1006: move.b #$1b,(a2)+
1007: fmovem.l #$0b000000,fpsr
1008: bsr set_fline
1009: moveq.l #0,d7
1010: lea.l @f,a3
1011: .dc.l $f23a6000
1012: @@:
1013: bsr restore_fline
1014: fmovem.l fpsr,d0
1015: rol.l #8,d0
1016: or.l d7,d0
1017: move.b d0,(a2)+
1018:
1019: ; FMOVE.S FPn,(PC)
1020: move.b #$1b,(a2)+
1021: fmovem.l #$0b000000,fpsr
1022: bsr set_fline
1023: moveq.l #0,d7
1024: lea.l @f,a3
1025: .dc.l $f23a6400
1026: @@:
1027: bsr restore_fline
1028: fmovem.l fpsr,d0
1029: rol.l #8,d0
1030: or.l d7,d0
1031: move.b d0,(a2)+
1032:
1033: ; FMOVE.D FPn,(PC)
1034: move.b #$1b,(a2)+
1035: fmovem.l #$0b000000,fpsr
1036: bsr set_fline
1037: moveq.l #0,d7
1038: lea.l @f,a3
1039: .dc.l $f23a7400
1040: @@:
1041: bsr restore_fline
1042: fmovem.l fpsr,d0
1043: rol.l #8,d0
1044: or.l d7,d0
1045: move.b d0,(a2)+
1046:
1047: ; FMOVE.X FPn,(PC)
1048: move.b #$1b,(a2)+
1049: fmovem.l #$0b000000,fpsr
1050: bsr set_fline
1051: moveq.l #0,d7
1052: lea.l @f,a3
1053: .dc.l $f23a6800
1054: @@:
1055: bsr restore_fline
1056: fmovem.l fpsr,d0
1057: rol.l #8,d0
1058: or.l d7,d0
1059: move.b d0,(a2)+
1060:
1061: ; FMOVE.P FPn,(PC)
1062: move.b #$1b,(a2)+
1063: fmovem.l #$0b000000,fpsr
1064: bsr set_fline
1065: moveq.l #0,d7
1066: lea.l @f,a3
1067: .dc.l $f23a6c00
1068: @@:
1069: bsr restore_fline
1070: fmovem.l fpsr,d0
1071: rol.l #8,d0
1072: or.l d7,d0
1073: move.b d0,(a2)+
1074:
1075: lea.l msg_test_p,a0
1076: moveq.l #7-1,d0
1077: bsr print_result
1078: rts
1079:
1080: test_fmove_i:
1081: lea.l result(pc),a2
1082: ; FMOVE.B FPn,#imm
1083: move.b #$1b,(a2)+
1084: fmovem.l #$0b000000,fpsr
1085: bsr set_fline
1086: moveq.l #0,d7
1087: lea.l @f,a3
1088: .dc.l $f23c7800
1089: @@:
1090: bsr restore_fline
1091: fmovem.l fpsr,d0
1092: rol.l #8,d0
1093: or.l d7,d0
1094: move.b d0,(a2)+
1095:
1096: ; FMOVE.W FPn,#imm
1097: move.b #$1b,(a2)+
1098: fmovem.l #$0b000000,fpsr
1099: bsr set_fline
1100: moveq.l #0,d7
1101: lea.l @f,a3
1102: .dc.l $f23c7000
1103: @@:
1104: bsr restore_fline
1105: fmovem.l fpsr,d0
1106: rol.l #8,d0
1107: or.l d7,d0
1108: move.b d0,(a2)+
1109:
1110: ; FMOVE.L FPn,#imm
1111: move.b #$1b,(a2)+
1112: fmovem.l #$0b000000,fpsr
1113: bsr set_fline
1114: moveq.l #0,d7
1115: lea.l @f,a3
1116: .dc.l $f23c6000
1117: @@:
1118: bsr restore_fline
1119: fmovem.l fpsr,d0
1120: rol.l #8,d0
1121: or.l d7,d0
1122: move.b d0,(a2)+
1123:
1124: ; FMOVE.S FPn,#imm
1125: move.b #$1b,(a2)+
1126: fmovem.l #$0b000000,fpsr
1127: bsr set_fline
1128: moveq.l #0,d7
1129: lea.l @f,a3
1130: .dc.l $f23c6400
1131: @@:
1132: bsr restore_fline
1133: fmovem.l fpsr,d0
1134: rol.l #8,d0
1135: or.l d7,d0
1136: move.b d0,(a2)+
1137:
1138: ; FMOVE.D FPn,#imm
1139: move.b #$1b,(a2)+
1140: fmovem.l #$0b000000,fpsr
1141: bsr set_fline
1142: moveq.l #0,d7
1143: lea.l @f,a3
1144: .dc.l $f23c7400
1145: @@:
1146: bsr restore_fline
1147: fmovem.l fpsr,d0
1148: rol.l #8,d0
1149: or.l d7,d0
1150: move.b d0,(a2)+
1151:
1152: ; FMOVE.X FPn,#imm
1153: move.b #$1b,(a2)+
1154: fmovem.l #$0b000000,fpsr
1155: bsr set_fline
1156: moveq.l #0,d7
1157: lea.l @f,a3
1158: .dc.l $f23c6800
1159: @@:
1160: bsr restore_fline
1161: fmovem.l fpsr,d0
1162: rol.l #8,d0
1163: or.l d7,d0
1164: move.b d0,(a2)+
1165:
1166: ; FMOVE.P FPn,#imm
1167: move.b #$1b,(a2)+
1168: fmovem.l #$0b000000,fpsr
1169: bsr set_fline
1170: moveq.l #0,d7
1171: lea.l @f,a3
1172: .dc.l $f23c6c00
1173: @@:
1174: bsr restore_fline
1175: fmovem.l fpsr,d0
1176: rol.l #8,d0
1177: or.l d7,d0
1178: move.b d0,(a2)+
1179:
1180: lea.l msg_test_i,a0
1181: moveq.l #7-1,d0
1182: bsr print_result
1183: rts
1184:
1185: test_fmove_o:
1186: lea.l result(pc),a2
1187: ; FMOVE.B FPn,075
1188: move.b #$1b,(a2)+
1189: fmovem.l #$0b000000,fpsr
1190: bsr set_fline
1191: moveq.l #0,d7
1192: lea.l @f,a3
1193: .dc.l $f23d7800
1194: @@:
1195: bsr restore_fline
1196: fmovem.l fpsr,d0
1197: rol.l #8,d0
1198: or.l d7,d0
1199: move.b d0,(a2)+
1200:
1201: ; FMOVE.W FPn,075
1202: move.b #$1b,(a2)+
1203: fmovem.l #$0b000000,fpsr
1204: bsr set_fline
1205: moveq.l #0,d7
1206: lea.l @f,a3
1207: .dc.l $f23d7000
1208: @@:
1209: bsr restore_fline
1210: fmovem.l fpsr,d0
1211: rol.l #8,d0
1212: or.l d7,d0
1213: move.b d0,(a2)+
1214:
1215: ; FMOVE.L FPn,075
1216: move.b #$1b,(a2)+
1217: fmovem.l #$0b000000,fpsr
1218: bsr set_fline
1219: moveq.l #0,d7
1220: lea.l @f,a3
1221: .dc.l $f23d6000
1222: @@:
1223: bsr restore_fline
1224: fmovem.l fpsr,d0
1225: rol.l #8,d0
1226: or.l d7,d0
1227: move.b d0,(a2)+
1228:
1229: ; FMOVE.S FPn,075
1230: move.b #$1b,(a2)+
1231: fmovem.l #$0b000000,fpsr
1232: bsr set_fline
1233: moveq.l #0,d7
1234: lea.l @f,a3
1235: .dc.l $f23d6400
1236: @@:
1237: bsr restore_fline
1238: fmovem.l fpsr,d0
1239: rol.l #8,d0
1240: or.l d7,d0
1241: move.b d0,(a2)+
1242:
1243: ; FMOVE.D FPn,075
1244: move.b #$1b,(a2)+
1245: fmovem.l #$0b000000,fpsr
1246: bsr set_fline
1247: moveq.l #0,d7
1248: lea.l @f,a3
1249: .dc.l $f23d7400
1250: @@:
1251: bsr restore_fline
1252: fmovem.l fpsr,d0
1253: rol.l #8,d0
1254: or.l d7,d0
1255: move.b d0,(a2)+
1256:
1257: ; FMOVE.X FPn,075
1258: move.b #$1b,(a2)+
1259: fmovem.l #$0b000000,fpsr
1260: bsr set_fline
1261: moveq.l #0,d7
1262: lea.l @f,a3
1263: .dc.l $f23d6800
1264: @@:
1265: bsr restore_fline
1266: fmovem.l fpsr,d0
1267: rol.l #8,d0
1268: or.l d7,d0
1269: move.b d0,(a2)+
1270:
1271: ; FMOVE.P FPn,075
1272: move.b #$1b,(a2)+
1273: fmovem.l #$0b000000,fpsr
1274: bsr set_fline
1275: moveq.l #0,d7
1276: lea.l @f,a3
1277: .dc.l $f23d6c00
1278: @@:
1279: bsr restore_fline
1280: fmovem.l fpsr,d0
1281: rol.l #8,d0
1282: or.l d7,d0
1283: move.b d0,(a2)+
1284:
1285: lea.l msg_test_o,a0
1286: moveq.l #7-1,d0
1287: bsr print_result
1288: rts
1289:
1290: test_fgen_d:
1291: lea.l result(pc),a2
1292: ; Fgen.B Dn,FPn
1293: move.b #$04,(a2)+
1294: fmovem.l #$0b000000,fpsr
1295: bsr set_fline
1296: moveq.l #0,d7
1297: moveq.l #0,d6
1298: lea.l @f,a3
1299: .dc.l $f2065800
1300: @@:
1301: bsr restore_fline
1302: fmovem.l fpsr,d0
1303: rol.l #8,d0
1304: or.l d7,d0
1305: move.b d0,(a2)+
1306:
1307: ; Fgen.W Dn,FPn
1308: move.b #$04,(a2)+
1309: fmovem.l #$0b000000,fpsr
1310: bsr set_fline
1311: moveq.l #0,d7
1312: moveq.l #0,d6
1313: lea.l @f,a3
1314: .dc.l $f2065000
1315: @@:
1316: bsr restore_fline
1317: fmovem.l fpsr,d0
1318: rol.l #8,d0
1319: or.l d7,d0
1320: move.b d0,(a2)+
1321:
1322: ; Fgen.L Dn,FPn
1323: move.b #$04,(a2)+
1324: fmovem.l #$0b000000,fpsr
1325: bsr set_fline
1326: moveq.l #0,d7
1327: moveq.l #0,d6
1328: lea.l @f,a3
1329: .dc.l $f2064000
1330: @@:
1331: bsr restore_fline
1332: fmovem.l fpsr,d0
1333: rol.l #8,d0
1334: or.l d7,d0
1335: move.b d0,(a2)+
1336:
1337: ; Fgen.S Dn,FPn
1338: move.b #$04,(a2)+
1339: fmovem.l #$0b000000,fpsr
1340: bsr set_fline
1341: moveq.l #0,d7
1342: moveq.l #0,d6
1343: lea.l @f,a3
1344: .dc.l $f2064400
1345: @@:
1346: bsr restore_fline
1347: fmovem.l fpsr,d0
1348: rol.l #8,d0
1349: or.l d7,d0
1350: move.b d0,(a2)+
1351:
1352: ; Fgen.D Dn,FPn
1353: move.b #$1b,(a2)+
1354: fmovem.l #$0b000000,fpsr
1355: bsr set_fline
1356: moveq.l #0,d7
1357: moveq.l #0,d6
1358: lea.l @f,a3
1359: .dc.l $f2065400
1360: @@:
1361: bsr restore_fline
1362: fmovem.l fpsr,d0
1363: rol.l #8,d0
1364: or.l d7,d0
1365: move.b d0,(a2)+
1366:
1367: ; Fgen.X Dn,FPn
1368: move.b #$1b,(a2)+
1369: fmovem.l #$0b000000,fpsr
1370: bsr set_fline
1371: moveq.l #0,d7
1372: moveq.l #0,d6
1373: lea.l @f,a3
1374: .dc.l $f2064800
1375: @@:
1376: bsr restore_fline
1377: fmovem.l fpsr,d0
1378: rol.l #8,d0
1379: or.l d7,d0
1380: move.b d0,(a2)+
1381:
1382: ; Fgen.P Dn,FPn
1383: move.b #$1b,(a2)+
1384: fmovem.l #$0b000000,fpsr
1385: bsr set_fline
1386: moveq.l #0,d7
1387: moveq.l #0,d6
1388: lea.l @f,a3
1389: .dc.l $f2064c00
1390: @@:
1391: bsr restore_fline
1392: fmovem.l fpsr,d0
1393: rol.l #8,d0
1394: or.l d7,d0
1395: move.b d0,(a2)+
1396:
1397: lea.l msg_test_d,a0
1398: moveq.l #7-1,d0
1399: bsr print_result
1400: rts
1401:
1402: test_fgen_a:
1403: lea.l result(pc),a2
1404: ; Fgen.B An,FPn
1405: move.b #$1b,(a2)+
1406: fmovem.l #$0b000000,fpsr
1407: bsr set_fline
1408: moveq.l #0,d7
1409: lea.l @f,a3
1410: .dc.l $f2085800
1411: @@:
1412: bsr restore_fline
1413: fmovem.l fpsr,d0
1414: rol.l #8,d0
1415: or.l d7,d0
1416: move.b d0,(a2)+
1417:
1418: ; Fgen.W An,FPn
1419: move.b #$1b,(a2)+
1420: fmovem.l #$0b000000,fpsr
1421: bsr set_fline
1422: moveq.l #0,d7
1423: lea.l @f,a3
1424: .dc.l $f2085000
1425: @@:
1426: bsr restore_fline
1427: fmovem.l fpsr,d0
1428: rol.l #8,d0
1429: or.l d7,d0
1430: move.b d0,(a2)+
1431:
1432: ; Fgen.L An,FPn
1433: move.b #$1b,(a2)+
1434: fmovem.l #$0b000000,fpsr
1435: bsr set_fline
1436: moveq.l #0,d7
1437: lea.l @f,a3
1438: .dc.l $f2084000
1439: @@:
1440: bsr restore_fline
1441: fmovem.l fpsr,d0
1442: rol.l #8,d0
1443: or.l d7,d0
1444: move.b d0,(a2)+
1445:
1446: ; Fgen.S An,FPn
1447: move.b #$1b,(a2)+
1448: fmovem.l #$0b000000,fpsr
1449: bsr set_fline
1450: moveq.l #0,d7
1451: lea.l @f,a3
1452: .dc.l $f2084400
1453: @@:
1454: bsr restore_fline
1455: fmovem.l fpsr,d0
1456: rol.l #8,d0
1457: or.l d7,d0
1458: move.b d0,(a2)+
1459:
1460: ; Fgen.D An,FPn
1461: move.b #$1b,(a2)+
1462: fmovem.l #$0b000000,fpsr
1463: bsr set_fline
1464: moveq.l #0,d7
1465: lea.l @f,a3
1466: .dc.l $f2085400
1467: @@:
1468: bsr restore_fline
1469: fmovem.l fpsr,d0
1470: rol.l #8,d0
1471: or.l d7,d0
1472: move.b d0,(a2)+
1473:
1474: ; Fgen.X An,FPn
1475: move.b #$1b,(a2)+
1476: fmovem.l #$0b000000,fpsr
1477: bsr set_fline
1478: moveq.l #0,d7
1479: lea.l @f,a3
1480: .dc.l $f2084800
1481: @@:
1482: bsr restore_fline
1483: fmovem.l fpsr,d0
1484: rol.l #8,d0
1485: or.l d7,d0
1486: move.b d0,(a2)+
1487:
1488: ; Fgen.P An,FPn
1489: move.b #$1b,(a2)+
1490: fmovem.l #$0b000000,fpsr
1491: bsr set_fline
1492: moveq.l #0,d7
1493: lea.l @f,a3
1494: .dc.l $f2084c00
1495: @@:
1496: bsr restore_fline
1497: fmovem.l fpsr,d0
1498: rol.l #8,d0
1499: or.l d7,d0
1500: move.b d0,(a2)+
1501:
1502: lea.l msg_test_a,a0
1503: moveq.l #7-1,d0
1504: bsr print_result
1505: rts
1506:
1507: test_fgen_m:
1508: lea.l result(pc),a2
1509: ; Fgen.B (An),FPn
1510: move.b #$04,(a2)+
1511: fmovem.l #$0b000000,fpsr
1512: bsr set_fline
1513: moveq.l #0,d7
1514: lea.l workarea+12(pc),a0
1515: move.l d7,-(a0)
1516: move.l d7,-(a0)
1517: move.l d7,-(a0)
1518: lea.l @f,a3
1519: .dc.l $f2105800
1520: @@:
1521: bsr restore_fline
1522: fmovem.l fpsr,d0
1523: rol.l #8,d0
1524: or.l d7,d0
1525: move.b d0,(a2)+
1526:
1527: ; Fgen.W (An),FPn
1528: move.b #$04,(a2)+
1529: fmovem.l #$0b000000,fpsr
1530: bsr set_fline
1531: moveq.l #0,d7
1532: lea.l workarea+12(pc),a0
1533: move.l d7,-(a0)
1534: move.l d7,-(a0)
1535: move.l d7,-(a0)
1536: lea.l @f,a3
1537: .dc.l $f2105000
1538: @@:
1539: bsr restore_fline
1540: fmovem.l fpsr,d0
1541: rol.l #8,d0
1542: or.l d7,d0
1543: move.b d0,(a2)+
1544:
1545: ; Fgen.L (An),FPn
1546: move.b #$04,(a2)+
1547: fmovem.l #$0b000000,fpsr
1548: bsr set_fline
1549: moveq.l #0,d7
1550: lea.l workarea+12(pc),a0
1551: move.l d7,-(a0)
1552: move.l d7,-(a0)
1553: move.l d7,-(a0)
1554: lea.l @f,a3
1555: .dc.l $f2104000
1556: @@:
1557: bsr restore_fline
1558: fmovem.l fpsr,d0
1559: rol.l #8,d0
1560: or.l d7,d0
1561: move.b d0,(a2)+
1562:
1563: ; Fgen.S (An),FPn
1564: move.b #$04,(a2)+
1565: fmovem.l #$0b000000,fpsr
1566: bsr set_fline
1567: moveq.l #0,d7
1568: lea.l workarea+12(pc),a0
1569: move.l d7,-(a0)
1570: move.l d7,-(a0)
1571: move.l d7,-(a0)
1572: lea.l @f,a3
1573: .dc.l $f2104400
1574: @@:
1575: bsr restore_fline
1576: fmovem.l fpsr,d0
1577: rol.l #8,d0
1578: or.l d7,d0
1579: move.b d0,(a2)+
1580:
1581: ; Fgen.D (An),FPn
1582: move.b #$04,(a2)+
1583: fmovem.l #$0b000000,fpsr
1584: bsr set_fline
1585: moveq.l #0,d7
1586: lea.l workarea+12(pc),a0
1587: move.l d7,-(a0)
1588: move.l d7,-(a0)
1589: move.l d7,-(a0)
1590: lea.l @f,a3
1591: .dc.l $f2105400
1592: @@:
1593: bsr restore_fline
1594: fmovem.l fpsr,d0
1595: rol.l #8,d0
1596: or.l d7,d0
1597: move.b d0,(a2)+
1598:
1599: ; Fgen.X (An),FPn
1600: move.b #$04,(a2)+
1601: fmovem.l #$0b000000,fpsr
1602: bsr set_fline
1603: moveq.l #0,d7
1604: lea.l workarea+12(pc),a0
1605: move.l d7,-(a0)
1606: move.l d7,-(a0)
1607: move.l d7,-(a0)
1608: lea.l @f,a3
1609: .dc.l $f2104800
1610: @@:
1611: bsr restore_fline
1612: fmovem.l fpsr,d0
1613: rol.l #8,d0
1614: or.l d7,d0
1615: move.b d0,(a2)+
1616:
1617: ; Fgen.P (An),FPn
1618: move.b #$04,(a2)+
1619: fmovem.l #$0b000000,fpsr
1620: bsr set_fline
1621: moveq.l #0,d7
1622: lea.l workarea+12(pc),a0
1623: move.l d7,-(a0)
1624: move.l d7,-(a0)
1625: move.l d7,-(a0)
1626: lea.l @f,a3
1627: .dc.l $f2104c00
1628: @@:
1629: bsr restore_fline
1630: fmovem.l fpsr,d0
1631: rol.l #8,d0
1632: or.l d7,d0
1633: move.b d0,(a2)+
1634:
1635: lea.l msg_test_m,a0
1636: moveq.l #7-1,d0
1637: bsr print_result
1638: rts
1639:
1640: test_fgen_mi:
1641: lea.l result(pc),a2
1642: ; Fgen.B (An)+,FPn
1643: move.b #$04,(a2)+
1644: fmovem.l #$0b000000,fpsr
1645: bsr set_fline
1646: moveq.l #0,d7
1647: lea.l workarea+12(pc),a0
1648: move.l d7,-(a0)
1649: move.l d7,-(a0)
1650: move.l d7,-(a0)
1651: lea.l @f,a3
1652: .dc.l $f2185800
1653: @@:
1654: bsr restore_fline
1655: fmovem.l fpsr,d0
1656: rol.l #8,d0
1657: or.l d7,d0
1658: move.b d0,(a2)+
1659:
1660: ; Fgen.W (An)+,FPn
1661: move.b #$04,(a2)+
1662: fmovem.l #$0b000000,fpsr
1663: bsr set_fline
1664: moveq.l #0,d7
1665: lea.l workarea+12(pc),a0
1666: move.l d7,-(a0)
1667: move.l d7,-(a0)
1668: move.l d7,-(a0)
1669: lea.l @f,a3
1670: .dc.l $f2185000
1671: @@:
1672: bsr restore_fline
1673: fmovem.l fpsr,d0
1674: rol.l #8,d0
1675: or.l d7,d0
1676: move.b d0,(a2)+
1677:
1678: ; Fgen.L (An)+,FPn
1679: move.b #$04,(a2)+
1680: fmovem.l #$0b000000,fpsr
1681: bsr set_fline
1682: moveq.l #0,d7
1683: lea.l workarea+12(pc),a0
1684: move.l d7,-(a0)
1685: move.l d7,-(a0)
1686: move.l d7,-(a0)
1687: lea.l @f,a3
1688: .dc.l $f2184000
1689: @@:
1690: bsr restore_fline
1691: fmovem.l fpsr,d0
1692: rol.l #8,d0
1693: or.l d7,d0
1694: move.b d0,(a2)+
1695:
1696: ; Fgen.S (An)+,FPn
1697: move.b #$04,(a2)+
1698: fmovem.l #$0b000000,fpsr
1699: bsr set_fline
1700: moveq.l #0,d7
1701: lea.l workarea+12(pc),a0
1702: move.l d7,-(a0)
1703: move.l d7,-(a0)
1704: move.l d7,-(a0)
1705: lea.l @f,a3
1706: .dc.l $f2184400
1707: @@:
1708: bsr restore_fline
1709: fmovem.l fpsr,d0
1710: rol.l #8,d0
1711: or.l d7,d0
1712: move.b d0,(a2)+
1713:
1714: ; Fgen.D (An)+,FPn
1715: move.b #$04,(a2)+
1716: fmovem.l #$0b000000,fpsr
1717: bsr set_fline
1718: moveq.l #0,d7
1719: lea.l workarea+12(pc),a0
1720: move.l d7,-(a0)
1721: move.l d7,-(a0)
1722: move.l d7,-(a0)
1723: lea.l @f,a3
1724: .dc.l $f2185400
1725: @@:
1726: bsr restore_fline
1727: fmovem.l fpsr,d0
1728: rol.l #8,d0
1729: or.l d7,d0
1730: move.b d0,(a2)+
1731:
1732: ; Fgen.X (An)+,FPn
1733: move.b #$04,(a2)+
1734: fmovem.l #$0b000000,fpsr
1735: bsr set_fline
1736: moveq.l #0,d7
1737: lea.l workarea+12(pc),a0
1738: move.l d7,-(a0)
1739: move.l d7,-(a0)
1740: move.l d7,-(a0)
1741: lea.l @f,a3
1742: .dc.l $f2184800
1743: @@:
1744: bsr restore_fline
1745: fmovem.l fpsr,d0
1746: rol.l #8,d0
1747: or.l d7,d0
1748: move.b d0,(a2)+
1749:
1750: ; Fgen.P (An)+,FPn
1751: move.b #$04,(a2)+
1752: fmovem.l #$0b000000,fpsr
1753: bsr set_fline
1754: moveq.l #0,d7
1755: lea.l workarea+12(pc),a0
1756: move.l d7,-(a0)
1757: move.l d7,-(a0)
1758: move.l d7,-(a0)
1759: lea.l @f,a3
1760: .dc.l $f2184c00
1761: @@:
1762: bsr restore_fline
1763: fmovem.l fpsr,d0
1764: rol.l #8,d0
1765: or.l d7,d0
1766: move.b d0,(a2)+
1767:
1768: lea.l msg_test_mi,a0
1769: moveq.l #7-1,d0
1770: bsr print_result
1771: rts
1772:
1773: test_fgen_md:
1774: lea.l result(pc),a2
1775: ; Fgen.B -(An),FPn
1776: move.b #$04,(a2)+
1777: fmovem.l #$0b000000,fpsr
1778: bsr set_fline
1779: moveq.l #0,d7
1780: lea.l workarea(pc),a0
1781: move.l d7,(a0)+
1782: move.l d7,(a0)+
1783: move.l d7,(a0)+
1784: lea.l @f,a3
1785: .dc.l $f2205800
1786: @@:
1787: bsr restore_fline
1788: fmovem.l fpsr,d0
1789: rol.l #8,d0
1790: or.l d7,d0
1791: move.b d0,(a2)+
1792:
1793: ; Fgen.W -(An),FPn
1794: move.b #$04,(a2)+
1795: fmovem.l #$0b000000,fpsr
1796: bsr set_fline
1797: moveq.l #0,d7
1798: lea.l workarea(pc),a0
1799: move.l d7,(a0)+
1800: move.l d7,(a0)+
1801: move.l d7,(a0)+
1802: lea.l @f,a3
1803: .dc.l $f2205000
1804: @@:
1805: bsr restore_fline
1806: fmovem.l fpsr,d0
1807: rol.l #8,d0
1808: or.l d7,d0
1809: move.b d0,(a2)+
1810:
1811: ; Fgen.L -(An),FPn
1812: move.b #$04,(a2)+
1813: fmovem.l #$0b000000,fpsr
1814: bsr set_fline
1815: moveq.l #0,d7
1816: lea.l workarea(pc),a0
1817: move.l d7,(a0)+
1818: move.l d7,(a0)+
1819: move.l d7,(a0)+
1820: lea.l @f,a3
1821: .dc.l $f2204000
1822: @@:
1823: bsr restore_fline
1824: fmovem.l fpsr,d0
1825: rol.l #8,d0
1826: or.l d7,d0
1827: move.b d0,(a2)+
1828:
1829: ; Fgen.S -(An),FPn
1830: move.b #$04,(a2)+
1831: fmovem.l #$0b000000,fpsr
1832: bsr set_fline
1833: moveq.l #0,d7
1834: lea.l workarea(pc),a0
1835: move.l d7,(a0)+
1836: move.l d7,(a0)+
1837: move.l d7,(a0)+
1838: lea.l @f,a3
1839: .dc.l $f2204400
1840: @@:
1841: bsr restore_fline
1842: fmovem.l fpsr,d0
1843: rol.l #8,d0
1844: or.l d7,d0
1845: move.b d0,(a2)+
1846:
1847: ; Fgen.D -(An),FPn
1848: move.b #$04,(a2)+
1849: fmovem.l #$0b000000,fpsr
1850: bsr set_fline
1851: moveq.l #0,d7
1852: lea.l workarea(pc),a0
1853: move.l d7,(a0)+
1854: move.l d7,(a0)+
1855: move.l d7,(a0)+
1856: lea.l @f,a3
1857: .dc.l $f2205400
1858: @@:
1859: bsr restore_fline
1860: fmovem.l fpsr,d0
1861: rol.l #8,d0
1862: or.l d7,d0
1863: move.b d0,(a2)+
1864:
1865: ; Fgen.X -(An),FPn
1866: move.b #$04,(a2)+
1867: fmovem.l #$0b000000,fpsr
1868: bsr set_fline
1869: moveq.l #0,d7
1870: lea.l workarea(pc),a0
1871: move.l d7,(a0)+
1872: move.l d7,(a0)+
1873: move.l d7,(a0)+
1874: lea.l @f,a3
1875: .dc.l $f2204800
1876: @@:
1877: bsr restore_fline
1878: fmovem.l fpsr,d0
1879: rol.l #8,d0
1880: or.l d7,d0
1881: move.b d0,(a2)+
1882:
1883: ; Fgen.P -(An),FPn
1884: move.b #$04,(a2)+
1885: fmovem.l #$0b000000,fpsr
1886: bsr set_fline
1887: moveq.l #0,d7
1888: lea.l workarea(pc),a0
1889: move.l d7,(a0)+
1890: move.l d7,(a0)+
1891: move.l d7,(a0)+
1892: lea.l @f,a3
1893: .dc.l $f2204c00
1894: @@:
1895: bsr restore_fline
1896: fmovem.l fpsr,d0
1897: rol.l #8,d0
1898: or.l d7,d0
1899: move.b d0,(a2)+
1900:
1901: lea.l msg_test_md,a0
1902: moveq.l #7-1,d0
1903: bsr print_result
1904: rts
1905:
1906: test_fgen_r:
1907: lea.l result(pc),a2
1908: ; Fgen.B d16(An),FPn
1909: move.b #$04,(a2)+
1910: fmovem.l #$0b000000,fpsr
1911: bsr set_fline
1912: moveq.l #0,d7
1913: lea.l workarea+12(pc),a0
1914: move.l d7,-(a0)
1915: move.l d7,-(a0)
1916: move.l d7,-(a0)
1917: lea.l @f,a3
1918: .dc.l $f2285800
1919: .dc.w $0000
1920: @@:
1921: bsr restore_fline
1922: fmovem.l fpsr,d0
1923: rol.l #8,d0
1924: or.l d7,d0
1925: move.b d0,(a2)+
1926:
1927: ; Fgen.W d16(An),FPn
1928: move.b #$04,(a2)+
1929: fmovem.l #$0b000000,fpsr
1930: bsr set_fline
1931: moveq.l #0,d7
1932: lea.l workarea+12(pc),a0
1933: move.l d7,-(a0)
1934: move.l d7,-(a0)
1935: move.l d7,-(a0)
1936: lea.l @f,a3
1937: .dc.l $f2285000
1938: .dc.w $0000
1939: @@:
1940: bsr restore_fline
1941: fmovem.l fpsr,d0
1942: rol.l #8,d0
1943: or.l d7,d0
1944: move.b d0,(a2)+
1945:
1946: ; Fgen.L d16(An),FPn
1947: move.b #$04,(a2)+
1948: fmovem.l #$0b000000,fpsr
1949: bsr set_fline
1950: moveq.l #0,d7
1951: lea.l workarea+12(pc),a0
1952: move.l d7,-(a0)
1953: move.l d7,-(a0)
1954: move.l d7,-(a0)
1955: lea.l @f,a3
1956: .dc.l $f2284000
1957: .dc.w $0000
1958: @@:
1959: bsr restore_fline
1960: fmovem.l fpsr,d0
1961: rol.l #8,d0
1962: or.l d7,d0
1963: move.b d0,(a2)+
1964:
1965: ; Fgen.S d16(An),FPn
1966: move.b #$04,(a2)+
1967: fmovem.l #$0b000000,fpsr
1968: bsr set_fline
1969: moveq.l #0,d7
1970: lea.l workarea+12(pc),a0
1971: move.l d7,-(a0)
1972: move.l d7,-(a0)
1973: move.l d7,-(a0)
1974: lea.l @f,a3
1975: .dc.l $f2284400
1976: .dc.w $0000
1977: @@:
1978: bsr restore_fline
1979: fmovem.l fpsr,d0
1980: rol.l #8,d0
1981: or.l d7,d0
1982: move.b d0,(a2)+
1983:
1984: ; Fgen.D d16(An),FPn
1985: move.b #$04,(a2)+
1986: fmovem.l #$0b000000,fpsr
1987: bsr set_fline
1988: moveq.l #0,d7
1989: lea.l workarea+12(pc),a0
1990: move.l d7,-(a0)
1991: move.l d7,-(a0)
1992: move.l d7,-(a0)
1993: lea.l @f,a3
1994: .dc.l $f2285400
1995: .dc.w $0000
1996: @@:
1997: bsr restore_fline
1998: fmovem.l fpsr,d0
1999: rol.l #8,d0
2000: or.l d7,d0
2001: move.b d0,(a2)+
2002:
2003: ; Fgen.X d16(An),FPn
2004: move.b #$04,(a2)+
2005: fmovem.l #$0b000000,fpsr
2006: bsr set_fline
2007: moveq.l #0,d7
2008: lea.l workarea+12(pc),a0
2009: move.l d7,-(a0)
2010: move.l d7,-(a0)
2011: move.l d7,-(a0)
2012: lea.l @f,a3
2013: .dc.l $f2284800
2014: .dc.w $0000
2015: @@:
2016: bsr restore_fline
2017: fmovem.l fpsr,d0
2018: rol.l #8,d0
2019: or.l d7,d0
2020: move.b d0,(a2)+
2021:
2022: ; Fgen.P d16(An),FPn
2023: move.b #$04,(a2)+
2024: fmovem.l #$0b000000,fpsr
2025: bsr set_fline
2026: moveq.l #0,d7
2027: lea.l workarea+12(pc),a0
2028: move.l d7,-(a0)
2029: move.l d7,-(a0)
2030: move.l d7,-(a0)
2031: lea.l @f,a3
2032: .dc.l $f2284c00
2033: .dc.w $0000
2034: @@:
2035: bsr restore_fline
2036: fmovem.l fpsr,d0
2037: rol.l #8,d0
2038: or.l d7,d0
2039: move.b d0,(a2)+
2040:
2041: lea.l msg_test_r,a0
2042: moveq.l #7-1,d0
2043: bsr print_result
2044: rts
2045:
2046: test_fgen_x:
2047: lea.l result(pc),a2
2048: ; Fgen.B d8(An,IX),FPn
2049: move.b #$04,(a2)+
2050: fmovem.l #$0b000000,fpsr
2051: bsr set_fline
2052: moveq.l #0,d7
2053: moveq.l #0,d4
2054: lea.l workarea+12(pc),a0
2055: move.l d7,-(a0)
2056: move.l d7,-(a0)
2057: move.l d7,-(a0)
2058: lea.l @f,a3
2059: .dc.l $f2305800
2060: .dc.w $4000
2061: @@:
2062: bsr restore_fline
2063: fmovem.l fpsr,d0
2064: rol.l #8,d0
2065: or.l d7,d0
2066: move.b d0,(a2)+
2067:
2068: ; Fgen.W d8(An,IX),FPn
2069: move.b #$04,(a2)+
2070: fmovem.l #$0b000000,fpsr
2071: bsr set_fline
2072: moveq.l #0,d7
2073: moveq.l #0,d4
2074: lea.l workarea+12(pc),a0
2075: move.l d7,-(a0)
2076: move.l d7,-(a0)
2077: move.l d7,-(a0)
2078: lea.l @f,a3
2079: .dc.l $f2305000
2080: .dc.w $4000
2081: @@:
2082: bsr restore_fline
2083: fmovem.l fpsr,d0
2084: rol.l #8,d0
2085: or.l d7,d0
2086: move.b d0,(a2)+
2087:
2088: ; Fgen.L d8(An,IX),FPn
2089: move.b #$04,(a2)+
2090: fmovem.l #$0b000000,fpsr
2091: bsr set_fline
2092: moveq.l #0,d7
2093: moveq.l #0,d4
2094: lea.l workarea+12(pc),a0
2095: move.l d7,-(a0)
2096: move.l d7,-(a0)
2097: move.l d7,-(a0)
2098: lea.l @f,a3
2099: .dc.l $f2304000
2100: .dc.w $4000
2101: @@:
2102: bsr restore_fline
2103: fmovem.l fpsr,d0
2104: rol.l #8,d0
2105: or.l d7,d0
2106: move.b d0,(a2)+
2107:
2108: ; Fgen.S d8(An,IX),FPn
2109: move.b #$04,(a2)+
2110: fmovem.l #$0b000000,fpsr
2111: bsr set_fline
2112: moveq.l #0,d7
2113: moveq.l #0,d4
2114: lea.l workarea+12(pc),a0
2115: move.l d7,-(a0)
2116: move.l d7,-(a0)
2117: move.l d7,-(a0)
2118: lea.l @f,a3
2119: .dc.l $f2304400
2120: .dc.w $4000
2121: @@:
2122: bsr restore_fline
2123: fmovem.l fpsr,d0
2124: rol.l #8,d0
2125: or.l d7,d0
2126: move.b d0,(a2)+
2127:
2128: ; Fgen.D d8(An,IX),FPn
2129: move.b #$04,(a2)+
2130: fmovem.l #$0b000000,fpsr
2131: bsr set_fline
2132: moveq.l #0,d7
2133: moveq.l #0,d4
2134: lea.l workarea+12(pc),a0
2135: move.l d7,-(a0)
2136: move.l d7,-(a0)
2137: move.l d7,-(a0)
2138: lea.l @f,a3
2139: .dc.l $f2305400
2140: .dc.w $4000
2141: @@:
2142: bsr restore_fline
2143: fmovem.l fpsr,d0
2144: rol.l #8,d0
2145: or.l d7,d0
2146: move.b d0,(a2)+
2147:
2148: ; Fgen.X d8(An,IX),FPn
2149: move.b #$04,(a2)+
2150: fmovem.l #$0b000000,fpsr
2151: bsr set_fline
2152: moveq.l #0,d7
2153: moveq.l #0,d4
2154: lea.l workarea+12(pc),a0
2155: move.l d7,-(a0)
2156: move.l d7,-(a0)
2157: move.l d7,-(a0)
2158: lea.l @f,a3
2159: .dc.l $f2304800
2160: .dc.w $4000
2161: @@:
2162: bsr restore_fline
2163: fmovem.l fpsr,d0
2164: rol.l #8,d0
2165: or.l d7,d0
2166: move.b d0,(a2)+
2167:
2168: ; Fgen.P d8(An,IX),FPn
2169: move.b #$04,(a2)+
2170: fmovem.l #$0b000000,fpsr
2171: bsr set_fline
2172: moveq.l #0,d7
2173: moveq.l #0,d4
2174: lea.l workarea+12(pc),a0
2175: move.l d7,-(a0)
2176: move.l d7,-(a0)
2177: move.l d7,-(a0)
2178: lea.l @f,a3
2179: .dc.l $f2304c00
2180: .dc.w $4000
2181: @@:
2182: bsr restore_fline
2183: fmovem.l fpsr,d0
2184: rol.l #8,d0
2185: or.l d7,d0
2186: move.b d0,(a2)+
2187:
2188: lea.l msg_test_x,a0
2189: moveq.l #7-1,d0
2190: bsr print_result
2191: rts
2192:
2193: test_fgen_p:
2194: lea.l result(pc),a2
2195: ; Fgen.B (PC),FPn
2196: move.b #$04,(a2)+
2197: fmovem.l #$0b000000,fpsr
2198: bsr set_fline
2199: moveq.l #0,d7
2200: bra @f
2201: .dc.l 0, 0, 0
2202: @@:
2203: lea.l @f,a3
2204: .dc.l $f23a5800
2205: .dc.w -4-6-12
2206: @@:
2207: bsr restore_fline
2208: fmovem.l fpsr,d0
2209: rol.l #8,d0
2210: or.l d7,d0
2211: move.b d0,(a2)+
2212:
2213: ; Fgen.W (PC),FPn
2214: move.b #$04,(a2)+
2215: fmovem.l #$0b000000,fpsr
2216: bsr set_fline
2217: moveq.l #0,d7
2218: bra @f
2219: .dc.l 0, 0, 0
2220: @@:
2221: lea.l @f,a3
2222: .dc.l $f23a5000
2223: .dc.w -4-6-12
2224: @@:
2225: bsr restore_fline
2226: fmovem.l fpsr,d0
2227: rol.l #8,d0
2228: or.l d7,d0
2229: move.b d0,(a2)+
2230:
2231: ; Fgen.L (PC),FPn
2232: move.b #$04,(a2)+
2233: fmovem.l #$0b000000,fpsr
2234: bsr set_fline
2235: moveq.l #0,d7
2236: bra @f
2237: .dc.l 0, 0, 0
2238: @@:
2239: lea.l @f,a3
2240: .dc.l $f23a4000
2241: .dc.w -4-6-12
2242: @@:
2243: bsr restore_fline
2244: fmovem.l fpsr,d0
2245: rol.l #8,d0
2246: or.l d7,d0
2247: move.b d0,(a2)+
2248:
2249: ; Fgen.S (PC),FPn
2250: move.b #$04,(a2)+
2251: fmovem.l #$0b000000,fpsr
2252: bsr set_fline
2253: moveq.l #0,d7
2254: bra @f
2255: .dc.l 0, 0, 0
2256: @@:
2257: lea.l @f,a3
2258: .dc.l $f23a4400
2259: .dc.w -4-6-12
2260: @@:
2261: bsr restore_fline
2262: fmovem.l fpsr,d0
2263: rol.l #8,d0
2264: or.l d7,d0
2265: move.b d0,(a2)+
2266:
2267: ; Fgen.D (PC),FPn
2268: move.b #$04,(a2)+
2269: fmovem.l #$0b000000,fpsr
2270: bsr set_fline
2271: moveq.l #0,d7
2272: bra @f
2273: .dc.l 0, 0, 0
2274: @@:
2275: lea.l @f,a3
2276: .dc.l $f23a5400
2277: .dc.w -4-6-12
2278: @@:
2279: bsr restore_fline
2280: fmovem.l fpsr,d0
2281: rol.l #8,d0
2282: or.l d7,d0
2283: move.b d0,(a2)+
2284:
2285: ; Fgen.X (PC),FPn
2286: move.b #$04,(a2)+
2287: fmovem.l #$0b000000,fpsr
2288: bsr set_fline
2289: moveq.l #0,d7
2290: bra @f
2291: .dc.l 0, 0, 0
2292: @@:
2293: lea.l @f,a3
2294: .dc.l $f23a4800
2295: .dc.w -4-6-12
2296: @@:
2297: bsr restore_fline
2298: fmovem.l fpsr,d0
2299: rol.l #8,d0
2300: or.l d7,d0
2301: move.b d0,(a2)+
2302:
2303: ; Fgen.P (PC),FPn
2304: move.b #$04,(a2)+
2305: fmovem.l #$0b000000,fpsr
2306: bsr set_fline
2307: moveq.l #0,d7
2308: bra @f
2309: .dc.l 0, 0, 0
2310: @@:
2311: lea.l @f,a3
2312: .dc.l $f23a4c00
2313: .dc.w -4-6-12
2314: @@:
2315: bsr restore_fline
2316: fmovem.l fpsr,d0
2317: rol.l #8,d0
2318: or.l d7,d0
2319: move.b d0,(a2)+
2320:
2321: lea.l msg_test_p,a0
2322: moveq.l #7-1,d0
2323: bsr print_result
2324: rts
2325:
2326: test_fgen_i:
2327: lea.l result(pc),a2
2328: ; Fgen.B #imm,FPn
2329: move.b #$04,(a2)+
2330: fmovem.l #$0b000000,fpsr
2331: bsr set_fline
2332: moveq.l #0,d7
2333: lea.l @f,a3
2334: .dc.l $f23c5800
2335: .dc.w 0
2336: @@:
2337: bsr restore_fline
2338: fmovem.l fpsr,d0
2339: rol.l #8,d0
2340: or.l d7,d0
2341: move.b d0,(a2)+
2342:
2343: ; Fgen.W #imm,FPn
2344: move.b #$04,(a2)+
2345: fmovem.l #$0b000000,fpsr
2346: bsr set_fline
2347: moveq.l #0,d7
2348: lea.l @f,a3
2349: .dc.l $f23c5000
2350: .dc.w 0
2351: @@:
2352: bsr restore_fline
2353: fmovem.l fpsr,d0
2354: rol.l #8,d0
2355: or.l d7,d0
2356: move.b d0,(a2)+
2357:
2358: ; Fgen.L #imm,FPn
2359: move.b #$04,(a2)+
2360: fmovem.l #$0b000000,fpsr
2361: bsr set_fline
2362: moveq.l #0,d7
2363: lea.l @f,a3
2364: .dc.l $f23c4000
2365: .dc.l 0
2366: @@:
2367: bsr restore_fline
2368: fmovem.l fpsr,d0
2369: rol.l #8,d0
2370: or.l d7,d0
2371: move.b d0,(a2)+
2372:
2373: ; Fgen.S #imm,FPn
2374: move.b #$04,(a2)+
2375: fmovem.l #$0b000000,fpsr
2376: bsr set_fline
2377: moveq.l #0,d7
2378: lea.l @f,a3
2379: .dc.l $f23c4400
2380: .dc.l 0
2381: @@:
2382: bsr restore_fline
2383: fmovem.l fpsr,d0
2384: rol.l #8,d0
2385: or.l d7,d0
2386: move.b d0,(a2)+
2387:
2388: ; Fgen.D #imm,FPn
2389: move.b #$04,(a2)+
2390: fmovem.l #$0b000000,fpsr
2391: bsr set_fline
2392: moveq.l #0,d7
2393: lea.l @f,a3
2394: .dc.l $f23c5400
2395: .dc.l 0, 0
2396: @@:
2397: bsr restore_fline
2398: fmovem.l fpsr,d0
2399: rol.l #8,d0
2400: or.l d7,d0
2401: move.b d0,(a2)+
2402:
2403: ; Fgen.X #imm,FPn
2404: move.b #$04,(a2)+
2405: fmovem.l #$0b000000,fpsr
2406: bsr set_fline
2407: moveq.l #0,d7
2408: lea.l @f,a3
2409: .dc.l $f23c4800
2410: .dc.l 0, 0, 0
2411: @@:
2412: bsr restore_fline
2413: fmovem.l fpsr,d0
2414: rol.l #8,d0
2415: or.l d7,d0
2416: move.b d0,(a2)+
2417:
2418: ; Fgen.P #imm,FPn
2419: move.b #$04,(a2)+
2420: fmovem.l #$0b000000,fpsr
2421: bsr set_fline
2422: moveq.l #0,d7
2423: lea.l @f,a3
2424: .dc.l $f23c4c00
2425: .dc.l 0, 0, 0
2426: @@:
2427: bsr restore_fline
2428: fmovem.l fpsr,d0
2429: rol.l #8,d0
2430: or.l d7,d0
2431: move.b d0,(a2)+
2432:
2433: lea.l msg_test_i,a0
2434: moveq.l #7-1,d0
2435: bsr print_result
2436: rts
2437:
2438: test_fgen_o:
2439: lea.l result(pc),a2
2440: ; Fgen.B 075,FPn
2441: move.b #$1b,(a2)+
2442: fmovem.l #$0b000000,fpsr
2443: bsr set_fline
2444: moveq.l #0,d7
2445: lea.l @f,a3
2446: .dc.l $f23d5800
2447: @@:
2448: bsr restore_fline
2449: fmovem.l fpsr,d0
2450: rol.l #8,d0
2451: or.l d7,d0
2452: move.b d0,(a2)+
2453:
2454: ; Fgen.W 075,FPn
2455: move.b #$1b,(a2)+
2456: fmovem.l #$0b000000,fpsr
2457: bsr set_fline
2458: moveq.l #0,d7
2459: lea.l @f,a3
2460: .dc.l $f23d5000
2461: @@:
2462: bsr restore_fline
2463: fmovem.l fpsr,d0
2464: rol.l #8,d0
2465: or.l d7,d0
2466: move.b d0,(a2)+
2467:
2468: ; Fgen.L 075,FPn
2469: move.b #$1b,(a2)+
2470: fmovem.l #$0b000000,fpsr
2471: bsr set_fline
2472: moveq.l #0,d7
2473: lea.l @f,a3
2474: .dc.l $f23d4000
2475: @@:
2476: bsr restore_fline
2477: fmovem.l fpsr,d0
2478: rol.l #8,d0
2479: or.l d7,d0
2480: move.b d0,(a2)+
2481:
2482: ; Fgen.S 075,FPn
2483: move.b #$1b,(a2)+
2484: fmovem.l #$0b000000,fpsr
2485: bsr set_fline
2486: moveq.l #0,d7
2487: lea.l @f,a3
2488: .dc.l $f23d4400
2489: @@:
2490: bsr restore_fline
2491: fmovem.l fpsr,d0
2492: rol.l #8,d0
2493: or.l d7,d0
2494: move.b d0,(a2)+
2495:
2496: ; Fgen.D 075,FPn
2497: move.b #$1b,(a2)+
2498: fmovem.l #$0b000000,fpsr
2499: bsr set_fline
2500: moveq.l #0,d7
2501: lea.l @f,a3
2502: .dc.l $f23d5400
2503: @@:
2504: bsr restore_fline
2505: fmovem.l fpsr,d0
2506: rol.l #8,d0
2507: or.l d7,d0
2508: move.b d0,(a2)+
2509:
2510: ; Fgen.X 075,FPn
2511: move.b #$1b,(a2)+
2512: fmovem.l #$0b000000,fpsr
2513: bsr set_fline
2514: moveq.l #0,d7
2515: lea.l @f,a3
2516: .dc.l $f23d4800
2517: @@:
2518: bsr restore_fline
2519: fmovem.l fpsr,d0
2520: rol.l #8,d0
2521: or.l d7,d0
2522: move.b d0,(a2)+
2523:
2524: ; Fgen.P 075,FPn
2525: move.b #$1b,(a2)+
2526: fmovem.l #$0b000000,fpsr
2527: bsr set_fline
2528: moveq.l #0,d7
2529: lea.l @f,a3
2530: .dc.l $f23d4c00
2531: @@:
2532: bsr restore_fline
2533: fmovem.l fpsr,d0
2534: rol.l #8,d0
2535: or.l d7,d0
2536: move.b d0,(a2)+
2537:
2538: lea.l msg_test_o,a0
2539: moveq.l #7-1,d0
2540: bsr print_result
2541: rts
2542:
2543: test_fscale_d:
2544: lea.l result(pc),a2
2545: ; FSCALE.B Dn,FPn
2546: move.b #$04,(a2)+
2547: fmovem.l #$0b000000,fpsr
2548: bsr set_fline
2549: moveq.l #0,d7
2550: moveq.l #0,d6
2551: lea.l @f,a3
2552: .dc.l $f2065826
2553: @@:
2554: bsr restore_fline
2555: fmovem.l fpsr,d0
2556: rol.l #8,d0
2557: or.l d7,d0
2558: move.b d0,(a2)+
2559:
2560: ; FSCALE.W Dn,FPn
2561: move.b #$04,(a2)+
2562: fmovem.l #$0b000000,fpsr
2563: bsr set_fline
2564: moveq.l #0,d7
2565: moveq.l #0,d6
2566: lea.l @f,a3
2567: .dc.l $f2065026
2568: @@:
2569: bsr restore_fline
2570: fmovem.l fpsr,d0
2571: rol.l #8,d0
2572: or.l d7,d0
2573: move.b d0,(a2)+
2574:
2575: ; FSCALE.L Dn,FPn
2576: move.b #$04,(a2)+
2577: fmovem.l #$0b000000,fpsr
2578: bsr set_fline
2579: moveq.l #0,d7
2580: moveq.l #0,d6
2581: lea.l @f,a3
2582: .dc.l $f2064026
2583: @@:
2584: bsr restore_fline
2585: fmovem.l fpsr,d0
2586: rol.l #8,d0
2587: or.l d7,d0
2588: move.b d0,(a2)+
2589:
2590: ; FSCALE.S Dn,FPn
2591: move.b #$04,(a2)+
2592: fmovem.l #$0b000000,fpsr
2593: bsr set_fline
2594: moveq.l #0,d7
2595: moveq.l #0,d6
2596: lea.l @f,a3
2597: .dc.l $f2064426
2598: @@:
2599: bsr restore_fline
2600: fmovem.l fpsr,d0
2601: rol.l #8,d0
2602: or.l d7,d0
2603: move.b d0,(a2)+
2604:
2605: ; FSCALE.D Dn,FPn
2606: move.b #$1b,(a2)+
2607: fmovem.l #$0b000000,fpsr
2608: bsr set_fline
2609: moveq.l #0,d7
2610: moveq.l #0,d6
2611: lea.l @f,a3
2612: .dc.l $f2065426
2613: @@:
2614: bsr restore_fline
2615: fmovem.l fpsr,d0
2616: rol.l #8,d0
2617: or.l d7,d0
2618: move.b d0,(a2)+
2619:
2620: ; FSCALE.X Dn,FPn
2621: move.b #$1b,(a2)+
2622: fmovem.l #$0b000000,fpsr
2623: bsr set_fline
2624: moveq.l #0,d7
2625: moveq.l #0,d6
2626: lea.l @f,a3
2627: .dc.l $f2064826
2628: @@:
2629: bsr restore_fline
2630: fmovem.l fpsr,d0
2631: rol.l #8,d0
2632: or.l d7,d0
2633: move.b d0,(a2)+
2634:
2635: ; FSCALE.P Dn,FPn
2636: move.b #$1b,(a2)+
2637: fmovem.l #$0b000000,fpsr
2638: bsr set_fline
2639: moveq.l #0,d7
2640: moveq.l #0,d6
2641: lea.l @f,a3
2642: .dc.l $f2064c26
2643: @@:
2644: bsr restore_fline
2645: fmovem.l fpsr,d0
2646: rol.l #8,d0
2647: or.l d7,d0
2648: move.b d0,(a2)+
2649:
2650: lea.l msg_test_d,a0
2651: moveq.l #7-1,d0
2652: bsr print_result
2653: rts
2654:
2655: test_fscale_a:
2656: lea.l result(pc),a2
2657: ; FSCALE.B An,FPn
2658: move.b #$1b,(a2)+
2659: fmovem.l #$0b000000,fpsr
2660: bsr set_fline
2661: moveq.l #0,d7
2662: lea.l @f,a3
2663: .dc.l $f2085826
2664: @@:
2665: bsr restore_fline
2666: fmovem.l fpsr,d0
2667: rol.l #8,d0
2668: or.l d7,d0
2669: move.b d0,(a2)+
2670:
2671: ; FSCALE.W An,FPn
2672: move.b #$1b,(a2)+
2673: fmovem.l #$0b000000,fpsr
2674: bsr set_fline
2675: moveq.l #0,d7
2676: lea.l @f,a3
2677: .dc.l $f2085026
2678: @@:
2679: bsr restore_fline
2680: fmovem.l fpsr,d0
2681: rol.l #8,d0
2682: or.l d7,d0
2683: move.b d0,(a2)+
2684:
2685: ; FSCALE.L An,FPn
2686: move.b #$1b,(a2)+
2687: fmovem.l #$0b000000,fpsr
2688: bsr set_fline
2689: moveq.l #0,d7
2690: lea.l @f,a3
2691: .dc.l $f2084026
2692: @@:
2693: bsr restore_fline
2694: fmovem.l fpsr,d0
2695: rol.l #8,d0
2696: or.l d7,d0
2697: move.b d0,(a2)+
2698:
2699: ; FSCALE.S An,FPn
2700: move.b #$1b,(a2)+
2701: fmovem.l #$0b000000,fpsr
2702: bsr set_fline
2703: moveq.l #0,d7
2704: lea.l @f,a3
2705: .dc.l $f2084426
2706: @@:
2707: bsr restore_fline
2708: fmovem.l fpsr,d0
2709: rol.l #8,d0
2710: or.l d7,d0
2711: move.b d0,(a2)+
2712:
2713: ; FSCALE.D An,FPn
2714: move.b #$1b,(a2)+
2715: fmovem.l #$0b000000,fpsr
2716: bsr set_fline
2717: moveq.l #0,d7
2718: lea.l @f,a3
2719: .dc.l $f2085426
2720: @@:
2721: bsr restore_fline
2722: fmovem.l fpsr,d0
2723: rol.l #8,d0
2724: or.l d7,d0
2725: move.b d0,(a2)+
2726:
2727: ; FSCALE.X An,FPn
2728: move.b #$1b,(a2)+
2729: fmovem.l #$0b000000,fpsr
2730: bsr set_fline
2731: moveq.l #0,d7
2732: lea.l @f,a3
2733: .dc.l $f2084826
2734: @@:
2735: bsr restore_fline
2736: fmovem.l fpsr,d0
2737: rol.l #8,d0
2738: or.l d7,d0
2739: move.b d0,(a2)+
2740:
2741: ; FSCALE.P An,FPn
2742: move.b #$1b,(a2)+
2743: fmovem.l #$0b000000,fpsr
2744: bsr set_fline
2745: moveq.l #0,d7
2746: lea.l @f,a3
2747: .dc.l $f2084c26
2748: @@:
2749: bsr restore_fline
2750: fmovem.l fpsr,d0
2751: rol.l #8,d0
2752: or.l d7,d0
2753: move.b d0,(a2)+
2754:
2755: lea.l msg_test_a,a0
2756: moveq.l #7-1,d0
2757: bsr print_result
2758: rts
2759:
2760: test_fscale_m:
2761: lea.l result(pc),a2
2762: ; FSCALE.B (An),FPn
2763: move.b #$04,(a2)+
2764: fmovem.l #$0b000000,fpsr
2765: bsr set_fline
2766: moveq.l #0,d7
2767: lea.l workarea+12(pc),a0
2768: move.l d7,-(a0)
2769: move.l d7,-(a0)
2770: move.l d7,-(a0)
2771: lea.l @f,a3
2772: .dc.l $f2105826
2773: @@:
2774: bsr restore_fline
2775: fmovem.l fpsr,d0
2776: rol.l #8,d0
2777: or.l d7,d0
2778: move.b d0,(a2)+
2779:
2780: ; FSCALE.W (An),FPn
2781: move.b #$04,(a2)+
2782: fmovem.l #$0b000000,fpsr
2783: bsr set_fline
2784: moveq.l #0,d7
2785: lea.l workarea+12(pc),a0
2786: move.l d7,-(a0)
2787: move.l d7,-(a0)
2788: move.l d7,-(a0)
2789: lea.l @f,a3
2790: .dc.l $f2105026
2791: @@:
2792: bsr restore_fline
2793: fmovem.l fpsr,d0
2794: rol.l #8,d0
2795: or.l d7,d0
2796: move.b d0,(a2)+
2797:
2798: ; FSCALE.L (An),FPn
2799: move.b #$04,(a2)+
2800: fmovem.l #$0b000000,fpsr
2801: bsr set_fline
2802: moveq.l #0,d7
2803: lea.l workarea+12(pc),a0
2804: move.l d7,-(a0)
2805: move.l d7,-(a0)
2806: move.l d7,-(a0)
2807: lea.l @f,a3
2808: .dc.l $f2104026
2809: @@:
2810: bsr restore_fline
2811: fmovem.l fpsr,d0
2812: rol.l #8,d0
2813: or.l d7,d0
2814: move.b d0,(a2)+
2815:
2816: ; FSCALE.S (An),FPn
2817: move.b #$04,(a2)+
2818: fmovem.l #$0b000000,fpsr
2819: bsr set_fline
2820: moveq.l #0,d7
2821: lea.l workarea+12(pc),a0
2822: move.l d7,-(a0)
2823: move.l d7,-(a0)
2824: move.l d7,-(a0)
2825: lea.l @f,a3
2826: .dc.l $f2104426
2827: @@:
2828: bsr restore_fline
2829: fmovem.l fpsr,d0
2830: rol.l #8,d0
2831: or.l d7,d0
2832: move.b d0,(a2)+
2833:
2834: ; FSCALE.D (An),FPn
2835: move.b #$04,(a2)+
2836: fmovem.l #$0b000000,fpsr
2837: bsr set_fline
2838: moveq.l #0,d7
2839: lea.l workarea+12(pc),a0
2840: move.l d7,-(a0)
2841: move.l d7,-(a0)
2842: move.l d7,-(a0)
2843: lea.l @f,a3
2844: .dc.l $f2105426
2845: @@:
2846: bsr restore_fline
2847: fmovem.l fpsr,d0
2848: rol.l #8,d0
2849: or.l d7,d0
2850: move.b d0,(a2)+
2851:
2852: ; FSCALE.X (An),FPn
2853: move.b #$04,(a2)+
2854: fmovem.l #$0b000000,fpsr
2855: bsr set_fline
2856: moveq.l #0,d7
2857: lea.l workarea+12(pc),a0
2858: move.l d7,-(a0)
2859: move.l d7,-(a0)
2860: move.l d7,-(a0)
2861: lea.l @f,a3
2862: .dc.l $f2104826
2863: @@:
2864: bsr restore_fline
2865: fmovem.l fpsr,d0
2866: rol.l #8,d0
2867: or.l d7,d0
2868: move.b d0,(a2)+
2869:
2870: ; FSCALE.P (An),FPn
2871: move.b #$04,(a2)+
2872: fmovem.l #$0b000000,fpsr
2873: bsr set_fline
2874: moveq.l #0,d7
2875: lea.l workarea+12(pc),a0
2876: move.l d7,-(a0)
2877: move.l d7,-(a0)
2878: move.l d7,-(a0)
2879: lea.l @f,a3
2880: .dc.l $f2104c26
2881: @@:
2882: bsr restore_fline
2883: fmovem.l fpsr,d0
2884: rol.l #8,d0
2885: or.l d7,d0
2886: move.b d0,(a2)+
2887:
2888: lea.l msg_test_m,a0
2889: moveq.l #7-1,d0
2890: bsr print_result
2891: rts
2892:
2893: test_fscale_mi:
2894: lea.l result(pc),a2
2895: ; FSCALE.B (An)+,FPn
2896: move.b #$04,(a2)+
2897: fmovem.l #$0b000000,fpsr
2898: bsr set_fline
2899: moveq.l #0,d7
2900: lea.l workarea+12(pc),a0
2901: move.l d7,-(a0)
2902: move.l d7,-(a0)
2903: move.l d7,-(a0)
2904: lea.l @f,a3
2905: .dc.l $f2185826
2906: @@:
2907: bsr restore_fline
2908: fmovem.l fpsr,d0
2909: rol.l #8,d0
2910: or.l d7,d0
2911: move.b d0,(a2)+
2912:
2913: ; FSCALE.W (An)+,FPn
2914: move.b #$04,(a2)+
2915: fmovem.l #$0b000000,fpsr
2916: bsr set_fline
2917: moveq.l #0,d7
2918: lea.l workarea+12(pc),a0
2919: move.l d7,-(a0)
2920: move.l d7,-(a0)
2921: move.l d7,-(a0)
2922: lea.l @f,a3
2923: .dc.l $f2185026
2924: @@:
2925: bsr restore_fline
2926: fmovem.l fpsr,d0
2927: rol.l #8,d0
2928: or.l d7,d0
2929: move.b d0,(a2)+
2930:
2931: ; FSCALE.L (An)+,FPn
2932: move.b #$04,(a2)+
2933: fmovem.l #$0b000000,fpsr
2934: bsr set_fline
2935: moveq.l #0,d7
2936: lea.l workarea+12(pc),a0
2937: move.l d7,-(a0)
2938: move.l d7,-(a0)
2939: move.l d7,-(a0)
2940: lea.l @f,a3
2941: .dc.l $f2184026
2942: @@:
2943: bsr restore_fline
2944: fmovem.l fpsr,d0
2945: rol.l #8,d0
2946: or.l d7,d0
2947: move.b d0,(a2)+
2948:
2949: ; FSCALE.S (An)+,FPn
2950: move.b #$04,(a2)+
2951: fmovem.l #$0b000000,fpsr
2952: bsr set_fline
2953: moveq.l #0,d7
2954: lea.l workarea+12(pc),a0
2955: move.l d7,-(a0)
2956: move.l d7,-(a0)
2957: move.l d7,-(a0)
2958: lea.l @f,a3
2959: .dc.l $f2184426
2960: @@:
2961: bsr restore_fline
2962: fmovem.l fpsr,d0
2963: rol.l #8,d0
2964: or.l d7,d0
2965: move.b d0,(a2)+
2966:
2967: ; FSCALE.D (An)+,FPn
2968: move.b #$04,(a2)+
2969: fmovem.l #$0b000000,fpsr
2970: bsr set_fline
2971: moveq.l #0,d7
2972: lea.l workarea+12(pc),a0
2973: move.l d7,-(a0)
2974: move.l d7,-(a0)
2975: move.l d7,-(a0)
2976: lea.l @f,a3
2977: .dc.l $f2185426
2978: @@:
2979: bsr restore_fline
2980: fmovem.l fpsr,d0
2981: rol.l #8,d0
2982: or.l d7,d0
2983: move.b d0,(a2)+
2984:
2985: ; FSCALE.X (An)+,FPn
2986: move.b #$04,(a2)+
2987: fmovem.l #$0b000000,fpsr
2988: bsr set_fline
2989: moveq.l #0,d7
2990: lea.l workarea+12(pc),a0
2991: move.l d7,-(a0)
2992: move.l d7,-(a0)
2993: move.l d7,-(a0)
2994: lea.l @f,a3
2995: .dc.l $f2184826
2996: @@:
2997: bsr restore_fline
2998: fmovem.l fpsr,d0
2999: rol.l #8,d0
3000: or.l d7,d0
3001: move.b d0,(a2)+
3002:
3003: ; FSCALE.P (An)+,FPn
3004: move.b #$04,(a2)+
3005: fmovem.l #$0b000000,fpsr
3006: bsr set_fline
3007: moveq.l #0,d7
3008: lea.l workarea+12(pc),a0
3009: move.l d7,-(a0)
3010: move.l d7,-(a0)
3011: move.l d7,-(a0)
3012: lea.l @f,a3
3013: .dc.l $f2184c26
3014: @@:
3015: bsr restore_fline
3016: fmovem.l fpsr,d0
3017: rol.l #8,d0
3018: or.l d7,d0
3019: move.b d0,(a2)+
3020:
3021: lea.l msg_test_mi,a0
3022: moveq.l #7-1,d0
3023: bsr print_result
3024: rts
3025:
3026: test_fscale_md:
3027: lea.l result(pc),a2
3028: ; FSCALE.B -(An),FPn
3029: move.b #$04,(a2)+
3030: fmovem.l #$0b000000,fpsr
3031: bsr set_fline
3032: moveq.l #0,d7
3033: lea.l workarea(pc),a0
3034: move.l d7,(a0)+
3035: move.l d7,(a0)+
3036: move.l d7,(a0)+
3037: lea.l @f,a3
3038: .dc.l $f2205826
3039: @@:
3040: bsr restore_fline
3041: fmovem.l fpsr,d0
3042: rol.l #8,d0
3043: or.l d7,d0
3044: move.b d0,(a2)+
3045:
3046: ; FSCALE.W -(An),FPn
3047: move.b #$04,(a2)+
3048: fmovem.l #$0b000000,fpsr
3049: bsr set_fline
3050: moveq.l #0,d7
3051: lea.l workarea(pc),a0
3052: move.l d7,(a0)+
3053: move.l d7,(a0)+
3054: move.l d7,(a0)+
3055: lea.l @f,a3
3056: .dc.l $f2205026
3057: @@:
3058: bsr restore_fline
3059: fmovem.l fpsr,d0
3060: rol.l #8,d0
3061: or.l d7,d0
3062: move.b d0,(a2)+
3063:
3064: ; FSCALE.L -(An),FPn
3065: move.b #$04,(a2)+
3066: fmovem.l #$0b000000,fpsr
3067: bsr set_fline
3068: moveq.l #0,d7
3069: lea.l workarea(pc),a0
3070: move.l d7,(a0)+
3071: move.l d7,(a0)+
3072: move.l d7,(a0)+
3073: lea.l @f,a3
3074: .dc.l $f2204026
3075: @@:
3076: bsr restore_fline
3077: fmovem.l fpsr,d0
3078: rol.l #8,d0
3079: or.l d7,d0
3080: move.b d0,(a2)+
3081:
3082: ; FSCALE.S -(An),FPn
3083: move.b #$04,(a2)+
3084: fmovem.l #$0b000000,fpsr
3085: bsr set_fline
3086: moveq.l #0,d7
3087: lea.l workarea(pc),a0
3088: move.l d7,(a0)+
3089: move.l d7,(a0)+
3090: move.l d7,(a0)+
3091: lea.l @f,a3
3092: .dc.l $f2204426
3093: @@:
3094: bsr restore_fline
3095: fmovem.l fpsr,d0
3096: rol.l #8,d0
3097: or.l d7,d0
3098: move.b d0,(a2)+
3099:
3100: ; FSCALE.D -(An),FPn
3101: move.b #$04,(a2)+
3102: fmovem.l #$0b000000,fpsr
3103: bsr set_fline
3104: moveq.l #0,d7
3105: lea.l workarea(pc),a0
3106: move.l d7,(a0)+
3107: move.l d7,(a0)+
3108: move.l d7,(a0)+
3109: lea.l @f,a3
3110: .dc.l $f2205426
3111: @@:
3112: bsr restore_fline
3113: fmovem.l fpsr,d0
3114: rol.l #8,d0
3115: or.l d7,d0
3116: move.b d0,(a2)+
3117:
3118: ; FSCALE.X -(An),FPn
3119: move.b #$04,(a2)+
3120: fmovem.l #$0b000000,fpsr
3121: bsr set_fline
3122: moveq.l #0,d7
3123: lea.l workarea(pc),a0
3124: move.l d7,(a0)+
3125: move.l d7,(a0)+
3126: move.l d7,(a0)+
3127: lea.l @f,a3
3128: .dc.l $f2204826
3129: @@:
3130: bsr restore_fline
3131: fmovem.l fpsr,d0
3132: rol.l #8,d0
3133: or.l d7,d0
3134: move.b d0,(a2)+
3135:
3136: ; FSCALE.P -(An),FPn
3137: move.b #$04,(a2)+
3138: fmovem.l #$0b000000,fpsr
3139: bsr set_fline
3140: moveq.l #0,d7
3141: lea.l workarea(pc),a0
3142: move.l d7,(a0)+
3143: move.l d7,(a0)+
3144: move.l d7,(a0)+
3145: lea.l @f,a3
3146: .dc.l $f2204c26
3147: @@:
3148: bsr restore_fline
3149: fmovem.l fpsr,d0
3150: rol.l #8,d0
3151: or.l d7,d0
3152: move.b d0,(a2)+
3153:
3154: lea.l msg_test_md,a0
3155: moveq.l #7-1,d0
3156: bsr print_result
3157: rts
3158:
3159: test_fscale_r:
3160: lea.l result(pc),a2
3161: ; FSCALE.B d16(An),FPn
3162: move.b #$04,(a2)+
3163: fmovem.l #$0b000000,fpsr
3164: bsr set_fline
3165: moveq.l #0,d7
3166: lea.l workarea+12(pc),a0
3167: move.l d7,-(a0)
3168: move.l d7,-(a0)
3169: move.l d7,-(a0)
3170: lea.l @f,a3
3171: .dc.l $f2285826
3172: .dc.w $0000
3173: @@:
3174: bsr restore_fline
3175: fmovem.l fpsr,d0
3176: rol.l #8,d0
3177: or.l d7,d0
3178: move.b d0,(a2)+
3179:
3180: ; FSCALE.W d16(An),FPn
3181: move.b #$04,(a2)+
3182: fmovem.l #$0b000000,fpsr
3183: bsr set_fline
3184: moveq.l #0,d7
3185: lea.l workarea+12(pc),a0
3186: move.l d7,-(a0)
3187: move.l d7,-(a0)
3188: move.l d7,-(a0)
3189: lea.l @f,a3
3190: .dc.l $f2285026
3191: .dc.w $0000
3192: @@:
3193: bsr restore_fline
3194: fmovem.l fpsr,d0
3195: rol.l #8,d0
3196: or.l d7,d0
3197: move.b d0,(a2)+
3198:
3199: ; FSCALE.L d16(An),FPn
3200: move.b #$04,(a2)+
3201: fmovem.l #$0b000000,fpsr
3202: bsr set_fline
3203: moveq.l #0,d7
3204: lea.l workarea+12(pc),a0
3205: move.l d7,-(a0)
3206: move.l d7,-(a0)
3207: move.l d7,-(a0)
3208: lea.l @f,a3
3209: .dc.l $f2284026
3210: .dc.w $0000
3211: @@:
3212: bsr restore_fline
3213: fmovem.l fpsr,d0
3214: rol.l #8,d0
3215: or.l d7,d0
3216: move.b d0,(a2)+
3217:
3218: ; FSCALE.S d16(An),FPn
3219: move.b #$04,(a2)+
3220: fmovem.l #$0b000000,fpsr
3221: bsr set_fline
3222: moveq.l #0,d7
3223: lea.l workarea+12(pc),a0
3224: move.l d7,-(a0)
3225: move.l d7,-(a0)
3226: move.l d7,-(a0)
3227: lea.l @f,a3
3228: .dc.l $f2284426
3229: .dc.w $0000
3230: @@:
3231: bsr restore_fline
3232: fmovem.l fpsr,d0
3233: rol.l #8,d0
3234: or.l d7,d0
3235: move.b d0,(a2)+
3236:
3237: ; FSCALE.D d16(An),FPn
3238: move.b #$04,(a2)+
3239: fmovem.l #$0b000000,fpsr
3240: bsr set_fline
3241: moveq.l #0,d7
3242: lea.l workarea+12(pc),a0
3243: move.l d7,-(a0)
3244: move.l d7,-(a0)
3245: move.l d7,-(a0)
3246: lea.l @f,a3
3247: .dc.l $f2285426
3248: .dc.w $0000
3249: @@:
3250: bsr restore_fline
3251: fmovem.l fpsr,d0
3252: rol.l #8,d0
3253: or.l d7,d0
3254: move.b d0,(a2)+
3255:
3256: ; FSCALE.X d16(An),FPn
3257: move.b #$04,(a2)+
3258: fmovem.l #$0b000000,fpsr
3259: bsr set_fline
3260: moveq.l #0,d7
3261: lea.l workarea+12(pc),a0
3262: move.l d7,-(a0)
3263: move.l d7,-(a0)
3264: move.l d7,-(a0)
3265: lea.l @f,a3
3266: .dc.l $f2284826
3267: .dc.w $0000
3268: @@:
3269: bsr restore_fline
3270: fmovem.l fpsr,d0
3271: rol.l #8,d0
3272: or.l d7,d0
3273: move.b d0,(a2)+
3274:
3275: ; FSCALE.P d16(An),FPn
3276: move.b #$04,(a2)+
3277: fmovem.l #$0b000000,fpsr
3278: bsr set_fline
3279: moveq.l #0,d7
3280: lea.l workarea+12(pc),a0
3281: move.l d7,-(a0)
3282: move.l d7,-(a0)
3283: move.l d7,-(a0)
3284: lea.l @f,a3
3285: .dc.l $f2284c26
3286: .dc.w $0000
3287: @@:
3288: bsr restore_fline
3289: fmovem.l fpsr,d0
3290: rol.l #8,d0
3291: or.l d7,d0
3292: move.b d0,(a2)+
3293:
3294: lea.l msg_test_r,a0
3295: moveq.l #7-1,d0
3296: bsr print_result
3297: rts
3298:
3299: test_fscale_x:
3300: lea.l result(pc),a2
3301: ; FSCALE.B d8(An,IX),FPn
3302: move.b #$04,(a2)+
3303: fmovem.l #$0b000000,fpsr
3304: bsr set_fline
3305: moveq.l #0,d7
3306: moveq.l #0,d4
3307: lea.l workarea+12(pc),a0
3308: move.l d7,-(a0)
3309: move.l d7,-(a0)
3310: move.l d7,-(a0)
3311: lea.l @f,a3
3312: .dc.l $f2305826
3313: .dc.w $4000
3314: @@:
3315: bsr restore_fline
3316: fmovem.l fpsr,d0
3317: rol.l #8,d0
3318: or.l d7,d0
3319: move.b d0,(a2)+
3320:
3321: ; FSCALE.W d8(An,IX),FPn
3322: move.b #$04,(a2)+
3323: fmovem.l #$0b000000,fpsr
3324: bsr set_fline
3325: moveq.l #0,d7
3326: moveq.l #0,d4
3327: lea.l workarea+12(pc),a0
3328: move.l d7,-(a0)
3329: move.l d7,-(a0)
3330: move.l d7,-(a0)
3331: lea.l @f,a3
3332: .dc.l $f2305026
3333: .dc.w $4000
3334: @@:
3335: bsr restore_fline
3336: fmovem.l fpsr,d0
3337: rol.l #8,d0
3338: or.l d7,d0
3339: move.b d0,(a2)+
3340:
3341: ; FSCALE.L d8(An,IX),FPn
3342: move.b #$04,(a2)+
3343: fmovem.l #$0b000000,fpsr
3344: bsr set_fline
3345: moveq.l #0,d7
3346: moveq.l #0,d4
3347: lea.l workarea+12(pc),a0
3348: move.l d7,-(a0)
3349: move.l d7,-(a0)
3350: move.l d7,-(a0)
3351: lea.l @f,a3
3352: .dc.l $f2304026
3353: .dc.w $4000
3354: @@:
3355: bsr restore_fline
3356: fmovem.l fpsr,d0
3357: rol.l #8,d0
3358: or.l d7,d0
3359: move.b d0,(a2)+
3360:
3361: ; FSCALE.S d8(An,IX),FPn
3362: move.b #$04,(a2)+
3363: fmovem.l #$0b000000,fpsr
3364: bsr set_fline
3365: moveq.l #0,d7
3366: moveq.l #0,d4
3367: lea.l workarea+12(pc),a0
3368: move.l d7,-(a0)
3369: move.l d7,-(a0)
3370: move.l d7,-(a0)
3371: lea.l @f,a3
3372: .dc.l $f2304426
3373: .dc.w $4000
3374: @@:
3375: bsr restore_fline
3376: fmovem.l fpsr,d0
3377: rol.l #8,d0
3378: or.l d7,d0
3379: move.b d0,(a2)+
3380:
3381: ; FSCALE.D d8(An,IX),FPn
3382: move.b #$04,(a2)+
3383: fmovem.l #$0b000000,fpsr
3384: bsr set_fline
3385: moveq.l #0,d7
3386: moveq.l #0,d4
3387: lea.l workarea+12(pc),a0
3388: move.l d7,-(a0)
3389: move.l d7,-(a0)
3390: move.l d7,-(a0)
3391: lea.l @f,a3
3392: .dc.l $f2305426
3393: .dc.w $4000
3394: @@:
3395: bsr restore_fline
3396: fmovem.l fpsr,d0
3397: rol.l #8,d0
3398: or.l d7,d0
3399: move.b d0,(a2)+
3400:
3401: ; FSCALE.X d8(An,IX),FPn
3402: move.b #$04,(a2)+
3403: fmovem.l #$0b000000,fpsr
3404: bsr set_fline
3405: moveq.l #0,d7
3406: moveq.l #0,d4
3407: lea.l workarea+12(pc),a0
3408: move.l d7,-(a0)
3409: move.l d7,-(a0)
3410: move.l d7,-(a0)
3411: lea.l @f,a3
3412: .dc.l $f2304826
3413: .dc.w $4000
3414: @@:
3415: bsr restore_fline
3416: fmovem.l fpsr,d0
3417: rol.l #8,d0
3418: or.l d7,d0
3419: move.b d0,(a2)+
3420:
3421: ; FSCALE.P d8(An,IX),FPn
3422: move.b #$04,(a2)+
3423: fmovem.l #$0b000000,fpsr
3424: bsr set_fline
3425: moveq.l #0,d7
3426: moveq.l #0,d4
3427: lea.l workarea+12(pc),a0
3428: move.l d7,-(a0)
3429: move.l d7,-(a0)
3430: move.l d7,-(a0)
3431: lea.l @f,a3
3432: .dc.l $f2304c26
3433: .dc.w $4000
3434: @@:
3435: bsr restore_fline
3436: fmovem.l fpsr,d0
3437: rol.l #8,d0
3438: or.l d7,d0
3439: move.b d0,(a2)+
3440:
3441: lea.l msg_test_x,a0
3442: moveq.l #7-1,d0
3443: bsr print_result
3444: rts
3445:
3446: test_fscale_p:
3447: lea.l result(pc),a2
3448: ; FSCALE.B (PC),FPn
3449: move.b #$04,(a2)+
3450: fmovem.l #$0b000000,fpsr
3451: bsr set_fline
3452: moveq.l #0,d7
3453: bra @f
3454: .dc.l 0, 0, 0
3455: @@:
3456: lea.l @f,a3
3457: .dc.l $f23a5826
3458: .dc.w -4-6-12
3459: @@:
3460: bsr restore_fline
3461: fmovem.l fpsr,d0
3462: rol.l #8,d0
3463: or.l d7,d0
3464: move.b d0,(a2)+
3465:
3466: ; FSCALE.W (PC),FPn
3467: move.b #$04,(a2)+
3468: fmovem.l #$0b000000,fpsr
3469: bsr set_fline
3470: moveq.l #0,d7
3471: bra @f
3472: .dc.l 0, 0, 0
3473: @@:
3474: lea.l @f,a3
3475: .dc.l $f23a5026
3476: .dc.w -4-6-12
3477: @@:
3478: bsr restore_fline
3479: fmovem.l fpsr,d0
3480: rol.l #8,d0
3481: or.l d7,d0
3482: move.b d0,(a2)+
3483:
3484: ; FSCALE.L (PC),FPn
3485: move.b #$04,(a2)+
3486: fmovem.l #$0b000000,fpsr
3487: bsr set_fline
3488: moveq.l #0,d7
3489: bra @f
3490: .dc.l 0, 0, 0
3491: @@:
3492: lea.l @f,a3
3493: .dc.l $f23a4026
3494: .dc.w -4-6-12
3495: @@:
3496: bsr restore_fline
3497: fmovem.l fpsr,d0
3498: rol.l #8,d0
3499: or.l d7,d0
3500: move.b d0,(a2)+
3501:
3502: ; FSCALE.S (PC),FPn
3503: move.b #$04,(a2)+
3504: fmovem.l #$0b000000,fpsr
3505: bsr set_fline
3506: moveq.l #0,d7
3507: bra @f
3508: .dc.l 0, 0, 0
3509: @@:
3510: lea.l @f,a3
3511: .dc.l $f23a4426
3512: .dc.w -4-6-12
3513: @@:
3514: bsr restore_fline
3515: fmovem.l fpsr,d0
3516: rol.l #8,d0
3517: or.l d7,d0
3518: move.b d0,(a2)+
3519:
3520: ; FSCALE.D (PC),FPn
3521: move.b #$04,(a2)+
3522: fmovem.l #$0b000000,fpsr
3523: bsr set_fline
3524: moveq.l #0,d7
3525: bra @f
3526: .dc.l 0, 0, 0
3527: @@:
3528: lea.l @f,a3
3529: .dc.l $f23a5426
3530: .dc.w -4-6-12
3531: @@:
3532: bsr restore_fline
3533: fmovem.l fpsr,d0
3534: rol.l #8,d0
3535: or.l d7,d0
3536: move.b d0,(a2)+
3537:
3538: ; FSCALE.X (PC),FPn
3539: move.b #$04,(a2)+
3540: fmovem.l #$0b000000,fpsr
3541: bsr set_fline
3542: moveq.l #0,d7
3543: bra @f
3544: .dc.l 0, 0, 0
3545: @@:
3546: lea.l @f,a3
3547: .dc.l $f23a4826
3548: .dc.w -4-6-12
3549: @@:
3550: bsr restore_fline
3551: fmovem.l fpsr,d0
3552: rol.l #8,d0
3553: or.l d7,d0
3554: move.b d0,(a2)+
3555:
3556: ; FSCALE.P (PC),FPn
3557: move.b #$04,(a2)+
3558: fmovem.l #$0b000000,fpsr
3559: bsr set_fline
3560: moveq.l #0,d7
3561: bra @f
3562: .dc.l 0, 0, 0
3563: @@:
3564: lea.l @f,a3
3565: .dc.l $f23a4c26
3566: .dc.w -4-6-12
3567: @@:
3568: bsr restore_fline
3569: fmovem.l fpsr,d0
3570: rol.l #8,d0
3571: or.l d7,d0
3572: move.b d0,(a2)+
3573:
3574: lea.l msg_test_p,a0
3575: moveq.l #7-1,d0
3576: bsr print_result
3577: rts
3578:
3579: test_fscale_i:
3580: lea.l result(pc),a2
3581: ; FSCALE.B #imm,FPn
3582: move.b #$04,(a2)+
3583: fmovem.l #$0b000000,fpsr
3584: bsr set_fline
3585: moveq.l #0,d7
3586: lea.l @f,a3
3587: .dc.l $f23c5826
3588: .dc.w 0
3589: @@:
3590: bsr restore_fline
3591: fmovem.l fpsr,d0
3592: rol.l #8,d0
3593: or.l d7,d0
3594: move.b d0,(a2)+
3595:
3596: ; FSCALE.W #imm,FPn
3597: move.b #$04,(a2)+
3598: fmovem.l #$0b000000,fpsr
3599: bsr set_fline
3600: moveq.l #0,d7
3601: lea.l @f,a3
3602: .dc.l $f23c5026
3603: .dc.w 0
3604: @@:
3605: bsr restore_fline
3606: fmovem.l fpsr,d0
3607: rol.l #8,d0
3608: or.l d7,d0
3609: move.b d0,(a2)+
3610:
3611: ; FSCALE.L #imm,FPn
3612: move.b #$04,(a2)+
3613: fmovem.l #$0b000000,fpsr
3614: bsr set_fline
3615: moveq.l #0,d7
3616: lea.l @f,a3
3617: .dc.l $f23c4026
3618: .dc.l 0
3619: @@:
3620: bsr restore_fline
3621: fmovem.l fpsr,d0
3622: rol.l #8,d0
3623: or.l d7,d0
3624: move.b d0,(a2)+
3625:
3626: ; FSCALE.S #imm,FPn
3627: move.b #$04,(a2)+
3628: fmovem.l #$0b000000,fpsr
3629: bsr set_fline
3630: moveq.l #0,d7
3631: lea.l @f,a3
3632: .dc.l $f23c4426
3633: .dc.l 0
3634: @@:
3635: bsr restore_fline
3636: fmovem.l fpsr,d0
3637: rol.l #8,d0
3638: or.l d7,d0
3639: move.b d0,(a2)+
3640:
3641: ; FSCALE.D #imm,FPn
3642: move.b #$04,(a2)+
3643: fmovem.l #$0b000000,fpsr
3644: bsr set_fline
3645: moveq.l #0,d7
3646: lea.l @f,a3
3647: .dc.l $f23c5426
3648: .dc.l 0, 0
3649: @@:
3650: bsr restore_fline
3651: fmovem.l fpsr,d0
3652: rol.l #8,d0
3653: or.l d7,d0
3654: move.b d0,(a2)+
3655:
3656: ; FSCALE.X #imm,FPn
3657: move.b #$04,(a2)+
3658: fmovem.l #$0b000000,fpsr
3659: bsr set_fline
3660: moveq.l #0,d7
3661: lea.l @f,a3
3662: .dc.l $f23c4826
3663: .dc.l 0, 0, 0
3664: @@:
3665: bsr restore_fline
3666: fmovem.l fpsr,d0
3667: rol.l #8,d0
3668: or.l d7,d0
3669: move.b d0,(a2)+
3670:
3671: ; FSCALE.P #imm,FPn
3672: move.b #$04,(a2)+
3673: fmovem.l #$0b000000,fpsr
3674: bsr set_fline
3675: moveq.l #0,d7
3676: lea.l @f,a3
3677: .dc.l $f23c4c26
3678: .dc.l 0, 0, 0
3679: @@:
3680: bsr restore_fline
3681: fmovem.l fpsr,d0
3682: rol.l #8,d0
3683: or.l d7,d0
3684: move.b d0,(a2)+
3685:
3686: lea.l msg_test_i,a0
3687: moveq.l #7-1,d0
3688: bsr print_result
3689: rts
3690:
3691: test_fscale_o:
3692: lea.l result(pc),a2
3693: ; FSCALE.B 075,FPn
3694: move.b #$1b,(a2)+
3695: fmovem.l #$0b000000,fpsr
3696: bsr set_fline
3697: moveq.l #0,d7
3698: lea.l @f,a3
3699: .dc.l $f23d5826
3700: @@:
3701: bsr restore_fline
3702: fmovem.l fpsr,d0
3703: rol.l #8,d0
3704: or.l d7,d0
3705: move.b d0,(a2)+
3706:
3707: ; FSCALE.W 075,FPn
3708: move.b #$1b,(a2)+
3709: fmovem.l #$0b000000,fpsr
3710: bsr set_fline
3711: moveq.l #0,d7
3712: lea.l @f,a3
3713: .dc.l $f23d5026
3714: @@:
3715: bsr restore_fline
3716: fmovem.l fpsr,d0
3717: rol.l #8,d0
3718: or.l d7,d0
3719: move.b d0,(a2)+
3720:
3721: ; FSCALE.L 075,FPn
3722: move.b #$1b,(a2)+
3723: fmovem.l #$0b000000,fpsr
3724: bsr set_fline
3725: moveq.l #0,d7
3726: lea.l @f,a3
3727: .dc.l $f23d4026
3728: @@:
3729: bsr restore_fline
3730: fmovem.l fpsr,d0
3731: rol.l #8,d0
3732: or.l d7,d0
3733: move.b d0,(a2)+
3734:
3735: ; FSCALE.S 075,FPn
3736: move.b #$1b,(a2)+
3737: fmovem.l #$0b000000,fpsr
3738: bsr set_fline
3739: moveq.l #0,d7
3740: lea.l @f,a3
3741: .dc.l $f23d4426
3742: @@:
3743: bsr restore_fline
3744: fmovem.l fpsr,d0
3745: rol.l #8,d0
3746: or.l d7,d0
3747: move.b d0,(a2)+
3748:
3749: ; FSCALE.D 075,FPn
3750: move.b #$1b,(a2)+
3751: fmovem.l #$0b000000,fpsr
3752: bsr set_fline
3753: moveq.l #0,d7
3754: lea.l @f,a3
3755: .dc.l $f23d5426
3756: @@:
3757: bsr restore_fline
3758: fmovem.l fpsr,d0
3759: rol.l #8,d0
3760: or.l d7,d0
3761: move.b d0,(a2)+
3762:
3763: ; FSCALE.X 075,FPn
3764: move.b #$1b,(a2)+
3765: fmovem.l #$0b000000,fpsr
3766: bsr set_fline
3767: moveq.l #0,d7
3768: lea.l @f,a3
3769: .dc.l $f23d4826
3770: @@:
3771: bsr restore_fline
3772: fmovem.l fpsr,d0
3773: rol.l #8,d0
3774: or.l d7,d0
3775: move.b d0,(a2)+
3776:
3777: ; FSCALE.P 075,FPn
3778: move.b #$1b,(a2)+
3779: fmovem.l #$0b000000,fpsr
3780: bsr set_fline
3781: moveq.l #0,d7
3782: lea.l @f,a3
3783: .dc.l $f23d4c26
3784: @@:
3785: bsr restore_fline
3786: fmovem.l fpsr,d0
3787: rol.l #8,d0
3788: or.l d7,d0
3789: move.b d0,(a2)+
3790:
3791: lea.l msg_test_o,a0
3792: moveq.l #7-1,d0
3793: bsr print_result
3794: rts
3795:
3796: test_fscc_d:
3797: lea.l result(pc),a2
3798: ; FScc.B Dn
3799: move.b #$0b,(a2)+
3800: fmovem.l #$0b000000,fpsr
3801: bsr set_fline
3802: moveq.l #0,d7
3803: lea.l @f,a3
3804: .dc.l $f2460000
3805: @@:
3806: bsr restore_fline
3807: fmovem.l fpsr,d0
3808: rol.l #8,d0
3809: or.l d7,d0
3810: move.b d0,(a2)+
3811:
3812: lea.l msg_test_d,a0
3813: moveq.l #1-1,d0
3814: bsr print_result
3815: rts
3816:
3817: test_fscc_m:
3818: lea.l result(pc),a2
3819: ; FScc.B (An)
3820: move.b #$0b,(a2)+
3821: fmovem.l #$0b000000,fpsr
3822: bsr set_fline
3823: moveq.l #0,d7
3824: lea.l workarea(pc),a0
3825: lea.l @f,a3
3826: .dc.l $f2500000
3827: @@:
3828: bsr restore_fline
3829: fmovem.l fpsr,d0
3830: rol.l #8,d0
3831: or.l d7,d0
3832: move.b d0,(a2)+
3833:
3834: lea.l msg_test_m,a0
3835: moveq.l #1-1,d0
3836: bsr print_result
3837: rts
3838:
3839: test_fscc_mi:
3840: lea.l result(pc),a2
3841: ; FScc.B (An)+
3842: move.b #$0b,(a2)+
3843: fmovem.l #$0b000000,fpsr
3844: bsr set_fline
3845: moveq.l #0,d7
3846: lea.l workarea(pc),a0
3847: lea.l @f,a3
3848: .dc.l $f2580000
3849: @@:
3850: bsr restore_fline
3851: fmovem.l fpsr,d0
3852: rol.l #8,d0
3853: or.l d7,d0
3854: move.b d0,(a2)+
3855:
3856: lea.l msg_test_mi,a0
3857: moveq.l #1-1,d0
3858: bsr print_result
3859: rts
3860:
3861: test_fscc_md:
3862: lea.l result(pc),a2
3863: ; FScc.B -(An)
3864: move.b #$0b,(a2)+
3865: fmovem.l #$0b000000,fpsr
3866: bsr set_fline
3867: moveq.l #0,d7
3868: lea.l workarea+12(pc),a0
3869: lea.l @f,a3
3870: .dc.l $f2600000
3871: @@:
3872: bsr restore_fline
3873: fmovem.l fpsr,d0
3874: rol.l #8,d0
3875: or.l d7,d0
3876: move.b d0,(a2)+
3877:
3878: lea.l msg_test_md,a0
3879: moveq.l #1-1,d0
3880: bsr print_result
3881: rts
3882:
3883: test_fscc_r:
3884: lea.l result(pc),a2
3885: ; FScc.B d16(An)
3886: move.b #$0b,(a2)+
3887: fmovem.l #$0b000000,fpsr
3888: bsr set_fline
3889: moveq.l #0,d7
3890: lea.l workarea(pc),a0
3891: lea.l @f,a3
3892: .dc.l $f2680000
3893: .dc.w $0000
3894: @@:
3895: bsr restore_fline
3896: fmovem.l fpsr,d0
3897: rol.l #8,d0
3898: or.l d7,d0
3899: move.b d0,(a2)+
3900:
3901: lea.l msg_test_r,a0
3902: moveq.l #1-1,d0
3903: bsr print_result
3904: rts
3905:
3906: test_fscc_x:
3907: lea.l result(pc),a2
3908: ; FScc.B d8(An,IX)
3909: move.b #$0b,(a2)+
3910: fmovem.l #$0b000000,fpsr
3911: bsr set_fline
3912: moveq.l #0,d7
3913: moveq.l #0,d4
3914: lea.l workarea(pc),a0
3915: lea.l @f,a3
3916: .dc.l $f2700000
3917: .dc.w $4000
3918: @@:
3919: bsr restore_fline
3920: fmovem.l fpsr,d0
3921: rol.l #8,d0
3922: or.l d7,d0
3923: move.b d0,(a2)+
3924:
3925: lea.l msg_test_x,a0
3926: moveq.l #1-1,d0
3927: bsr print_result
3928: rts
3929:
3930: test_fscc_o:
3931: lea.l result(pc),a2
3932: ; FScc.B 075
3933: move.b #$1b,(a2)+
3934: fmovem.l #$0b000000,fpsr
3935: bsr set_fline
3936: moveq.l #0,d7
3937: lea.l @f,a3
3938: .dc.l $f27d0000
3939: @@:
3940: bsr restore_fline
3941: fmovem.l fpsr,d0
3942: rol.l #8,d0
3943: or.l d7,d0
3944: move.b d0,(a2)+
3945:
3946: lea.l msg_test_o,a0
3947: moveq.l #1-1,d0
3948: bsr print_result
3949: rts
3950:
3951: test_fmovem_rm_d:
3952: lea.l result(pc),a2
3953: ; FMOVEM.X FPn,Dn
3954: move.b #$1b,(a2)+
3955: fmovem.l #$0b000000,fpsr
3956: bsr set_fline
3957: moveq.l #0,d7
3958: lea.l @f,a3
3959: .dc.l $f206f001
3960: @@:
3961: bsr restore_fline
3962: fmovem.l fpsr,d0
3963: rol.l #8,d0
3964: or.l d7,d0
3965: move.b d0,(a2)+
3966:
3967: lea.l msg_test_d,a0
3968: moveq.l #1-1,d0
3969: bsr print_result
3970: rts
3971:
3972: test_fmovem_rm_a:
3973: lea.l result(pc),a2
3974: ; FMOVEM.X FPn,An
3975: move.b #$1b,(a2)+
3976: fmovem.l #$0b000000,fpsr
3977: bsr set_fline
3978: moveq.l #0,d7
3979: lea.l @f,a3
3980: .dc.l $f208f001
3981: @@:
3982: bsr restore_fline
3983: fmovem.l fpsr,d0
3984: rol.l #8,d0
3985: or.l d7,d0
3986: move.b d0,(a2)+
3987:
3988: lea.l msg_test_a,a0
3989: moveq.l #1-1,d0
3990: bsr print_result
3991: rts
3992:
3993: test_fmovem_rm_m:
3994: lea.l result(pc),a2
3995: ; FMOVEM.X FPn,(An)
3996: move.b #$0b,(a2)+
3997: fmovem.l #$0b000000,fpsr
3998: bsr set_fline
3999: moveq.l #0,d7
4000: lea.l workarea(pc),a0
4001: lea.l @f,a3
4002: .dc.l $f210f001
4003: @@:
4004: bsr restore_fline
4005: fmovem.l fpsr,d0
4006: rol.l #8,d0
4007: or.l d7,d0
4008: move.b d0,(a2)+
4009:
4010: lea.l msg_test_m,a0
4011: moveq.l #1-1,d0
4012: bsr print_result
4013: rts
4014:
4015: test_fmovem_rm_mi:
4016: lea.l result(pc),a2
4017: ; FMOVEM.X FPn,(An)+
4018: move.b #$1b,(a2)+
4019: fmovem.l #$0b000000,fpsr
4020: bsr set_fline
4021: moveq.l #0,d7
4022: lea.l workarea(pc),a0
4023: lea.l @f,a3
4024: .dc.l $f218f001
4025: @@:
4026: bsr restore_fline
4027: fmovem.l fpsr,d0
4028: rol.l #8,d0
4029: or.l d7,d0
4030: move.b d0,(a2)+
4031:
4032: lea.l msg_test_mi,a0
4033: moveq.l #1-1,d0
4034: bsr print_result
4035: rts
4036:
4037: test_fmovem_rm_md:
4038: lea.l result(pc),a2
4039: ; FMOVEM.X FPn,-(An)
4040: move.b #$0b,(a2)+
4041: fmovem.l #$0b000000,fpsr
4042: bsr set_fline
4043: moveq.l #0,d7
4044: lea.l workarea+12(pc),a0
4045: lea.l @f,a3
4046: .dc.l $f220e001
4047: @@:
4048: bsr restore_fline
4049: fmovem.l fpsr,d0
4050: rol.l #8,d0
4051: or.l d7,d0
4052: move.b d0,(a2)+
4053:
4054: lea.l msg_test_md,a0
4055: moveq.l #1-1,d0
4056: bsr print_result
4057: rts
4058:
4059: test_fmovem_rm_r:
4060: lea.l result(pc),a2
4061: ; FMOVEM.X FPn,d16(An)
4062: move.b #$0b,(a2)+
4063: fmovem.l #$0b000000,fpsr
4064: bsr set_fline
4065: moveq.l #0,d7
4066: lea.l workarea(pc),a0
4067: lea.l @f,a3
4068: .dc.l $f228f001
4069: .dc.w $0000
4070: @@:
4071: bsr restore_fline
4072: fmovem.l fpsr,d0
4073: rol.l #8,d0
4074: or.l d7,d0
4075: move.b d0,(a2)+
4076:
4077: lea.l msg_test_r,a0
4078: moveq.l #1-1,d0
4079: bsr print_result
4080: rts
4081:
4082: test_fmovem_rm_x:
4083: lea.l result(pc),a2
4084: ; FMOVEM.X FPn,d8(An,IX)
4085: move.b #$0b,(a2)+
4086: fmovem.l #$0b000000,fpsr
4087: bsr set_fline
4088: moveq.l #0,d7
4089: moveq.l #0,d4
4090: lea.l workarea(pc),a0
4091: lea.l @f,a3
4092: .dc.l $f230f001
4093: .dc.w $4000
4094: @@:
4095: bsr restore_fline
4096: fmovem.l fpsr,d0
4097: rol.l #8,d0
4098: or.l d7,d0
4099: move.b d0,(a2)+
4100:
4101: lea.l msg_test_x,a0
4102: moveq.l #1-1,d0
4103: bsr print_result
4104: rts
4105:
4106: test_fmovem_rm_p:
4107: lea.l result(pc),a2
4108: ; FMOVEM.X FPn,(PC)
4109: move.b #$1b,(a2)+
4110: fmovem.l #$0b000000,fpsr
4111: bsr set_fline
4112: moveq.l #0,d7
4113: lea.l @f,a3
4114: .dc.l $f23af001
4115: @@:
4116: bsr restore_fline
4117: fmovem.l fpsr,d0
4118: rol.l #8,d0
4119: or.l d7,d0
4120: move.b d0,(a2)+
4121:
4122: lea.l msg_test_p,a0
4123: moveq.l #1-1,d0
4124: bsr print_result
4125: rts
4126:
4127: test_fmovem_rm_i:
4128: lea.l result(pc),a2
4129: ; FMOVEM.X FPn,#imm
4130: move.b #$1b,(a2)+
4131: fmovem.l #$0b000000,fpsr
4132: bsr set_fline
4133: moveq.l #0,d7
4134: lea.l @f,a3
4135: .dc.l $f23cf001
4136: @@:
4137: bsr restore_fline
4138: fmovem.l fpsr,d0
4139: rol.l #8,d0
4140: or.l d7,d0
4141: move.b d0,(a2)+
4142:
4143: lea.l msg_test_i,a0
4144: moveq.l #1-1,d0
4145: bsr print_result
4146: rts
4147:
4148: test_fmovem_rm_o:
4149: lea.l result(pc),a2
4150: ; FMOVEM.X FPn,075
4151: move.b #$1b,(a2)+
4152: fmovem.l #$0b000000,fpsr
4153: bsr set_fline
4154: moveq.l #0,d7
4155: lea.l @f,a3
4156: .dc.l $f23df001
4157: @@:
4158: bsr restore_fline
4159: fmovem.l fpsr,d0
4160: rol.l #8,d0
4161: or.l d7,d0
4162: move.b d0,(a2)+
4163:
4164: lea.l msg_test_o,a0
4165: moveq.l #1-1,d0
4166: bsr print_result
4167: rts
4168:
4169: test_fmovem_mr_d:
4170: lea.l result(pc),a2
4171: ; FMOVEM.X Dn,FPn
4172: move.b #$1b,(a2)+
4173: fmovem.l #$0b000000,fpsr
4174: bsr set_fline
4175: moveq.l #0,d7
4176: moveq.l #0,d6
4177: lea.l @f,a3
4178: .dc.l $f206d001
4179: @@:
4180: bsr restore_fline
4181: fmovem.l fpsr,d0
4182: rol.l #8,d0
4183: or.l d7,d0
4184: move.b d0,(a2)+
4185:
4186: lea.l msg_test_d,a0
4187: moveq.l #1-1,d0
4188: bsr print_result
4189: rts
4190:
4191: test_fmovem_mr_a:
4192: lea.l result(pc),a2
4193: ; FMOVEM.X An,FPn
4194: move.b #$1b,(a2)+
4195: fmovem.l #$0b000000,fpsr
4196: bsr set_fline
4197: moveq.l #0,d7
4198: lea.l @f,a3
4199: .dc.l $f208d001
4200: @@:
4201: bsr restore_fline
4202: fmovem.l fpsr,d0
4203: rol.l #8,d0
4204: or.l d7,d0
4205: move.b d0,(a2)+
4206:
4207: lea.l msg_test_a,a0
4208: moveq.l #1-1,d0
4209: bsr print_result
4210: rts
4211:
4212: test_fmovem_mr_m:
4213: lea.l result(pc),a2
4214: ; FMOVEM.X (An),FPn
4215: move.b #$0b,(a2)+
4216: fmovem.l #$0b000000,fpsr
4217: bsr set_fline
4218: moveq.l #0,d7
4219: lea.l workarea+12(pc),a0
4220: move.l d7,-(a0)
4221: move.l d7,-(a0)
4222: move.l d7,-(a0)
4223: lea.l @f,a3
4224: .dc.l $f210d001
4225: @@:
4226: bsr restore_fline
4227: fmovem.l fpsr,d0
4228: rol.l #8,d0
4229: or.l d7,d0
4230: move.b d0,(a2)+
4231:
4232: lea.l msg_test_m,a0
4233: moveq.l #1-1,d0
4234: bsr print_result
4235: rts
4236:
4237: test_fmovem_mr_mi:
4238: lea.l result(pc),a2
4239: ; FMOVEM.X (An)+,FPn
4240: move.b #$0b,(a2)+
4241: fmovem.l #$0b000000,fpsr
4242: bsr set_fline
4243: moveq.l #0,d7
4244: lea.l workarea+12(pc),a0
4245: move.l d7,-(a0)
4246: move.l d7,-(a0)
4247: move.l d7,-(a0)
4248: lea.l @f,a3
4249: .dc.l $f218d001
4250: @@:
4251: bsr restore_fline
4252: fmovem.l fpsr,d0
4253: rol.l #8,d0
4254: or.l d7,d0
4255: move.b d0,(a2)+
4256:
4257: lea.l msg_test_mi,a0
4258: moveq.l #1-1,d0
4259: bsr print_result
4260: rts
4261:
4262: test_fmovem_mr_md:
4263: lea.l result(pc),a2
4264: ; FMOVEM.X -(An),FPn
4265: move.b #$1b,(a2)+
4266: fmovem.l #$0b000000,fpsr
4267: bsr set_fline
4268: moveq.l #0,d7
4269: lea.l workarea(pc),a0
4270: move.l d7,(a0)+
4271: move.l d7,(a0)+
4272: move.l d7,(a0)+
4273: lea.l @f,a3
4274: .dc.l $f220c001
4275: @@:
4276: bsr restore_fline
4277: fmovem.l fpsr,d0
4278: rol.l #8,d0
4279: or.l d7,d0
4280: move.b d0,(a2)+
4281:
4282: lea.l msg_test_md,a0
4283: moveq.l #1-1,d0
4284: bsr print_result
4285: rts
4286:
4287: test_fmovem_mr_r:
4288: lea.l result(pc),a2
4289: ; FMOVEM.X d16(An),FPn
4290: move.b #$0b,(a2)+
4291: fmovem.l #$0b000000,fpsr
4292: bsr set_fline
4293: moveq.l #0,d7
4294: lea.l workarea+12(pc),a0
4295: move.l d7,-(a0)
4296: move.l d7,-(a0)
4297: move.l d7,-(a0)
4298: lea.l @f,a3
4299: .dc.l $f228d001
4300: .dc.w $0000
4301: @@:
4302: bsr restore_fline
4303: fmovem.l fpsr,d0
4304: rol.l #8,d0
4305: or.l d7,d0
4306: move.b d0,(a2)+
4307:
4308: lea.l msg_test_r,a0
4309: moveq.l #1-1,d0
4310: bsr print_result
4311: rts
4312:
4313: test_fmovem_mr_x:
4314: lea.l result(pc),a2
4315: ; FMOVEM.X d8(An,IX),FPn
4316: move.b #$0b,(a2)+
4317: fmovem.l #$0b000000,fpsr
4318: bsr set_fline
4319: moveq.l #0,d7
4320: moveq.l #0,d4
4321: lea.l workarea+12(pc),a0
4322: move.l d7,-(a0)
4323: move.l d7,-(a0)
4324: move.l d7,-(a0)
4325: lea.l @f,a3
4326: .dc.l $f230d001
4327: .dc.w $4000
4328: @@:
4329: bsr restore_fline
4330: fmovem.l fpsr,d0
4331: rol.l #8,d0
4332: or.l d7,d0
4333: move.b d0,(a2)+
4334:
4335: lea.l msg_test_x,a0
4336: moveq.l #1-1,d0
4337: bsr print_result
4338: rts
4339:
4340: test_fmovem_mr_p:
4341: lea.l result(pc),a2
4342: ; FMOVEM.X (PC),FPn
4343: move.b #$0b,(a2)+
4344: fmovem.l #$0b000000,fpsr
4345: bsr set_fline
4346: moveq.l #0,d7
4347: bra @f
4348: .dc.l 0, 0, 0
4349: @@:
4350: lea.l @f,a3
4351: .dc.l $f23ad001
4352: .dc.w -4-6-12
4353: @@:
4354: bsr restore_fline
4355: fmovem.l fpsr,d0
4356: rol.l #8,d0
4357: or.l d7,d0
4358: move.b d0,(a2)+
4359:
4360: lea.l msg_test_p,a0
4361: moveq.l #1-1,d0
4362: bsr print_result
4363: rts
4364:
4365: test_fmovem_mr_i:
4366: lea.l result(pc),a2
4367: ; FMOVEM.X #imm,FPn
4368: move.b #$1b,(a2)+
4369: fmovem.l #$0b000000,fpsr
4370: bsr set_fline
4371: moveq.l #0,d7
4372: lea.l @f,a3
4373: .dc.l $f23cd001
4374: .dc.l 0, 0, 0
4375: @@:
4376: bsr restore_fline
4377: fmovem.l fpsr,d0
4378: rol.l #8,d0
4379: or.l d7,d0
4380: move.b d0,(a2)+
4381:
4382: lea.l msg_test_i,a0
4383: moveq.l #1-1,d0
4384: bsr print_result
4385: rts
4386:
4387: test_fmovem_mr_o:
4388: lea.l result(pc),a2
4389: ; FMOVEM.X 075,FPn
4390: move.b #$1b,(a2)+
4391: fmovem.l #$0b000000,fpsr
4392: bsr set_fline
4393: moveq.l #0,d7
4394: lea.l @f,a3
4395: .dc.l $f23dd001
4396: @@:
4397: bsr restore_fline
4398: fmovem.l fpsr,d0
4399: rol.l #8,d0
4400: or.l d7,d0
4401: move.b d0,(a2)+
4402:
4403: lea.l msg_test_o,a0
4404: moveq.l #1-1,d0
4405: bsr print_result
4406: rts
4407:
4408: test_fmovem_cm_d:
4409: lea.l result(pc),a2
4410: ; FMOVEM.L FPCR,Dn
4411: move.b #$0b,(a2)+
4412: fmovem.l #$0b000000,fpsr
4413: bsr set_fline
4414: moveq.l #0,d7
4415: lea.l @f,a3
4416: .dc.l $f206b000
4417: @@:
4418: bsr restore_fline
4419: fmovem.l fpsr,d0
4420: rol.l #8,d0
4421: or.l d7,d0
4422: move.b d0,(a2)+
4423:
4424: ; FMOVEM.L FPSR,Dn
4425: move.b #$0b,(a2)+
4426: fmovem.l #$0b000000,fpsr
4427: bsr set_fline
4428: moveq.l #0,d7
4429: lea.l @f,a3
4430: .dc.l $f206a800
4431: @@:
4432: bsr restore_fline
4433: fmovem.l fpsr,d0
4434: rol.l #8,d0
4435: or.l d7,d0
4436: move.b d0,(a2)+
4437:
4438: ; FMOVEM.L FPIAR,Dn
4439: move.b #$0b,(a2)+
4440: fmovem.l #$0b000000,fpsr
4441: bsr set_fline
4442: moveq.l #0,d7
4443: lea.l @f,a3
4444: .dc.l $f206a400
4445: @@:
4446: bsr restore_fline
4447: fmovem.l fpsr,d0
4448: rol.l #8,d0
4449: or.l d7,d0
4450: move.b d0,(a2)+
4451:
4452: ; FMOVEM.L FPSR/FPIAR,Dn
4453: move.b #$1b,(a2)+
4454: fmovem.l #$0b000000,fpsr
4455: bsr set_fline
4456: moveq.l #0,d7
4457: lea.l @f,a3
4458: .dc.l $f206ac00
4459: @@:
4460: bsr restore_fline
4461: fmovem.l fpsr,d0
4462: rol.l #8,d0
4463: or.l d7,d0
4464: move.b d0,(a2)+
4465:
4466: lea.l msg_test_d,a0
4467: moveq.l #4-1,d0
4468: bsr print_result
4469: rts
4470:
4471: test_fmovem_cm_a:
4472: lea.l result(pc),a2
4473: ; FMOVEM.L FPCR,An
4474: move.b #$1b,(a2)+
4475: fmovem.l #$0b000000,fpsr
4476: bsr set_fline
4477: moveq.l #0,d7
4478: lea.l @f,a3
4479: .dc.l $f208b000
4480: @@:
4481: bsr restore_fline
4482: fmovem.l fpsr,d0
4483: rol.l #8,d0
4484: or.l d7,d0
4485: move.b d0,(a2)+
4486:
4487: ; FMOVEM.L FPSR,An
4488: move.b #$1b,(a2)+
4489: fmovem.l #$0b000000,fpsr
4490: bsr set_fline
4491: moveq.l #0,d7
4492: lea.l @f,a3
4493: .dc.l $f208a800
4494: @@:
4495: bsr restore_fline
4496: fmovem.l fpsr,d0
4497: rol.l #8,d0
4498: or.l d7,d0
4499: move.b d0,(a2)+
4500:
4501: ; FMOVEM.L FPIAR,An
4502: move.b #$0b,(a2)+
4503: fmovem.l #$0b000000,fpsr
4504: bsr set_fline
4505: moveq.l #0,d7
4506: lea.l @f,a3
4507: .dc.l $f208a400
4508: @@:
4509: bsr restore_fline
4510: fmovem.l fpsr,d0
4511: rol.l #8,d0
4512: or.l d7,d0
4513: move.b d0,(a2)+
4514:
4515: ; FMOVEM.L FPSR/FPIAR,An
4516: move.b #$1b,(a2)+
4517: fmovem.l #$0b000000,fpsr
4518: bsr set_fline
4519: moveq.l #0,d7
4520: lea.l @f,a3
4521: .dc.l $f208ac00
4522: @@:
4523: bsr restore_fline
4524: fmovem.l fpsr,d0
4525: rol.l #8,d0
4526: or.l d7,d0
4527: move.b d0,(a2)+
4528:
4529: lea.l msg_test_a,a0
4530: moveq.l #4-1,d0
4531: bsr print_result
4532: rts
4533:
4534: test_fmovem_cm_m:
4535: lea.l result(pc),a2
4536: ; FMOVEM.L FPCR,(An)
4537: move.b #$0b,(a2)+
4538: fmovem.l #$0b000000,fpsr
4539: bsr set_fline
4540: moveq.l #0,d7
4541: lea.l workarea(pc),a0
4542: lea.l @f,a3
4543: .dc.l $f210b000
4544: @@:
4545: bsr restore_fline
4546: fmovem.l fpsr,d0
4547: rol.l #8,d0
4548: or.l d7,d0
4549: move.b d0,(a2)+
4550:
4551: ; FMOVEM.L FPSR,(An)
4552: move.b #$0b,(a2)+
4553: fmovem.l #$0b000000,fpsr
4554: bsr set_fline
4555: moveq.l #0,d7
4556: lea.l workarea(pc),a0
4557: lea.l @f,a3
4558: .dc.l $f210a800
4559: @@:
4560: bsr restore_fline
4561: fmovem.l fpsr,d0
4562: rol.l #8,d0
4563: or.l d7,d0
4564: move.b d0,(a2)+
4565:
4566: ; FMOVEM.L FPIAR,(An)
4567: move.b #$0b,(a2)+
4568: fmovem.l #$0b000000,fpsr
4569: bsr set_fline
4570: moveq.l #0,d7
4571: lea.l workarea(pc),a0
4572: lea.l @f,a3
4573: .dc.l $f210a400
4574: @@:
4575: bsr restore_fline
4576: fmovem.l fpsr,d0
4577: rol.l #8,d0
4578: or.l d7,d0
4579: move.b d0,(a2)+
4580:
4581: ; FMOVEM.L FPSR/FPIAR,(An)
4582: move.b #$0b,(a2)+
4583: fmovem.l #$0b000000,fpsr
4584: bsr set_fline
4585: moveq.l #0,d7
4586: lea.l workarea(pc),a0
4587: lea.l @f,a3
4588: .dc.l $f210ac00
4589: @@:
4590: bsr restore_fline
4591: fmovem.l fpsr,d0
4592: rol.l #8,d0
4593: or.l d7,d0
4594: move.b d0,(a2)+
4595:
4596: lea.l msg_test_m,a0
4597: moveq.l #4-1,d0
4598: bsr print_result
4599: rts
4600:
4601: test_fmovem_cm_mi:
4602: lea.l result(pc),a2
4603: ; FMOVEM.L FPCR,(An)+
4604: move.b #$0b,(a2)+
4605: fmovem.l #$0b000000,fpsr
4606: bsr set_fline
4607: moveq.l #0,d7
4608: lea.l workarea(pc),a0
4609: lea.l @f,a3
4610: .dc.l $f218b000
4611: @@:
4612: bsr restore_fline
4613: fmovem.l fpsr,d0
4614: rol.l #8,d0
4615: or.l d7,d0
4616: move.b d0,(a2)+
4617:
4618: ; FMOVEM.L FPSR,(An)+
4619: move.b #$0b,(a2)+
4620: fmovem.l #$0b000000,fpsr
4621: bsr set_fline
4622: moveq.l #0,d7
4623: lea.l workarea(pc),a0
4624: lea.l @f,a3
4625: .dc.l $f218a800
4626: @@:
4627: bsr restore_fline
4628: fmovem.l fpsr,d0
4629: rol.l #8,d0
4630: or.l d7,d0
4631: move.b d0,(a2)+
4632:
4633: ; FMOVEM.L FPIAR,(An)+
4634: move.b #$0b,(a2)+
4635: fmovem.l #$0b000000,fpsr
4636: bsr set_fline
4637: moveq.l #0,d7
4638: lea.l workarea(pc),a0
4639: lea.l @f,a3
4640: .dc.l $f218a400
4641: @@:
4642: bsr restore_fline
4643: fmovem.l fpsr,d0
4644: rol.l #8,d0
4645: or.l d7,d0
4646: move.b d0,(a2)+
4647:
4648: ; FMOVEM.L FPSR/FPIAR,(An)+
4649: move.b #$0b,(a2)+
4650: fmovem.l #$0b000000,fpsr
4651: bsr set_fline
4652: moveq.l #0,d7
4653: lea.l workarea(pc),a0
4654: lea.l @f,a3
4655: .dc.l $f218ac00
4656: @@:
4657: bsr restore_fline
4658: fmovem.l fpsr,d0
4659: rol.l #8,d0
4660: or.l d7,d0
4661: move.b d0,(a2)+
4662:
4663: lea.l msg_test_mi,a0
4664: moveq.l #4-1,d0
4665: bsr print_result
4666: rts
4667:
4668: test_fmovem_cm_md:
4669: lea.l result(pc),a2
4670: ; FMOVEM.L FPCR,-(An)
4671: move.b #$0b,(a2)+
4672: fmovem.l #$0b000000,fpsr
4673: bsr set_fline
4674: moveq.l #0,d7
4675: lea.l workarea+12(pc),a0
4676: lea.l @f,a3
4677: .dc.l $f220b000
4678: @@:
4679: bsr restore_fline
4680: fmovem.l fpsr,d0
4681: rol.l #8,d0
4682: or.l d7,d0
4683: move.b d0,(a2)+
4684:
4685: ; FMOVEM.L FPSR,-(An)
4686: move.b #$0b,(a2)+
4687: fmovem.l #$0b000000,fpsr
4688: bsr set_fline
4689: moveq.l #0,d7
4690: lea.l workarea+12(pc),a0
4691: lea.l @f,a3
4692: .dc.l $f220a800
4693: @@:
4694: bsr restore_fline
4695: fmovem.l fpsr,d0
4696: rol.l #8,d0
4697: or.l d7,d0
4698: move.b d0,(a2)+
4699:
4700: ; FMOVEM.L FPIAR,-(An)
4701: move.b #$0b,(a2)+
4702: fmovem.l #$0b000000,fpsr
4703: bsr set_fline
4704: moveq.l #0,d7
4705: lea.l workarea+12(pc),a0
4706: lea.l @f,a3
4707: .dc.l $f220a400
4708: @@:
4709: bsr restore_fline
4710: fmovem.l fpsr,d0
4711: rol.l #8,d0
4712: or.l d7,d0
4713: move.b d0,(a2)+
4714:
4715: ; FMOVEM.L FPSR/FPIAR,-(An)
4716: move.b #$0b,(a2)+
4717: fmovem.l #$0b000000,fpsr
4718: bsr set_fline
4719: moveq.l #0,d7
4720: lea.l workarea+12(pc),a0
4721: lea.l @f,a3
4722: .dc.l $f220ac00
4723: @@:
4724: bsr restore_fline
4725: fmovem.l fpsr,d0
4726: rol.l #8,d0
4727: or.l d7,d0
4728: move.b d0,(a2)+
4729:
4730: lea.l msg_test_md,a0
4731: moveq.l #4-1,d0
4732: bsr print_result
4733: rts
4734:
4735: test_fmovem_cm_r:
4736: lea.l result(pc),a2
4737: ; FMOVEM.L FPCR,d16(An)
4738: move.b #$0b,(a2)+
4739: fmovem.l #$0b000000,fpsr
4740: bsr set_fline
4741: moveq.l #0,d7
4742: lea.l workarea(pc),a0
4743: lea.l @f,a3
4744: .dc.l $f228b000
4745: .dc.w $0000
4746: @@:
4747: bsr restore_fline
4748: fmovem.l fpsr,d0
4749: rol.l #8,d0
4750: or.l d7,d0
4751: move.b d0,(a2)+
4752:
4753: ; FMOVEM.L FPSR,d16(An)
4754: move.b #$0b,(a2)+
4755: fmovem.l #$0b000000,fpsr
4756: bsr set_fline
4757: moveq.l #0,d7
4758: lea.l workarea(pc),a0
4759: lea.l @f,a3
4760: .dc.l $f228a800
4761: .dc.w $0000
4762: @@:
4763: bsr restore_fline
4764: fmovem.l fpsr,d0
4765: rol.l #8,d0
4766: or.l d7,d0
4767: move.b d0,(a2)+
4768:
4769: ; FMOVEM.L FPIAR,d16(An)
4770: move.b #$0b,(a2)+
4771: fmovem.l #$0b000000,fpsr
4772: bsr set_fline
4773: moveq.l #0,d7
4774: lea.l workarea(pc),a0
4775: lea.l @f,a3
4776: .dc.l $f228a400
4777: .dc.w $0000
4778: @@:
4779: bsr restore_fline
4780: fmovem.l fpsr,d0
4781: rol.l #8,d0
4782: or.l d7,d0
4783: move.b d0,(a2)+
4784:
4785: ; FMOVEM.L FPSR/FPIAR,d16(An)
4786: move.b #$0b,(a2)+
4787: fmovem.l #$0b000000,fpsr
4788: bsr set_fline
4789: moveq.l #0,d7
4790: lea.l workarea(pc),a0
4791: lea.l @f,a3
4792: .dc.l $f228ac00
4793: .dc.w $0000
4794: @@:
4795: bsr restore_fline
4796: fmovem.l fpsr,d0
4797: rol.l #8,d0
4798: or.l d7,d0
4799: move.b d0,(a2)+
4800:
4801: lea.l msg_test_r,a0
4802: moveq.l #4-1,d0
4803: bsr print_result
4804: rts
4805:
4806: test_fmovem_cm_x:
4807: lea.l result(pc),a2
4808: ; FMOVEM.L FPCR,d8(An,IX)
4809: move.b #$0b,(a2)+
4810: fmovem.l #$0b000000,fpsr
4811: bsr set_fline
4812: moveq.l #0,d7
4813: moveq.l #0,d4
4814: lea.l workarea(pc),a0
4815: lea.l @f,a3
4816: .dc.l $f230b000
4817: .dc.w $4000
4818: @@:
4819: bsr restore_fline
4820: fmovem.l fpsr,d0
4821: rol.l #8,d0
4822: or.l d7,d0
4823: move.b d0,(a2)+
4824:
4825: ; FMOVEM.L FPSR,d8(An,IX)
4826: move.b #$0b,(a2)+
4827: fmovem.l #$0b000000,fpsr
4828: bsr set_fline
4829: moveq.l #0,d7
4830: moveq.l #0,d4
4831: lea.l workarea(pc),a0
4832: lea.l @f,a3
4833: .dc.l $f230a800
4834: .dc.w $4000
4835: @@:
4836: bsr restore_fline
4837: fmovem.l fpsr,d0
4838: rol.l #8,d0
4839: or.l d7,d0
4840: move.b d0,(a2)+
4841:
4842: ; FMOVEM.L FPIAR,d8(An,IX)
4843: move.b #$0b,(a2)+
4844: fmovem.l #$0b000000,fpsr
4845: bsr set_fline
4846: moveq.l #0,d7
4847: moveq.l #0,d4
4848: lea.l workarea(pc),a0
4849: lea.l @f,a3
4850: .dc.l $f230a400
4851: .dc.w $4000
4852: @@:
4853: bsr restore_fline
4854: fmovem.l fpsr,d0
4855: rol.l #8,d0
4856: or.l d7,d0
4857: move.b d0,(a2)+
4858:
4859: ; FMOVEM.L FPSR/FPIAR,d8(An,IX)
4860: move.b #$0b,(a2)+
4861: fmovem.l #$0b000000,fpsr
4862: bsr set_fline
4863: moveq.l #0,d7
4864: moveq.l #0,d4
4865: lea.l workarea(pc),a0
4866: lea.l @f,a3
4867: .dc.l $f230ac00
4868: .dc.w $4000
4869: @@:
4870: bsr restore_fline
4871: fmovem.l fpsr,d0
4872: rol.l #8,d0
4873: or.l d7,d0
4874: move.b d0,(a2)+
4875:
4876: lea.l msg_test_x,a0
4877: moveq.l #4-1,d0
4878: bsr print_result
4879: rts
4880:
4881: test_fmovem_cm_p:
4882: lea.l result(pc),a2
4883: ; FMOVEM.L FPCR,(PC)
4884: move.b #$1b,(a2)+
4885: fmovem.l #$0b000000,fpsr
4886: bsr set_fline
4887: moveq.l #0,d7
4888: lea.l @f,a3
4889: .dc.l $f23ab000
4890: @@:
4891: bsr restore_fline
4892: fmovem.l fpsr,d0
4893: rol.l #8,d0
4894: or.l d7,d0
4895: move.b d0,(a2)+
4896:
4897: ; FMOVEM.L FPSR,(PC)
4898: move.b #$1b,(a2)+
4899: fmovem.l #$0b000000,fpsr
4900: bsr set_fline
4901: moveq.l #0,d7
4902: lea.l @f,a3
4903: .dc.l $f23aa800
4904: @@:
4905: bsr restore_fline
4906: fmovem.l fpsr,d0
4907: rol.l #8,d0
4908: or.l d7,d0
4909: move.b d0,(a2)+
4910:
4911: ; FMOVEM.L FPIAR,(PC)
4912: move.b #$1b,(a2)+
4913: fmovem.l #$0b000000,fpsr
4914: bsr set_fline
4915: moveq.l #0,d7
4916: lea.l @f,a3
4917: .dc.l $f23aa400
4918: @@:
4919: bsr restore_fline
4920: fmovem.l fpsr,d0
4921: rol.l #8,d0
4922: or.l d7,d0
4923: move.b d0,(a2)+
4924:
4925: ; FMOVEM.L FPSR/FPIAR,(PC)
4926: move.b #$1b,(a2)+
4927: fmovem.l #$0b000000,fpsr
4928: bsr set_fline
4929: moveq.l #0,d7
4930: lea.l @f,a3
4931: .dc.l $f23aac00
4932: @@:
4933: bsr restore_fline
4934: fmovem.l fpsr,d0
4935: rol.l #8,d0
4936: or.l d7,d0
4937: move.b d0,(a2)+
4938:
4939: lea.l msg_test_p,a0
4940: moveq.l #4-1,d0
4941: bsr print_result
4942: rts
4943:
4944: test_fmovem_cm_i:
4945: lea.l result(pc),a2
4946: ; FMOVEM.L FPCR,#imm
4947: move.b #$1b,(a2)+
4948: fmovem.l #$0b000000,fpsr
4949: bsr set_fline
4950: moveq.l #0,d7
4951: lea.l @f,a3
4952: .dc.l $f23cb000
4953: @@:
4954: bsr restore_fline
4955: fmovem.l fpsr,d0
4956: rol.l #8,d0
4957: or.l d7,d0
4958: move.b d0,(a2)+
4959:
4960: ; FMOVEM.L FPSR,#imm
4961: move.b #$1b,(a2)+
4962: fmovem.l #$0b000000,fpsr
4963: bsr set_fline
4964: moveq.l #0,d7
4965: lea.l @f,a3
4966: .dc.l $f23ca800
4967: @@:
4968: bsr restore_fline
4969: fmovem.l fpsr,d0
4970: rol.l #8,d0
4971: or.l d7,d0
4972: move.b d0,(a2)+
4973:
4974: ; FMOVEM.L FPIAR,#imm
4975: move.b #$1b,(a2)+
4976: fmovem.l #$0b000000,fpsr
4977: bsr set_fline
4978: moveq.l #0,d7
4979: lea.l @f,a3
4980: .dc.l $f23ca400
4981: @@:
4982: bsr restore_fline
4983: fmovem.l fpsr,d0
4984: rol.l #8,d0
4985: or.l d7,d0
4986: move.b d0,(a2)+
4987:
4988: ; FMOVEM.L FPSR/FPIAR,#imm
4989: move.b #$1b,(a2)+
4990: fmovem.l #$0b000000,fpsr
4991: bsr set_fline
4992: moveq.l #0,d7
4993: lea.l @f,a3
4994: .dc.l $f23cac00
4995: @@:
4996: bsr restore_fline
4997: fmovem.l fpsr,d0
4998: rol.l #8,d0
4999: or.l d7,d0
5000: move.b d0,(a2)+
5001:
5002: lea.l msg_test_i,a0
5003: moveq.l #4-1,d0
5004: bsr print_result
5005: rts
5006:
5007: test_fmovem_cm_o:
5008: lea.l result(pc),a2
5009: ; FMOVEM.L FPCR,075
5010: move.b #$1b,(a2)+
5011: fmovem.l #$0b000000,fpsr
5012: bsr set_fline
5013: moveq.l #0,d7
5014: lea.l @f,a3
5015: .dc.l $f23db000
5016: @@:
5017: bsr restore_fline
5018: fmovem.l fpsr,d0
5019: rol.l #8,d0
5020: or.l d7,d0
5021: move.b d0,(a2)+
5022:
5023: ; FMOVEM.L FPSR,075
5024: move.b #$1b,(a2)+
5025: fmovem.l #$0b000000,fpsr
5026: bsr set_fline
5027: moveq.l #0,d7
5028: lea.l @f,a3
5029: .dc.l $f23da800
5030: @@:
5031: bsr restore_fline
5032: fmovem.l fpsr,d0
5033: rol.l #8,d0
5034: or.l d7,d0
5035: move.b d0,(a2)+
5036:
5037: ; FMOVEM.L FPIAR,075
5038: move.b #$1b,(a2)+
5039: fmovem.l #$0b000000,fpsr
5040: bsr set_fline
5041: moveq.l #0,d7
5042: lea.l @f,a3
5043: .dc.l $f23da400
5044: @@:
5045: bsr restore_fline
5046: fmovem.l fpsr,d0
5047: rol.l #8,d0
5048: or.l d7,d0
5049: move.b d0,(a2)+
5050:
5051: ; FMOVEM.L FPSR/FPIAR,075
5052: move.b #$1b,(a2)+
5053: fmovem.l #$0b000000,fpsr
5054: bsr set_fline
5055: moveq.l #0,d7
5056: lea.l @f,a3
5057: .dc.l $f23dac00
5058: @@:
5059: bsr restore_fline
5060: fmovem.l fpsr,d0
5061: rol.l #8,d0
5062: or.l d7,d0
5063: move.b d0,(a2)+
5064:
5065: lea.l msg_test_o,a0
5066: moveq.l #4-1,d0
5067: bsr print_result
5068: rts
5069:
5070: test_fmovem_mc_d:
5071: lea.l result(pc),a2
5072: ; FMOVEM.L Dn,FPCR
5073: move.b #$0b,(a2)+
5074: fmovem.l #$0b000000,fpsr
5075: bsr set_fline
5076: moveq.l #0,d7
5077: moveq.l #0,d6
5078: lea.l @f,a3
5079: .dc.l $f2069000
5080: @@:
5081: bsr restore_fline
5082: fmovem.l fpsr,d0
5083: rol.l #8,d0
5084: or.l d7,d0
5085: move.b d0,(a2)+
5086:
5087: ; FMOVEM.L Dn,FPSR
5088: move.b #$00,(a2)+
5089: fmovem.l #$0b000000,fpsr
5090: bsr set_fline
5091: moveq.l #0,d7
5092: moveq.l #0,d6
5093: lea.l @f,a3
5094: .dc.l $f2068800
5095: @@:
5096: bsr restore_fline
5097: fmovem.l fpsr,d0
5098: rol.l #8,d0
5099: or.l d7,d0
5100: move.b d0,(a2)+
5101:
5102: ; FMOVEM.L Dn,FPIAR
5103: move.b #$0b,(a2)+
5104: fmovem.l #$0b000000,fpsr
5105: bsr set_fline
5106: moveq.l #0,d7
5107: moveq.l #0,d6
5108: lea.l @f,a3
5109: .dc.l $f2068400
5110: @@:
5111: bsr restore_fline
5112: fmovem.l fpsr,d0
5113: rol.l #8,d0
5114: or.l d7,d0
5115: move.b d0,(a2)+
5116:
5117: ; FMOVEM.L Dn,FPSR/FPIAR
5118: move.b #$1b,(a2)+
5119: fmovem.l #$0b000000,fpsr
5120: bsr set_fline
5121: moveq.l #0,d7
5122: moveq.l #0,d6
5123: lea.l @f,a3
5124: .dc.l $f2068c00
5125: @@:
5126: bsr restore_fline
5127: fmovem.l fpsr,d0
5128: rol.l #8,d0
5129: or.l d7,d0
5130: move.b d0,(a2)+
5131:
5132: lea.l msg_test_d,a0
5133: moveq.l #4-1,d0
5134: bsr print_result
5135: rts
5136:
5137: test_fmovem_mc_a:
5138: lea.l result(pc),a2
5139: ; FMOVEM.L An,FPCR
5140: move.b #$1b,(a2)+
5141: fmovem.l #$0b000000,fpsr
5142: bsr set_fline
5143: moveq.l #0,d7
5144: lea.l @f,a3
5145: .dc.l $f2089000
5146: @@:
5147: bsr restore_fline
5148: fmovem.l fpsr,d0
5149: rol.l #8,d0
5150: or.l d7,d0
5151: move.b d0,(a2)+
5152:
5153: ; FMOVEM.L An,FPSR
5154: move.b #$1b,(a2)+
5155: fmovem.l #$0b000000,fpsr
5156: bsr set_fline
5157: moveq.l #0,d7
5158: lea.l @f,a3
5159: .dc.l $f2088800
5160: @@:
5161: bsr restore_fline
5162: fmovem.l fpsr,d0
5163: rol.l #8,d0
5164: or.l d7,d0
5165: move.b d0,(a2)+
5166:
5167: ; FMOVEM.L An,FPIAR
5168: move.b #$0b,(a2)+
5169: fmovem.l #$0b000000,fpsr
5170: bsr set_fline
5171: moveq.l #0,d7
5172: lea.l @f,a3
5173: .dc.l $f2088400
5174: @@:
5175: bsr restore_fline
5176: fmovem.l fpsr,d0
5177: rol.l #8,d0
5178: or.l d7,d0
5179: move.b d0,(a2)+
5180:
5181: ; FMOVEM.L An,FPSR/FPIAR
5182: move.b #$1b,(a2)+
5183: fmovem.l #$0b000000,fpsr
5184: bsr set_fline
5185: moveq.l #0,d7
5186: lea.l @f,a3
5187: .dc.l $f2088c00
5188: @@:
5189: bsr restore_fline
5190: fmovem.l fpsr,d0
5191: rol.l #8,d0
5192: or.l d7,d0
5193: move.b d0,(a2)+
5194:
5195: lea.l msg_test_a,a0
5196: moveq.l #4-1,d0
5197: bsr print_result
5198: rts
5199:
5200: test_fmovem_mc_m:
5201: lea.l result(pc),a2
5202: ; FMOVEM.L (An),FPCR
5203: move.b #$0b,(a2)+
5204: fmovem.l #$0b000000,fpsr
5205: bsr set_fline
5206: moveq.l #0,d7
5207: lea.l workarea+12(pc),a0
5208: move.l d7,-(a0)
5209: move.l d7,-(a0)
5210: move.l d7,-(a0)
5211: lea.l @f,a3
5212: .dc.l $f2109000
5213: @@:
5214: bsr restore_fline
5215: fmovem.l fpsr,d0
5216: rol.l #8,d0
5217: or.l d7,d0
5218: move.b d0,(a2)+
5219:
5220: ; FMOVEM.L (An),FPSR
5221: move.b #$00,(a2)+
5222: fmovem.l #$0b000000,fpsr
5223: bsr set_fline
5224: moveq.l #0,d7
5225: lea.l workarea+12(pc),a0
5226: move.l d7,-(a0)
5227: move.l d7,-(a0)
5228: move.l d7,-(a0)
5229: lea.l @f,a3
5230: .dc.l $f2108800
5231: @@:
5232: bsr restore_fline
5233: fmovem.l fpsr,d0
5234: rol.l #8,d0
5235: or.l d7,d0
5236: move.b d0,(a2)+
5237:
5238: ; FMOVEM.L (An),FPIAR
5239: move.b #$0b,(a2)+
5240: fmovem.l #$0b000000,fpsr
5241: bsr set_fline
5242: moveq.l #0,d7
5243: lea.l workarea+12(pc),a0
5244: move.l d7,-(a0)
5245: move.l d7,-(a0)
5246: move.l d7,-(a0)
5247: lea.l @f,a3
5248: .dc.l $f2108400
5249: @@:
5250: bsr restore_fline
5251: fmovem.l fpsr,d0
5252: rol.l #8,d0
5253: or.l d7,d0
5254: move.b d0,(a2)+
5255:
5256: ; FMOVEM.L (An),FPSR/FPIAR
5257: move.b #$00,(a2)+
5258: fmovem.l #$0b000000,fpsr
5259: bsr set_fline
5260: moveq.l #0,d7
5261: lea.l workarea+12(pc),a0
5262: move.l d7,-(a0)
5263: move.l d7,-(a0)
5264: move.l d7,-(a0)
5265: lea.l @f,a3
5266: .dc.l $f2108c00
5267: @@:
5268: bsr restore_fline
5269: fmovem.l fpsr,d0
5270: rol.l #8,d0
5271: or.l d7,d0
5272: move.b d0,(a2)+
5273:
5274: lea.l msg_test_m,a0
5275: moveq.l #4-1,d0
5276: bsr print_result
5277: rts
5278:
5279: test_fmovem_mc_mi:
5280: lea.l result(pc),a2
5281: ; FMOVEM.L (An)+,FPCR
5282: move.b #$0b,(a2)+
5283: fmovem.l #$0b000000,fpsr
5284: bsr set_fline
5285: moveq.l #0,d7
5286: lea.l workarea+12(pc),a0
5287: move.l d7,-(a0)
5288: move.l d7,-(a0)
5289: move.l d7,-(a0)
5290: lea.l @f,a3
5291: .dc.l $f2189000
5292: @@:
5293: bsr restore_fline
5294: fmovem.l fpsr,d0
5295: rol.l #8,d0
5296: or.l d7,d0
5297: move.b d0,(a2)+
5298:
5299: ; FMOVEM.L (An)+,FPSR
5300: move.b #$00,(a2)+
5301: fmovem.l #$0b000000,fpsr
5302: bsr set_fline
5303: moveq.l #0,d7
5304: lea.l workarea+12(pc),a0
5305: move.l d7,-(a0)
5306: move.l d7,-(a0)
5307: move.l d7,-(a0)
5308: lea.l @f,a3
5309: .dc.l $f2188800
5310: @@:
5311: bsr restore_fline
5312: fmovem.l fpsr,d0
5313: rol.l #8,d0
5314: or.l d7,d0
5315: move.b d0,(a2)+
5316:
5317: ; FMOVEM.L (An)+,FPIAR
5318: move.b #$0b,(a2)+
5319: fmovem.l #$0b000000,fpsr
5320: bsr set_fline
5321: moveq.l #0,d7
5322: lea.l workarea+12(pc),a0
5323: move.l d7,-(a0)
5324: move.l d7,-(a0)
5325: move.l d7,-(a0)
5326: lea.l @f,a3
5327: .dc.l $f2188400
5328: @@:
5329: bsr restore_fline
5330: fmovem.l fpsr,d0
5331: rol.l #8,d0
5332: or.l d7,d0
5333: move.b d0,(a2)+
5334:
5335: ; FMOVEM.L (An)+,FPSR/FPIAR
5336: move.b #$00,(a2)+
5337: fmovem.l #$0b000000,fpsr
5338: bsr set_fline
5339: moveq.l #0,d7
5340: lea.l workarea+12(pc),a0
5341: move.l d7,-(a0)
5342: move.l d7,-(a0)
5343: move.l d7,-(a0)
5344: lea.l @f,a3
5345: .dc.l $f2188c00
5346: @@:
5347: bsr restore_fline
5348: fmovem.l fpsr,d0
5349: rol.l #8,d0
5350: or.l d7,d0
5351: move.b d0,(a2)+
5352:
5353: lea.l msg_test_mi,a0
5354: moveq.l #4-1,d0
5355: bsr print_result
5356: rts
5357:
5358: test_fmovem_mc_md:
5359: lea.l result(pc),a2
5360: ; FMOVEM.L -(An),FPCR
5361: move.b #$0b,(a2)+
5362: fmovem.l #$0b000000,fpsr
5363: bsr set_fline
5364: moveq.l #0,d7
5365: lea.l workarea(pc),a0
5366: move.l d7,(a0)+
5367: move.l d7,(a0)+
5368: move.l d7,(a0)+
5369: lea.l @f,a3
5370: .dc.l $f2209000
5371: @@:
5372: bsr restore_fline
5373: fmovem.l fpsr,d0
5374: rol.l #8,d0
5375: or.l d7,d0
5376: move.b d0,(a2)+
5377:
5378: ; FMOVEM.L -(An),FPSR
5379: move.b #$00,(a2)+
5380: fmovem.l #$0b000000,fpsr
5381: bsr set_fline
5382: moveq.l #0,d7
5383: lea.l workarea(pc),a0
5384: move.l d7,(a0)+
5385: move.l d7,(a0)+
5386: move.l d7,(a0)+
5387: lea.l @f,a3
5388: .dc.l $f2208800
5389: @@:
5390: bsr restore_fline
5391: fmovem.l fpsr,d0
5392: rol.l #8,d0
5393: or.l d7,d0
5394: move.b d0,(a2)+
5395:
5396: ; FMOVEM.L -(An),FPIAR
5397: move.b #$0b,(a2)+
5398: fmovem.l #$0b000000,fpsr
5399: bsr set_fline
5400: moveq.l #0,d7
5401: lea.l workarea(pc),a0
5402: move.l d7,(a0)+
5403: move.l d7,(a0)+
5404: move.l d7,(a0)+
5405: lea.l @f,a3
5406: .dc.l $f2208400
5407: @@:
5408: bsr restore_fline
5409: fmovem.l fpsr,d0
5410: rol.l #8,d0
5411: or.l d7,d0
5412: move.b d0,(a2)+
5413:
5414: ; FMOVEM.L -(An),FPSR/FPIAR
5415: move.b #$00,(a2)+
5416: fmovem.l #$0b000000,fpsr
5417: bsr set_fline
5418: moveq.l #0,d7
5419: lea.l workarea(pc),a0
5420: move.l d7,(a0)+
5421: move.l d7,(a0)+
5422: move.l d7,(a0)+
5423: lea.l @f,a3
5424: .dc.l $f2208c00
5425: @@:
5426: bsr restore_fline
5427: fmovem.l fpsr,d0
5428: rol.l #8,d0
5429: or.l d7,d0
5430: move.b d0,(a2)+
5431:
5432: lea.l msg_test_md,a0
5433: moveq.l #4-1,d0
5434: bsr print_result
5435: rts
5436:
5437: test_fmovem_mc_r:
5438: lea.l result(pc),a2
5439: ; FMOVEM.L d16(An),FPCR
5440: move.b #$0b,(a2)+
5441: fmovem.l #$0b000000,fpsr
5442: bsr set_fline
5443: moveq.l #0,d7
5444: lea.l workarea+12(pc),a0
5445: move.l d7,-(a0)
5446: move.l d7,-(a0)
5447: move.l d7,-(a0)
5448: lea.l @f,a3
5449: .dc.l $f2289000
5450: .dc.w $0000
5451: @@:
5452: bsr restore_fline
5453: fmovem.l fpsr,d0
5454: rol.l #8,d0
5455: or.l d7,d0
5456: move.b d0,(a2)+
5457:
5458: ; FMOVEM.L d16(An),FPSR
5459: move.b #$00,(a2)+
5460: fmovem.l #$0b000000,fpsr
5461: bsr set_fline
5462: moveq.l #0,d7
5463: lea.l workarea+12(pc),a0
5464: move.l d7,-(a0)
5465: move.l d7,-(a0)
5466: move.l d7,-(a0)
5467: lea.l @f,a3
5468: .dc.l $f2288800
5469: .dc.w $0000
5470: @@:
5471: bsr restore_fline
5472: fmovem.l fpsr,d0
5473: rol.l #8,d0
5474: or.l d7,d0
5475: move.b d0,(a2)+
5476:
5477: ; FMOVEM.L d16(An),FPIAR
5478: move.b #$0b,(a2)+
5479: fmovem.l #$0b000000,fpsr
5480: bsr set_fline
5481: moveq.l #0,d7
5482: lea.l workarea+12(pc),a0
5483: move.l d7,-(a0)
5484: move.l d7,-(a0)
5485: move.l d7,-(a0)
5486: lea.l @f,a3
5487: .dc.l $f2288400
5488: .dc.w $0000
5489: @@:
5490: bsr restore_fline
5491: fmovem.l fpsr,d0
5492: rol.l #8,d0
5493: or.l d7,d0
5494: move.b d0,(a2)+
5495:
5496: ; FMOVEM.L d16(An),FPSR/FPIAR
5497: move.b #$00,(a2)+
5498: fmovem.l #$0b000000,fpsr
5499: bsr set_fline
5500: moveq.l #0,d7
5501: lea.l workarea+12(pc),a0
5502: move.l d7,-(a0)
5503: move.l d7,-(a0)
5504: move.l d7,-(a0)
5505: lea.l @f,a3
5506: .dc.l $f2288c00
5507: .dc.w $0000
5508: @@:
5509: bsr restore_fline
5510: fmovem.l fpsr,d0
5511: rol.l #8,d0
5512: or.l d7,d0
5513: move.b d0,(a2)+
5514:
5515: lea.l msg_test_r,a0
5516: moveq.l #4-1,d0
5517: bsr print_result
5518: rts
5519:
5520: test_fmovem_mc_x:
5521: lea.l result(pc),a2
5522: ; FMOVEM.L d8(An,IX),FPCR
5523: move.b #$0b,(a2)+
5524: fmovem.l #$0b000000,fpsr
5525: bsr set_fline
5526: moveq.l #0,d7
5527: moveq.l #0,d4
5528: lea.l workarea+12(pc),a0
5529: move.l d7,-(a0)
5530: move.l d7,-(a0)
5531: move.l d7,-(a0)
5532: lea.l @f,a3
5533: .dc.l $f2309000
5534: .dc.w $4000
5535: @@:
5536: bsr restore_fline
5537: fmovem.l fpsr,d0
5538: rol.l #8,d0
5539: or.l d7,d0
5540: move.b d0,(a2)+
5541:
5542: ; FMOVEM.L d8(An,IX),FPSR
5543: move.b #$00,(a2)+
5544: fmovem.l #$0b000000,fpsr
5545: bsr set_fline
5546: moveq.l #0,d7
5547: moveq.l #0,d4
5548: lea.l workarea+12(pc),a0
5549: move.l d7,-(a0)
5550: move.l d7,-(a0)
5551: move.l d7,-(a0)
5552: lea.l @f,a3
5553: .dc.l $f2308800
5554: .dc.w $4000
5555: @@:
5556: bsr restore_fline
5557: fmovem.l fpsr,d0
5558: rol.l #8,d0
5559: or.l d7,d0
5560: move.b d0,(a2)+
5561:
5562: ; FMOVEM.L d8(An,IX),FPIAR
5563: move.b #$0b,(a2)+
5564: fmovem.l #$0b000000,fpsr
5565: bsr set_fline
5566: moveq.l #0,d7
5567: moveq.l #0,d4
5568: lea.l workarea+12(pc),a0
5569: move.l d7,-(a0)
5570: move.l d7,-(a0)
5571: move.l d7,-(a0)
5572: lea.l @f,a3
5573: .dc.l $f2308400
5574: .dc.w $4000
5575: @@:
5576: bsr restore_fline
5577: fmovem.l fpsr,d0
5578: rol.l #8,d0
5579: or.l d7,d0
5580: move.b d0,(a2)+
5581:
5582: ; FMOVEM.L d8(An,IX),FPSR/FPIAR
5583: move.b #$00,(a2)+
5584: fmovem.l #$0b000000,fpsr
5585: bsr set_fline
5586: moveq.l #0,d7
5587: moveq.l #0,d4
5588: lea.l workarea+12(pc),a0
5589: move.l d7,-(a0)
5590: move.l d7,-(a0)
5591: move.l d7,-(a0)
5592: lea.l @f,a3
5593: .dc.l $f2308c00
5594: .dc.w $4000
5595: @@:
5596: bsr restore_fline
5597: fmovem.l fpsr,d0
5598: rol.l #8,d0
5599: or.l d7,d0
5600: move.b d0,(a2)+
5601:
5602: lea.l msg_test_x,a0
5603: moveq.l #4-1,d0
5604: bsr print_result
5605: rts
5606:
5607: test_fmovem_mc_p:
5608: lea.l result(pc),a2
5609: ; FMOVEM.L (PC),FPCR
5610: move.b #$0b,(a2)+
5611: fmovem.l #$0b000000,fpsr
5612: bsr set_fline
5613: moveq.l #0,d7
5614: bra @f
5615: .dc.l 0, 0, 0
5616: @@:
5617: lea.l @f,a3
5618: .dc.l $f23a9000
5619: .dc.w -4-6-12
5620: @@:
5621: bsr restore_fline
5622: fmovem.l fpsr,d0
5623: rol.l #8,d0
5624: or.l d7,d0
5625: move.b d0,(a2)+
5626:
5627: ; FMOVEM.L (PC),FPSR
5628: move.b #$00,(a2)+
5629: fmovem.l #$0b000000,fpsr
5630: bsr set_fline
5631: moveq.l #0,d7
5632: bra @f
5633: .dc.l 0, 0, 0
5634: @@:
5635: lea.l @f,a3
5636: .dc.l $f23a8800
5637: .dc.w -4-6-12
5638: @@:
5639: bsr restore_fline
5640: fmovem.l fpsr,d0
5641: rol.l #8,d0
5642: or.l d7,d0
5643: move.b d0,(a2)+
5644:
5645: ; FMOVEM.L (PC),FPIAR
5646: move.b #$0b,(a2)+
5647: fmovem.l #$0b000000,fpsr
5648: bsr set_fline
5649: moveq.l #0,d7
5650: bra @f
5651: .dc.l 0, 0, 0
5652: @@:
5653: lea.l @f,a3
5654: .dc.l $f23a8400
5655: .dc.w -4-6-12
5656: @@:
5657: bsr restore_fline
5658: fmovem.l fpsr,d0
5659: rol.l #8,d0
5660: or.l d7,d0
5661: move.b d0,(a2)+
5662:
5663: ; FMOVEM.L (PC),FPSR/FPIAR
5664: move.b #$00,(a2)+
5665: fmovem.l #$0b000000,fpsr
5666: bsr set_fline
5667: moveq.l #0,d7
5668: bra @f
5669: .dc.l 0, 0, 0
5670: @@:
5671: lea.l @f,a3
5672: .dc.l $f23a8c00
5673: .dc.w -4-6-12
5674: @@:
5675: bsr restore_fline
5676: fmovem.l fpsr,d0
5677: rol.l #8,d0
5678: or.l d7,d0
5679: move.b d0,(a2)+
5680:
5681: lea.l msg_test_p,a0
5682: moveq.l #4-1,d0
5683: bsr print_result
5684: rts
5685:
5686: test_fmovem_mc_i:
5687: lea.l result(pc),a2
5688: ; FMOVEM.L #imm,FPCR
5689: move.b #$0b,(a2)+
5690: fmovem.l #$0b000000,fpsr
5691: bsr set_fline
5692: moveq.l #0,d7
5693: lea.l @f,a3
5694: .dc.l $f23c9000
5695: .dc.l 0
5696: @@:
5697: bsr restore_fline
5698: fmovem.l fpsr,d0
5699: rol.l #8,d0
5700: or.l d7,d0
5701: move.b d0,(a2)+
5702:
5703: ; FMOVEM.L #imm,FPSR
5704: move.b #$00,(a2)+
5705: fmovem.l #$0b000000,fpsr
5706: bsr set_fline
5707: moveq.l #0,d7
5708: lea.l @f,a3
5709: .dc.l $f23c8800
5710: .dc.l 0
5711: @@:
5712: bsr restore_fline
5713: fmovem.l fpsr,d0
5714: rol.l #8,d0
5715: or.l d7,d0
5716: move.b d0,(a2)+
5717:
5718: ; FMOVEM.L #imm,FPIAR
5719: move.b #$0b,(a2)+
5720: fmovem.l #$0b000000,fpsr
5721: bsr set_fline
5722: moveq.l #0,d7
5723: lea.l @f,a3
5724: .dc.l $f23c8400
5725: .dc.l 0
5726: @@:
5727: bsr restore_fline
5728: fmovem.l fpsr,d0
5729: rol.l #8,d0
5730: or.l d7,d0
5731: move.b d0,(a2)+
5732:
5733: ; FMOVEM.L #imm,FPSR/FPIAR
5734: move.b #$00,(a2)+
5735: fmovem.l #$0b000000,fpsr
5736: bsr set_fline
5737: moveq.l #0,d7
5738: lea.l @f,a3
5739: .dc.l $f23c8c00
5740: .dc.l 0, 0
5741: @@:
5742: bsr restore_fline
5743: fmovem.l fpsr,d0
5744: rol.l #8,d0
5745: or.l d7,d0
5746: move.b d0,(a2)+
5747:
5748: lea.l msg_test_i,a0
5749: moveq.l #4-1,d0
5750: bsr print_result
5751: rts
5752:
5753: test_fmovem_mc_o:
5754: lea.l result(pc),a2
5755: ; FMOVEM.L 075,FPCR
5756: move.b #$1b,(a2)+
5757: fmovem.l #$0b000000,fpsr
5758: bsr set_fline
5759: moveq.l #0,d7
5760: lea.l @f,a3
5761: .dc.l $f23d9000
5762: @@:
5763: bsr restore_fline
5764: fmovem.l fpsr,d0
5765: rol.l #8,d0
5766: or.l d7,d0
5767: move.b d0,(a2)+
5768:
5769: ; FMOVEM.L 075,FPSR
5770: move.b #$1b,(a2)+
5771: fmovem.l #$0b000000,fpsr
5772: bsr set_fline
5773: moveq.l #0,d7
5774: lea.l @f,a3
5775: .dc.l $f23d8800
5776: @@:
5777: bsr restore_fline
5778: fmovem.l fpsr,d0
5779: rol.l #8,d0
5780: or.l d7,d0
5781: move.b d0,(a2)+
5782:
5783: ; FMOVEM.L 075,FPIAR
5784: move.b #$1b,(a2)+
5785: fmovem.l #$0b000000,fpsr
5786: bsr set_fline
5787: moveq.l #0,d7
5788: lea.l @f,a3
5789: .dc.l $f23d8400
5790: @@:
5791: bsr restore_fline
5792: fmovem.l fpsr,d0
5793: rol.l #8,d0
5794: or.l d7,d0
5795: move.b d0,(a2)+
5796:
5797: ; FMOVEM.L 075,FPSR/FPIAR
5798: move.b #$1b,(a2)+
5799: fmovem.l #$0b000000,fpsr
5800: bsr set_fline
5801: moveq.l #0,d7
5802: lea.l @f,a3
5803: .dc.l $f23d8c00
5804: @@:
5805: bsr restore_fline
5806: fmovem.l fpsr,d0
5807: rol.l #8,d0
5808: or.l d7,d0
5809: move.b d0,(a2)+
5810:
5811: lea.l msg_test_o,a0
5812: moveq.l #4-1,d0
5813: bsr print_result
5814: rts
5815:
5816:
5817: ; 引数を処理する。
5818: ; 引数がなければヘルプを表示。
5819: ; 引数... があれば列挙されたテストを実行。
5820: ; "all" ならすべて実行。
5821: parse_arg:
5822: movem.l d0-d2/a0,-(sp)
5823: tst.b (a2)
5824: beq parse_done
5825: parse_loop:
5826: adda.l #1,a2
5827: move.b (a2),d0 ; '\0' なら終了
5828: beq parse_done
5829:
5830: cmpi.b #' ',d0
5831: beq parse_loop
5832: cmpi.b #$09,d0
5833: beq parse_loop
5834:
5835: ; "help"
5836: lea.l cmd_help(pc),a0
5837: bsr match
5838: beq print_help
5839:
5840: ; "all"
5841: lea.l cmd_all(pc),a0
5842: bsr match
5843: bne @f
5844: st.b is_fmove
5845: st.b is_fgen
5846: st.b is_fscale
5847: st.b is_fscc
5848: st.b is_fmovem_rm
5849: st.b is_fmovem_mr
5850: st.b is_fmovem_cm
5851: st.b is_fmovem_mc
5852: ; 後は無視していいだろう。
5853: bra parse_done
5854: @@:
5855: ; "fmove"
5856: lea.l cmd_fmove(pc),a0
5857: bsr match
5858: bne @f
5859: st.b is_fmove
5860: bra parse_loop
5861: @@:
5862: ; "fgen"
5863: lea.l cmd_fgen(pc),a0
5864: bsr match
5865: bne @f
5866: st.b is_fgen
5867: bra parse_loop
5868: @@:
5869: ; "fscale"
5870: lea.l cmd_fscale(pc),a0
5871: bsr match
5872: bne @f
5873: st.b is_fscale
5874: bra parse_loop
5875: @@:
5876: ; "fscc"
5877: lea.l cmd_fscc(pc),a0
5878: bsr match
5879: bne @f
5880: st.b is_fscc
5881: bra parse_loop
5882: @@:
5883: ; "fmovem_rm"
5884: lea.l cmd_fmovem_rm(pc),a0
5885: bsr match
5886: bne @f
5887: st.b is_fmovem_rm
5888: bra parse_loop
5889: @@:
5890: ; "fmovem_mr"
5891: lea.l cmd_fmovem_mr(pc),a0
5892: bsr match
5893: bne @f
5894: st.b is_fmovem_mr
5895: bra parse_loop
5896: @@:
5897: ; "fmovem_cm"
5898: lea.l cmd_fmovem_cm(pc),a0
5899: bsr match
5900: bne @f
5901: st.b is_fmovem_cm
5902: bra parse_loop
5903: @@:
5904: ; "fmovem_mc"
5905: lea.l cmd_fmovem_mc(pc),a0
5906: bsr match
5907: bne @f
5908: st.b is_fmovem_mc
5909: bra parse_loop
5910: @@:
5911:
5912: parse_done:
5913: ; どのコマンドも実行になってなければヘルプを表示。
5914: moveq.l #0,d0
5915: lea.l is_tests(pc),a0
5916: moveq.l #8-1,d1
5917: @@:
5918: or.b (a0)+,d0
5919: dbra d1,@b
5920: beq print_help
5921:
5922: movem.l (sp)+,d0-d2/a0
5923: rts
5924:
5925: ; ヘルプを表示して終了。
5926: print_help:
5927: PRINT msg_help(pc)
5928: DOS _EXIT
5929:
5930: ; (a2) からの単語が (a0) からのゼロ終端文字列と一致するか。
5931: ; 一致すれば d0 = 0 を返して (a2) は単語の最後の1文字を指すようにする。
5932: ; 一致しなければ d0 != 0 を返して (a2) は元の位置のまま。
5933: match:
5934: movem.l a1,-(sp)
5935: movea.l a2,a1 ; 戻り値用
5936: match_loop:
5937: move.b (a2)+,d0
5938: cmpi.b #' ',d0 ; d0 が ' ' なら '\0' に
5939: bne @f
5940: moveq.l #0,d0
5941: bra match_main
5942: @@:
5943: cmpi.b #$09,d0 ; d0 が TAB なら '\0' に
5944: bne match_main
5945: moveq.l #0,d0
5946: match_main:
5947: ; この状態で比較
5948: cmp.b (a0)+,d0
5949: bne not_match
5950: ; '\0' 以外で一致したら次の文字へ。
5951: tst.b d0
5952: bne match_loop
5953: ; '\0' で一致したので完了。
5954: suba.l #1,a2
5955: moveq.l #0,d0
5956: movem.l (sp)+,a1
5957: rts
5958:
5959: not_match:
5960: ; 不一致なので a2 を元に戻す。
5961: movea.l a1,a2
5962: moveq.l #1,d0
5963: movem.l (sp)+,a1
5964: rts
5965:
5966: ; 結果を1行表示する。
5967: ; A0 にテスト名、D0 に(テスト数-1)を入れて呼ぶこと。
5968: ;
5969: ; A2 からの result バッファは 2バイト1組で、
5970: ; +0 バイト目が期待値、bit4 がトラップの有無、bit3-0 が ConditionByte。
5971: ; +1 バイト目が結果値、構造は同じ。
5972: ;
5973: ; 期待値 結果
5974: ; (0<<4)|(x) (0<<4)|(x) pass:OK
5975: ; (0<<4)|(x) (0<<4)|(y) flag:FAIL
5976: ; (0<<4)|(x) (1<<4)|(x) trap:FAIL
5977: ; (0<<4)|(x) (1<<4)|(y) trap:FAIL
5978: ; (1<<4)|(x) (0<<4)|(x) pass:FAIL
5979: ; (1<<4)|(x) (0<<4)|(y) pass:FAIL
5980: ; (1<<4)|(x) (1<<4)|(x) trap:OK
5981: ; (1<<4)|(x) (1<<4)|(y) flag:FAIL
5982: print_result:
5983: movem.l d0-d4/a2,-(sp)
5984: move.l d0,d4
5985: PRINT (a0)
5986: lea.l result(pc),a2
5987: moveq.l #0,d0
5988: moveq.l #0,d1
5989: prloop:
5990: move.b (a2)+,d0 ; 期待値
5991: move.b (a2)+,d1 ; 結果
5992: ; 先に failed のカウント
5993: cmp.b d1,d0
5994: beq @f
5995: addi.l #1,failed
5996: @@:
5997: bfextu d0{#27:#1},d2 ; 期待値のトラップビット
5998: bfextu d1{#27:#1},d3 ; 結果のトラップビット
5999: andi.b #$0f,d0
6000: andi.b #$0f,d1
6001: cmp.b d1,d0
6002: sne.b d0
6003: neg.b d0 ; d0 は一致なら $0、そうでなければ $1
6004: lsl.l #1,d3 ; d3 は結果がトラップなら $2、通過なら $0
6005: or.b d3,d0
6006: lsl.l #2,d2 ; d2 は期待値がトラップなら $4、通過なら $0
6007: or.b d2,d0
6008: add.b d0,d0 ; d0 *= 2
6009: PRINT msg_result(pc,d0.w*8)
6010: dbra d4,prloop
6011: PRINT msg_crlf(pc)
6012: movem.l (sp)+,d0-d4/a2
6013: rts
6014:
6015: ; Fライン例外をテスト用のものに差し替える。
6016: ; 変更前のアドレスを a4 に格納する。
6017: set_fline:
6018: movem.l d0-d1/a1,-(sp)
6019: moveq.l #$b,d1
6020: lea.l fline_handler(pc),a1
6021: IOCS _B_INTVCS
6022: movea.l d0,a4
6023: movem.l (sp)+,d0-d1/a1
6024: rts
6025:
6026: ; Fライン例外を元に戻す。
6027: restore_fline:
6028: movem.l d0-d1/a1,-(sp)
6029: moveq.l #$b,d1
6030: movea.l a4,a1
6031: IOCS _B_INTVCS
6032: movem.l (sp)+,d0-d1/a1
6033: rts
6034:
6035: ; Fライン例外ハンドラ
6036: ; a3 に戻りアドレスをセットしてあること
6037: ; d7 を $10 にして帰る
6038: fline_handler:
6039: moveq.l #$10,d7
6040: move.l a3,2(sp)
6041: rte
6042:
6043: msg_test_d: .dc.b " Dn ",0
6044: msg_test_a: .dc.b " An ",0
6045: msg_test_m: .dc.b " (An) ",0
6046: msg_test_mi: .dc.b " (An)+ ",0
6047: msg_test_md: .dc.b " -(An) ",0
6048: msg_test_r: .dc.b " d16(An) ",0
6049: msg_test_x: .dc.b " d8(An,IX)",0
6050: msg_test_p: .dc.b " (PC) ",0
6051: msg_test_i: .dc.b " #imm ",0
6052: msg_test_o: .dc.b " 075 ",0
6053:
6054: msg_head_fmove:
6055: .dc.b "FMOVEtomem ",0
6056: msg_head_fgen:
6057: .dc.b "Fgen ",0
6058: msg_head_fscale:
6059: .dc.b "FSCALE ",0
6060: msg_head_fmovem_cm:
6061: .dc.b "FMOVEM_cm ",0
6062: msg_head_fmovem_mc:
6063: .dc.b "FMOVEM_mc ",0
6064: msg_head_fscc:
6065: .dc.b "FScc .B",$d,$a,0
6066: msg_head_fmovem_rm:
6067: .dc.b "FMOVEM_rm .X",$d,$a,0
6068: msg_head_fmovem_mr:
6069: .dc.b "FMOVEM_mr .X",$d,$a,0
6070:
6071: msg_head_guide4:
6072: .dc.b "FPCR "
6073: .dc.b "FPSR "
6074: .dc.b "FPIAR "
6075: .dc.b "FPSR/FPIAR",$d,$a,0
6076:
6077: msg_head_guide7:
6078: .dc.b ".B "
6079: .dc.b ".W "
6080: .dc.b ".L "
6081: .dc.b ".S "
6082: .dc.b ".D "
6083: .dc.b ".X "
6084: .dc.b ".P",$d,$a,0
6085:
6086: msg_result:
6087: .dc.b " pass:OK ",0,0,0,0,0,0
6088: .dc.b " flag:FAIL",0,0,0,0,0,0
6089: .dc.b " trap:FAIL",0,0,0,0,0,0
6090: .dc.b " trap:FAIL",0,0,0,0,0,0
6091: .dc.b " pass:FAIL",0,0,0,0,0,0
6092: .dc.b " pass:FAIL",0,0,0,0,0,0
6093: .dc.b " trap:OK ",0,0,0,0,0,0
6094: .dc.b " flag:FAIL",0
6095:
6096: msg_failed:
6097: .dc.b "FAILED" ; ,$d,$a,0
6098: msg_crlf:
6099: .dc.b $d,$a,0
6100:
6101: msg_help:
6102: .dc.b "usage: { 'all' | 'help' | testnames... }",$d,$a
6103: .dc.b " testnames:"
6104: .dc.b " fmove"
6105: .dc.b " fgen"
6106: .dc.b " fscale"
6107: .dc.b " fscc"
6108: .dc.b " fmovem_rm"
6109: .dc.b " fmovem_mr"
6110: .dc.b " fmovem_cm"
6111: .dc.b " fmovem_mc"
6112: .dc.b $d,$a,0
6113:
6114: cmd_help:
6115: .dc.b "help",0
6116: cmd_all:
6117: .dc.b "all",0
6118: cmd_fmove:
6119: .dc.b "fmove",0
6120: cmd_fgen:
6121: .dc.b "fgen",0
6122: cmd_fscale:
6123: .dc.b "fscale",0
6124: cmd_fscc:
6125: .dc.b "fscc",0
6126: cmd_fmovem_rm:
6127: .dc.b "fmovem_rm",0
6128: cmd_fmovem_mr:
6129: .dc.b "fmovem_mr",0
6130: cmd_fmovem_cm:
6131: .dc.b "fmovem_cm",0
6132: cmd_fmovem_mc:
6133: .dc.b "fmovem_mc",0
6134:
6135: .bss
6136: .even
6137: result:
6138: .ds.w 7
6139: .align 4
6140: workarea:
6141: .ds.l 3
6142: failed:
6143: .ds.l 1
6144:
6145: ; テストを実行する場合は !0
6146: is_tests:
6147: is_fmove:
6148: .ds.b 1
6149: is_fgen:
6150: .ds.b 1
6151: is_fscale:
6152: .ds.b 1
6153: is_fscc:
6154: .ds.b 1
6155: is_fmovem_rm:
6156: .ds.b 1
6157: is_fmovem_mr:
6158: .ds.b 1
6159: is_fmovem_cm:
6160: .ds.b 1
6161: is_fmovem_mc:
6162: .ds.b 1
6163:
6164: .end start
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.