1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-05 08:50:56 +11:00
collapseos/blk/294

17 lines
575 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 POPqq, ( <-- lvl 2 )
HL POPqq, ( <-- lvl 1 )
JRZ, L2 FWR ( end-B296, match? we're done! )
( no match, go to prev and continue )
HL PUSHqq, ( --> lvl 1 )
DE DECss,
DE DECss,
DE DECss, ( prev field )
DE PUSHqq, ( --> lvl 2 )
EXDEHL,
E (HL) LDrr,
HL INCss,
D (HL) LDrr,
( cont. )