From 4f11cad9552db6df1d3d009acbde201297482da2 Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@gmail.com>
Date: Sat, 10 Mar 2018 15:45:01 -0800
Subject: [PATCH] Update XBYTE in SELect

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

diff --git a/src/vmsrc/apple/plvm03.s b/src/vmsrc/apple/plvm03.s
index c02679a..b201959 100755
--- a/src/vmsrc/apple/plvm03.s
+++ b/src/vmsrc/apple/plvm03.s
@@ -939,6 +939,8 @@ SEL     INX
         TAY
         ADC     IPH
         STA     TMPH            ; ADD CASEBLOCK OFFSET
+        LDA     IPX             ; COPY XBYTE FROM IP
+        STA     TMPX
         LDA     (TMP),Y
         ;CLC                    ; BETTER NOT CARRY OUT OF IP+Y
         ADC     TMPL
@@ -948,6 +950,7 @@ SEL     INX
         ADC     TMPH
         STA     IPH
         DEY
+        STY     TMPX            ; CLEAR TMPX
         LDA     (IP),Y
         STA     TMPL            ; CASE COUNT
         LDA     ESTKL-1,X