6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2024-06-01 19:41:36 +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
BNE _INTRPX
+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
SBC #$0002
PHA
@ -527,24 +529,9 @@ RUNJIT PLA ; BACK UP DEF ENTRY TO POINT TO JSR
STA ESTKL,X
XBA
STA ESTKH,X
STX ESP
+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
JSR JMPTMP
!AS ; RETURN IN EMULATION MODE
PLA
RETJIT PLA
STA TMPL
PLA
STA TMPH