collapseos/blk/761

5 lines
167 B
Plaintext
Raw Normal View History

2020-06-19 07:26:33 -04:00
: PUSHZ, CX 0 MOVxI, IFZ, CX INCx, THEN, CX PUSHx, ;
2020-06-18 21:21:46 -04:00
: CODE ( same as CREATE, but with native word )
(entry) 0 ( native ) C, ;
: ;CODE JMPn, 0x1a ( next ) RPCn, ;