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

   1
   2                         .include "pce.inc"
   3
   4 HIRES = 1
   5
   6                         .export vdc_init
   7
   8 vdc_init:
   9                         ldaio   VDC_CTRL
  10
  11                         VREG    $00, $0000 ; MAWR
  12                         VREG    $01, $0000 ; MARR
  13                         VREG    $05, $0000 ; CR
  14                         VREG    $06, $0000 ; RCR
  15                         VREG    $07, $0000 ; BXR
  16                         VREG    $08, $0000 ; BYR
  17                         VREG    $09, $0070 ; MAWR
  18                         VREG    $0C, $1702 ; CRTC - VSR
  19                         VREG    $0D, $00DF ; CRTC - VDS
  20                         VREG    $0E, $000C ; CRTC - VDE
  21                         VREG    $0F, $0000 ; DCR
  22
  23                         .if      HIRES
  24
  25                         VREG    $0A, $0C02 ; CRTC - HSR
  26                         VREG    $0B, $043C ; CRTC - HDS
  27                         lda     #$06
  28                         sta     VCE_CTRL
  29
  30                         .else
  31
  32                         VREG    $0A, $0202 ; CRTC - HSR
  33                         VREG    $0B, $041F ; CRTC - HDS
  34                         lda     #$04
  35                         sta     VCE_CTRL
  36
  37                         .endif
  38
  39                         ldaio VDC_CTRL
  40                         rts