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

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