git.sur5r.net Git - cc65/blob - libsrc/cbm610/crtc.s

   1 ;
   2 ; Ullrich von Bassewitz, 28.09.1998
   3 ;
   4 ; Write to the CRTC.
   5 ;
   6
   7         .export         write_crtc, read_crtc
   8         .importzp       crtc, ktmp
   9
  10         .include        "cbm610.inc"
  11
  12
  13 ; Write a value to the CRTC. The index is in Y, the value in A
  14
  15 .proc   write_crtc
  16         sta     ktmp
  17         lda     IndReg
  18         pha
  19         lda     #$0F
  20         sta     IndReg
  21         tya
  22         ldy     #$00
  23         sei
  24         sta     (crtc),y
  25         iny
  26         lda     ktmp
  27         sta     (crtc),y
  28         cli
  29         pla
  30         sta     IndReg
  31         lda     ktmp
  32         rts
  33 .endproc
  34
  35
  36 .proc   read_crtc
  37         sty     ktmp
  38         lda     IndReg
  39         pha
  40         lda     #$0F
  41         sta     IndReg
  42         lda     ktmp
  43         ldy     #$00
  44         sei
  45         sta     (crtc),y
  46         iny
  47         lda     (crtc),y
  48         cli
  49         tay
  50         pla
  51         sta     IndReg
  52         tya
  53         ldy     ktmp
  54         rts
  55 .endproc
  56
  57