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

---
 src/vmsrc/apple/plvm802.s | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/vmsrc/apple/plvm802.s b/src/vmsrc/apple/plvm802.s
index 7c06a2a..065e3b5 100644
--- a/src/vmsrc/apple/plvm802.s
+++ b/src/vmsrc/apple/plvm802.s
@@ -283,17 +283,17 @@ DINTRP  PHP
         XCE
         +ACCMEM16               ; 16 BIT A/M
         PLA
-        INC
         STA     IP
         STX     ESP
         TSX
         STX     HWSP
         LDX     #>OPTBL
 !IF DEBUG {
+        INC     IP
         JMP     SETDBG
 } ELSE {
         STX     OPPAGE
-        LDY     #$00
+        LDY     #$01
         JMP     FETCHOP
 }
         !AS