cc65/libsrc/pce/vce.s

        .include        "pce.inc"

        .export         vce_init

        .segment        "INIT"
vce_init:
        ; Set CTA to zero
        stz     VCE_ADDR_LO
        stz     VCE_ADDR_HI
        ldy     #$01
vce_clear_bank:
        ldx     #$00
vce_clear_color:
        stz     VCE_DATA_LO     ; Clear color (LSB)
        stz     VCE_DATA_HI     ; Clear color (MSB)
        dex
        bne     vce_clear_color
        dey
        bne     vce_clear_bank
        rts
style fixes 2015-08-29 13:58:57 +00:00			`.include "pce.inc"`
simple conio test works again 2015-07-12 08:32:55 +00:00
style fixes 2015-08-29 13:58:57 +00:00			`.export vce_init`
initial import, completely untested, does not compile yet 2014-11-29 13:18:48 +00:00
Consistently place constructors (and their exclusive subroutines) in "INIT". 2015-10-09 19:44:20 +00:00			`.segment "INIT"`
initial import, completely untested, does not compile yet 2014-11-29 13:18:48 +00:00			`vce_init:`
style fixes 2015-08-29 13:58:57 +00:00			`; Set CTA to zero`
			`stz VCE_ADDR_LO`
			`stz VCE_ADDR_HI`
			`ldy #$01`
			`vce_clear_bank:`
			`ldx #$00`
			`vce_clear_color:`
			`stz VCE_DATA_LO ; Clear color (LSB)`
			`stz VCE_DATA_HI ; Clear color (MSB)`
			`dex`
			`bne vce_clear_color`
			`dey`
			`bne vce_clear_bank`
			`rts`