: JPccnn, SWAP <<3 0xc2 OR A, A,, ;
: BCALL, BIN( @ + CALLnn, ;
: BJP, BIN( @ + JPnn, ;
: BJPcc, BIN( @ + JPccnn, ;

: JPNEXT, 26 BJP, ; ( 26 == next )

: chkPS, 29 BCALL, ; ( 29 == chkPS )

: CODE ( same as CREATE, but with native word )
    (entry)
    23 C, ( 23 == nativeWord )
;
: ;CODE JPNEXT, ;