mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-26 04:58:05 +11:00
5ebdf84e78
almost there!
5 lines
167 B
Plaintext
5 lines
167 B
Plaintext
: PUSHZ, CX 0 MOVxI, IFZ, CX INCx, THEN, CX PUSHx, ;
|
|
: CODE ( same as CREATE, but with native word )
|
|
(entry) 0 ( native ) C, ;
|
|
: ;CODE JMPn, 0x1a ( next ) RPCn, ;
|