2020-06-18 15:28:30 -04:00
|
|
|
( native words )
|
2020-06-18 19:06:53 -04:00
|
|
|
CODE EXECUTE
|
2020-06-20 13:50:01 -04:00
|
|
|
DI POPx, JMPn, lblexec @ RPCn,
|
2020-06-18 15:01:04 -04:00
|
|
|
CODE >R
|
|
|
|
|
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>
|
|
|
|
|
[BP] -2 PUSH[w]+, [BP] 0 PUSH[w]+, BP 4 SUBxi,
|
|
|
|
|
;CODE
|
2020-06-18 19:06:53 -04:00
|
|
|
CODE ROT ( a b c -- b c a )
|
|
|
|
|
CX POPx, BX POPx, AX POPx,
|
|
|
|
|
BX PUSHx, CX PUSHx, AX PUSHx,
|
|
|
|
|
;CODE
|
