Fix 3DUP bug found by unit testing

2019-12-28 22:52:12 -08:00 · 2019-12-28 22:52:12 -08:00 · 2bb88f11a3
parent 35f4214749
commit 2bb88f11a3
1 changed files with 3 additions and 3 deletions
--- a/asm/forth-dictionary.s
+++ b/asm/forth-dictionary.s
@ -1818,11 +1818,11 @@ eword
 ; H: ( n1 n2 n3 -- n1 n2 n3 n4 n5 n6 ) n4 = n1, n5 = n2, n6 = n3
 dword     THREEDUP,"3DUP"
          ENTER
-          ONLIT 3
+          ONLIT 2
          .dword PICK
-          ONLIT 3
+          ONLIT 2
          .dword PICK
-          ONLIT 3
+          ONLIT 2
          .dword PICK
          EXIT
 eword