collapseos/blk/297

CODE (br)
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: inline lblfind's routine into _find word 2020-07-06 12:35:54 +10:00			`CODE (br)`
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			`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`