From 0c6e3a041312ba71d009ef7c8de0d6b74f94ff87 Mon Sep 17 00:00:00 2001
From: mgcaret <mgcaret@users.noreply.github.com>
Date: Sun, 29 Dec 2019 13:43:19 -0800
Subject: [PATCH] Fix issue with 2/ and >>a uncovered by unit tests

---
 asm/forth-dictionary.s | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/asm/forth-dictionary.s b/asm/forth-dictionary.s
index 26a03f9..22e3033 100644
--- 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