6502/of816
1
0
Fork 0
mirror of https://github.com/mgcaret/of816.git synced 2024-06-02 17:41:40 +00:00
Code Issues Projects Releases Wiki Activity

Fix 3DUP bug found by unit testing

Browse Source
This commit is contained in:
mgcaret 2019-12-28 22:52:12 -08:00
parent 35f4214749
commit 2bb88f11a3
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
asm/forth-dictionary.s
View File

@ -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