: JPccnn, SWAP <<3 0xc2 OR A, A,, ;

( 26 == next )
: JPNEXT, 26 JPnn, ;
( 29 == chkPS )
: chkPS, 29 CALLnn, ;

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

: ;CODE JPNEXT, ;