From 02b3b88862b897c29c62d9fb0638ac9a97857e94 Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@sbcglobal.net>
Date: Thu, 28 Nov 2019 13:21:23 -0800
Subject: [PATCH] Simpler INTERP entry

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

diff --git a/src/vmsrc/apple/plvm01.s b/src/vmsrc/apple/plvm01.s
index c7e70ec..1c99324 100644
--- a/src/vmsrc/apple/plvm01.s
+++ b/src/vmsrc/apple/plvm01.s
@@ -27,13 +27,10 @@ SEGBEGIN JMP    VMINIT
 ;* SYSTEM INTERPRETER ENTRYPOINT
 ;*
 INTERP  PLA
-        CLC
-        ADC     #$01
         STA     IPL
         PLA
-        ADC     #$00
         STA     IPH
-        LDY     #$00
+        LDY     #$01
         JMP     FETCHOP
 ;*
 ;* ENTER INTO USER BYTECODE INTERPRETER