collapseos/blk/243
Virgil Dupras 0892193cbe Copy z80a.fs to disk blocks
I don't remove z80a.fs yet because build process needs it, but that
will change shortly.
2020-04-19 20:36:13 -04:00

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, ;