![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to fmovemn.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 fmovemn.has CVS log | Up to [Isaki's NoNo m68k/m88k emulator] / nono / exp |
1.1 ! root 1: ; ! 2: ; nono ! 3: ; Copyright (C) 2019 [email protected] ! 4: ; ! 5: ! 6: ; How to compile: ! 7: ; > has fmovem_n.has ! 8: ; > hlk fmovem_n.o si_util.o ! 9: ! 10: .xref hexstr_long ! 11: .include doscall.mac ! 12: .list ! 13: .cpu 68030 ! 14: ! 15: PRINT .macro msg ! 16: pea.l msg(pc) ! 17: DOS _PRINT ! 18: addq.l #4,sp ! 19: .endm ! 20: ! 21: SET_FLINE_TRAP .macro ! 22: move.l (a5),a4 ! 23: lea.l fline_handler(pc),a1 ! 24: move.l a1,(a5) ! 25: .endm ! 26: ! 27: RESTORE_FLINE_TRAP .macro ! 28: move.l a4,(a5) ! 29: .endm ! 30: ! 31: .text ! 32: .even ! 33: test_fmovem_dn_to_fpn_pred_sta: ! 34: PRINT msg_fmovem_dn_to_fpn_pred_sta ! 35: SET_FLINE_TRAP ! 36: moveq.l #0,d7 ! 37: lea.l @f,a3 ! 38: .dc.w $f200, $c060 ! 39: @@: ! 40: RESTORE_FLINE_TRAP ! 41: tst.l d7 ! 42: bne @f ! 43: PRINT msg_fail_notrap ! 44: rts ! 45: @@: ! 46: PRINT msg_oktrap ! 47: rts ! 48: ! 49: test_fmovem_an_to_fpn_pred_sta: ! 50: PRINT msg_fmovem_an_to_fpn_pred_sta ! 51: SET_FLINE_TRAP ! 52: moveq.l #0,d7 ! 53: lea.l @f,a3 ! 54: .dc.w $f208, $c060 ! 55: @@: ! 56: RESTORE_FLINE_TRAP ! 57: tst.l d7 ! 58: bne @f ! 59: PRINT msg_fail_notrap ! 60: rts ! 61: @@: ! 62: PRINT msg_oktrap ! 63: rts ! 64: ! 65: test_fmovem_anin_to_fpn_pred_sta: ! 66: PRINT msg_fmovem_anin_to_fpn_pred_sta ! 67: lea.l initdata(pc),a0 ! 68: fmove.x (a0)+,fp0 ! 69: fmove.x (a0)+,fp1 ! 70: fmove.x (a0)+,fp2 ! 71: fmove.x (a0)+,fp3 ! 72: fmove.x (a0)+,fp4 ! 73: fmove.x (a0)+,fp5 ! 74: fmove.x (a0)+,fp6 ! 75: fmove.x (a0)+,fp7 ! 76: lea.l srcdata(pc),a0 ! 77: SET_FLINE_TRAP ! 78: moveq.l #0,d7 ! 79: lea.l @f,a3 ! 80: .dc.w $f210, $c060 ! 81: @@: ! 82: RESTORE_FLINE_TRAP ! 83: tst.l d7 ! 84: beq @f ! 85: PRINT msg_fail_trap ! 86: rts ! 87: @@: ! 88: lea.l srcdata+0(pc),a1 ! 89: cmp.l a1,a0 ! 90: beq @f ! 91: pea.l msg_fail_addr(pc) ! 92: move.l a1,-(sp) ! 93: move.l a0,-(sp) ! 94: bsr result ! 95: lea.l 12(sp),sp ! 96: @@: ! 97: lea.l workarea(pc),a2 ! 98: ; compare FP0 ! 99: pea.l msg_fail_fp0(pc) ! 100: pea.l (initdata+0*12)(pc) ! 101: fmove.x fp0,(a2) ! 102: pea.l (a2) ! 103: bsr check_ext ! 104: lea.l 12(sp),sp ! 105: ; compare FP1 ! 106: pea.l msg_fail_fp1(pc) ! 107: pea.l (initdata+1*12)(pc) ! 108: fmove.x fp1,(a2) ! 109: pea.l (a2) ! 110: bsr check_ext ! 111: lea.l 12(sp),sp ! 112: ; compare FP2 ! 113: pea.l msg_fail_fp2(pc) ! 114: pea.l (initdata+2*12)(pc) ! 115: fmove.x fp2,(a2) ! 116: pea.l (a2) ! 117: bsr check_ext ! 118: lea.l 12(sp),sp ! 119: ; compare FP3 ! 120: pea.l msg_fail_fp3(pc) ! 121: pea.l (initdata+3*12)(pc) ! 122: fmove.x fp3,(a2) ! 123: pea.l (a2) ! 124: bsr check_ext ! 125: lea.l 12(sp),sp ! 126: ; compare FP4 ! 127: pea.l msg_fail_fp4(pc) ! 128: pea.l (initdata+4*12)(pc) ! 129: fmove.x fp4,(a2) ! 130: pea.l (a2) ! 131: bsr check_ext ! 132: lea.l 12(sp),sp ! 133: ; compare FP5 ! 134: pea.l msg_fail_fp5(pc) ! 135: pea.l srcdata+12(pc) ! 136: fmove.x fp5,(a2) ! 137: pea.l (a2) ! 138: bsr check_ext ! 139: lea.l 12(sp),sp ! 140: ; compare FP6 ! 141: pea.l msg_fail_fp6(pc) ! 142: pea.l srcdata+0(pc) ! 143: fmove.x fp6,(a2) ! 144: pea.l (a2) ! 145: bsr check_ext ! 146: lea.l 12(sp),sp ! 147: ; compare FP7 ! 148: pea.l msg_fail_fp7(pc) ! 149: pea.l (initdata+7*12)(pc) ! 150: fmove.x fp7,(a2) ! 151: pea.l (a2) ! 152: bsr check_ext ! 153: lea.l 12(sp),sp ! 154: tst.l d7 ! 155: bne @f ! 156: PRINT msg_ok ! 157: @@: ! 158: rts ! 159: ! 160: test_fmovem_anpi_to_fpn_pred_sta: ! 161: PRINT msg_fmovem_anpi_to_fpn_pred_sta ! 162: lea.l initdata(pc),a0 ! 163: fmove.x (a0)+,fp0 ! 164: fmove.x (a0)+,fp1 ! 165: fmove.x (a0)+,fp2 ! 166: fmove.x (a0)+,fp3 ! 167: fmove.x (a0)+,fp4 ! 168: fmove.x (a0)+,fp5 ! 169: fmove.x (a0)+,fp6 ! 170: fmove.x (a0)+,fp7 ! 171: lea.l srcdata(pc),a0 ! 172: SET_FLINE_TRAP ! 173: moveq.l #0,d7 ! 174: lea.l @f,a3 ! 175: .dc.w $f218, $c060 ! 176: @@: ! 177: RESTORE_FLINE_TRAP ! 178: tst.l d7 ! 179: beq @f ! 180: PRINT msg_fail_trap ! 181: rts ! 182: @@: ! 183: lea.l srcdata+24(pc),a1 ! 184: cmp.l a1,a0 ! 185: beq @f ! 186: pea.l msg_fail_addr(pc) ! 187: move.l a1,-(sp) ! 188: move.l a0,-(sp) ! 189: bsr result ! 190: lea.l 12(sp),sp ! 191: @@: ! 192: lea.l workarea(pc),a2 ! 193: ; compare FP0 ! 194: pea.l msg_fail_fp0(pc) ! 195: pea.l (initdata+0*12)(pc) ! 196: fmove.x fp0,(a2) ! 197: pea.l (a2) ! 198: bsr check_ext ! 199: lea.l 12(sp),sp ! 200: ; compare FP1 ! 201: pea.l msg_fail_fp1(pc) ! 202: pea.l (initdata+1*12)(pc) ! 203: fmove.x fp1,(a2) ! 204: pea.l (a2) ! 205: bsr check_ext ! 206: lea.l 12(sp),sp ! 207: ; compare FP2 ! 208: pea.l msg_fail_fp2(pc) ! 209: pea.l (initdata+2*12)(pc) ! 210: fmove.x fp2,(a2) ! 211: pea.l (a2) ! 212: bsr check_ext ! 213: lea.l 12(sp),sp ! 214: ; compare FP3 ! 215: pea.l msg_fail_fp3(pc) ! 216: pea.l (initdata+3*12)(pc) ! 217: fmove.x fp3,(a2) ! 218: pea.l (a2) ! 219: bsr check_ext ! 220: lea.l 12(sp),sp ! 221: ; compare FP4 ! 222: pea.l msg_fail_fp4(pc) ! 223: pea.l (initdata+4*12)(pc) ! 224: fmove.x fp4,(a2) ! 225: pea.l (a2) ! 226: bsr check_ext ! 227: lea.l 12(sp),sp ! 228: ; compare FP5 ! 229: pea.l msg_fail_fp5(pc) ! 230: pea.l srcdata+12(pc) ! 231: fmove.x fp5,(a2) ! 232: pea.l (a2) ! 233: bsr check_ext ! 234: lea.l 12(sp),sp ! 235: ; compare FP6 ! 236: pea.l msg_fail_fp6(pc) ! 237: pea.l srcdata+0(pc) ! 238: fmove.x fp6,(a2) ! 239: pea.l (a2) ! 240: bsr check_ext ! 241: lea.l 12(sp),sp ! 242: ; compare FP7 ! 243: pea.l msg_fail_fp7(pc) ! 244: pea.l (initdata+7*12)(pc) ! 245: fmove.x fp7,(a2) ! 246: pea.l (a2) ! 247: bsr check_ext ! 248: lea.l 12(sp),sp ! 249: tst.l d7 ! 250: bne @f ! 251: PRINT msg_ok ! 252: @@: ! 253: rts ! 254: ! 255: test_fmovem_anpd_to_fpn_pred_sta: ! 256: PRINT msg_fmovem_anpd_to_fpn_pred_sta ! 257: SET_FLINE_TRAP ! 258: moveq.l #0,d7 ! 259: lea.l @f,a3 ! 260: .dc.w $f220, $c060 ! 261: @@: ! 262: RESTORE_FLINE_TRAP ! 263: tst.l d7 ! 264: bne @f ! 265: PRINT msg_fail_notrap ! 266: rts ! 267: @@: ! 268: PRINT msg_oktrap ! 269: rts ! 270: ! 271: test_fmovem_imm_to_fpn_pred_sta: ! 272: PRINT msg_fmovem_imm_to_fpn_pred_sta ! 273: SET_FLINE_TRAP ! 274: moveq.l #0,d7 ! 275: lea.l @f,a3 ! 276: .dc.w $f23c, $c060 ! 277: @@: ! 278: RESTORE_FLINE_TRAP ! 279: tst.l d7 ! 280: bne @f ! 281: PRINT msg_fail_notrap ! 282: rts ! 283: @@: ! 284: PRINT msg_oktrap ! 285: rts ! 286: ! 287: test_fmovem_dn_to_fpn_pred_dyn: ! 288: PRINT msg_fmovem_dn_to_fpn_pred_dyn ! 289: SET_FLINE_TRAP ! 290: moveq.l #0,d7 ! 291: lea.l @f,a3 ! 292: .dc.w $f200, $c860 ! 293: @@: ! 294: RESTORE_FLINE_TRAP ! 295: tst.l d7 ! 296: bne @f ! 297: PRINT msg_fail_notrap ! 298: rts ! 299: @@: ! 300: PRINT msg_oktrap ! 301: rts ! 302: ! 303: test_fmovem_an_to_fpn_pred_dyn: ! 304: PRINT msg_fmovem_an_to_fpn_pred_dyn ! 305: SET_FLINE_TRAP ! 306: moveq.l #0,d7 ! 307: lea.l @f,a3 ! 308: .dc.w $f208, $c860 ! 309: @@: ! 310: RESTORE_FLINE_TRAP ! 311: tst.l d7 ! 312: bne @f ! 313: PRINT msg_fail_notrap ! 314: rts ! 315: @@: ! 316: PRINT msg_oktrap ! 317: rts ! 318: ! 319: test_fmovem_anin_to_fpn_pred_dyn: ! 320: PRINT msg_fmovem_anin_to_fpn_pred_dyn ! 321: lea.l initdata(pc),a0 ! 322: fmove.x (a0)+,fp0 ! 323: fmove.x (a0)+,fp1 ! 324: fmove.x (a0)+,fp2 ! 325: fmove.x (a0)+,fp3 ! 326: fmove.x (a0)+,fp4 ! 327: fmove.x (a0)+,fp5 ! 328: fmove.x (a0)+,fp6 ! 329: fmove.x (a0)+,fp7 ! 330: lea.l srcdata(pc),a0 ! 331: moveq.l #$30,d6 ! 332: SET_FLINE_TRAP ! 333: moveq.l #0,d7 ! 334: lea.l @f,a3 ! 335: .dc.w $f210, $c860 ! 336: @@: ! 337: RESTORE_FLINE_TRAP ! 338: tst.l d7 ! 339: beq @f ! 340: PRINT msg_fail_trap ! 341: rts ! 342: @@: ! 343: lea.l srcdata+0(pc),a1 ! 344: cmp.l a1,a0 ! 345: beq @f ! 346: pea.l msg_fail_addr(pc) ! 347: move.l a1,-(sp) ! 348: move.l a0,-(sp) ! 349: bsr result ! 350: lea.l 12(sp),sp ! 351: @@: ! 352: lea.l workarea(pc),a2 ! 353: ; compare FP0 ! 354: pea.l msg_fail_fp0(pc) ! 355: pea.l (initdata+0*12)(pc) ! 356: fmove.x fp0,(a2) ! 357: pea.l (a2) ! 358: bsr check_ext ! 359: lea.l 12(sp),sp ! 360: ; compare FP1 ! 361: pea.l msg_fail_fp1(pc) ! 362: pea.l (initdata+1*12)(pc) ! 363: fmove.x fp1,(a2) ! 364: pea.l (a2) ! 365: bsr check_ext ! 366: lea.l 12(sp),sp ! 367: ; compare FP2 ! 368: pea.l msg_fail_fp2(pc) ! 369: pea.l (initdata+2*12)(pc) ! 370: fmove.x fp2,(a2) ! 371: pea.l (a2) ! 372: bsr check_ext ! 373: lea.l 12(sp),sp ! 374: ; compare FP3 ! 375: pea.l msg_fail_fp3(pc) ! 376: pea.l (initdata+3*12)(pc) ! 377: fmove.x fp3,(a2) ! 378: pea.l (a2) ! 379: bsr check_ext ! 380: lea.l 12(sp),sp ! 381: ; compare FP4 ! 382: pea.l msg_fail_fp4(pc) ! 383: pea.l srcdata+12(pc) ! 384: fmove.x fp4,(a2) ! 385: pea.l (a2) ! 386: bsr check_ext ! 387: lea.l 12(sp),sp ! 388: ; compare FP5 ! 389: pea.l msg_fail_fp5(pc) ! 390: pea.l srcdata+0(pc) ! 391: fmove.x fp5,(a2) ! 392: pea.l (a2) ! 393: bsr check_ext ! 394: lea.l 12(sp),sp ! 395: ; compare FP6 ! 396: pea.l msg_fail_fp6(pc) ! 397: pea.l (initdata+6*12)(pc) ! 398: fmove.x fp6,(a2) ! 399: pea.l (a2) ! 400: bsr check_ext ! 401: lea.l 12(sp),sp ! 402: ; compare FP7 ! 403: pea.l msg_fail_fp7(pc) ! 404: pea.l (initdata+7*12)(pc) ! 405: fmove.x fp7,(a2) ! 406: pea.l (a2) ! 407: bsr check_ext ! 408: lea.l 12(sp),sp ! 409: tst.l d7 ! 410: bne @f ! 411: PRINT msg_ok ! 412: @@: ! 413: rts ! 414: ! 415: test_fmovem_anpi_to_fpn_pred_dyn: ! 416: PRINT msg_fmovem_anpi_to_fpn_pred_dyn ! 417: lea.l initdata(pc),a0 ! 418: fmove.x (a0)+,fp0 ! 419: fmove.x (a0)+,fp1 ! 420: fmove.x (a0)+,fp2 ! 421: fmove.x (a0)+,fp3 ! 422: fmove.x (a0)+,fp4 ! 423: fmove.x (a0)+,fp5 ! 424: fmove.x (a0)+,fp6 ! 425: fmove.x (a0)+,fp7 ! 426: lea.l srcdata(pc),a0 ! 427: moveq.l #$30,d6 ! 428: SET_FLINE_TRAP ! 429: moveq.l #0,d7 ! 430: lea.l @f,a3 ! 431: .dc.w $f218, $c860 ! 432: @@: ! 433: RESTORE_FLINE_TRAP ! 434: tst.l d7 ! 435: beq @f ! 436: PRINT msg_fail_trap ! 437: rts ! 438: @@: ! 439: lea.l srcdata+24(pc),a1 ! 440: cmp.l a1,a0 ! 441: beq @f ! 442: pea.l msg_fail_addr(pc) ! 443: move.l a1,-(sp) ! 444: move.l a0,-(sp) ! 445: bsr result ! 446: lea.l 12(sp),sp ! 447: @@: ! 448: lea.l workarea(pc),a2 ! 449: ; compare FP0 ! 450: pea.l msg_fail_fp0(pc) ! 451: pea.l (initdata+0*12)(pc) ! 452: fmove.x fp0,(a2) ! 453: pea.l (a2) ! 454: bsr check_ext ! 455: lea.l 12(sp),sp ! 456: ; compare FP1 ! 457: pea.l msg_fail_fp1(pc) ! 458: pea.l (initdata+1*12)(pc) ! 459: fmove.x fp1,(a2) ! 460: pea.l (a2) ! 461: bsr check_ext ! 462: lea.l 12(sp),sp ! 463: ; compare FP2 ! 464: pea.l msg_fail_fp2(pc) ! 465: pea.l (initdata+2*12)(pc) ! 466: fmove.x fp2,(a2) ! 467: pea.l (a2) ! 468: bsr check_ext ! 469: lea.l 12(sp),sp ! 470: ; compare FP3 ! 471: pea.l msg_fail_fp3(pc) ! 472: pea.l (initdata+3*12)(pc) ! 473: fmove.x fp3,(a2) ! 474: pea.l (a2) ! 475: bsr check_ext ! 476: lea.l 12(sp),sp ! 477: ; compare FP4 ! 478: pea.l msg_fail_fp4(pc) ! 479: pea.l srcdata+12(pc) ! 480: fmove.x fp4,(a2) ! 481: pea.l (a2) ! 482: bsr check_ext ! 483: lea.l 12(sp),sp ! 484: ; compare FP5 ! 485: pea.l msg_fail_fp5(pc) ! 486: pea.l srcdata+0(pc) ! 487: fmove.x fp5,(a2) ! 488: pea.l (a2) ! 489: bsr check_ext ! 490: lea.l 12(sp),sp ! 491: ; compare FP6 ! 492: pea.l msg_fail_fp6(pc) ! 493: pea.l (initdata+6*12)(pc) ! 494: fmove.x fp6,(a2) ! 495: pea.l (a2) ! 496: bsr check_ext ! 497: lea.l 12(sp),sp ! 498: ; compare FP7 ! 499: pea.l msg_fail_fp7(pc) ! 500: pea.l (initdata+7*12)(pc) ! 501: fmove.x fp7,(a2) ! 502: pea.l (a2) ! 503: bsr check_ext ! 504: lea.l 12(sp),sp ! 505: tst.l d7 ! 506: bne @f ! 507: PRINT msg_ok ! 508: @@: ! 509: rts ! 510: ! 511: test_fmovem_anpd_to_fpn_pred_dyn: ! 512: PRINT msg_fmovem_anpd_to_fpn_pred_dyn ! 513: SET_FLINE_TRAP ! 514: moveq.l #0,d7 ! 515: lea.l @f,a3 ! 516: .dc.w $f220, $c860 ! 517: @@: ! 518: RESTORE_FLINE_TRAP ! 519: tst.l d7 ! 520: bne @f ! 521: PRINT msg_fail_notrap ! 522: rts ! 523: @@: ! 524: PRINT msg_oktrap ! 525: rts ! 526: ! 527: test_fmovem_imm_to_fpn_pred_dyn: ! 528: PRINT msg_fmovem_imm_to_fpn_pred_dyn ! 529: SET_FLINE_TRAP ! 530: moveq.l #0,d7 ! 531: lea.l @f,a3 ! 532: .dc.w $f23c, $c860 ! 533: @@: ! 534: RESTORE_FLINE_TRAP ! 535: tst.l d7 ! 536: bne @f ! 537: PRINT msg_fail_notrap ! 538: rts ! 539: @@: ! 540: PRINT msg_oktrap ! 541: rts ! 542: ! 543: test_fmovem_dn_to_fpn_ctrl_sta: ! 544: PRINT msg_fmovem_dn_to_fpn_ctrl_sta ! 545: SET_FLINE_TRAP ! 546: moveq.l #0,d7 ! 547: lea.l @f,a3 ! 548: .dc.w $f200, $d060 ! 549: @@: ! 550: RESTORE_FLINE_TRAP ! 551: tst.l d7 ! 552: bne @f ! 553: PRINT msg_fail_notrap ! 554: rts ! 555: @@: ! 556: PRINT msg_oktrap ! 557: rts ! 558: ! 559: test_fmovem_an_to_fpn_ctrl_sta: ! 560: PRINT msg_fmovem_an_to_fpn_ctrl_sta ! 561: SET_FLINE_TRAP ! 562: moveq.l #0,d7 ! 563: lea.l @f,a3 ! 564: .dc.w $f208, $d060 ! 565: @@: ! 566: RESTORE_FLINE_TRAP ! 567: tst.l d7 ! 568: bne @f ! 569: PRINT msg_fail_notrap ! 570: rts ! 571: @@: ! 572: PRINT msg_oktrap ! 573: rts ! 574: ! 575: test_fmovem_anin_to_fpn_ctrl_sta: ! 576: PRINT msg_fmovem_anin_to_fpn_ctrl_sta ! 577: lea.l initdata(pc),a0 ! 578: fmove.x (a0)+,fp0 ! 579: fmove.x (a0)+,fp1 ! 580: fmove.x (a0)+,fp2 ! 581: fmove.x (a0)+,fp3 ! 582: fmove.x (a0)+,fp4 ! 583: fmove.x (a0)+,fp5 ! 584: fmove.x (a0)+,fp6 ! 585: fmove.x (a0)+,fp7 ! 586: lea.l srcdata(pc),a0 ! 587: SET_FLINE_TRAP ! 588: moveq.l #0,d7 ! 589: lea.l @f,a3 ! 590: .dc.w $f210, $d060 ! 591: @@: ! 592: RESTORE_FLINE_TRAP ! 593: tst.l d7 ! 594: beq @f ! 595: PRINT msg_fail_trap ! 596: rts ! 597: @@: ! 598: lea.l srcdata+0(pc),a1 ! 599: cmp.l a1,a0 ! 600: beq @f ! 601: pea.l msg_fail_addr(pc) ! 602: move.l a1,-(sp) ! 603: move.l a0,-(sp) ! 604: bsr result ! 605: lea.l 12(sp),sp ! 606: @@: ! 607: lea.l workarea(pc),a2 ! 608: ; compare FP0 ! 609: pea.l msg_fail_fp0(pc) ! 610: pea.l (initdata+0*12)(pc) ! 611: fmove.x fp0,(a2) ! 612: pea.l (a2) ! 613: bsr check_ext ! 614: lea.l 12(sp),sp ! 615: ; compare FP1 ! 616: pea.l msg_fail_fp1(pc) ! 617: pea.l srcdata+0(pc) ! 618: fmove.x fp1,(a2) ! 619: pea.l (a2) ! 620: bsr check_ext ! 621: lea.l 12(sp),sp ! 622: ; compare FP2 ! 623: pea.l msg_fail_fp2(pc) ! 624: pea.l srcdata+12(pc) ! 625: fmove.x fp2,(a2) ! 626: pea.l (a2) ! 627: bsr check_ext ! 628: lea.l 12(sp),sp ! 629: ; compare FP3 ! 630: pea.l msg_fail_fp3(pc) ! 631: pea.l (initdata+3*12)(pc) ! 632: fmove.x fp3,(a2) ! 633: pea.l (a2) ! 634: bsr check_ext ! 635: lea.l 12(sp),sp ! 636: ; compare FP4 ! 637: pea.l msg_fail_fp4(pc) ! 638: pea.l (initdata+4*12)(pc) ! 639: fmove.x fp4,(a2) ! 640: pea.l (a2) ! 641: bsr check_ext ! 642: lea.l 12(sp),sp ! 643: ; compare FP5 ! 644: pea.l msg_fail_fp5(pc) ! 645: pea.l (initdata+5*12)(pc) ! 646: fmove.x fp5,(a2) ! 647: pea.l (a2) ! 648: bsr check_ext ! 649: lea.l 12(sp),sp ! 650: ; compare FP6 ! 651: pea.l msg_fail_fp6(pc) ! 652: pea.l (initdata+6*12)(pc) ! 653: fmove.x fp6,(a2) ! 654: pea.l (a2) ! 655: bsr check_ext ! 656: lea.l 12(sp),sp ! 657: ; compare FP7 ! 658: pea.l msg_fail_fp7(pc) ! 659: pea.l (initdata+7*12)(pc) ! 660: fmove.x fp7,(a2) ! 661: pea.l (a2) ! 662: bsr check_ext ! 663: lea.l 12(sp),sp ! 664: tst.l d7 ! 665: bne @f ! 666: PRINT msg_ok ! 667: @@: ! 668: rts ! 669: ! 670: test_fmovem_anpi_to_fpn_ctrl_sta: ! 671: PRINT msg_fmovem_anpi_to_fpn_ctrl_sta ! 672: lea.l initdata(pc),a0 ! 673: fmove.x (a0)+,fp0 ! 674: fmove.x (a0)+,fp1 ! 675: fmove.x (a0)+,fp2 ! 676: fmove.x (a0)+,fp3 ! 677: fmove.x (a0)+,fp4 ! 678: fmove.x (a0)+,fp5 ! 679: fmove.x (a0)+,fp6 ! 680: fmove.x (a0)+,fp7 ! 681: lea.l srcdata(pc),a0 ! 682: SET_FLINE_TRAP ! 683: moveq.l #0,d7 ! 684: lea.l @f,a3 ! 685: .dc.w $f218, $d060 ! 686: @@: ! 687: RESTORE_FLINE_TRAP ! 688: tst.l d7 ! 689: beq @f ! 690: PRINT msg_fail_trap ! 691: rts ! 692: @@: ! 693: lea.l srcdata+24(pc),a1 ! 694: cmp.l a1,a0 ! 695: beq @f ! 696: pea.l msg_fail_addr(pc) ! 697: move.l a1,-(sp) ! 698: move.l a0,-(sp) ! 699: bsr result ! 700: lea.l 12(sp),sp ! 701: @@: ! 702: lea.l workarea(pc),a2 ! 703: ; compare FP0 ! 704: pea.l msg_fail_fp0(pc) ! 705: pea.l (initdata+0*12)(pc) ! 706: fmove.x fp0,(a2) ! 707: pea.l (a2) ! 708: bsr check_ext ! 709: lea.l 12(sp),sp ! 710: ; compare FP1 ! 711: pea.l msg_fail_fp1(pc) ! 712: pea.l srcdata+0(pc) ! 713: fmove.x fp1,(a2) ! 714: pea.l (a2) ! 715: bsr check_ext ! 716: lea.l 12(sp),sp ! 717: ; compare FP2 ! 718: pea.l msg_fail_fp2(pc) ! 719: pea.l srcdata+12(pc) ! 720: fmove.x fp2,(a2) ! 721: pea.l (a2) ! 722: bsr check_ext ! 723: lea.l 12(sp),sp ! 724: ; compare FP3 ! 725: pea.l msg_fail_fp3(pc) ! 726: pea.l (initdata+3*12)(pc) ! 727: fmove.x fp3,(a2) ! 728: pea.l (a2) ! 729: bsr check_ext ! 730: lea.l 12(sp),sp ! 731: ; compare FP4 ! 732: pea.l msg_fail_fp4(pc) ! 733: pea.l (initdata+4*12)(pc) ! 734: fmove.x fp4,(a2) ! 735: pea.l (a2) ! 736: bsr check_ext ! 737: lea.l 12(sp),sp ! 738: ; compare FP5 ! 739: pea.l msg_fail_fp5(pc) ! 740: pea.l (initdata+5*12)(pc) ! 741: fmove.x fp5,(a2) ! 742: pea.l (a2) ! 743: bsr check_ext ! 744: lea.l 12(sp),sp ! 745: ; compare FP6 ! 746: pea.l msg_fail_fp6(pc) ! 747: pea.l (initdata+6*12)(pc) ! 748: fmove.x fp6,(a2) ! 749: pea.l (a2) ! 750: bsr check_ext ! 751: lea.l 12(sp),sp ! 752: ; compare FP7 ! 753: pea.l msg_fail_fp7(pc) ! 754: pea.l (initdata+7*12)(pc) ! 755: fmove.x fp7,(a2) ! 756: pea.l (a2) ! 757: bsr check_ext ! 758: lea.l 12(sp),sp ! 759: tst.l d7 ! 760: bne @f ! 761: PRINT msg_ok ! 762: @@: ! 763: rts ! 764: ! 765: test_fmovem_anpd_to_fpn_ctrl_sta: ! 766: PRINT msg_fmovem_anpd_to_fpn_ctrl_sta ! 767: SET_FLINE_TRAP ! 768: moveq.l #0,d7 ! 769: lea.l @f,a3 ! 770: .dc.w $f220, $d060 ! 771: @@: ! 772: RESTORE_FLINE_TRAP ! 773: tst.l d7 ! 774: bne @f ! 775: PRINT msg_fail_notrap ! 776: rts ! 777: @@: ! 778: PRINT msg_oktrap ! 779: rts ! 780: ! 781: test_fmovem_imm_to_fpn_ctrl_sta: ! 782: PRINT msg_fmovem_imm_to_fpn_ctrl_sta ! 783: SET_FLINE_TRAP ! 784: moveq.l #0,d7 ! 785: lea.l @f,a3 ! 786: .dc.w $f23c, $d060 ! 787: @@: ! 788: RESTORE_FLINE_TRAP ! 789: tst.l d7 ! 790: bne @f ! 791: PRINT msg_fail_notrap ! 792: rts ! 793: @@: ! 794: PRINT msg_oktrap ! 795: rts ! 796: ! 797: test_fmovem_dn_to_fpn_ctrl_dyn: ! 798: PRINT msg_fmovem_dn_to_fpn_ctrl_dyn ! 799: SET_FLINE_TRAP ! 800: moveq.l #0,d7 ! 801: lea.l @f,a3 ! 802: .dc.w $f200, $d860 ! 803: @@: ! 804: RESTORE_FLINE_TRAP ! 805: tst.l d7 ! 806: bne @f ! 807: PRINT msg_fail_notrap ! 808: rts ! 809: @@: ! 810: PRINT msg_oktrap ! 811: rts ! 812: ! 813: test_fmovem_an_to_fpn_ctrl_dyn: ! 814: PRINT msg_fmovem_an_to_fpn_ctrl_dyn ! 815: SET_FLINE_TRAP ! 816: moveq.l #0,d7 ! 817: lea.l @f,a3 ! 818: .dc.w $f208, $d860 ! 819: @@: ! 820: RESTORE_FLINE_TRAP ! 821: tst.l d7 ! 822: bne @f ! 823: PRINT msg_fail_notrap ! 824: rts ! 825: @@: ! 826: PRINT msg_oktrap ! 827: rts ! 828: ! 829: test_fmovem_anin_to_fpn_ctrl_dyn: ! 830: PRINT msg_fmovem_anin_to_fpn_ctrl_dyn ! 831: lea.l initdata(pc),a0 ! 832: fmove.x (a0)+,fp0 ! 833: fmove.x (a0)+,fp1 ! 834: fmove.x (a0)+,fp2 ! 835: fmove.x (a0)+,fp3 ! 836: fmove.x (a0)+,fp4 ! 837: fmove.x (a0)+,fp5 ! 838: fmove.x (a0)+,fp6 ! 839: fmove.x (a0)+,fp7 ! 840: lea.l srcdata(pc),a0 ! 841: moveq.l #$30,d6 ! 842: SET_FLINE_TRAP ! 843: moveq.l #0,d7 ! 844: lea.l @f,a3 ! 845: .dc.w $f210, $d860 ! 846: @@: ! 847: RESTORE_FLINE_TRAP ! 848: tst.l d7 ! 849: beq @f ! 850: PRINT msg_fail_trap ! 851: rts ! 852: @@: ! 853: lea.l srcdata+0(pc),a1 ! 854: cmp.l a1,a0 ! 855: beq @f ! 856: pea.l msg_fail_addr(pc) ! 857: move.l a1,-(sp) ! 858: move.l a0,-(sp) ! 859: bsr result ! 860: lea.l 12(sp),sp ! 861: @@: ! 862: lea.l workarea(pc),a2 ! 863: ; compare FP0 ! 864: pea.l msg_fail_fp0(pc) ! 865: pea.l (initdata+0*12)(pc) ! 866: fmove.x fp0,(a2) ! 867: pea.l (a2) ! 868: bsr check_ext ! 869: lea.l 12(sp),sp ! 870: ; compare FP1 ! 871: pea.l msg_fail_fp1(pc) ! 872: pea.l (initdata+1*12)(pc) ! 873: fmove.x fp1,(a2) ! 874: pea.l (a2) ! 875: bsr check_ext ! 876: lea.l 12(sp),sp ! 877: ; compare FP2 ! 878: pea.l msg_fail_fp2(pc) ! 879: pea.l srcdata+0(pc) ! 880: fmove.x fp2,(a2) ! 881: pea.l (a2) ! 882: bsr check_ext ! 883: lea.l 12(sp),sp ! 884: ; compare FP3 ! 885: pea.l msg_fail_fp3(pc) ! 886: pea.l srcdata+12(pc) ! 887: fmove.x fp3,(a2) ! 888: pea.l (a2) ! 889: bsr check_ext ! 890: lea.l 12(sp),sp ! 891: ; compare FP4 ! 892: pea.l msg_fail_fp4(pc) ! 893: pea.l (initdata+4*12)(pc) ! 894: fmove.x fp4,(a2) ! 895: pea.l (a2) ! 896: bsr check_ext ! 897: lea.l 12(sp),sp ! 898: ; compare FP5 ! 899: pea.l msg_fail_fp5(pc) ! 900: pea.l (initdata+5*12)(pc) ! 901: fmove.x fp5,(a2) ! 902: pea.l (a2) ! 903: bsr check_ext ! 904: lea.l 12(sp),sp ! 905: ; compare FP6 ! 906: pea.l msg_fail_fp6(pc) ! 907: pea.l (initdata+6*12)(pc) ! 908: fmove.x fp6,(a2) ! 909: pea.l (a2) ! 910: bsr check_ext ! 911: lea.l 12(sp),sp ! 912: ; compare FP7 ! 913: pea.l msg_fail_fp7(pc) ! 914: pea.l (initdata+7*12)(pc) ! 915: fmove.x fp7,(a2) ! 916: pea.l (a2) ! 917: bsr check_ext ! 918: lea.l 12(sp),sp ! 919: tst.l d7 ! 920: bne @f ! 921: PRINT msg_ok ! 922: @@: ! 923: rts ! 924: ! 925: test_fmovem_anpi_to_fpn_ctrl_dyn: ! 926: PRINT msg_fmovem_anpi_to_fpn_ctrl_dyn ! 927: lea.l initdata(pc),a0 ! 928: fmove.x (a0)+,fp0 ! 929: fmove.x (a0)+,fp1 ! 930: fmove.x (a0)+,fp2 ! 931: fmove.x (a0)+,fp3 ! 932: fmove.x (a0)+,fp4 ! 933: fmove.x (a0)+,fp5 ! 934: fmove.x (a0)+,fp6 ! 935: fmove.x (a0)+,fp7 ! 936: lea.l srcdata(pc),a0 ! 937: moveq.l #$30,d6 ! 938: SET_FLINE_TRAP ! 939: moveq.l #0,d7 ! 940: lea.l @f,a3 ! 941: .dc.w $f218, $d860 ! 942: @@: ! 943: RESTORE_FLINE_TRAP ! 944: tst.l d7 ! 945: beq @f ! 946: PRINT msg_fail_trap ! 947: rts ! 948: @@: ! 949: lea.l srcdata+24(pc),a1 ! 950: cmp.l a1,a0 ! 951: beq @f ! 952: pea.l msg_fail_addr(pc) ! 953: move.l a1,-(sp) ! 954: move.l a0,-(sp) ! 955: bsr result ! 956: lea.l 12(sp),sp ! 957: @@: ! 958: lea.l workarea(pc),a2 ! 959: ; compare FP0 ! 960: pea.l msg_fail_fp0(pc) ! 961: pea.l (initdata+0*12)(pc) ! 962: fmove.x fp0,(a2) ! 963: pea.l (a2) ! 964: bsr check_ext ! 965: lea.l 12(sp),sp ! 966: ; compare FP1 ! 967: pea.l msg_fail_fp1(pc) ! 968: pea.l (initdata+1*12)(pc) ! 969: fmove.x fp1,(a2) ! 970: pea.l (a2) ! 971: bsr check_ext ! 972: lea.l 12(sp),sp ! 973: ; compare FP2 ! 974: pea.l msg_fail_fp2(pc) ! 975: pea.l srcdata+0(pc) ! 976: fmove.x fp2,(a2) ! 977: pea.l (a2) ! 978: bsr check_ext ! 979: lea.l 12(sp),sp ! 980: ; compare FP3 ! 981: pea.l msg_fail_fp3(pc) ! 982: pea.l srcdata+12(pc) ! 983: fmove.x fp3,(a2) ! 984: pea.l (a2) ! 985: bsr check_ext ! 986: lea.l 12(sp),sp ! 987: ; compare FP4 ! 988: pea.l msg_fail_fp4(pc) ! 989: pea.l (initdata+4*12)(pc) ! 990: fmove.x fp4,(a2) ! 991: pea.l (a2) ! 992: bsr check_ext ! 993: lea.l 12(sp),sp ! 994: ; compare FP5 ! 995: pea.l msg_fail_fp5(pc) ! 996: pea.l (initdata+5*12)(pc) ! 997: fmove.x fp5,(a2) ! 998: pea.l (a2) ! 999: bsr check_ext ! 1000: lea.l 12(sp),sp ! 1001: ; compare FP6 ! 1002: pea.l msg_fail_fp6(pc) ! 1003: pea.l (initdata+6*12)(pc) ! 1004: fmove.x fp6,(a2) ! 1005: pea.l (a2) ! 1006: bsr check_ext ! 1007: lea.l 12(sp),sp ! 1008: ; compare FP7 ! 1009: pea.l msg_fail_fp7(pc) ! 1010: pea.l (initdata+7*12)(pc) ! 1011: fmove.x fp7,(a2) ! 1012: pea.l (a2) ! 1013: bsr check_ext ! 1014: lea.l 12(sp),sp ! 1015: tst.l d7 ! 1016: bne @f ! 1017: PRINT msg_ok ! 1018: @@: ! 1019: rts ! 1020: ! 1021: test_fmovem_anpd_to_fpn_ctrl_dyn: ! 1022: PRINT msg_fmovem_anpd_to_fpn_ctrl_dyn ! 1023: SET_FLINE_TRAP ! 1024: moveq.l #0,d7 ! 1025: lea.l @f,a3 ! 1026: .dc.w $f220, $d860 ! 1027: @@: ! 1028: RESTORE_FLINE_TRAP ! 1029: tst.l d7 ! 1030: bne @f ! 1031: PRINT msg_fail_notrap ! 1032: rts ! 1033: @@: ! 1034: PRINT msg_oktrap ! 1035: rts ! 1036: ! 1037: test_fmovem_imm_to_fpn_ctrl_dyn: ! 1038: PRINT msg_fmovem_imm_to_fpn_ctrl_dyn ! 1039: SET_FLINE_TRAP ! 1040: moveq.l #0,d7 ! 1041: lea.l @f,a3 ! 1042: .dc.w $f23c, $d860 ! 1043: @@: ! 1044: RESTORE_FLINE_TRAP ! 1045: tst.l d7 ! 1046: bne @f ! 1047: PRINT msg_fail_notrap ! 1048: rts ! 1049: @@: ! 1050: PRINT msg_oktrap ! 1051: rts ! 1052: ! 1053: test_fmovem_fpn_to_dn_pred_sta: ! 1054: PRINT msg_fmovem_fpn_to_dn_pred_sta ! 1055: SET_FLINE_TRAP ! 1056: moveq.l #0,d7 ! 1057: lea.l @f,a3 ! 1058: .dc.w $f200, $e060 ! 1059: @@: ! 1060: RESTORE_FLINE_TRAP ! 1061: tst.l d7 ! 1062: bne @f ! 1063: PRINT msg_fail_notrap ! 1064: rts ! 1065: @@: ! 1066: PRINT msg_oktrap ! 1067: rts ! 1068: ! 1069: test_fmovem_fpn_to_an_pred_sta: ! 1070: PRINT msg_fmovem_fpn_to_an_pred_sta ! 1071: SET_FLINE_TRAP ! 1072: moveq.l #0,d7 ! 1073: lea.l @f,a3 ! 1074: .dc.w $f208, $e060 ! 1075: @@: ! 1076: RESTORE_FLINE_TRAP ! 1077: tst.l d7 ! 1078: bne @f ! 1079: PRINT msg_fail_notrap ! 1080: rts ! 1081: @@: ! 1082: PRINT msg_oktrap ! 1083: rts ! 1084: ! 1085: test_fmovem_fpn_to_anin_pred_sta: ! 1086: PRINT msg_fmovem_fpn_to_anin_pred_sta ! 1087: lea.l initdata(pc),a0 ! 1088: fmove.x (a0)+,fp0 ! 1089: fmove.x (a0)+,fp1 ! 1090: fmove.x (a0)+,fp2 ! 1091: fmove.x (a0)+,fp3 ! 1092: fmove.x (a0)+,fp4 ! 1093: fmove.x (a0)+,fp5 ! 1094: fmove.x (a0)+,fp6 ! 1095: fmove.x (a0)+,fp7 ! 1096: moveq.l #0,d0 ! 1097: moveq.l #0,d1 ! 1098: moveq.l #0,d7 ! 1099: lea.l workarea(pc),a0 ! 1100: movem.l d0-d1/d7,(a0) ! 1101: movem.l d0-d1/d7,12(a0) ! 1102: SET_FLINE_TRAP ! 1103: lea.l @f,a3 ! 1104: .dc.w $f210, $e060 ! 1105: @@: ! 1106: RESTORE_FLINE_TRAP ! 1107: tst.l d7 ! 1108: beq @f ! 1109: PRINT msg_fail_trap ! 1110: rts ! 1111: @@: ! 1112: lea.l workarea(pc),a1 ! 1113: cmp.l a1,a0 ! 1114: beq @f ! 1115: pea.l msg_fail_addr(pc) ! 1116: move.l a1,-(sp) ! 1117: move.l a0,-(sp) ! 1118: bsr result ! 1119: lea.l 12(sp),sp ! 1120: @@: ! 1121: ; compare first one ! 1122: pea.l msg_fail_1st(pc) ! 1123: pea.l (initdata+6*12)(pc) ! 1124: pea.l 0(a1) ! 1125: bsr check_ext ! 1126: lea.l 12(sp),sp ! 1127: ; compare second one ! 1128: pea.l msg_fail_2nd(pc) ! 1129: pea.l (initdata+5*12)(pc) ! 1130: pea.l 12(a1) ! 1131: bsr check_ext ! 1132: lea.l 12(sp),sp ! 1133: ! 1134: tst.l d7 ! 1135: bne @f ! 1136: PRINT msg_ok ! 1137: @@: ! 1138: rts ! 1139: ! 1140: test_fmovem_fpn_to_anpi_pred_sta: ! 1141: PRINT msg_fmovem_fpn_to_anpi_pred_sta ! 1142: SET_FLINE_TRAP ! 1143: moveq.l #0,d7 ! 1144: lea.l @f,a3 ! 1145: .dc.w $f218, $e060 ! 1146: @@: ! 1147: RESTORE_FLINE_TRAP ! 1148: tst.l d7 ! 1149: bne @f ! 1150: PRINT msg_fail_notrap ! 1151: rts ! 1152: @@: ! 1153: PRINT msg_oktrap ! 1154: rts ! 1155: ! 1156: test_fmovem_fpn_to_anpd_pred_sta: ! 1157: PRINT msg_fmovem_fpn_to_anpd_pred_sta ! 1158: lea.l initdata(pc),a0 ! 1159: fmove.x (a0)+,fp0 ! 1160: fmove.x (a0)+,fp1 ! 1161: fmove.x (a0)+,fp2 ! 1162: fmove.x (a0)+,fp3 ! 1163: fmove.x (a0)+,fp4 ! 1164: fmove.x (a0)+,fp5 ! 1165: fmove.x (a0)+,fp6 ! 1166: fmove.x (a0)+,fp7 ! 1167: moveq.l #0,d0 ! 1168: moveq.l #0,d1 ! 1169: moveq.l #0,d7 ! 1170: lea.l workarea(pc),a0 ! 1171: movem.l d0-d1/d7,(a0) ! 1172: movem.l d0-d1/d7,12(a0) ! 1173: lea.l workarea+24(pc),a0 ! 1174: SET_FLINE_TRAP ! 1175: lea.l @f,a3 ! 1176: .dc.w $f220, $e060 ! 1177: @@: ! 1178: RESTORE_FLINE_TRAP ! 1179: tst.l d7 ! 1180: beq @f ! 1181: PRINT msg_fail_trap ! 1182: rts ! 1183: @@: ! 1184: lea.l workarea(pc),a1 ! 1185: cmp.l a1,a0 ! 1186: beq @f ! 1187: pea.l msg_fail_addr(pc) ! 1188: move.l a1,-(sp) ! 1189: move.l a0,-(sp) ! 1190: bsr result ! 1191: lea.l 12(sp),sp ! 1192: @@: ! 1193: ; compare first one ! 1194: pea.l msg_fail_1st(pc) ! 1195: pea.l (initdata+6*12)(pc) ! 1196: pea.l 12(a1) ! 1197: bsr check_ext ! 1198: lea.l 12(sp),sp ! 1199: ; compare second one ! 1200: pea.l msg_fail_2nd(pc) ! 1201: pea.l (initdata+5*12)(pc) ! 1202: pea.l 0(a1) ! 1203: bsr check_ext ! 1204: lea.l 12(sp),sp ! 1205: ! 1206: tst.l d7 ! 1207: bne @f ! 1208: PRINT msg_ok ! 1209: @@: ! 1210: rts ! 1211: ! 1212: test_fmovem_fpn_to_imm_pred_sta: ! 1213: PRINT msg_fmovem_fpn_to_imm_pred_sta ! 1214: SET_FLINE_TRAP ! 1215: moveq.l #0,d7 ! 1216: lea.l @f,a3 ! 1217: .dc.w $f23c, $e060 ! 1218: @@: ! 1219: RESTORE_FLINE_TRAP ! 1220: tst.l d7 ! 1221: bne @f ! 1222: PRINT msg_fail_notrap ! 1223: rts ! 1224: @@: ! 1225: PRINT msg_oktrap ! 1226: rts ! 1227: ! 1228: test_fmovem_fpn_to_dn_pred_dyn: ! 1229: PRINT msg_fmovem_fpn_to_dn_pred_dyn ! 1230: SET_FLINE_TRAP ! 1231: moveq.l #0,d7 ! 1232: lea.l @f,a3 ! 1233: .dc.w $f200, $e860 ! 1234: @@: ! 1235: RESTORE_FLINE_TRAP ! 1236: tst.l d7 ! 1237: bne @f ! 1238: PRINT msg_fail_notrap ! 1239: rts ! 1240: @@: ! 1241: PRINT msg_oktrap ! 1242: rts ! 1243: ! 1244: test_fmovem_fpn_to_an_pred_dyn: ! 1245: PRINT msg_fmovem_fpn_to_an_pred_dyn ! 1246: SET_FLINE_TRAP ! 1247: moveq.l #0,d7 ! 1248: lea.l @f,a3 ! 1249: .dc.w $f208, $e860 ! 1250: @@: ! 1251: RESTORE_FLINE_TRAP ! 1252: tst.l d7 ! 1253: bne @f ! 1254: PRINT msg_fail_notrap ! 1255: rts ! 1256: @@: ! 1257: PRINT msg_oktrap ! 1258: rts ! 1259: ! 1260: test_fmovem_fpn_to_anin_pred_dyn: ! 1261: PRINT msg_fmovem_fpn_to_anin_pred_dyn ! 1262: lea.l initdata(pc),a0 ! 1263: fmove.x (a0)+,fp0 ! 1264: fmove.x (a0)+,fp1 ! 1265: fmove.x (a0)+,fp2 ! 1266: fmove.x (a0)+,fp3 ! 1267: fmove.x (a0)+,fp4 ! 1268: fmove.x (a0)+,fp5 ! 1269: fmove.x (a0)+,fp6 ! 1270: fmove.x (a0)+,fp7 ! 1271: moveq.l #0,d0 ! 1272: moveq.l #0,d1 ! 1273: moveq.l #0,d7 ! 1274: lea.l workarea(pc),a0 ! 1275: movem.l d0-d1/d7,(a0) ! 1276: movem.l d0-d1/d7,12(a0) ! 1277: moveq.l #$30,d6 ! 1278: SET_FLINE_TRAP ! 1279: lea.l @f,a3 ! 1280: .dc.w $f210, $e860 ! 1281: @@: ! 1282: RESTORE_FLINE_TRAP ! 1283: tst.l d7 ! 1284: beq @f ! 1285: PRINT msg_fail_trap ! 1286: rts ! 1287: @@: ! 1288: lea.l workarea(pc),a1 ! 1289: cmp.l a1,a0 ! 1290: beq @f ! 1291: pea.l msg_fail_addr(pc) ! 1292: move.l a1,-(sp) ! 1293: move.l a0,-(sp) ! 1294: bsr result ! 1295: lea.l 12(sp),sp ! 1296: @@: ! 1297: ; compare first one ! 1298: pea.l msg_fail_1st(pc) ! 1299: pea.l (initdata+5*12)(pc) ! 1300: pea.l 0(a1) ! 1301: bsr check_ext ! 1302: lea.l 12(sp),sp ! 1303: ; compare second one ! 1304: pea.l msg_fail_2nd(pc) ! 1305: pea.l (initdata+4*12)(pc) ! 1306: pea.l 12(a1) ! 1307: bsr check_ext ! 1308: lea.l 12(sp),sp ! 1309: ! 1310: tst.l d7 ! 1311: bne @f ! 1312: PRINT msg_ok ! 1313: @@: ! 1314: rts ! 1315: ! 1316: test_fmovem_fpn_to_anpi_pred_dyn: ! 1317: PRINT msg_fmovem_fpn_to_anpi_pred_dyn ! 1318: SET_FLINE_TRAP ! 1319: moveq.l #0,d7 ! 1320: lea.l @f,a3 ! 1321: .dc.w $f218, $e860 ! 1322: @@: ! 1323: RESTORE_FLINE_TRAP ! 1324: tst.l d7 ! 1325: bne @f ! 1326: PRINT msg_fail_notrap ! 1327: rts ! 1328: @@: ! 1329: PRINT msg_oktrap ! 1330: rts ! 1331: ! 1332: test_fmovem_fpn_to_anpd_pred_dyn: ! 1333: PRINT msg_fmovem_fpn_to_anpd_pred_dyn ! 1334: lea.l initdata(pc),a0 ! 1335: fmove.x (a0)+,fp0 ! 1336: fmove.x (a0)+,fp1 ! 1337: fmove.x (a0)+,fp2 ! 1338: fmove.x (a0)+,fp3 ! 1339: fmove.x (a0)+,fp4 ! 1340: fmove.x (a0)+,fp5 ! 1341: fmove.x (a0)+,fp6 ! 1342: fmove.x (a0)+,fp7 ! 1343: moveq.l #0,d0 ! 1344: moveq.l #0,d1 ! 1345: moveq.l #0,d7 ! 1346: lea.l workarea(pc),a0 ! 1347: movem.l d0-d1/d7,(a0) ! 1348: movem.l d0-d1/d7,12(a0) ! 1349: lea.l workarea+24(pc),a0 ! 1350: moveq.l #$30,d6 ! 1351: SET_FLINE_TRAP ! 1352: lea.l @f,a3 ! 1353: .dc.w $f220, $e860 ! 1354: @@: ! 1355: RESTORE_FLINE_TRAP ! 1356: tst.l d7 ! 1357: beq @f ! 1358: PRINT msg_fail_trap ! 1359: rts ! 1360: @@: ! 1361: lea.l workarea(pc),a1 ! 1362: cmp.l a1,a0 ! 1363: beq @f ! 1364: pea.l msg_fail_addr(pc) ! 1365: move.l a1,-(sp) ! 1366: move.l a0,-(sp) ! 1367: bsr result ! 1368: lea.l 12(sp),sp ! 1369: @@: ! 1370: ; compare first one ! 1371: pea.l msg_fail_1st(pc) ! 1372: pea.l (initdata+5*12)(pc) ! 1373: pea.l 12(a1) ! 1374: bsr check_ext ! 1375: lea.l 12(sp),sp ! 1376: ; compare second one ! 1377: pea.l msg_fail_2nd(pc) ! 1378: pea.l (initdata+4*12)(pc) ! 1379: pea.l 0(a1) ! 1380: bsr check_ext ! 1381: lea.l 12(sp),sp ! 1382: ! 1383: tst.l d7 ! 1384: bne @f ! 1385: PRINT msg_ok ! 1386: @@: ! 1387: rts ! 1388: ! 1389: test_fmovem_fpn_to_imm_pred_dyn: ! 1390: PRINT msg_fmovem_fpn_to_imm_pred_dyn ! 1391: SET_FLINE_TRAP ! 1392: moveq.l #0,d7 ! 1393: lea.l @f,a3 ! 1394: .dc.w $f23c, $e860 ! 1395: @@: ! 1396: RESTORE_FLINE_TRAP ! 1397: tst.l d7 ! 1398: bne @f ! 1399: PRINT msg_fail_notrap ! 1400: rts ! 1401: @@: ! 1402: PRINT msg_oktrap ! 1403: rts ! 1404: ! 1405: test_fmovem_fpn_to_dn_ctrl_sta: ! 1406: PRINT msg_fmovem_fpn_to_dn_ctrl_sta ! 1407: SET_FLINE_TRAP ! 1408: moveq.l #0,d7 ! 1409: lea.l @f,a3 ! 1410: .dc.w $f200, $f060 ! 1411: @@: ! 1412: RESTORE_FLINE_TRAP ! 1413: tst.l d7 ! 1414: bne @f ! 1415: PRINT msg_fail_notrap ! 1416: rts ! 1417: @@: ! 1418: PRINT msg_oktrap ! 1419: rts ! 1420: ! 1421: test_fmovem_fpn_to_an_ctrl_sta: ! 1422: PRINT msg_fmovem_fpn_to_an_ctrl_sta ! 1423: SET_FLINE_TRAP ! 1424: moveq.l #0,d7 ! 1425: lea.l @f,a3 ! 1426: .dc.w $f208, $f060 ! 1427: @@: ! 1428: RESTORE_FLINE_TRAP ! 1429: tst.l d7 ! 1430: bne @f ! 1431: PRINT msg_fail_notrap ! 1432: rts ! 1433: @@: ! 1434: PRINT msg_oktrap ! 1435: rts ! 1436: ! 1437: test_fmovem_fpn_to_anin_ctrl_sta: ! 1438: PRINT msg_fmovem_fpn_to_anin_ctrl_sta ! 1439: lea.l initdata(pc),a0 ! 1440: fmove.x (a0)+,fp0 ! 1441: fmove.x (a0)+,fp1 ! 1442: fmove.x (a0)+,fp2 ! 1443: fmove.x (a0)+,fp3 ! 1444: fmove.x (a0)+,fp4 ! 1445: fmove.x (a0)+,fp5 ! 1446: fmove.x (a0)+,fp6 ! 1447: fmove.x (a0)+,fp7 ! 1448: moveq.l #0,d0 ! 1449: moveq.l #0,d1 ! 1450: moveq.l #0,d7 ! 1451: lea.l workarea(pc),a0 ! 1452: movem.l d0-d1/d7,(a0) ! 1453: movem.l d0-d1/d7,12(a0) ! 1454: SET_FLINE_TRAP ! 1455: lea.l @f,a3 ! 1456: .dc.w $f210, $f060 ! 1457: @@: ! 1458: RESTORE_FLINE_TRAP ! 1459: tst.l d7 ! 1460: beq @f ! 1461: PRINT msg_fail_trap ! 1462: rts ! 1463: @@: ! 1464: lea.l workarea(pc),a1 ! 1465: cmp.l a1,a0 ! 1466: beq @f ! 1467: pea.l msg_fail_addr(pc) ! 1468: move.l a1,-(sp) ! 1469: move.l a0,-(sp) ! 1470: bsr result ! 1471: lea.l 12(sp),sp ! 1472: @@: ! 1473: ; compare first one ! 1474: pea.l msg_fail_1st(pc) ! 1475: pea.l (initdata+1*12)(pc) ! 1476: pea.l 0(a1) ! 1477: bsr check_ext ! 1478: lea.l 12(sp),sp ! 1479: ; compare second one ! 1480: pea.l msg_fail_2nd(pc) ! 1481: pea.l (initdata+2*12)(pc) ! 1482: pea.l 12(a1) ! 1483: bsr check_ext ! 1484: lea.l 12(sp),sp ! 1485: ! 1486: tst.l d7 ! 1487: bne @f ! 1488: PRINT msg_ok ! 1489: @@: ! 1490: rts ! 1491: ! 1492: test_fmovem_fpn_to_anpi_ctrl_sta: ! 1493: PRINT msg_fmovem_fpn_to_anpi_ctrl_sta ! 1494: SET_FLINE_TRAP ! 1495: moveq.l #0,d7 ! 1496: lea.l @f,a3 ! 1497: .dc.w $f218, $f060 ! 1498: @@: ! 1499: RESTORE_FLINE_TRAP ! 1500: tst.l d7 ! 1501: bne @f ! 1502: PRINT msg_fail_notrap ! 1503: rts ! 1504: @@: ! 1505: PRINT msg_oktrap ! 1506: rts ! 1507: ! 1508: test_fmovem_fpn_to_anpd_ctrl_sta: ! 1509: PRINT msg_fmovem_fpn_to_anpd_ctrl_sta ! 1510: lea.l initdata(pc),a0 ! 1511: fmove.x (a0)+,fp0 ! 1512: fmove.x (a0)+,fp1 ! 1513: fmove.x (a0)+,fp2 ! 1514: fmove.x (a0)+,fp3 ! 1515: fmove.x (a0)+,fp4 ! 1516: fmove.x (a0)+,fp5 ! 1517: fmove.x (a0)+,fp6 ! 1518: fmove.x (a0)+,fp7 ! 1519: moveq.l #0,d0 ! 1520: moveq.l #0,d1 ! 1521: moveq.l #0,d7 ! 1522: lea.l workarea(pc),a0 ! 1523: movem.l d0-d1/d7,(a0) ! 1524: movem.l d0-d1/d7,12(a0) ! 1525: lea.l workarea+24(pc),a0 ! 1526: SET_FLINE_TRAP ! 1527: lea.l @f,a3 ! 1528: .dc.w $f220, $f060 ! 1529: @@: ! 1530: RESTORE_FLINE_TRAP ! 1531: tst.l d7 ! 1532: beq @f ! 1533: PRINT msg_fail_trap ! 1534: rts ! 1535: @@: ! 1536: lea.l workarea(pc),a1 ! 1537: cmp.l a1,a0 ! 1538: beq @f ! 1539: pea.l msg_fail_addr(pc) ! 1540: move.l a1,-(sp) ! 1541: move.l a0,-(sp) ! 1542: bsr result ! 1543: lea.l 12(sp),sp ! 1544: @@: ! 1545: ; compare first one ! 1546: pea.l msg_fail_1st(pc) ! 1547: pea.l (initdata+1*12)(pc) ! 1548: pea.l 12(a1) ! 1549: bsr check_ext ! 1550: lea.l 12(sp),sp ! 1551: ; compare second one ! 1552: pea.l msg_fail_2nd(pc) ! 1553: pea.l (initdata+2*12)(pc) ! 1554: pea.l 0(a1) ! 1555: bsr check_ext ! 1556: lea.l 12(sp),sp ! 1557: ! 1558: tst.l d7 ! 1559: bne @f ! 1560: PRINT msg_ok ! 1561: @@: ! 1562: rts ! 1563: ! 1564: test_fmovem_fpn_to_imm_ctrl_sta: ! 1565: PRINT msg_fmovem_fpn_to_imm_ctrl_sta ! 1566: SET_FLINE_TRAP ! 1567: moveq.l #0,d7 ! 1568: lea.l @f,a3 ! 1569: .dc.w $f23c, $f060 ! 1570: @@: ! 1571: RESTORE_FLINE_TRAP ! 1572: tst.l d7 ! 1573: bne @f ! 1574: PRINT msg_fail_notrap ! 1575: rts ! 1576: @@: ! 1577: PRINT msg_oktrap ! 1578: rts ! 1579: ! 1580: test_fmovem_fpn_to_dn_ctrl_dyn: ! 1581: PRINT msg_fmovem_fpn_to_dn_ctrl_dyn ! 1582: SET_FLINE_TRAP ! 1583: moveq.l #0,d7 ! 1584: lea.l @f,a3 ! 1585: .dc.w $f200, $f860 ! 1586: @@: ! 1587: RESTORE_FLINE_TRAP ! 1588: tst.l d7 ! 1589: bne @f ! 1590: PRINT msg_fail_notrap ! 1591: rts ! 1592: @@: ! 1593: PRINT msg_oktrap ! 1594: rts ! 1595: ! 1596: test_fmovem_fpn_to_an_ctrl_dyn: ! 1597: PRINT msg_fmovem_fpn_to_an_ctrl_dyn ! 1598: SET_FLINE_TRAP ! 1599: moveq.l #0,d7 ! 1600: lea.l @f,a3 ! 1601: .dc.w $f208, $f860 ! 1602: @@: ! 1603: RESTORE_FLINE_TRAP ! 1604: tst.l d7 ! 1605: bne @f ! 1606: PRINT msg_fail_notrap ! 1607: rts ! 1608: @@: ! 1609: PRINT msg_oktrap ! 1610: rts ! 1611: ! 1612: test_fmovem_fpn_to_anin_ctrl_dyn: ! 1613: PRINT msg_fmovem_fpn_to_anin_ctrl_dyn ! 1614: lea.l initdata(pc),a0 ! 1615: fmove.x (a0)+,fp0 ! 1616: fmove.x (a0)+,fp1 ! 1617: fmove.x (a0)+,fp2 ! 1618: fmove.x (a0)+,fp3 ! 1619: fmove.x (a0)+,fp4 ! 1620: fmove.x (a0)+,fp5 ! 1621: fmove.x (a0)+,fp6 ! 1622: fmove.x (a0)+,fp7 ! 1623: moveq.l #0,d0 ! 1624: moveq.l #0,d1 ! 1625: moveq.l #0,d7 ! 1626: lea.l workarea(pc),a0 ! 1627: movem.l d0-d1/d7,(a0) ! 1628: movem.l d0-d1/d7,12(a0) ! 1629: moveq.l #$30,d6 ! 1630: SET_FLINE_TRAP ! 1631: lea.l @f,a3 ! 1632: .dc.w $f210, $f860 ! 1633: @@: ! 1634: RESTORE_FLINE_TRAP ! 1635: tst.l d7 ! 1636: beq @f ! 1637: PRINT msg_fail_trap ! 1638: rts ! 1639: @@: ! 1640: lea.l workarea(pc),a1 ! 1641: cmp.l a1,a0 ! 1642: beq @f ! 1643: pea.l msg_fail_addr(pc) ! 1644: move.l a1,-(sp) ! 1645: move.l a0,-(sp) ! 1646: bsr result ! 1647: lea.l 12(sp),sp ! 1648: @@: ! 1649: ; compare first one ! 1650: pea.l msg_fail_1st(pc) ! 1651: pea.l (initdata+2*12)(pc) ! 1652: pea.l 0(a1) ! 1653: bsr check_ext ! 1654: lea.l 12(sp),sp ! 1655: ; compare second one ! 1656: pea.l msg_fail_2nd(pc) ! 1657: pea.l (initdata+3*12)(pc) ! 1658: pea.l 12(a1) ! 1659: bsr check_ext ! 1660: lea.l 12(sp),sp ! 1661: ! 1662: tst.l d7 ! 1663: bne @f ! 1664: PRINT msg_ok ! 1665: @@: ! 1666: rts ! 1667: ! 1668: test_fmovem_fpn_to_anpi_ctrl_dyn: ! 1669: PRINT msg_fmovem_fpn_to_anpi_ctrl_dyn ! 1670: SET_FLINE_TRAP ! 1671: moveq.l #0,d7 ! 1672: lea.l @f,a3 ! 1673: .dc.w $f218, $f860 ! 1674: @@: ! 1675: RESTORE_FLINE_TRAP ! 1676: tst.l d7 ! 1677: bne @f ! 1678: PRINT msg_fail_notrap ! 1679: rts ! 1680: @@: ! 1681: PRINT msg_oktrap ! 1682: rts ! 1683: ! 1684: test_fmovem_fpn_to_anpd_ctrl_dyn: ! 1685: PRINT msg_fmovem_fpn_to_anpd_ctrl_dyn ! 1686: lea.l initdata(pc),a0 ! 1687: fmove.x (a0)+,fp0 ! 1688: fmove.x (a0)+,fp1 ! 1689: fmove.x (a0)+,fp2 ! 1690: fmove.x (a0)+,fp3 ! 1691: fmove.x (a0)+,fp4 ! 1692: fmove.x (a0)+,fp5 ! 1693: fmove.x (a0)+,fp6 ! 1694: fmove.x (a0)+,fp7 ! 1695: moveq.l #0,d0 ! 1696: moveq.l #0,d1 ! 1697: moveq.l #0,d7 ! 1698: lea.l workarea(pc),a0 ! 1699: movem.l d0-d1/d7,(a0) ! 1700: movem.l d0-d1/d7,12(a0) ! 1701: lea.l workarea+24(pc),a0 ! 1702: moveq.l #$30,d6 ! 1703: SET_FLINE_TRAP ! 1704: lea.l @f,a3 ! 1705: .dc.w $f220, $f860 ! 1706: @@: ! 1707: RESTORE_FLINE_TRAP ! 1708: tst.l d7 ! 1709: beq @f ! 1710: PRINT msg_fail_trap ! 1711: rts ! 1712: @@: ! 1713: lea.l workarea(pc),a1 ! 1714: cmp.l a1,a0 ! 1715: beq @f ! 1716: pea.l msg_fail_addr(pc) ! 1717: move.l a1,-(sp) ! 1718: move.l a0,-(sp) ! 1719: bsr result ! 1720: lea.l 12(sp),sp ! 1721: @@: ! 1722: ; compare first one ! 1723: pea.l msg_fail_1st(pc) ! 1724: pea.l (initdata+2*12)(pc) ! 1725: pea.l 12(a1) ! 1726: bsr check_ext ! 1727: lea.l 12(sp),sp ! 1728: ; compare second one ! 1729: pea.l msg_fail_2nd(pc) ! 1730: pea.l (initdata+3*12)(pc) ! 1731: pea.l 0(a1) ! 1732: bsr check_ext ! 1733: lea.l 12(sp),sp ! 1734: ! 1735: tst.l d7 ! 1736: bne @f ! 1737: PRINT msg_ok ! 1738: @@: ! 1739: rts ! 1740: ! 1741: test_fmovem_fpn_to_imm_ctrl_dyn: ! 1742: PRINT msg_fmovem_fpn_to_imm_ctrl_dyn ! 1743: SET_FLINE_TRAP ! 1744: moveq.l #0,d7 ! 1745: lea.l @f,a3 ! 1746: .dc.w $f23c, $f860 ! 1747: @@: ! 1748: RESTORE_FLINE_TRAP ! 1749: tst.l d7 ! 1750: bne @f ! 1751: PRINT msg_fail_notrap ! 1752: rts ! 1753: @@: ! 1754: PRINT msg_oktrap ! 1755: rts ! 1756: ! 1757: test_fmovem_nofpn: ! 1758: PRINT msg_fmovem_nofpn ! 1759: lea.l initdata(pc),a0 ! 1760: fmove.x (a0)+,fp0 ! 1761: fmove.x (a0)+,fp1 ! 1762: fmove.x (a0)+,fp2 ! 1763: fmove.x (a0)+,fp3 ! 1764: fmove.x (a0)+,fp4 ! 1765: fmove.x (a0)+,fp5 ! 1766: fmove.x (a0)+,fp6 ! 1767: fmove.x (a0)+,fp7 ! 1768: SET_FLINE_TRAP ! 1769: moveq.l #0,d7 ! 1770: lea.l workarea(pc),a0 ! 1771: move.l d7,(a0) ! 1772: move.l d7,4(a0) ! 1773: move.l d7,8(a0) ! 1774: lea.l @f,a3 ! 1775: .dc.w $f210, $f000 ; fmovem nofpn,(a0) ! 1776: @@: ! 1777: RESTORE_FLINE_TRAP ! 1778: tst.l d7 ! 1779: beq @f ! 1780: PRINT msg_fail_trap ! 1781: rts ! 1782: @@: ! 1783: pea.l msg_fail_1st(pc) ! 1784: pea.l zerodata(pc) ! 1785: pea.l (a0) ! 1786: bsr check_ext ! 1787: lea.l 12(sp),sp ! 1788: ! 1789: tst.l d7 ! 1790: bne @f ! 1791: PRINT msg_ok ! 1792: @@: ! 1793: rts ! 1794: ! 1795: test_fmovem_illegal_dyn: ! 1796: PRINT msg_fmovem_illegal_dyn ! 1797: lea.l initdata(pc),a0 ! 1798: fmove.x (a0)+,fp0 ! 1799: fmove.x (a0)+,fp1 ! 1800: fmove.x (a0)+,fp2 ! 1801: fmove.x (a0)+,fp3 ! 1802: fmove.x (a0)+,fp4 ! 1803: fmove.x (a0)+,fp5 ! 1804: fmove.x (a0)+,fp6 ! 1805: fmove.x (a0)+,fp7 ! 1806: SET_FLINE_TRAP ! 1807: lea.l srcdata(pc),a0 ! 1808: moveq.l #$80,d6 ! 1809: moveq.l #0,d7 ! 1810: lea.l @f,a3 ! 1811: .dc.w $f210, $d86f ; fmovem (a0),d6 ! 1812: @@: ! 1813: RESTORE_FLINE_TRAP ! 1814: ! 1815: tst.l d7 ! 1816: beq @f ! 1817: PRINT msg_fail_trap ! 1818: rts ! 1819: @@: ! 1820: lea.l workarea(pc),a0 ! 1821: fmovem.x fp0,(a0) ! 1822: pea.l msg_fail_fp0(pc) ! 1823: pea.l srcdata(pc) ! 1824: pea.l (a0) ! 1825: bsr check_ext ! 1826: lea.l 12(sp),sp ! 1827: ! 1828: tst.l d7 ! 1829: bne @f ! 1830: PRINT msg_ok ! 1831: @@: ! 1832: rts ! 1833: ! 1834: start: ! 1835: clr.l -(sp) ! 1836: DOS _SUPER ! 1837: movem.l d6-d7/a2-a5,-(sp) ! 1838: moveq.l #$2c,d0 ; alternate of "lea.l $2c,a5" ! 1839: move.l d0,a5 ; ! 1840: bsr test_fmovem_dn_to_fpn_pred_sta ! 1841: bsr test_fmovem_an_to_fpn_pred_sta ! 1842: bsr test_fmovem_anin_to_fpn_pred_sta ! 1843: bsr test_fmovem_anpi_to_fpn_pred_sta ! 1844: bsr test_fmovem_anpd_to_fpn_pred_sta ! 1845: bsr test_fmovem_imm_to_fpn_pred_sta ! 1846: bsr test_fmovem_dn_to_fpn_pred_dyn ! 1847: bsr test_fmovem_an_to_fpn_pred_dyn ! 1848: bsr test_fmovem_anin_to_fpn_pred_dyn ! 1849: bsr test_fmovem_anpi_to_fpn_pred_dyn ! 1850: bsr test_fmovem_anpd_to_fpn_pred_dyn ! 1851: bsr test_fmovem_imm_to_fpn_pred_dyn ! 1852: bsr test_fmovem_dn_to_fpn_ctrl_sta ! 1853: bsr test_fmovem_an_to_fpn_ctrl_sta ! 1854: bsr test_fmovem_anin_to_fpn_ctrl_sta ! 1855: bsr test_fmovem_anpi_to_fpn_ctrl_sta ! 1856: bsr test_fmovem_anpd_to_fpn_ctrl_sta ! 1857: bsr test_fmovem_imm_to_fpn_ctrl_sta ! 1858: bsr test_fmovem_dn_to_fpn_ctrl_dyn ! 1859: bsr test_fmovem_an_to_fpn_ctrl_dyn ! 1860: bsr test_fmovem_anin_to_fpn_ctrl_dyn ! 1861: bsr test_fmovem_anpi_to_fpn_ctrl_dyn ! 1862: bsr test_fmovem_anpd_to_fpn_ctrl_dyn ! 1863: bsr test_fmovem_imm_to_fpn_ctrl_dyn ! 1864: bsr test_fmovem_fpn_to_dn_pred_sta ! 1865: bsr test_fmovem_fpn_to_an_pred_sta ! 1866: bsr test_fmovem_fpn_to_anin_pred_sta ! 1867: bsr test_fmovem_fpn_to_anpi_pred_sta ! 1868: bsr test_fmovem_fpn_to_anpd_pred_sta ! 1869: bsr test_fmovem_fpn_to_imm_pred_sta ! 1870: bsr test_fmovem_fpn_to_dn_pred_dyn ! 1871: bsr test_fmovem_fpn_to_an_pred_dyn ! 1872: bsr test_fmovem_fpn_to_anin_pred_dyn ! 1873: bsr test_fmovem_fpn_to_anpi_pred_dyn ! 1874: bsr test_fmovem_fpn_to_anpd_pred_dyn ! 1875: bsr test_fmovem_fpn_to_imm_pred_dyn ! 1876: bsr test_fmovem_fpn_to_dn_ctrl_sta ! 1877: bsr test_fmovem_fpn_to_an_ctrl_sta ! 1878: bsr test_fmovem_fpn_to_anin_ctrl_sta ! 1879: bsr test_fmovem_fpn_to_anpi_ctrl_sta ! 1880: bsr test_fmovem_fpn_to_anpd_ctrl_sta ! 1881: bsr test_fmovem_fpn_to_imm_ctrl_sta ! 1882: bsr test_fmovem_fpn_to_dn_ctrl_dyn ! 1883: bsr test_fmovem_fpn_to_an_ctrl_dyn ! 1884: bsr test_fmovem_fpn_to_anin_ctrl_dyn ! 1885: bsr test_fmovem_fpn_to_anpi_ctrl_dyn ! 1886: bsr test_fmovem_fpn_to_anpd_ctrl_dyn ! 1887: bsr test_fmovem_fpn_to_imm_ctrl_dyn ! 1888: bsr test_fmovem_nofpn ! 1889: bsr test_fmovem_illegal_dyn ! 1890: movem.l (sp)+,d6-d7/a2-a5 ! 1891: DOS _EXIT ! 1892: ! 1893: ; 結果表示 ! 1894: ; スタックには、メッセージ、期待値、実際の値の順で積む。 ! 1895: result: ! 1896: link a6,#0 ! 1897: movem.l d0/a0,-(sp) ! 1898: ! 1899: move.l 8+8(a6),-(sp) ! 1900: DOS _PRINT ! 1901: addq.l #4,sp ! 1902: ! 1903: move.l 8+4(a6),d0 ! 1904: lea.l buf(pc),a0 ! 1905: bsr hexstr_long ! 1906: PRINT buf ! 1907: PRINT msg_but ! 1908: ! 1909: move.l 8+0(a6),d0 ! 1910: lea.l buf(pc),a0 ! 1911: bsr hexstr_long ! 1912: PRINT buf ! 1913: PRINT msg_crlf ! 1914: ! 1915: addq.l #1,d7 ; errcnt ! 1916: movem.l (sp)+,d0/a0 ! 1917: unlk a6 ! 1918: rts ! 1919: ! 1920: ; 拡張精度の比較と結果表示。 ! 1921: ; 一致したら何もせず帰る。一致しなければエラーメッセージを表示。 ! 1922: ; スタックには、(エラー時の)メッセージ、期待値、実際の値の順で積む ! 1923: check_ext: ! 1924: link a6,#0 ! 1925: movem.l d0/a0-a2,-(sp) ! 1926: ! 1927: move.l 8+4(a6),a1 ! 1928: move.l 8+0(a6),a2 ! 1929: cmpm.l (a1)+,(a2)+ ! 1930: bne @f ! 1931: cmpm.l (a1)+,(a2)+ ! 1932: bne @f ! 1933: cmpm.l (a1)+,(a2)+ ! 1934: bne @f ! 1935: ; equal ! 1936: bra check_ext_done ! 1937: ! 1938: @@: ; not equal ! 1939: move.l 8+8(a6),-(sp) ! 1940: DOS _PRINT ! 1941: addq.l #4,sp ! 1942: ! 1943: lea.l buf(pc),a0 ! 1944: move.l 8+4(a6),a1 ! 1945: move.l (a1)+,d0 ! 1946: bsr hexstr_long ! 1947: move.b #'_',(a0)+ ! 1948: move.l (a1)+,d0 ! 1949: bsr hexstr_long ! 1950: move.b #'_',(a0)+ ! 1951: move.l (a1),d0 ! 1952: bsr hexstr_long ! 1953: PRINT buf ! 1954: PRINT msg_but ! 1955: ! 1956: lea.l buf(pc),a0 ! 1957: move.l 8+0(a6),a2 ! 1958: move.l (a2)+,d0 ! 1959: bsr hexstr_long ! 1960: move.b #'_',(a0)+ ! 1961: move.l (a2)+,d0 ! 1962: bsr hexstr_long ! 1963: move.b #'_',(a0)+ ! 1964: move.l (a2),d0 ! 1965: bsr hexstr_long ! 1966: PRINT buf ! 1967: PRINT msg_crlf ! 1968: ! 1969: addq.l #1,d7 ; errcnt ! 1970: check_ext_done: ! 1971: movem.l (sp)+,d0/a0-a2 ! 1972: unlk a6 ! 1973: rts ! 1974: ! 1975: ; Fライン例外ハンドラ ! 1976: ; a3 に戻りアドレスをセットしてあること ! 1977: ; d7 を 1 にして帰る ! 1978: fline_handler: ! 1979: moveq.l #1,d7 ! 1980: move.l a3,2(sp) ! 1981: rte ! 1982: ! 1983: ; FPn を埋める初期値 ! 1984: initdata: ! 1985: .dc.l $0, $0, $8 ! 1986: .dc.l $0, $0, $1 ! 1987: .dc.l $0, $0, $2 ! 1988: .dc.l $0, $0, $3 ! 1989: .dc.l $0, $0, $4 ! 1990: .dc.l $0, $0, $5 ! 1991: .dc.l $0, $0, $6 ! 1992: .dc.l $0, $0, $7 ! 1993: ! 1994: ; ターゲットの FPn に転送するデータ ! 1995: srcdata: ! 1996: .dc.l $3fff0000, $88112233, $44556677 ! 1997: .dc.l $dfff0000, $8899aabb, $ccddeeff ! 1998: ! 1999: zerodata: ! 2000: .dc.l $0, $0, $0 ! 2001: ! 2002: msg_oktrap: .dc.b $9,"ok(trap)",$d,$a,0, 0,0 ! 2003: msg_fail_notrap: .dc.b $9,"FAIL: trap expected but not occured",$d,$a,0 ! 2004: msg_fail_trap: .dc.b $9,"FAIL: unexpected trap occured",$d,$a,0 ! 2005: ! 2006: msg_ok: .dc.b $9,"ok",$d,$a,0 ! 2007: msg_fail_fp0: .dc.b $9,"FAIL: fp0 expects ",0 ! 2008: msg_fail_fp1: .dc.b $9,"FAIL: fp1 expects ",0 ! 2009: msg_fail_fp2: .dc.b $9,"FAIL: fp2 expects ",0 ! 2010: msg_fail_fp3: .dc.b $9,"FAIL: fp3 expects ",0 ! 2011: msg_fail_fp4: .dc.b $9,"FAIL: fp4 expects ",0 ! 2012: msg_fail_fp5: .dc.b $9,"FAIL: fp5 expects ",0 ! 2013: msg_fail_fp6: .dc.b $9,"FAIL: fp6 expects ",0 ! 2014: msg_fail_fp7: .dc.b $9,"FAIL: fp7 expects ",0 ! 2015: msg_fail_1st: .dc.b $9,"FAIL: 1st expects ",0 ! 2016: msg_fail_2nd: .dc.b $9,"FAIL: 2nd expects ",0 ! 2017: msg_fail_addr: .dc.b $9,"FAIL: an expects ",0 ! 2018: msg_but: .dc.b " but ",0 ! 2019: msg_crlf: .dc.b $d,$a,0 ! 2020: ! 2021: msg_fmovem_dn_to_fpn_pred_sta: .dc.b "fmovem_dn_to_fpn_pred_sta",0 ! 2022: msg_fmovem_an_to_fpn_pred_sta: .dc.b "fmovem_an_to_fpn_pred_sta",0 ! 2023: msg_fmovem_anin_to_fpn_pred_sta: .dc.b "fmovem_anin_to_fpn_pred_sta",0 ! 2024: msg_fmovem_anpi_to_fpn_pred_sta: .dc.b "fmovem_anpi_to_fpn_pred_sta",0 ! 2025: msg_fmovem_anpd_to_fpn_pred_sta: .dc.b "fmovem_anpd_to_fpn_pred_sta",0 ! 2026: msg_fmovem_imm_to_fpn_pred_sta: .dc.b "fmovem_imm_to_fpn_pred_sta",0 ! 2027: msg_fmovem_dn_to_fpn_pred_dyn: .dc.b "fmovem_dn_to_fpn_pred_dyn",0 ! 2028: msg_fmovem_an_to_fpn_pred_dyn: .dc.b "fmovem_an_to_fpn_pred_dyn",0 ! 2029: msg_fmovem_anin_to_fpn_pred_dyn: .dc.b "fmovem_anin_to_fpn_pred_dyn",0 ! 2030: msg_fmovem_anpi_to_fpn_pred_dyn: .dc.b "fmovem_anpi_to_fpn_pred_dyn",0 ! 2031: msg_fmovem_anpd_to_fpn_pred_dyn: .dc.b "fmovem_anpd_to_fpn_pred_dyn",0 ! 2032: msg_fmovem_imm_to_fpn_pred_dyn: .dc.b "fmovem_imm_to_fpn_pred_dyn",0 ! 2033: msg_fmovem_dn_to_fpn_ctrl_sta: .dc.b "fmovem_dn_to_fpn_ctrl_sta",0 ! 2034: msg_fmovem_an_to_fpn_ctrl_sta: .dc.b "fmovem_an_to_fpn_ctrl_sta",0 ! 2035: msg_fmovem_anin_to_fpn_ctrl_sta: .dc.b "fmovem_anin_to_fpn_ctrl_sta",0 ! 2036: msg_fmovem_anpi_to_fpn_ctrl_sta: .dc.b "fmovem_anpi_to_fpn_ctrl_sta",0 ! 2037: msg_fmovem_anpd_to_fpn_ctrl_sta: .dc.b "fmovem_anpd_to_fpn_ctrl_sta",0 ! 2038: msg_fmovem_imm_to_fpn_ctrl_sta: .dc.b "fmovem_imm_to_fpn_ctrl_sta",0 ! 2039: msg_fmovem_dn_to_fpn_ctrl_dyn: .dc.b "fmovem_dn_to_fpn_ctrl_dyn",0 ! 2040: msg_fmovem_an_to_fpn_ctrl_dyn: .dc.b "fmovem_an_to_fpn_ctrl_dyn",0 ! 2041: msg_fmovem_anin_to_fpn_ctrl_dyn: .dc.b "fmovem_anin_to_fpn_ctrl_dyn",0 ! 2042: msg_fmovem_anpi_to_fpn_ctrl_dyn: .dc.b "fmovem_anpi_to_fpn_ctrl_dyn",0 ! 2043: msg_fmovem_anpd_to_fpn_ctrl_dyn: .dc.b "fmovem_anpd_to_fpn_ctrl_dyn",0 ! 2044: msg_fmovem_imm_to_fpn_ctrl_dyn: .dc.b "fmovem_imm_to_fpn_ctrl_dyn",0 ! 2045: msg_fmovem_fpn_to_dn_pred_sta: .dc.b "fmovem_fpn_to_dn_pred_sta",0 ! 2046: msg_fmovem_fpn_to_an_pred_sta: .dc.b "fmovem_fpn_to_an_pred_sta",0 ! 2047: msg_fmovem_fpn_to_anin_pred_sta: .dc.b "fmovem_fpn_to_anin_pred_sta",0 ! 2048: msg_fmovem_fpn_to_anpi_pred_sta: .dc.b "fmovem_fpn_to_anpi_pred_sta",0 ! 2049: msg_fmovem_fpn_to_anpd_pred_sta: .dc.b "fmovem_fpn_to_anpd_pred_sta",0 ! 2050: msg_fmovem_fpn_to_imm_pred_sta: .dc.b "fmovem_fpn_to_imm_pred_sta",0 ! 2051: msg_fmovem_fpn_to_dn_pred_dyn: .dc.b "fmovem_fpn_to_dn_pred_dyn",0 ! 2052: msg_fmovem_fpn_to_an_pred_dyn: .dc.b "fmovem_fpn_to_an_pred_dyn",0 ! 2053: msg_fmovem_fpn_to_anin_pred_dyn: .dc.b "fmovem_fpn_to_anin_pred_dyn",0 ! 2054: msg_fmovem_fpn_to_anpi_pred_dyn: .dc.b "fmovem_fpn_to_anpi_pred_dyn",0 ! 2055: msg_fmovem_fpn_to_anpd_pred_dyn: .dc.b "fmovem_fpn_to_anpd_pred_dyn",0 ! 2056: msg_fmovem_fpn_to_imm_pred_dyn: .dc.b "fmovem_fpn_to_imm_pred_dyn",0 ! 2057: msg_fmovem_fpn_to_dn_ctrl_sta: .dc.b "fmovem_fpn_to_dn_ctrl_sta",0 ! 2058: msg_fmovem_fpn_to_an_ctrl_sta: .dc.b "fmovem_fpn_to_an_ctrl_sta",0 ! 2059: msg_fmovem_fpn_to_anin_ctrl_sta: .dc.b "fmovem_fpn_to_anin_ctrl_sta",0 ! 2060: msg_fmovem_fpn_to_anpi_ctrl_sta: .dc.b "fmovem_fpn_to_anpi_ctrl_sta",0 ! 2061: msg_fmovem_fpn_to_anpd_ctrl_sta: .dc.b "fmovem_fpn_to_anpd_ctrl_sta",0 ! 2062: msg_fmovem_fpn_to_imm_ctrl_sta: .dc.b "fmovem_fpn_to_imm_ctrl_sta",0 ! 2063: msg_fmovem_fpn_to_dn_ctrl_dyn: .dc.b "fmovem_fpn_to_dn_ctrl_dyn",0 ! 2064: msg_fmovem_fpn_to_an_ctrl_dyn: .dc.b "fmovem_fpn_to_an_ctrl_dyn",0 ! 2065: msg_fmovem_fpn_to_anin_ctrl_dyn: .dc.b "fmovem_fpn_to_anin_ctrl_dyn",0 ! 2066: msg_fmovem_fpn_to_anpi_ctrl_dyn: .dc.b "fmovem_fpn_to_anpi_ctrl_dyn",0 ! 2067: msg_fmovem_fpn_to_anpd_ctrl_dyn: .dc.b "fmovem_fpn_to_anpd_ctrl_dyn",0 ! 2068: msg_fmovem_fpn_to_imm_ctrl_dyn: .dc.b "fmovem_fpn_to_imm_ctrl_dyn",0 ! 2069: msg_fmovem_nofpn: .dc.b "fmovem_nofpn",0 ! 2070: msg_fmovem_illegal_dyn: .dc.b "fmovem_illegal_dyn",0 ! 2071: ! 2072: .data ! 2073: .even ! 2074: workarea: .ds.b 24 ! 2075: buf: .dc.b 64 ! 2076: ! 2077: .end start
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.