collapseos/blk/330

CODE _find  ( cur w -- a f )
    HL POPqq,       ( w )
    DE POPqq,       ( cur )
    chkPS,
    ( 3 == find )
    3 BCALL,
    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,`
			`( 3 == find )`
z80a: add BIN( parameter Will be useful for assembling binaries for the TRS-80 which can't start at addr 0. 2020-04-28 05:04:37 +10:00			`3 BCALL,`
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`