From b626a7a790af30f4f058ea0d89741cc1271293fb Mon Sep 17 00:00:00 2001
From: mgcaret <mgcaret@users.noreply.github.com>
Date: Sun, 5 Jan 2020 16:18:27 -0800
Subject: [PATCH] Fix J (and optional K) problem discovered in unit tests

---
 asm/forth-dictionary.s | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/asm/forth-dictionary.s b/asm/forth-dictionary.s
index f50e2a3..4d79b28 100644
--- a/asm/forth-dictionary.s
+++ b/asm/forth-dictionary.s
@@ -2589,18 +2589,18 @@ eword
 
 ; H: ( -- n ) copy second-inner loop index to stack
 dword     JX,"J",F_CONLY
-          lda   13,s
+          lda   17,s
           tay
-          lda   15,s
+          lda   19,s
           PUSHNEXT
 eword
 
 .if 0
 ; H: ( -- n ) copy third-inner loop index to stack
 dword     KX,"K",F_CONLY
-          lda   21,s
+          lda   29,s
           tay
-          lda   23,s
+          lda   31,s
           PUSHNEXT
 eword
 .endif