mirror of
https://github.com/hsoft/collapseos.git
synced 2024-09-16 20:18:45 +10:00
7 lines
97 B
Forth
7 lines
97 B
Forth
: CODE XCODE ;
|
|
: IMMEDIATE XIMM ;
|
|
: : [ ' X: , ] ;
|
|
|
|
CURRENT @ XCURRENT !
|
|
H@ ' _bend - 4 + XOFF !
|