cc65/libsrc/pce/vce.s

        .include        "pce.inc"

        .export         vce_init

        .segment        "ONCE"
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
Renamed INITBSS to INIT and INIT to ONCE. The way we want to use the INITBSS segment - and especially the fact that it won't have the type bss on all ROM based targets - means that the name INITBSS is misleading. After all INIT is the best name from my perspective as it serves several purposes and therefore needs a rather generic name. Unfortunately this means that the current INIT segment needs to be renamed too. Looking for a short (ideally 4 letter) name I came up with ONCE as it contains all code (and data) accessed only once during initialization. 2016-03-06 20:26:22 +00:00			`.segment "ONCE"`
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`