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

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

diff --git a/src/vmsrc/apple/plvm02.s b/src/vmsrc/apple/plvm02.s
index 9781c0f..dbf9d48 100755
--- a/src/vmsrc/apple/plvm02.s
+++ b/src/vmsrc/apple/plvm02.s
@@ -149,13 +149,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
         JMP     FETCHOP
 ;*
 ;* INDIRECTLY ENTER INTO BYTECODE INTERPRETER