collapseos/blk/293
2020-05-16 19:47:34 -04:00

17 lines
562 B
Plaintext

IFZ,
( match, let's compare the string then )
DE DECss, ( Skip prev field. One less because we )
DE DECss, ( pre-decrement )
B C LDrr, ( loop C times )
BEGIN,
( pre-decrement for easier Z matching )
DE DECss,
HL DECss,
LDA(DE),
(HL) CPr,
JRNZ, L2 FWR ( loopend )
DJNZ, AGAIN,
L2 FSET ( loopend )
THEN,
( cont. )