git.sur5r.net Git - cc65/blob - libsrc/pce/vce.s

   1         .export         vce_init
   2
   3         .include        "pce.inc"
   4
   5         .segment        "ONCE"
   6 vce_init:
   7         ; Set CTA to zero
   8         stz     VCE_ADDR_LO
   9         stz     VCE_ADDR_HI
  10
  11         ldy     #$01            ; Only background palettes
  12 vce_clear_bank:
  13         clx                     ; ldx #<$0100 ; <(16 * 16)
  14 vce_clear_color:
  15         stz     VCE_DATA_LO     ; Clear color (LSB)
  16         stz     VCE_DATA_HI     ; Clear color (MSB)
  17         dex
  18         bne     vce_clear_color
  19         dey
  20         bne     vce_clear_bank
  21         rts