mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-25 17:58:07 +11:00
440ea43a88
Initially, I used the same letters as those used in the z80 ref docs, but it makes the different assemblers harder to use than they should. Having consistent "argtype" rules across assemblers should help.
14 lines
474 B
Plaintext
14 lines
474 B
Plaintext
lblexec BSET L1 FSET ( B299 ) L2 FSET ( B298 )
|
|
( DE -> wordref )
|
|
( We don't apply BIN( reliably on stable ABI stuff, we
|
|
might need to adjust addr. Ugly, but well... )
|
|
BIN( @ [IF]
|
|
A XORr, D ORr, IFZ, D BIN( @ 256 / LDri, THEN,
|
|
[THEN]
|
|
LDA(DE), DE INCd,
|
|
A ORr, IFZ, EXDEHL, JP(HL), THEN,
|
|
A DECr, JRZ, L1 FWR ( compiled B303 )
|
|
( cell or does. push PFA ) DE PUSH,
|
|
A DECr, JRZ, lblnext BWR ( cell )
|
|
( continue to does, B302 )
|