From 2fe4b9ed52df48dadb91ef62477e9f65d2f18fae Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@sbcglobal.net>
Date: Thu, 28 Nov 2019 13:28:04 -0800
Subject: [PATCH] Simpler DINTERP entry

---
 src/vmsrc/apple/plvmjit02.s | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/src/vmsrc/apple/plvmjit02.s b/src/vmsrc/apple/plvmjit02.s
index 54c2820..a104f2f 100755
--- a/src/vmsrc/apple/plvmjit02.s
+++ b/src/vmsrc/apple/plvmjit02.s
@@ -223,13 +223,10 @@ OPTBL   !WORD   CN,CN,CN,CN,CN,CN,CN,CN                                 ; 00 02
 ;* DIRECTLY ENTER INTO BYTECODE INTERPRETER
 ;*
 DINTRP  PLA
-        CLC
-        ADC     #$01
         STA     IPL
         PLA
-        ADC     #$00
         STA     IPH
-        LDY     #$00
+        LDY     #$01
         LDA     #>OPTBL
         STA     OPPAGE
         JMP     FETCHOP