2020-06-28 12:01:56 +10:00
|
|
|
: JPc, SWAP <<3 0xc2 OR A, A,, ;
|
|
|
|
: BCALL, BIN( @ + CALL, ;
|
|
|
|
: BJP, BIN( @ + JP, ;
|
|
|
|
: BJPc, BIN( @ + JPc, ;
|
2020-04-21 11:18:33 +10:00
|
|
|
|
2020-08-16 06:37:58 +10:00
|
|
|
CREATE lblchkPS 0 ,
|
2020-06-28 12:01:56 +10:00
|
|
|
: chkPS, lblchkPS @ CALL, ; ( chkPS, B305 )
|
2020-06-27 11:24:12 +10:00
|
|
|
CREATE lblnext 0 , ( stable ABI until set in B300 )
|
2020-06-28 12:01:56 +10:00
|
|
|
: JPNEXT, lblnext @ ?DUP IF JP, ELSE 0x1a BJP, THEN ;
|
2020-04-28 05:04:37 +10:00
|
|
|
: CODE ( same as CREATE, but with native word )
|
2020-06-18 11:41:01 +10:00
|
|
|
(entry) 0 C, ( 0 == native ) ;
|
2020-04-20 10:36:13 +10:00
|
|
|
: ;CODE JPNEXT, ;
|