1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-20 16:28:07 +11:00
collapseos/blk/624
2020-08-15 08:11:48 -04:00

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 LDdi,
BEGIN,
A XORr, VDP_DATAPORT OUTiA,
HL DECd, HLZ,
JRNZ, AGAIN,
;CODE