mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-27 16:28:06 +11:00
f6ded7712e
This is the first commit I do entirely in VE. It's a habit I'm planning on taking as it helps a lot to find usability issues.
17 lines
304 B
Plaintext
17 lines
304 B
Plaintext
: JPccnn, SWAP <<3 0xc2 OR A, A,, ;
|
|
: BCALL, BIN( @ + CALLnn, ;
|
|
: BJP, BIN( @ + JPnn, ;
|
|
: BJPcc, BIN( @ + JPccnn, ;
|
|
|
|
: JPNEXT, 26 BJP, ; ( 26 == next )
|
|
|
|
: chkPS, 29 BCALL, ; ( 29 == chkPS )
|
|
|
|
: CODE ( same as CREATE, but with native word )
|
|
(entry)
|
|
23 C, ( 23 == nativeWord )
|
|
;
|
|
: ;CODE JPNEXT, ;
|
|
|
|
|