mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-21 02:08:05 +11:00
eefbf66e95
When writing the xcomp documentation, I realized that with careful threading and by accepting a bit of code duplication in the xcomp toolset, I could de-stabilize a couple of words. (n) and EXIT are a bit trickier, but I think it can be done. It would be nice to get rid of stable wordrefs...
13 lines
267 B
Plaintext
13 lines
267 B
Plaintext
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 2>R
|
|
[BP] 4 POP[w]+, [BP] 2 POP[w]+, BP 4 ADDxi,
|
|
;CODE
|
|
CODE 2R> 2 chkPS,
|
|
[BP] -2 PUSH[w]+, [BP] 0 PUSH[w]+, BP 4 SUBxi,
|
|
;CODE
|