mirror of
https://github.com/cc65/cc65.git
synced 2024-12-24 11:31:31 +00:00
39 lines
747 B
ArmAsm
39 lines
747 B
ArmAsm
|
|
.include "pce.inc"
|
|
.include "extzp.inc"
|
|
|
|
.import plot
|
|
.export _clrscr
|
|
_clrscr:
|
|
|
|
st0 #VDC_MAWR
|
|
st1 #<$0000
|
|
st2 #>$0000
|
|
|
|
st0 #VDC_VWR
|
|
ldy #$40
|
|
rowloop:
|
|
ldx #$80
|
|
colloop:
|
|
lda #' '
|
|
sta a:VDC_DATA_LO
|
|
lda #$02
|
|
sta a:VDC_DATA_HI
|
|
|
|
dex
|
|
bne colloop
|
|
dey
|
|
bne rowloop
|
|
|
|
; Go to the home position.
|
|
|
|
stz CURS_X
|
|
stz CURS_Y
|
|
jmp plot
|
|
|
|
;-------------------------------------------------------------------------------
|
|
; force the init constructor to be imported
|
|
|
|
.import initconio
|
|
conio_init = initconio
|