Update XBYTE in SELect

2025-04-09 01:37:17 +00:00 · 2018-03-10 15:45:01 -08:00 · 2018-03-10 15:45:01 -08:00 · 4f11cad955
commit 4f11cad955
parent 20790d2dbb
1 changed files with 3 additions and 0 deletions
--- 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