cc65/libsrc/pce/vce.s


                        .include "pce.inc"

                        .export vce_init

vce_init:
                        stz     VCE_ADDR_LO   ;
                        stz     VCE_ADDR_HI   ; Set CTA to zero
                        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
initial import, completely untested, does not compile yet 2014-11-29 13:18:48 +00:00
more cleanup, joystick works again 2015-07-12 12:27:24 +00:00			`.include "pce.inc"`
simple conio test works again 2015-07-12 08:32:55 +00:00
			`.export vce_init`
initial import, completely untested, does not compile yet 2014-11-29 13:18:48 +00:00
			`vce_init:`
			`stz VCE_ADDR_LO ;`
			`stz VCE_ADDR_HI ; Set CTA to zero`
			`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`