From 53c832da58c9ae14f3e4d9f68534fc5e0653ad7a Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@gmail.com>
Date: Wed, 14 Mar 2018 18:43:21 -0700
Subject: [PATCH] Fix ADDx ops

---
 src/vmsrc/apple/plvm02.s | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

diff --git a/src/vmsrc/apple/plvm02.s b/src/vmsrc/apple/plvm02.s
index 33ed7ff..7765974 100755
--- a/src/vmsrc/apple/plvm02.s
+++ b/src/vmsrc/apple/plvm02.s
@@ -1152,6 +1152,7 @@ IDXLWX  INY                     ;+INC_IP
         LDA     TMPH
         ADC     ESTKH,X
         STA     ESTKH,X
+        STA     ALTRDON
         LDY     IPY
         JMP     NEXTOP
 ;*
@@ -1250,37 +1251,37 @@ ADDABX  INY                     ;+INC_IP
         JMP     NEXTOP
 ADDAW   INY                     ;+INC_IP
         LDA     (IP),Y
-        STA     TMPL
+        STA     SRCL
         INY                     ;+INC_IP
         LDA     (IP),Y
-        STA     TMPH
+        STA     SRCH
         STY     IPY
         LDY     #$00
-        LDA     (TMP),Y
+        LDA     (SRC),Y
         CLC
         ADC     ESTKL,X
         STA     ESTKL,X
         INY
-        LDA     (TMP),Y
+        LDA     (SRC),Y
         ADC     ESTKH,X
         STA     ESTKH,X
         LDY     IPY
         JMP     NEXTOP
 ADDAWX  INY                     ;+INC_IP
         LDA     (IP),Y
-        STA     TMPL
+        STA     SRCL
         INY                     ;+INC_IP
         LDA     (IP),Y
-        STA     TMPH
+        STA     SRCH
         STY     IPY
         STA     ALTRDOFF
         LDY     #$00
-        LDA     (TMP),Y
+        LDA     (SRC),Y
         CLC
         ADC     ESTKL,X
         STA     ESTKL,X
         INY
-        LDA     (TMP),Y
+        LDA     (SRC),Y
         ADC     ESTKH,X
         STA     ESTKH,X
         STA     ALTRDON
@@ -1380,7 +1381,7 @@ IDXAWX  INY                     ;+INC_IP
         STA     ESTKH,X
         STA     ALTRDON
         LDY     IPY
-        JMP     IDXW
+        JMP     NEXTOP
 ;*
 ;* STORE VALUE TO ADDRESS
 ;*