cc65/libsrc/pce/clrscr.s


        .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
initial import, completely untested, does not compile yet 2014-11-29 13:18:48 +00:00
style fixes 2015-08-29 13:58:57 +00:00			`.include "pce.inc"`
fixed more flaws found by greg :) 2015-09-19 13:37:39 +00:00			`.include "extzp.inc"`
initial import, completely untested, does not compile yet 2014-11-29 13:18:48 +00:00
use 'plot' instead of 'PLOT' 2015-09-20 10:18:41 +00:00			`.import plot`
style fixes 2015-08-29 13:58:57 +00:00			`.export _clrscr`
initial import, completely untested, does not compile yet 2014-11-29 13:18:48 +00:00			`_clrscr:`

style fixes 2015-08-29 13:58:57 +00:00			`st0 #VDC_MAWR`
			`st1 #<$0000`
			`st2 #>$0000`
initial import, completely untested, does not compile yet 2014-11-29 13:18:48 +00:00
style fixes 2015-08-29 13:58:57 +00:00			`st0 #VDC_VWR`
			`ldy #$40`
			`rowloop:`
			`ldx #$80`
			`colloop:`
			`lda #' '`
			`sta a:VDC_DATA_LO`
			`lda #$02`
			`sta a:VDC_DATA_HI`
initial import, completely untested, does not compile yet 2014-11-29 13:18:48 +00:00
style fixes 2015-08-29 13:58:57 +00:00			`dex`
			`bne colloop`
			`dey`
			`bne rowloop`
initial import, completely untested, does not compile yet 2014-11-29 13:18:48 +00:00
fixed more flaws found by greg :) 2015-09-19 13:37:39 +00:00			`; Go to the home position.`

			`stz CURS_X`
			`stz CURS_Y`
use 'plot' instead of 'PLOT' 2015-09-20 10:18:41 +00:00			`jmp plot`
initial import, completely untested, does not compile yet 2014-11-29 13:18:48 +00:00
added imports for conio init to conio functions, so the constructor will get linked and called automatically 2015-07-13 10:10:09 +00:00			`;-------------------------------------------------------------------------------`
			`; force the init constructor to be imported`

			`.import initconio`
style fixes 2015-08-29 13:58:57 +00:00			`conio_init = initconio`