mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-27 11:38:07 +11:00
440ea43a88
Initially, I used the same letters as those used in the z80 ref docs, but it makes the different assemblers harder to use than they should. Having consistent "argtype" rules across assemblers should help.
13 lines
375 B
Plaintext
13 lines
375 B
Plaintext
: JPc, SWAP <<3 0xc2 OR A, A,, ;
|
|
: BCALL, BIN( @ + CALL, ;
|
|
: BJP, BIN( @ + JP, ;
|
|
: BJPc, BIN( @ + JPc, ;
|
|
|
|
VARIABLE lblchkPS
|
|
: chkPS, lblchkPS @ CALL, ; ( chkPS, B305 )
|
|
CREATE lblnext 0 , ( stable ABI until set in B300 )
|
|
: JPNEXT, lblnext @ ?DUP IF JP, ELSE 0x1a BJP, THEN ;
|
|
: CODE ( same as CREATE, but with native word )
|
|
(entry) 0 C, ( 0 == native ) ;
|
|
: ;CODE JPNEXT, ;
|