mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-27 17:28:06 +11:00
17 lines
233 B
Plaintext
17 lines
233 B
Plaintext
: JPccnn, SWAP <<3 0xc2 OR A, A,, ;
|
|
|
|
( 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, ;
|
|
|