+;
+; Clear (erase) the screen.
+;
+; Support the full 128- x 64-tile background.
+;
+
+ .export _clrscr
+
+ .import plot
.include "pce.inc"
.include "extzp.inc"
- .import plot
- .export _clrscr
_clrscr:
-
st0 #VDC_MAWR
st1 #<$0000
st2 #>$0000
rowloop:
ldx #$80
colloop:
- lda #' '
- sta a:VDC_DATA_LO
- lda #$02
- sta a:VDC_DATA_HI
+ lda #' ' ; low byte of char. index
+ sta VDC_DATA_LO
+ lda #$02 ; background color, high nybble of char. index
+ sta VDC_DATA_HI
dex
bne colloop