1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-15 04:18:05 +11:00
collapseos/blk/624

11 lines
229 B
Plaintext
Raw Permalink Normal View History

2020-05-15 12:15:31 +10:00
CODE _blank ( this is way too slow in Forth )
A XORr, VDP_CTLPORT OUTnA,
A 0x40 LDrn, VDP_CTLPORT OUTnA,
HL 0x4000 LDddnn,
BEGIN,
A XORr, VDP_DATAPORT OUTnA,
HL DECss, HLZ,
JRNZ, AGAIN,
;CODE