mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-26 07:28: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...
12 lines
295 B
Plaintext
12 lines
295 B
Plaintext
CODE (loop)
|
|
0 IX+ INC(IXY+), IFZ, 1 IX+ INC(IXY+), THEN, ( I++ )
|
|
( Jump if I <> I' )
|
|
A 0 IX+ LDrIXY, 2 IX- CP(IXY+), JRNZ, L1 BWR ( branch )
|
|
A 1 IX+ LDrIXY, 1 IX- CP(IXY+), JRNZ, L1 BWR ( branch )
|
|
( don't branch )
|
|
IX DECd, IX DECd, IX DECd, IX DECd,
|
|
BC INCd,
|
|
;CODE
|
|
|
|
|