|
- : JPc, SWAP <<3 0xc2 OR A, A,, ;
- : BCALL, BIN( @ + CALL, ;
- : BJP, BIN( @ + JP, ;
- : BJPc, BIN( @ + JPc, ;
-
- CREATE lblchkPS 0 ,
- : chkPS, lblchkPS @ CALL, ; ( chkPS, B305 )
- CREATE lblnext 0 , ( stable ABI until set in B300 )
- : JPNEXT, lblnext @ ?DUP IF JP, ELSE 0x1a BJP, THEN ;
- : CODE ( same as CREATE, but with native word )
- (entry) 0 C, ( 0 == native ) ;
- : ;CODE JPNEXT, ;
|