2020-04-20 21:18:33 -04:00
|
|
|
: JPccnn, SWAP <<3 0xc2 OR A, A,, ;
|
2020-04-27 15:04:37 -04:00
|
|
|
: BCALL, BIN( @ + CALLnn, ;
|
|
|
|
: BJP, BIN( @ + JPnn, ;
|
|
|
|
: BJPcc, BIN( @ + JPccnn, ;
|
2020-04-20 21:18:33 -04:00
|
|
|
|
2020-06-18 07:16:40 -04:00
|
|
|
VARIABLE lblchkPS
|
|
|
|
: chkPS, lblchkPS @ CALLnn, ; ( chkPS, B305 )
|
2020-06-18 07:24:47 -04:00
|
|
|
CREATE lblnext 0x1a , ( stable ABI until set in B300 )
|
|
|
|
: JPNEXT, lblnext @ JPnn, ;
|
2020-04-27 15:04:37 -04:00
|
|
|
: CODE ( same as CREATE, but with native word )
|
2020-06-17 21:41:01 -04:00
|
|
|
(entry) 0 C, ( 0 == native ) ;
|
2020-04-19 20:36:13 -04:00
|
|
|
: ;CODE JPNEXT, ;
|
|
|
|
|
2020-06-11 18:12:01 -04:00
|
|
|
|