collapseos/blk/291

PC ORG @ 4 + ! ( find )
( Find the entry corresponding to word name where (HL) points
  to in dictionary having its tip at DE and sets DE to point
  to that entry. Z if found, NZ if not. )
    BC PUSHqq,
    HL PUSHqq,
	( First, figure out string len )
    BC 0 LDddnn,
    A XORr,
    CPIR,
	( C has our length, negative, -1 )
    A C LDrr,
    NEG,
    A DECr,
	( special case. zero len? we never find anything. )
    IFNZ, ( fail-B296 )                               ( cont. )
Copy boot.z80 to blkfs 2020-04-23 11:19:12 +10:00			`PC ORG @ 4 + ! ( find )`
			`( Find the entry corresponding to word name where (HL) points`
			`to in dictionary having its tip at DE and sets DE to point`
			`to that entry. Z if found, NZ if not. )`
			`BC PUSHqq,`
			`HL PUSHqq,`
			`( First, figure out string len )`
			`BC 0 LDddnn,`
			`A XORr,`
			`CPIR,`
			`( C has our length, negative, -1 )`
			`A C LDrr,`
			`NEG,`
			`A DECr,`
			`( special case. zero len? we never find anything. )`
z80a: add BREAK, instruction This allows us to remove a lot of labels usage in boot code. This commit has no effect on forth.bin. 2020-05-17 11:02:50 +10:00			`IFNZ, ( fail-B296 ) ( cont. )`