From 6518b8b207b26ad8e42dcbc2ab2c7cc9fdf70706 Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@sbcglobal.net>
Date: Thu, 28 Nov 2019 13:14:26 -0800
Subject: [PATCH 1/3] Update plvm02.s

Simplify DINTERP (looks similar to return from CALL)
---
 Platform/Apple/tools/PLASMA/src/plvm02.s | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/Platform/Apple/tools/PLASMA/src/plvm02.s b/Platform/Apple/tools/PLASMA/src/plvm02.s
index 41e8fceb..f8603ea4 100644
--- a/Platform/Apple/tools/PLASMA/src/plvm02.s
+++ b/Platform/Apple/tools/PLASMA/src/plvm02.s
@@ -184,13 +184,10 @@ OPXTBL  !WORD   ZERO,ADD,SUB,MUL,DIV,MOD,INCR,DECR              ; 00 02 04 06 08
 ;* ENTER INTO BYTECODE INTERPRETER
 ;*
 DINTRP  PLA
-        CLC
-        ADC     #$01
         STA     IPL
         PLA
-        ADC     #$00
         STA     IPH
-        LDY     #$00
+        LDY     #$01
         LDA     #>OPTBL
         STA     OPPAGE
         BIT     LCRWEN+LCBNK2

From 1d45c04792594ad4b7af6d75d192f7713b0c08ab Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@sbcglobal.net>
Date: Sun, 1 Dec 2019 14:57:17 -0800
Subject: [PATCH 2/3] Adjust ENTER for simpler DINTRP

---
 Platform/Apple/tools/PLASMA/src/plvm02.s | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Platform/Apple/tools/PLASMA/src/plvm02.s b/Platform/Apple/tools/PLASMA/src/plvm02.s
index f8603ea4..d633b4f1 100644
--- a/Platform/Apple/tools/PLASMA/src/plvm02.s
+++ b/Platform/Apple/tools/PLASMA/src/plvm02.s
@@ -1342,7 +1342,7 @@ ENTER   LDA     IFPH
         DEY
         STA     (IFP),Y
         BNE     -
-+       LDY     #$03
++       LDY     #$04
         JMP     FETCHOP
 ;*
 ;* LEAVE FUNCTION

From 0f8d46bd178f2a69b5d27f9191e3cf015c3325c9 Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@sbcglobal.net>
Date: Sun, 1 Dec 2019 16:06:56 -0800
Subject: [PATCH 3/3] Nevermind :-(

---
 Platform/Apple/tools/PLASMA/src/plvm02.s | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/Platform/Apple/tools/PLASMA/src/plvm02.s b/Platform/Apple/tools/PLASMA/src/plvm02.s
index d633b4f1..41e8fceb 100644
--- a/Platform/Apple/tools/PLASMA/src/plvm02.s
+++ b/Platform/Apple/tools/PLASMA/src/plvm02.s
@@ -184,10 +184,13 @@ OPXTBL  !WORD   ZERO,ADD,SUB,MUL,DIV,MOD,INCR,DECR              ; 00 02 04 06 08
 ;* ENTER INTO BYTECODE INTERPRETER
 ;*
 DINTRP  PLA
+        CLC
+        ADC     #$01
         STA     IPL
         PLA
+        ADC     #$00
         STA     IPH
-        LDY     #$01
+        LDY     #$00
         LDA     #>OPTBL
         STA     OPPAGE
         BIT     LCRWEN+LCBNK2
@@ -1342,7 +1345,7 @@ ENTER   LDA     IFPH
         DEY
         STA     (IFP),Y
         BNE     -
-+       LDY     #$04
++       LDY     #$03
         JMP     FETCHOP
 ;*
 ;* LEAVE FUNCTION