mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-05 19:30:56 +11:00
295b4b6e0a
Will be useful for assembling binaries for the TRS-80 which can't start at addr 0.
17 lines
529 B
Plaintext
17 lines
529 B
Plaintext
( DE contains prev offset )
|
|
HL POPqq, ( <-- lvl 2 )
|
|
( HL is prev field's addr. Is offset zero? )
|
|
DEZ,
|
|
IFNZ,
|
|
( get absolute addr from offset )
|
|
( carry cleared from "or e" )
|
|
DE SBCHLss,
|
|
EXDEHL, ( result in DE )
|
|
THEN,
|
|
HL POPqq, ( <-- lvl 1 )
|
|
JRNZ, AGAIN, ( inner-B292, try to match again )
|
|
( Z set? end of dict, unset Z )
|
|
|
|
|
|
( cont. )
|