1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-26 05:38:06 +11:00
collapseos/blk/820
2020-06-18 19:06:53 -04:00

17 lines
350 B
Plaintext

( native words )
CODE EXECUTE
DI POPx, JMPs, lblexec @ RPCs,
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
CODE ROT ( a b c -- b c a )
CX POPx, BX POPx, AX POPx,
BX PUSHx, CX PUSHx, AX PUSHx,
;CODE