1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-06 03:20:56 +11:00
collapseos/blk/295

17 lines
492 B
Plaintext
Raw Normal View History

2020-04-23 11:19:12 +10:00
( DE contains prev offset )
HL POP, ( <-- lvl 2 )
2020-04-23 11:19:12 +10:00
( HL is prev field's addr. Is offset zero? )
DEZ,
2020-04-23 11:19:12 +10:00
IFNZ,
( get absolute addr from offset )
( carry cleared from "or e" )
DE SBCHLd,
EXDEHL, ( result in DE )
2020-04-23 11:19:12 +10:00
THEN,
HL POP, ( <-- lvl 1 )
2020-04-23 11:19:12 +10:00
JRNZ, AGAIN, ( inner-B292, try to match again )
( Z set? end of dict, unset Z )
2020-04-23 11:19:12 +10:00
( cont. )