mirror of https://github.com/hsoft/collapseos.git
16 lines
476 B
Plaintext
16 lines
476 B
Plaintext
( At this point, Z is set if we have a match. In all cases,
|
|
we want to pop HL and DE )
|
|
DE POP, ( <-- lvl 3 )
|
|
IFZ, ( match, we're done! )
|
|
HL POP, HL POP, ( <-- lvl 1-2 ) DE PUSH, PUSH1,
|
|
JPNEXT,
|
|
THEN,
|
|
( no match, go to prev and continue )
|
|
DE DECd, DE DECd, DE DECd, ( prev field )
|
|
DE PUSH, ( --> lvl 3 )
|
|
EXDEHL,
|
|
LDDE(HL),
|
|
|
|
|
|
( cont. )
|