2015-11-17 09:14:15 -05:00
|
|
|
;
|
|
|
|
|
; Clear (erase) the screen.
|
|
|
|
|
;
|
|
|
|
|
; Support the full 128- x 64-tile background.
|
|
|
|
|
;
|
|
|
|
|
|
2015-10-02 10:50:22 -04:00
|
|
|
.export _clrscr
|
|
|
|
|
|
|
|
|
|
.import plot
|
2014-11-29 14:18:48 +01:00
|
|
|
|
2015-08-29 15:58:57 +02:00
|
|
|
.include "pce.inc"
|
2015-09-19 15:37:39 +02:00
|
|
|
.include "extzp.inc"
|
2014-11-29 14:18:48 +01:00
|
|
|
|
|
|
|
|
_clrscr:
|
2015-11-26 15:06:20 -05:00
|
|
|
VREG VDC_MAWR, $0000
|
2015-08-29 15:58:57 +02:00
|
|
|
st0 #VDC_VWR
|
2015-11-26 15:06:20 -05:00
|
|
|
|
2015-08-29 15:58:57 +02:00
|
|
|
ldy #$40
|
|
|
|
|
rowloop:
|
|
|
|
|
ldx #$80
|
|
|
|
|
colloop:
|
2015-11-26 15:06:20 -05:00
|
|
|
st1 #' ' ; low byte of char. index
|
|
|
|
|
st2 #$02 ; background color, high nybble of char. index
|
2015-08-29 15:58:57 +02:00
|
|
|
dex
|
|
|
|
|
bne colloop
|
|
|
|
|
dey
|
|
|
|
|
bne rowloop
|
2014-11-29 14:18:48 +01:00
|
|
|
|
2015-09-19 15:37:39 +02:00
|
|
|
; Go to the home position.
|
|
|
|
|
|
|
|
|
|
stz CURS_X
|
|
|
|
|
stz CURS_Y
|
2015-09-20 12:18:41 +02:00
|
|
|
jmp plot
|
2014-11-29 14:18:48 +01:00
|
|
|
|
2015-07-13 12:10:09 +02:00
|
|
|
;-------------------------------------------------------------------------------
|
|
|
|
|
; force the init constructor to be imported
|
|
|
|
|
|
|
|
|
|
.import initconio
|
2015-08-29 15:58:57 +02:00
|
|
|
conio_init = initconio
|
