From 1be159e3edc276d947e91245ca3e4bb1a3a0e5d2 Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@sbcglobal.net>
Date: Sun, 14 Jan 2024 17:24:54 -0800
Subject: [PATCH] Mostly working JIT16. Still an issue with +HRFORTH PBC
HRBOUNCE.4th
---
src/vmsrc/apple/plvm802.s | 23 +++++------------------
1 file changed, 5 insertions(+), 18 deletions(-)
diff --git a/src/vmsrc/apple/plvm802.s b/src/vmsrc/apple/plvm802.s
index 0066317..c306e2b 100644
--- a/src/vmsrc/apple/plvm802.s
+++ b/src/vmsrc/apple/plvm802.s
@@ -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