From db6bc55df3102c103278b6deb8a6354a8b7c174f Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@sbcglobal.net>
Date: Sun, 1 Dec 2019 15:39:21 -0800
Subject: [PATCH] Back out DINTRP opt as ENTER needs Y to bee zero

---
 src/vmsrc/apple/plvm01.s | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/vmsrc/apple/plvm01.s b/src/vmsrc/apple/plvm01.s
index 1c99324..73645fe 100644
--- a/src/vmsrc/apple/plvm01.s
+++ b/src/vmsrc/apple/plvm01.s
@@ -27,8 +27,11 @@ SEGBEGIN JMP    VMINIT
 ;* SYSTEM INTERPRETER ENTRYPOINT
 ;*
 INTERP  PLA
+        CLC
+        ADC     #$01
         STA     IPL
         PLA
+        ADC     #$00
         STA     IPH
         LDY     #$01
         JMP     FETCHOP