| 35 |
|
XDEF _Scod060Patch1 |
| 36 |
|
XDEF _Scod060Patch2 |
| 37 |
|
XDEF _ThInitFPUPatch |
| 38 |
+ |
XDEF _AsmTriggerNMI |
| 39 |
|
|
| 40 |
|
XREF _OldTrapHandler |
| 41 |
|
XREF _OldExceptionHandler |
| 47 |
|
XREF _MainTask |
| 48 |
|
XREF _SysBase |
| 49 |
|
XREF _quit_emulator |
| 50 |
+ |
XREF _kprintf |
| 51 |
|
|
| 52 |
|
SECTION text,CODE |
| 53 |
|
|
| 185 |
|
pea 1$ |
| 186 |
|
move.w _EmulatedSR,d0 |
| 187 |
|
move.w d0,-(sp) |
| 188 |
< |
or.w #$2100,d0 ;Set interrupt level in SR |
| 188 |
> |
or.w #$0100,d0 ;Set interrupt level in SR |
| 189 |
|
move.w d0,_EmulatedSR |
| 190 |
< |
move.l $64.w,a0 ;Jump to MacOS interrupt handler |
| 191 |
< |
jmp (a0) |
| 190 |
> |
move.l $64.w,-(sp) ;Jump to MacOS interrupt handler |
| 191 |
> |
rts |
| 192 |
|
|
| 193 |
|
1$ move.l (sp)+,d0 ;Restore d0 |
| 194 |
|
rts |
| 279 |
|
* Trap handler of main task |
| 280 |
|
* |
| 281 |
|
|
| 282 |
< |
_TrapHandlerAsm cmp.l #4,(sp) ;Illegal instruction? |
| 282 |
> |
_TrapHandlerAsm: |
| 283 |
> |
cmp.l #4,(sp) ;Illegal instruction? |
| 284 |
|
beq.s doillinstr |
| 285 |
|
cmp.l #10,(sp) ;A-Line exception? |
| 286 |
|
beq.s doaline |
| 287 |
|
cmp.l #8,(sp) ;Privilege violation? |
| 288 |
|
beq.s doprivviol |
| 289 |
+ |
cmp.l #9,(sp) ;Trace? |
| 290 |
+ |
beq dotrace |
| 291 |
+ |
cmp.l #3,(sp) ;Illegal Address? |
| 292 |
+ |
beq.s doilladdr |
| 293 |
+ |
|
| 294 |
+ |
cmp.l #32,(sp) |
| 295 |
+ |
blt 1$ |
| 296 |
+ |
cmp.l #47,(sp) |
| 297 |
+ |
ble doTrapXX ; Vector 32-47 : TRAP #0 - 15 Instruction Vectors |
| 298 |
+ |
|
| 299 |
+ |
1$: move.l _OldTrapHandler,-(sp) ;No, jump to old trap handler |
| 300 |
+ |
rts |
| 301 |
+ |
|
| 302 |
+ |
* |
| 303 |
+ |
* TRAP #0 - 15 Instruction Vectors |
| 304 |
+ |
* |
| 305 |
+ |
|
| 306 |
+ |
doTrapXX: move.l a0,(sp) ;Save a0 |
| 307 |
+ |
move.l usp,a0 ;Get user stack pointer |
| 308 |
+ |
move.l 2*4(sp),-(a0) ;Copy 4-word stack frame to user stack |
| 309 |
+ |
move.l 1*4(sp),-(a0) |
| 310 |
+ |
move.l a0,usp ;Update USP |
| 311 |
+ |
move.l (sp)+,a0 ;Restore a0 |
| 312 |
+ |
|
| 313 |
+ |
addq.l #4*2,sp ;Remove exception frame from supervisor stack |
| 314 |
+ |
andi #$d8ff,sr ;Switch to user mode, enable interrupts |
| 315 |
+ |
|
| 316 |
+ |
move.l $2d*4.w,-(sp) ;Jump to MacOS exception handler |
| 317 |
+ |
rts |
| 318 |
+ |
|
| 319 |
|
|
| 320 |
< |
move.l _OldTrapHandler,-(sp) ;No, jump to old trap handler |
| 320 |
> |
* |
| 321 |
> |
* trace Vector |
| 322 |
> |
* |
| 323 |
> |
|
| 324 |
> |
dotrace: move.l a0,(sp) ;Save a0 |
| 325 |
> |
|
| 326 |
> |
move.l usp,a0 ;Get user stack pointer |
| 327 |
> |
move.l 3*4(sp),-(a0) ;Copy 6-word stack frame to user stack |
| 328 |
> |
move.l 2*4(sp),-(a0) |
| 329 |
> |
move.l 1*4(sp),-(a0) |
| 330 |
> |
move.l a0,usp ;Update USP |
| 331 |
> |
move.l (sp)+,a0 ;Restore a0 |
| 332 |
> |
|
| 333 |
> |
lea 6*2(sp),sp ;Remove exception frame from supervisor stack |
| 334 |
> |
andi #$18ff,sr ;Switch to user mode, enable interrupts, disable trace |
| 335 |
> |
|
| 336 |
> |
move.l $24.w,-(sp) ;Jump to MacOS exception handler |
| 337 |
|
rts |
| 338 |
|
|
| 339 |
+ |
|
| 340 |
|
* |
| 341 |
|
* A-Line handler: call MacOS A-Line handler |
| 342 |
|
* |
| 351 |
|
addq.l #8,sp ;Remove exception frame from supervisor stack |
| 352 |
|
andi #$d8ff,sr ;Switch to user mode, enable interrupts |
| 353 |
|
|
| 354 |
+ |
IFNE 0 |
| 355 |
+ |
|
| 356 |
+ |
; move.w ([2,sp]),($3800) |
| 357 |
+ |
|
| 358 |
+ |
cmp.w #$a9c3,([2,sp]) |
| 359 |
+ |
bne 1$ |
| 360 |
+ |
|
| 361 |
+ |
move.l d0,-(sp) |
| 362 |
+ |
move.l a0,-(sp) |
| 363 |
+ |
pea afmt(pc) |
| 364 |
+ |
jsr _kprintf |
| 365 |
+ |
lea 3*4(sp),sp |
| 366 |
+ |
1$: |
| 367 |
+ |
ENDC |
| 368 |
+ |
|
| 369 |
|
move.l $28.w,-(sp) ;Jump to MacOS exception handler |
| 370 |
|
rts |
| 371 |
|
|
| 372 |
+ |
afmt: dc.b 'a0=%08lx d0=%08lx\n',0 |
| 373 |
+ |
cnop 0,4 |
| 374 |
+ |
|
| 375 |
+ |
* |
| 376 |
+ |
* Illegal address handler |
| 377 |
+ |
* |
| 378 |
+ |
|
| 379 |
+ |
doilladdr: move.l a0,(sp) ;Save a0 |
| 380 |
+ |
|
| 381 |
+ |
move.l usp,a0 ;Get user stack pointer |
| 382 |
+ |
move.l 3*4(sp),-(a0) ;Copy 6-word stack frame to user stack |
| 383 |
+ |
move.l 2*4(sp),-(a0) |
| 384 |
+ |
move.l 1*4(sp),-(a0) |
| 385 |
+ |
move.l a0,usp ;Update USP |
| 386 |
+ |
move.l (sp)+,a0 ;Restore a0 |
| 387 |
+ |
|
| 388 |
+ |
lea 6*2(sp),sp ;Remove exception frame from supervisor stack |
| 389 |
+ |
andi #$d8ff,sr ;Switch to user mode, enable interrupts |
| 390 |
+ |
|
| 391 |
+ |
move.l $0c.w,-(sp) ;Jump to MacOS exception handler |
| 392 |
+ |
rts |
| 393 |
+ |
|
| 394 |
+ |
|
| 395 |
|
* |
| 396 |
|
* Illegal instruction handler: call IllInstrHandler() (which calls EmulOp()) |
| 397 |
|
* to execute extended opcodes (see emul_op.h) |
| 398 |
|
* |
| 399 |
|
|
| 400 |
< |
doillinstr move.l a6,(sp) ;Save a6 |
| 400 |
> |
doillinstr |
| 401 |
> |
movem.l a0/d0,-(sp) |
| 402 |
> |
move.w ([6+2*4,sp]),d0 |
| 403 |
> |
and.w #$ff00,d0 |
| 404 |
> |
cmp.w #$7100,d0 |
| 405 |
> |
movem.l (sp)+,a0/d0 |
| 406 |
> |
beq 1$ |
| 407 |
> |
|
| 408 |
> |
move.l a0,(sp) ;Save a0 |
| 409 |
> |
move.l usp,a0 ;Get user stack pointer |
| 410 |
> |
move.l 8(sp),-(a0) ;Copy stack frame to user stack |
| 411 |
> |
move.l 4(sp),-(a0) |
| 412 |
> |
move.l a0,usp ;Update USP |
| 413 |
> |
move.l (sp)+,a0 ;Restore a0 |
| 414 |
> |
|
| 415 |
> |
add.w #3*4,sp ;Remove exception frame from supervisor stack |
| 416 |
> |
andi #$d8ff,sr ;Switch to user mode, enable interrupts |
| 417 |
> |
|
| 418 |
> |
move.l $10.w,-(sp) ;Jump to MacOS exception handler |
| 419 |
> |
rts |
| 420 |
> |
|
| 421 |
> |
1$: |
| 422 |
> |
move.l a6,(sp) ;Save a6 |
| 423 |
|
move.l usp,a6 ;Get user stack pointer |
| 424 |
|
|
| 425 |
|
move.l a6,-10(a6) ;Push USP (a7) |
| 474 |
|
cmp.w #$40d0,d0 ;move sr,(a0)? |
| 475 |
|
beq movefromsra0 |
| 476 |
|
cmp.w #$40d7,d0 ;move sr,(sp)? |
| 477 |
< |
beq movefromsra0 |
| 477 |
> |
beq movefromsrsp ;+++jl+++ |
| 478 |
|
|
| 479 |
|
cmp.w #$f327,d0 ;fsave -(sp)? |
| 480 |
|
beq fsavepush |
| 481 |
|
cmp.w #$f35f,d0 ;frestore (sp)+? |
| 482 |
|
beq frestorepop |
| 483 |
+ |
cmp.w #$f32d,d0 ;fsave xxx(a5) ? |
| 484 |
+ |
beq fsavea5 |
| 485 |
+ |
cmp.w #$f36d,d0 ;frestore xxx(a5) ? |
| 486 |
+ |
beq frestorea5 |
| 487 |
|
|
| 488 |
|
cmp.w #$4e73,d0 ;rte? |
| 489 |
|
beq pvrte |
| 532 |
|
cmp.w #$f4f8,d0 ;cpusha dc/ic? |
| 533 |
|
beq cpushadcic |
| 534 |
|
|
| 535 |
+ |
cmp.w #$4e69,d0 ;move usp,a1 |
| 536 |
+ |
beq moveuspa1 |
| 537 |
+ |
cmp.w #$4e68,d0 ;move usp,a0 |
| 538 |
+ |
beq moveuspa0 |
| 539 |
+ |
|
| 540 |
+ |
cmp.w #$4e61,d0 ;move a1,usp |
| 541 |
+ |
beq moved1usp |
| 542 |
+ |
|
| 543 |
|
pv_unhandled move.l (sp),d0 ;Unhandled instruction, jump to handler in main.cpp |
| 544 |
|
move.l a6,(sp) ;Save a6 |
| 545 |
|
move.l usp,a6 ;Get user stack pointer |
| 581 |
|
move.w (a0)+,d0 ;Get SR from user stack |
| 582 |
|
move.w d0,8(sp) ;Store into CCR on exception stack frame |
| 583 |
|
and.w #$00ff,8(sp) |
| 584 |
< |
and.w #$2700,d0 ;Extract supervisor bits |
| 584 |
> |
and.w #$e700,d0 ;Extract supervisor bits |
| 585 |
|
move.w d0,_EmulatedSR ;And save them |
| 586 |
|
|
| 587 |
|
and.w #$0700,d0 ;Rethrow exception if interrupts are pending and reenabled |
| 607 |
|
or.w ([6,sp],2),d0 ;Or with immediate value |
| 608 |
|
move.w d0,4(sp) ;Store into CCR on stack |
| 609 |
|
and.w #$00ff,4(sp) |
| 610 |
< |
and.w #$2700,d0 ;Extract supervisor bits |
| 610 |
> |
and.w #$e700,d0 ;Extract supervisor bits |
| 611 |
|
move.w d0,_EmulatedSR ;And save them |
| 612 |
|
move.l (sp)+,d0 ;Restore d0 |
| 613 |
|
addq.l #4,2(sp) ;Skip instruction |
| 619 |
|
and.w ([6,sp],2),d0 ;And with immediate value |
| 620 |
|
storesr4 move.w d0,4(sp) ;Store into CCR on stack |
| 621 |
|
and.w #$00ff,4(sp) |
| 622 |
< |
and.w #$2700,d0 ;Extract supervisor bits |
| 622 |
> |
and.w #$e700,d0 ;Extract supervisor bits |
| 623 |
|
move.w d0,_EmulatedSR ;And save them |
| 624 |
|
|
| 625 |
|
and.w #$0700,d0 ;Rethrow exception if interrupts are pending and reenabled |
| 706 |
|
addq.l #2,2(sp) ;Skip instruction |
| 707 |
|
rte |
| 708 |
|
|
| 709 |
< |
; rte (only handles format 0) |
| 710 |
< |
pvrte move.l a0,-(sp) ;Save a0 |
| 709 |
> |
; frestore xxx(a5) +jl+ |
| 710 |
> |
frestorea5 move.l (sp),d0 ;Restore d0 |
| 711 |
> |
move.l a0,(sp) ;Save a0 |
| 712 |
> |
move.l a5,a0 ;Get base register |
| 713 |
> |
add.w ([6,sp],2),a0 ;Add offset to base register |
| 714 |
> |
frestore (a0) ;Restore FP state from (a0) |
| 715 |
> |
move.l (sp)+,a0 ;Restore a0 |
| 716 |
> |
addq.l #4,2(sp) ;Skip instruction |
| 717 |
> |
rte |
| 718 |
> |
|
| 719 |
> |
; fsave xxx(a5) +jl+ |
| 720 |
> |
fsavea5: move.l (sp),d0 ;Restore d0 |
| 721 |
> |
move.l a0,(sp) ;Save a0 |
| 722 |
> |
move.l a5,a0 ;Get base register |
| 723 |
> |
add.w ([6,sp],2),a0 ;Add offset to base register |
| 724 |
> |
fsave (a0) ;Push FP state to (a0) |
| 725 |
> |
move.l (sp)+,a0 ;Restore a0 |
| 726 |
> |
addq.l #4,2(sp) ;Skip instruction |
| 727 |
> |
rte |
| 728 |
> |
|
| 729 |
> |
; rte |
| 730 |
> |
pvrte movem.l a0/a1,-(sp) ;Save a0 and a1 |
| 731 |
|
move.l usp,a0 ;Get user stack pointer |
| 732 |
+ |
|
| 733 |
|
move.w (a0)+,d0 ;Get SR from user stack |
| 734 |
< |
move.w d0,8(sp) ;Store into CCR on exception stack frame |
| 735 |
< |
and.w #$00ff,8(sp) |
| 736 |
< |
and.w #$2700,d0 ;Extract supervisor bits |
| 734 |
> |
move.w d0,8+4(sp) ;Store into CCR on exception stack frame |
| 735 |
> |
and.w #$c0ff,8+4(sp) |
| 736 |
> |
and.w #$e700,d0 ;Extract supervisor bits |
| 737 |
|
move.w d0,_EmulatedSR ;And save them |
| 738 |
< |
move.l (a0)+,10(sp) ;Store return address in exception stack frame |
| 739 |
< |
addq.l #2,a0 ;Skip format word |
| 738 |
> |
move.l (a0)+,10+4(sp) ;Store return address in exception stack frame |
| 739 |
> |
|
| 740 |
> |
move.w (a0)+,d0 ;get format word |
| 741 |
> |
lsr.w #7,d0 ;get stack frame Id |
| 742 |
> |
lsr.w #4,d0 |
| 743 |
> |
and.w #$001e,d0 |
| 744 |
> |
move.w (StackFormatTable,pc,d0.w),d0 ; get total stack frame length |
| 745 |
> |
subq.w #4,d0 ; count only extra words |
| 746 |
> |
lea 16+4(sp),a1 ; destination address (in supervisor stack) |
| 747 |
> |
bra 1$ |
| 748 |
> |
|
| 749 |
> |
2$: move.w (a0)+,(a1)+ ; copy additional stack words back to supervisor stack |
| 750 |
> |
1$: dbf d0,2$ |
| 751 |
> |
|
| 752 |
|
move.l a0,usp ;Update USP |
| 753 |
< |
move.l (sp)+,a0 ;Restore a0 |
| 753 |
> |
movem.l (sp)+,a0/a1 ;Restore a0 and a1 |
| 754 |
|
move.l (sp)+,d0 ;Restore d0 |
| 755 |
|
rte |
| 756 |
|
|
| 757 |
+ |
; sizes of exceptions stack frames |
| 758 |
+ |
StackFormatTable: |
| 759 |
+ |
dc.w 4 ; Four-word stack frame, format $0 |
| 760 |
+ |
dc.w 4 ; Throwaway four-word stack frame, format $1 |
| 761 |
+ |
dc.w 6 ; Six-word stack frame, format $2 |
| 762 |
+ |
dc.w 6 ; MC68040 floating-point post-instruction stack frame, format $3 |
| 763 |
+ |
dc.w 8 ; MC68EC040 and MC68LC040 floating-point unimplemented stack frame, format $4 |
| 764 |
+ |
dc.w 4 ; Format $5 |
| 765 |
+ |
dc.w 4 ; Format $6 |
| 766 |
+ |
dc.w 30 ; MC68040 access error stack frame, Format $7 |
| 767 |
+ |
dc.w 29 ; MC68010 bus and address error stack frame, format $8 |
| 768 |
+ |
dc.w 10 ; MC68020 and MC68030 coprocessor mid-instruction stack frame, format $9 |
| 769 |
+ |
dc.w 16 ; MC68020 and MC68030 short bus cycle stack frame, format $a |
| 770 |
+ |
dc.w 46 ; MC68020 and MC68030 long bus cycle stack frame, format $b |
| 771 |
+ |
dc.w 12 ; CPU32 bus error for prefetches and operands stack frame, format $c |
| 772 |
+ |
dc.w 4 ; Format $d |
| 773 |
+ |
dc.w 4 ; Format $e |
| 774 |
+ |
dc.w 4 ; Format $f |
| 775 |
+ |
|
| 776 |
|
; move sr,dx |
| 777 |
|
movefromsrd0 addq.l #4,sp ;Skip saved d0 |
| 778 |
|
moveq #0,d0 |
| 834 |
|
movetosrd0 move.l (sp),d0 |
| 835 |
|
storesr2 move.w d0,4(sp) |
| 836 |
|
and.w #$00ff,4(sp) |
| 837 |
< |
and.w #$2700,d0 |
| 837 |
> |
and.w #$e700,d0 |
| 838 |
|
move.w d0,_EmulatedSR |
| 839 |
|
|
| 840 |
|
and.w #$0700,d0 ;Rethrow exception if interrupts are pending and reenabled |
| 879 |
|
beq.s movecvbra0 |
| 880 |
|
cmp.w #$9801,d0 ;movec vbr,a1? |
| 881 |
|
beq.s movecvbra1 |
| 882 |
+ |
cmp.w #$1801,d0 ;movec vbr,d1? |
| 883 |
+ |
beq movecvbrd1 |
| 884 |
|
cmp.w #$0002,d0 ;movec cacr,d0? |
| 885 |
|
beq.s moveccacrd0 |
| 886 |
|
cmp.w #$1002,d0 ;movec cacr,d1? |
| 889 |
|
beq.s movectcd0 |
| 890 |
|
cmp.w #$1003,d0 ;movec tc,d1? |
| 891 |
|
beq.s movectcd1 |
| 892 |
+ |
cmp.w #$1000,d0 ;movec SFC,d1? |
| 893 |
+ |
beq movecsfcd1 |
| 894 |
+ |
cmp.w #$1001,d0 ;movec DFC,d1? |
| 895 |
+ |
beq movecdfcd1 |
| 896 |
+ |
cmp.w #$0806,d0 ;movec URP,d0? |
| 897 |
+ |
beq movecurpd0 |
| 898 |
+ |
cmp.w #$0807,d0 ;movec SRP,d0? |
| 899 |
+ |
beq.s movecsrpd0 |
| 900 |
+ |
cmp.w #$0004,d0 ;movec ITT0,d0 |
| 901 |
+ |
beq.s movecitt0d0 |
| 902 |
+ |
cmp.w #$0005,d0 ;movec ITT1,d0 |
| 903 |
+ |
beq.s movecitt1d0 |
| 904 |
+ |
cmp.w #$0006,d0 ;movec DTT0,d0 |
| 905 |
+ |
beq.s movecdtt0d0 |
| 906 |
+ |
cmp.w #$0007,d0 ;movec DTT1,d0 |
| 907 |
+ |
beq.s movecdtt1d0 |
| 908 |
|
|
| 909 |
|
bra pv_unhandled |
| 910 |
|
|
| 932 |
|
addq.l #4,2(sp) |
| 933 |
|
rte |
| 934 |
|
|
| 935 |
+ |
; movec vbr,d1 |
| 936 |
+ |
movecvbrd1 move.l (sp)+,d0 |
| 937 |
+ |
moveq.l #0,d1 ;VBR always appears to be at 0 |
| 938 |
+ |
addq.l #4,2(sp) |
| 939 |
+ |
rte |
| 940 |
+ |
|
| 941 |
|
; movec tc,d0 |
| 942 |
|
movectcd0 addq.l #4,sp |
| 943 |
|
moveq #0,d0 ;MMU is always off |
| 944 |
|
addq.l #4,2(sp) |
| 945 |
|
rte |
| 946 |
|
|
| 947 |
< |
; movec tc,d1 |
| 948 |
< |
movectcd1 addq.l #4,sp |
| 947 |
> |
; movec tc,d1 +jl+ |
| 948 |
> |
movectcd1 move.l (sp)+,d0 ;Restore d0 |
| 949 |
> |
moveq #0,d1 ;MMU is always off |
| 950 |
> |
addq.l #4,2(sp) |
| 951 |
> |
rte |
| 952 |
> |
|
| 953 |
> |
; movec SFC,d1 +jl+ |
| 954 |
> |
movecsfcd1: move.l (sp)+,d0 ;Restore d0 |
| 955 |
> |
moveq #0,d1 ;MMU is always off |
| 956 |
> |
addq.l #4,2(sp) |
| 957 |
> |
rte |
| 958 |
> |
|
| 959 |
> |
; movec DFC,d1 +jl+ |
| 960 |
> |
movecdfcd1: move.l (sp)+,d0 ;Restore d0 |
| 961 |
|
moveq #0,d1 ;MMU is always off |
| 962 |
|
addq.l #4,2(sp) |
| 963 |
|
rte |
| 964 |
|
|
| 965 |
+ |
movecurpd0: ; movec URP,d0 +jl+ |
| 966 |
+ |
movecsrpd0: ; movec SRP,d0 |
| 967 |
+ |
movecitt0d0: ; movec ITT0,d0 |
| 968 |
+ |
movecitt1d0: ; movec ITT1,d0 |
| 969 |
+ |
movecdtt0d0: ; movec DTT0,d0 |
| 970 |
+ |
movecdtt1d0: ; movec DTT1,d0 |
| 971 |
+ |
addq.l #4,sp |
| 972 |
+ |
moveq.l #0,d0 ;MMU is always off |
| 973 |
+ |
addq.l #4,2(sp) ;skip instruction |
| 974 |
+ |
rte |
| 975 |
+ |
|
| 976 |
|
; movec x,cr |
| 977 |
|
movectocr move.w ([6,sp],2),d0 ;Get next instruction word |
| 978 |
|
|
| 979 |
|
cmp.w #$0801,d0 ;movec d0,vbr? |
| 980 |
|
beq.s movectovbr |
| 981 |
+ |
cmp.w #$1801,d0 ;movec d1,vbr? |
| 982 |
+ |
beq.s movectovbr |
| 983 |
|
cmp.w #$0002,d0 ;movec d0,cacr? |
| 984 |
|
beq.s movectocacr |
| 985 |
|
cmp.w #$1002,d0 ;movec d1,cacr? |
| 986 |
|
beq.s movectocacr |
| 987 |
+ |
cmp.w #$1000,d0 ;movec d1,SFC? |
| 988 |
+ |
beq.s movectoxfc |
| 989 |
+ |
cmp.w #$1001,d0 ;movec d1,DFC? |
| 990 |
+ |
beq.s movectoxfc |
| 991 |
|
|
| 992 |
|
bra pv_unhandled |
| 993 |
|
|
| 1005 |
|
addq.l #4,2(sp) |
| 1006 |
|
rte |
| 1007 |
|
|
| 1008 |
+ |
; movec x,SFC |
| 1009 |
+ |
; movec x,DFC |
| 1010 |
+ |
movectoxfc move.l (sp)+,d0 ;Ignore moves to SFC, DFC |
| 1011 |
+ |
addq.l #4,2(sp) |
| 1012 |
+ |
rte |
| 1013 |
+ |
|
| 1014 |
|
; cpusha |
| 1015 |
|
cpushadc |
| 1016 |
|
cpushadcic movem.l d1/a0-a1/a6,-(sp) ;Clear caches |
| 1021 |
|
addq.l #2,2(sp) |
| 1022 |
|
rte |
| 1023 |
|
|
| 1024 |
+ |
; move usp,a1 +jl+ |
| 1025 |
+ |
moveuspa1: move.l (sp)+,d0 |
| 1026 |
+ |
move usp,a1 |
| 1027 |
+ |
addq.l #2,2(sp) |
| 1028 |
+ |
rte |
| 1029 |
+ |
|
| 1030 |
+ |
; move usp,a0 +jl+ |
| 1031 |
+ |
moveuspa0: move.l (sp)+,d0 |
| 1032 |
+ |
move usp,a0 |
| 1033 |
+ |
addq.l #2,2(sp) |
| 1034 |
+ |
rte |
| 1035 |
+ |
|
| 1036 |
+ |
; move a1,usp +jl+ |
| 1037 |
+ |
moved1usp: move.l (sp)+,d0 |
| 1038 |
+ |
move a1,usp |
| 1039 |
+ |
addq.l #2,2(sp) |
| 1040 |
+ |
rte |
| 1041 |
+ |
|
| 1042 |
+ |
; |
| 1043 |
+ |
; Trigger NMI (Pop up debugger) |
| 1044 |
+ |
; |
| 1045 |
+ |
|
| 1046 |
+ |
_AsmTriggerNMI: |
| 1047 |
+ |
move.l d0,-(sp) ;Save d0 |
| 1048 |
+ |
move.w #$007c,-(sp) ;Yes, fake NMI stack frame |
| 1049 |
+ |
pea 1$ |
| 1050 |
+ |
move.w _EmulatedSR,d0 |
| 1051 |
+ |
and.w #$f8ff,d0 ;Set interrupt level in SR |
| 1052 |
+ |
move.w d0,-(sp) |
| 1053 |
+ |
move.w d0,_EmulatedSR |
| 1054 |
+ |
|
| 1055 |
+ |
move.l $7c.w,-(sp) ;Jump to MacOS NMI handler |
| 1056 |
+ |
rts |
| 1057 |
+ |
|
| 1058 |
+ |
1$ move.l (sp)+,d0 ;Restore d0 |
| 1059 |
+ |
rts |
| 1060 |
+ |
|
| 1061 |
+ |
|
| 1062 |
|
END |
