mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-06 08:20:56 +11:00
b9fb6a6226
Bring native words together, make the next/exec/does/compiled cluster be at the beginning. Next step: bring find code into _find word.
13 lines
340 B
Plaintext
13 lines
340 B
Plaintext
CODE (loop)
|
|
PC ORG @ 0x45 + ! ( stable ABI JP )
|
|
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,
|
|
IY INCd, IY INCd,
|
|
;CODE
|
|
|
|
|