collapseos/blk/295

        ( DE contains prev offset )
        HL POP, ( <-- lvl 3, 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 2 )
    JRNZ, AGAIN, ( loop-B292, try to match again )
    ( Z set? end of dict, not found. "w" already on PSP TOS )
    PUSH0,
;CODE
Copy boot.z80 to blkfs 2020-04-23 11:19:12 +10:00			`( DE contains prev offset )`
z80: inline lblfind's routine into _find word 2020-07-06 12:35:54 +10:00			`HL POP, ( <-- lvl 3, prev field )`
			`DEZ, IFNZ, ( offset not zero )`
Copy boot.z80 to blkfs 2020-04-23 11:19:12 +10: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-28 12:01:56 +10:00			`DE SBCHLd,`
			`EXDEHL, ( result in DE )`
Copy boot.z80 to blkfs 2020-04-23 11:19:12 +10:00			`THEN,`
z80: inline lblfind's routine into _find word 2020-07-06 12:35:54 +10:00			`HL POP, ( <-- lvl 2 )`
			`JRNZ, AGAIN, ( loop-B292, try to match again )`
			`( Z set? end of dict, not found. "w" already on PSP TOS )`
			`PUSH0,`
			`;CODE`