Fix issue with 2/ and >>a uncovered by unit tests

2019-12-29 13:43:19 -08:00 · 2019-12-29 13:43:19 -08:00 · 0c6e3a0413
parent 84c53d35c6
commit 0c6e3a0413
1 changed files with 2 additions and 1 deletions
--- a/asm/forth-dictionary.s
+++ b/asm/forth-dictionary.s
@ -2925,7 +2925,8 @@ dword     ARSHIFT,">>A"
          lda   #.hiword(shift-1)
          jsr   _iter_ay
          NEXT
-shift:    cmp   #$8000
+shift:    lda   STACKBASE+2,x
+          cmp   #$8000
          ror   STACKBASE+2,x
          ror   STACKBASE+0,x
          clc