mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-05 22:40:56 +11:00
7 lines
97 B
Forth
7 lines
97 B
Forth
: CODE XCODE ;
|
|
: IMMEDIATE XIMM ;
|
|
: : [ ' X: , ] ;
|
|
|
|
CURRENT @ XCURRENT !
|
|
H@ ' _bend - 4 + XOFF !
|