collapseos/blk/624

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
sms: WIP ! 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`

VE: add 't' This is the first commit I do entirely in VE. It's a habit I'm planning on taking as it helps a lot to find usability issues. 2020-06-12 08:12:01 +10:00