From ce9017bed66b9be29803bc7f99d3de6e6bc2d13c Mon Sep 17 00:00:00 2001
From: mgcaret <mgcaret@users.noreply.github.com>
Date: Wed, 1 Jan 2020 22:00:49 -0800
Subject: [PATCH] Fix 2@/2! discovered in unit testing

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

diff --git a/asm/forth-dictionary.s b/asm/forth-dictionary.s
index b8da482..c35e643 100644
--- a/asm/forth-dictionary.s
+++ b/asm/forth-dictionary.s
@@ -1386,9 +1386,10 @@ eword
 ; H: ( c-addr -- n1 n2 ) fetch two consecutive cells from c-addr
 dword     TWOFETCH,"2@"
           jsr   _popwr
+          jsr   _wrplus4
           jsr   _wrfetchind
           jsr   _pushay
-          jsr   _wrplus4
+          jsr   _wrminus4
           bra   FETCH::fetch2
 eword
 
@@ -1449,10 +1450,9 @@ eword
 ; H: ( n1 n2 c-addr -- ) write consecutive cells n1 and n2 to c-addr
 dword     TWOSTORE,"2!"
           jsr   _popwr
-          jsr   _wrplus4
           jsr   _popay
           jsr   _wrstoreind
-          jsr   _wrminus4
+          jsr   _wrplus4
           bra   STORE::store2
 eword