1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-30 21:48:08 +11:00
collapseos/recipes/sms/blk/604
2020-09-20 10:21:21 -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