collapseos/emul/forth/xcomp.fs
2020-04-09 09:43:48 -04:00

7 lines
97 B
Forth

: CODE XCODE ;
: IMMEDIATE XIMM ;
: : [ ' X: , ] ;
CURRENT @ XCURRENT !
H@ ' _bend - 4 + XOFF !