From 2bb88f11a3f09db8d8bfec54680d20d5ed945374 Mon Sep 17 00:00:00 2001
From: mgcaret <mgcaret@users.noreply.github.com>
Date: Sat, 28 Dec 2019 22:52:12 -0800
Subject: [PATCH] Fix 3DUP bug found by 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 2ad331c..c9b7bf1 100644
--- 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