2020-06-21 13:09:51 -04:00
|
|
|
: 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, ;
|
2020-06-21 14:07:02 -04:00
|
|
|
VARIABLE lblchkPS
|
|
|
|
|
: chkPS, ( sz -- )
|
2020-09-25 19:39:31 -04:00
|
|
|
CX SWAP 2 * MOVxI, CALL, lblchkPS @ RPCn, ;
|
