collapseos/blk/285

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
Extract (br), (?br) and (loop)'s code out of stable ABI zone There is now no more actual code in stable ABI, only references. This makes refactoring of this code much easier. For example, changing IY to BC as the IP register. 2020-07-05 14:57:18 -04:00			`CODE (loop)`
			`PC ORG @ 0x45 + ! ( stable ABI JP )`
Make DO..LOOP stable DO and LOOP now only compile words from stable ABI, which make them suitable for xcomp. This will greatly simplify driver writing and allow us to mostly avoid the low/high divide in drivers. LEAVE is still xcomp-incompatible though. This make us very very tight for "<0x100" limit for literal words. Hopefully, we won't need more stuff in that area of the binary... 2020-05-12 10:37:24 -04:00			`0 IX+ INC(IXY+), IFZ, 1 IX+ INC(IXY+), THEN, ( I++ )`
			`( Jump if I <> I' )`
Extract (br), (?br) and (loop)'s code out of stable ABI zone There is now no more actual code in stable ABI, only references. This makes refactoring of this code much easier. For example, changing IY to BC as the IP register. 2020-07-05 14:57:18 -04:00			`A 0 IX+ LDrIXY, 2 IX- CP(IXY+), JRNZ, L1 BWR ( branch )`
			`A 1 IX+ LDrIXY, 1 IX- CP(IXY+), JRNZ, L1 BWR ( branch )`
Make DO..LOOP stable DO and LOOP now only compile words from stable ABI, which make them suitable for xcomp. This will greatly simplify driver writing and allow us to mostly avoid the low/high divide in drivers. LEAVE is still xcomp-incompatible though. This make us very very tight for "<0x100" limit for literal words. Hopefully, we won't need more stuff in that area of the binary... 2020-05-12 10:37:24 -04:00			`( don't branch )`
Extract (br), (?br) and (loop)'s code out of stable ABI zone There is now no more actual code in stable ABI, only references. This makes refactoring of this code much easier. For example, changing IY to BC as the IP register. 2020-07-05 14:57:18 -04:00			`IX DECd, IX DECd, IX DECd, IX DECd,`
			`IY INCd, IY INCd,`
			`;CODE`