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 15:58:57 +02:00			`.include "pce.inc"`
simple conio test works again 2015-07-12 10:32:55 +02:00
style fixes 2015-08-29 15:58:57 +02:00			`.export vce_init`
initial import, completely untested, does not compile yet 2014-11-29 14:18:48 +01:00
Consistently place constructors (and their exclusive subroutines) in "INIT". 2015-10-09 21:44:20 +02:00			`.segment "INIT"`
initial import, completely untested, does not compile yet 2014-11-29 14:18:48 +01:00			`vce_init:`
style fixes 2015-08-29 15:58:57 +02: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`