mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-17 05:08:05 +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.
10 lines
225 B
Plaintext
10 lines
225 B
Plaintext
CODE _blank ( this is way too slow in Forth )
|
|
A XORr, VDP_CTLPORT OUTiA,
|
|
A 0x40 LDri, VDP_CTLPORT OUTiA,
|
|
HL 0x4000 LDdn,
|
|
BEGIN,
|
|
A XORr, VDP_DATAPORT OUTiA,
|
|
HL DECd, HLZ,
|
|
JRNZ, AGAIN,
|
|
;CODE
|