collapseos/blk/298

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
z80: move boot code around Bring native words together, make the next/exec/does/compiled cluster be at the beginning. Next step: bring find code into _find word. 2020-07-06 12:23:40 +10:00			`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`