|
- ( native words )
- CODE EXECUTE 1 chkPS,
- DI POPx, JMPn, lblexec @ RPCn,
- CODE >R 1 chkPS,
- BP INCx, BP INCx, [BP] 0 POP[w]+,
- ;CODE NOP, NOP, NOP,
- CODE R>
- [BP] 0 PUSH[w]+, BP DECx, BP DECx,
- ;CODE
- CODE 2R> 2 chkPS,
- [BP] -2 PUSH[w]+, [BP] 0 PUSH[w]+, BP 4 SUBxi,
- ;CODE
- CODE ROT ( a b c -- b c a ) 3 chkPS,
- CX POPx, BX POPx, AX POPx,
- BX PUSHx, CX PUSHx, AX PUSHx,
- ;CODE
|