0f2d14ad8a
This allows us to remove a lot of labels usage in boot code. This commit has no effect on forth.bin.
16 lines
518 B
Plaintext
16 lines
518 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, BREAK,
|
|
DJNZ, AGAIN,
|
|
THEN,
|
|
( cont. )
|