|
|
@@ -1,12 +1,12 @@ |
|
|
|
lblfind BSET |
|
|
|
( 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. ) |
|
|
|
HL PUSH, |
|
|
|
( Native words ) |
|
|
|
H@ 4 + XCURRENT ! ( make next CODE have 0 prev field ) |
|
|
|
CODE _find ( cur w -- a f ) |
|
|
|
HL POP, ( w ) DE POP, ( cur ) chkPS, |
|
|
|
HL PUSH, ( --> lvl 1 ) |
|
|
|
( First, figure out string len ) |
|
|
|
A (HL) LDrr, A ORr, |
|
|
|
( special case. zero len? we never find anything. ) |
|
|
|
IFNZ, ( fail-B296 ) |
|
|
|
IFZ, PUSH0, JPNEXT, THEN, |
|
|
|
( Let's do something weird: We'll hold HL by the *tail*. |
|
|
|
Because of our dict structure and because we know our |
|
|
|
lengths, it's easier to compare starting from the end. ) |
|
|
|