collapseos/emul/forth/xcomp.fs

12 lines
164 B
Forth
Raw Normal View History

: CODE XCODE ;
: IMMEDIATE XIMM ;
: : [ ' X: , ] ;
CURRENT @ XCURRENT !
H@ ' _bend - 4 + XOFF !
2020-04-10 02:01:08 +10:00
( dummy entry for dict hook )
(xentry) _
H@ 256 /MOD 2 PC! 2 PC!