mirror of https://github.com/hsoft/collapseos.git
15 lines
196 B
Plaintext
15 lines
196 B
Plaintext
|
( 26 == next )
|
||
|
|
: JPNEXT, 26 JPnn, ;
|
||
|
|
( 29 == chkPS )
|
||
|
|
: chkPS, 29 CALLnn, ;
|
||
|
|
|
||
|
|
: CODE
|
||
|
|
( same as CREATE, but with native word )
|
||
|
|
(entry)
|
||
|
|
( 23 == nativeWord )
|
||
|
|
23 C,
|
||
|
|
;
|
||
|
|
|
||
|
|
: ;CODE JPNEXT, ;
|
||
|
|
|