1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-27 18:08:06 +11:00
collapseos/blk/624
Virgil Dupras 43eabf566b sms: WIP !
2020-05-14 22:15:31 -04:00

11 lines
229 B
Plaintext

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