1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-06 03:40:54 +11:00
collapseos/blk/294

16 lines
484 B
Plaintext
Raw Normal View History

2020-04-23 11:19:12 +10:00
( 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,
2020-04-23 11:19:12 +10:00
( no match, go to prev and continue )
DE DECd, DE DECd, DE DECd, ( prev field )
DE PUSH, ( --> lvl 4 )
2020-04-23 11:19:12 +10:00
EXDEHL,
LDDE(HL),
2020-04-23 11:19:12 +10:00
( cont. )