mirror of https://github.com/mgcaret/of816.git
Fix 3DUP bug found by unit testing
This commit is contained in:
parent
35f4214749
commit
2bb88f11a3
|
@ -1818,11 +1818,11 @@ eword
|
||||||
; H: ( n1 n2 n3 -- n1 n2 n3 n4 n5 n6 ) n4 = n1, n5 = n2, n6 = n3
|
; H: ( n1 n2 n3 -- n1 n2 n3 n4 n5 n6 ) n4 = n1, n5 = n2, n6 = n3
|
||||||
dword THREEDUP,"3DUP"
|
dword THREEDUP,"3DUP"
|
||||||
ENTER
|
ENTER
|
||||||
ONLIT 3
|
ONLIT 2
|
||||||
.dword PICK
|
.dword PICK
|
||||||
ONLIT 3
|
ONLIT 2
|
||||||
.dword PICK
|
.dword PICK
|
||||||
ONLIT 3
|
ONLIT 2
|
||||||
.dword PICK
|
.dword PICK
|
||||||
EXIT
|
EXIT
|
||||||
eword
|
eword
|
||||||
|
|
Loading…
Reference in New Issue