mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-05 08:50:56 +11:00
17 lines
543 B
Plaintext
17 lines
543 B
Plaintext
|
JRNZ, L2 FWR ( loopend )
|
||
|
( 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, ( loop )
|
||
|
( pre-decrement for easier Z matching )
|
||
|
DE DECss,
|
||
|
HL DECss,
|
||
|
LDA(DE),
|
||
|
(HL) CPr,
|
||
|
JRNZ, L3 FWR ( loopend )
|
||
|
DJNZ, AGAIN, ( loop )
|
||
|
L2 FSET L3 FSET ( loopend )
|
||
|
|
||
|
( cont. )
|