alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Added ?DUP.

Browse Source
This commit is contained in:
Brad Nelson
2022-02-27 21:23:37 -08:00
parent 0bc9be1e19
commit bf88a73336
3 changed files with 9 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
common/extra_opcodes.h
View File

@ -25,6 +25,7 @@
X("-", MINUS, tos = (*sp--) - tos) \
Y(rot, w = sp[-1]; sp[-1] = *sp; *sp = tos; tos = w) \
X("-rot", MROT, w = tos; tos = *sp; *sp = sp[-1]; sp[-1] = w) \
X("?dup", QDUP, if (tos) DUP) \
X("<", LESS, tos = (*sp--) < tos ? -1 : 0) \
X(">", GREATER, tos = (*sp--) > tos ? -1 : 0) \
X("<=", LESSEQ, tos = (*sp--) <= tos ? -1 : 0) \