1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-26 03:58:05 +11:00
collapseos/blk/243
Virgil Dupras 40f92b9bab z80: optimize chkPS
Inline it in next and make chkPS, call a newly reserved label for
it directly, removing a layer of indirection. This frees a spot in
the stable ABI.
2020-06-14 09:48:10 -04:00

17 lines
306 B
Plaintext

: JPccnn, SWAP <<3 0xc2 OR A, A,, ;
: BCALL, BIN( @ + CALLnn, ;
: BJP, BIN( @ + JPnn, ;
: BJPcc, BIN( @ + JPccnn, ;
: JPNEXT, 26 BJP, ; ( 26 == next )
: chkPS, L4 @ BCALL, ; ( chkPS, B305 )
: CODE ( same as CREATE, but with native word )
(entry)
23 C, ( 23 == nativeWord )
;
: ;CODE JPNEXT, ;