cc65/libsrc/gamate/clrscr.s


        .include        "gamate.inc"
        .include        "extzp.inc"

        .import plot
        .export _clrscr
_clrscr:
        ldy     #$0
        tya
rowloop:
        sty     LCD_X

        sta     LCD_Y

        ldx     #$0
colloop:
        sta     LCD_DATA

        inx
        bne     colloop

        iny
        bne     rowloop

; Go to the home position.

        sta     CURS_X
        sta     CURS_Y
        jmp     plot

;-------------------------------------------------------------------------------
; force the init constructor to be imported

                .import initconio
conio_init      = initconio
conio and most other stuff working now 2015-11-29 01:14:59 +01:00
			`.include "gamate.inc"`
			`.include "extzp.inc"`

			`.import plot`
			`.export _clrscr`
			`_clrscr:`
			`ldy #$0`
more cleanup 2015-11-29 20:04:10 +01:00			`tya`
conio and most other stuff working now 2015-11-29 01:14:59 +01:00			`rowloop:`
			`sty LCD_X`

			`sta LCD_Y`

			`ldx #$0`
			`colloop:`
			`sta LCD_DATA`

			`inx`
			`bne colloop`

			`iny`
			`bne rowloop`

			`; Go to the home position.`

			`sta CURS_X`
			`sta CURS_Y`
			`jmp plot`

			`;-------------------------------------------------------------------------------`
			`; force the init constructor to be imported`

			`.import initconio`
			`conio_init = initconio`