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

More shuffling.

Browse Source
This commit is contained in:
Brad Nelson
2022-07-14 11:04:18 -07:00
parent 3da2f4bfd3
commit 8066bfb2e8
14 changed files with 53 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
common/tier1_opcodes.h
View File

@ -81,4 +81,7 @@
XV(internals, "'argv", ARGV, DUP; tos = (cell_t) &g_sys->argv) \
XV(internals, "'runner", RUNNER, DUP; tos = (cell_t) &g_sys->runner) \
Y(context, DUP; tos = (cell_t) (g_sys->context + 1)) \
Y(latestxt, DUP; tos = (cell_t) g_sys->latestxt)
Y(latestxt, DUP; tos = (cell_t) g_sys->latestxt) \
XV(forth_immediate, "[", LBRACKET, g_sys->state = 0) \
XV(forth_immediate, "]", RBRACKET, g_sys->state = -1) \
YV(forth_immediate, literal, COMMA(g_sys->DOLIT_XT); COMMA(tos); DROP)