2020-04-21 11:18:33 +10:00
|
|
|
: JPccnn, SWAP <<3 0xc2 OR A, A,, ;
|
2020-04-28 05:04:37 +10:00
|
|
|
: BCALL, BIN( @ + CALLnn, ;
|
|
|
|
: BJP, BIN( @ + JPnn, ;
|
|
|
|
: BJPcc, BIN( @ + JPccnn, ;
|
2020-04-21 11:18:33 +10:00
|
|
|
|
2020-04-28 05:04:37 +10:00
|
|
|
: JPNEXT, 26 BJP, ; ( 26 == next )
|
2020-04-20 10:36:13 +10:00
|
|
|
|
2020-06-14 23:48:10 +10:00
|
|
|
: chkPS, L4 @ BCALL, ; ( chkPS, B305 )
|
2020-04-28 05:04:37 +10:00
|
|
|
|
|
|
|
: CODE ( same as CREATE, but with native word )
|
2020-04-20 10:36:13 +10:00
|
|
|
(entry)
|
2020-04-28 05:04:37 +10:00
|
|
|
23 C, ( 23 == nativeWord )
|
2020-04-20 10:36:13 +10:00
|
|
|
;
|
|
|
|
: ;CODE JPNEXT, ;
|
|
|
|
|
2020-06-12 08:12:01 +10:00
|
|
|
|