collapseos/blk/330

CODE _find  ( cur w -- a f )
    HL POPqq,       ( w )
    DE POPqq,       ( cur )
    chkPS,
    lblfind @ CALLnn,
    IFNZ,
        ( not found )
        HL PUSHqq,
        PUSH0,
        JPNEXT,
    THEN,
    ( found )
    DE PUSHqq,
    PUSH1,
;CODE
Copy boot.z80 to blkfs 2020-04-23 11:19:12 +10:00			`CODE _find ( cur w -- a f )`
			`HL POPqq, ( w )`
			`DE POPqq, ( cur )`
			`chkPS,`
z80: remove layers of indirection of find calls 2020-06-18 21:40:20 +10:00			`lblfind @ CALLnn,`
Copy boot.z80 to blkfs 2020-04-23 11:19:12 +10:00			`IFNZ,`
			`( not found )`
			`HL PUSHqq,`
			`PUSH0,`
			`JPNEXT,`
			`THEN,`
			`( found )`
			`DE PUSHqq,`
			`PUSH1,`
			`;CODE`