mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-26 05:28:05 +11:00
0892193cbe
I don't remove z80a.fs yet because build process needs it, but that will change shortly.
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, ;
|
|
|