2020-04-22 21:19:12 -04: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. )
|
2020-05-16 21:02:50 -04:00
|
|
|
IFNZ, ( fail-B296 ) ( cont. )
|
