mirror of https://github.com/hsoft/collapseos.git
12 lines
184 B
Plaintext
12 lines
184 B
Plaintext
|
VARIABLE XCURRENT
|
||
|
|
VARIABLE XOFF
|
||
|
|
|
||
|
|
: XCON XCURRENT CURRENT* ! ;
|
||
|
|
: XCOFF 0x02 RAM+ CURRENT* ! ;
|
||
|
|
|
||
|
|
: (xentry) XCON (entry) XCOFF ;
|
||
|
|
|
||
|
|
: XCODE XCON CODE XCOFF ;
|
||
|
|
|
||
|
|
: XIMM XCON IMMEDIATE XCOFF ;
|