mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-23 22:38:06 +11:00
17 lines
721 B
Plaintext
17 lines
721 B
Plaintext
L4 BSET PC 3 - ORG @ 4 + ! ( find )
|
|
( find word the same name as str in SI starting from tip in
|
|
DI. Returns wordref in BX. Z if found, NZ if not. )
|
|
CH CH XORrr, CL [SI] MOVr[], ( CX -> strlen )
|
|
SI INCx, ( first char ) AX AX XORxx, ( initial prev )
|
|
BEGIN, ( loop )
|
|
DI AX SUBxx, ( jump to prev wordref )
|
|
AL [DI] -1 MOVr[]+, ( strlen )
|
|
CL AL CMPrr, IFZ, ( same len )
|
|
SI PUSHx, DI PUSHx, CX PUSHx, ( --> lvl 3 )
|
|
3 ADDALi, ( header ) AH AH XORrr, DI AX SUBxx,
|
|
REPZ, CMPSB,
|
|
CX POPx, DI POPx, SI POPx, ( <-- lvl 3 )
|
|
IFZ, AL AL XORrr, ( Z ) RETn, THEN,
|
|
THEN,
|
|
( cont. )
|