mirror of https://github.com/hsoft/collapseos.git
16 lines
484 B
Plaintext
16 lines
484 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 4 )
|
|
IFZ, ( match, we're done! )
|
|
HL POP, BC POP, HL POP, ( <-- lvl 1-3 ) DE PUSH,
|
|
PUSH1, JPNEXT,
|
|
THEN,
|
|
( no match, go to prev and continue )
|
|
DE DECd, DE DECd, DE DECd, ( prev field )
|
|
DE PUSH, ( --> lvl 4 )
|
|
EXDEHL,
|
|
LDDE(HL),
|
|
|
|
|
|
( cont. )
|