6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-01-10 06:30:41 +00:00
Code Issues Projects Releases Wiki Activity

Mostly working JIT16. Still an issue with +HRFORTH PBC HRBOUNCE.4th

Browse Source
This commit is contained in:
David Schmenk 2024-01-14 17:24:54 -08:00
parent 7fe51aaf56
commit 1be159e3ed
1 changed files with 5 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
src/vmsrc/apple/plvm802.s
View File

@ -518,7 +518,9 @@ JITINTRPX PHP
STA (TOS,S),Y STA (TOS,S),Y
BNE _INTRPX BNE _INTRPX
+ACCMEM16 ; 16 BIT A/M +ACCMEM16 ; 16 BIT A/M
RUNJIT PLA ; BACK UP DEF ENTRY TO POINT TO JSR LDA JITCOMP
STA TMP
PLA ; BACK UP STACK ADDRESS TO POINT TO DEF ENTRY BEGINNING
SEC SEC
SBC #$0002 SBC #$0002
PHA PHA
@ -527,24 +529,9 @@ RUNJIT PLA ; BACK UP DEF ENTRY TO POINT TO JSR
STA ESTKL,X STA ESTKL,X
XBA XBA
STA ESTKH,X STA ESTKH,X
STX ESP JSR JMPTMP
+ACCMEM16 ; 16 BIT A/M
LDA JITCOMP
STA SRC
LDY #$03
LDA (SRC),Y
STA IP
TSX
DEX ; TAKE INTO ACCOUNT JSR BELOW
DEX
STX HWSP
STX ALTRDON
LDX #>OPXTBL
STX OPPAGE
LDY #$00
JSR FETCHOP ; CALL JIT COMPILER
!AS ; RETURN IN EMULATION MODE !AS ; RETURN IN EMULATION MODE
PLA RETJIT PLA
STA TMPL STA TMPL
PLA PLA
STA TMPH STA TMPH