collapseos/blk/284

H@ 4 + XCURRENT ! ( make next CODE have 0 prev field )
CODE (br) ( TODO: move with other native words )
L1 BSET ( used in ?br and loop )
PC ORG @ 0x3d + ! ( stable ABI JP )
    E 0 IY+ LDrIXY, D 1 IY+ LDrIXY,
    DE ADDIYd,
;CODE
CODE (?br)
PC ORG @ 0x41 + ! ( stable ABI JP )
    HL POP,
    HLZ,
    JRZ, L1 BWR ( br + 1. False, branch )
    ( True, skip next 2 bytes and don't branch )
    IY INCd, IY INCd,
;CODE
z80: prettify 2020-07-06 03:15:26 +10:00			`H@ 4 + XCURRENT ! ( make next CODE have 0 prev field )`
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-06 04:57:18 +10:00			`CODE (br) ( TODO: move with other native words )`
			`L1 BSET ( used in ?br and loop )`
			`PC ORG @ 0x3d + ! ( 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-13 00:37:24 +10:00			`E 0 IY+ LDrIXY, D 1 IY+ LDrIXY,`
z80a: make mnemonic names more uniform across assemblers Initially, I used the same letters as those used in the z80 ref docs, but it makes the different assemblers harder to use than they should. Having consistent "argtype" rules across assemblers should help. 2020-06-28 12:01:56 +10:00			`DE ADDIYd,`
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-06 04:57:18 +10:00			`;CODE`
			`CODE (?br)`
			`PC ORG @ 0x41 + ! ( stable ABI JP )`
			`HL POP,`
			`HLZ,`
			`JRZ, L1 BWR ( br + 1. False, branch )`
			`( True, skip next 2 bytes and don't branch )`
			`IY INCd, IY INCd,`
			`;CODE`