.include "extzp.inc"
_clrscr:
- st0 #VDC_MAWR
- st1 #<$0000
- st2 #>$0000
-
+ VREG VDC_MAWR, $0000
st0 #VDC_VWR
+
ldy #$40
rowloop:
ldx #$80
colloop:
- lda #' ' ; low byte of char. index
- sta VDC_DATA_LO
- lda #$02 ; background color, high nybble of char. index
- sta VDC_DATA_HI
-
+ st1 #' ' ; low byte of char. index
+ st2 #$02 ; background color, high nybble of char. index
dex
bne colloop
dey