1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-27 19:18:06 +11:00
collapseos/blk/761
Virgil Dupras 5ebdf84e78 pcat: more native words
almost there!
2020-06-19 07:26:33 -04:00

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, ;