collapseos/blk/295

        ( DE contains prev offset )
        HL POP, ( <-- lvl 4, prev field )
        DEZ, IFNZ, ( offset not zero )
            ( get absolute addr from offset )
            ( carry cleared from "or e" )
            DE SBCHLd,
            EXDEHL, ( result in DE )
        THEN,
        HL POP, ( <-- lvl 3 )
    JRNZ, AGAIN, ( loop-B292, try to match again )
    BC POP, ( <-- lvl 2 )
    ( Z set? end of dict, not found. "w" already on PSP TOS )
    PUSH0,
;CODE
Copy boot.z80 to blkfs 2020-04-22 21:19:12 -04:00			`( DE contains prev offset )`
z80: protect BC in _find In preparation for the IY->BC move 2020-07-05 22:43:32 -04:00			`HL POP, ( <-- lvl 4, prev field )`
z80: inline lblfind's routine into _find word 2020-07-05 22:35:54 -04:00			`DEZ, IFNZ, ( offset not zero )`
Copy boot.z80 to blkfs 2020-04-22 21:19:12 -04:00			`( get absolute addr from offset )`
			`( carry cleared from "or e" )`
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-27 22:01:56 -04:00			`DE SBCHLd,`
			`EXDEHL, ( result in DE )`
Copy boot.z80 to blkfs 2020-04-22 21:19:12 -04:00			`THEN,`
z80: protect BC in _find In preparation for the IY->BC move 2020-07-05 22:43:32 -04:00			`HL POP, ( <-- lvl 3 )`
z80: inline lblfind's routine into _find word 2020-07-05 22:35:54 -04:00			`JRNZ, AGAIN, ( loop-B292, try to match again )`
z80: protect BC in _find In preparation for the IY->BC move 2020-07-05 22:43:32 -04:00			`BC POP, ( <-- lvl 2 )`
z80: inline lblfind's routine into _find word 2020-07-05 22:35:54 -04:00			`( Z set? end of dict, not found. "w" already on PSP TOS )`
			`PUSH0,`
			`;CODE`