mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-28 10:28:07 +11:00
14 lines
313 B
Plaintext
14 lines
313 B
Plaintext
( native words )
|
|
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 I [BP] 0 PUSH[w]+, ;CODE
|
|
CODE 1+ DI SP MOVxx, [DI] INC[w], ;CODE
|
|
CODE 1- DI SP MOVxx, [DI] DEC[w], ;CODE
|