mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-06 02:20:58 +11:00
a6e987b5f7
In preparation for the IY->BC move
15 lines
465 B
Plaintext
15 lines
465 B
Plaintext
( DE contains prev offset )
|
|
HL POP, ( <-- lvl 4, prev field )
|
|
DEZ, IFNZ, ( offset not zero )
|
|
( get absolute addr from offset )
|
|
( carry cleared from "or e" )
|
|
DE SBCHLd,
|
|
EXDEHL, ( result in DE )
|
|
THEN,
|
|
HL POP, ( <-- lvl 3 )
|
|
JRNZ, AGAIN, ( loop-B292, try to match again )
|
|
BC POP, ( <-- lvl 2 )
|
|
( Z set? end of dict, not found. "w" already on PSP TOS )
|
|
PUSH0,
|
|
;CODE
|