git.sur5r.net Git - cc65/blob - libsrc/creativision/clrscr.s

   1 ;*
   2 ;* clrscr
   3 ;*
   4 ;* NB: All screen functions assume Graphics Mode 1 in a default configuration.
   5 ;* Therefore, this is hard coded to use $1000-$12FF as screen VRAM.
   6
   7         .export         _clrscr
   8         .include        "creativision.inc"
   9
  10 _clrscr:
  11
  12         sei             ; Disable interrupts. Default INT handler reads VDP_STATUS
  13                         ; and would lose any setup done here.
  14
  15         lda     #$00    ; VRAM offset low
  16         sta     VDP_CONTROL_W
  17
  18         lda     #$50    ; VRAM offset high ($10 OR $40)
  19         sta     VDP_CONTROL_W
  20
  21         lda     #$C0    ; Space from ROM setup
  22
  23         ldx     #0
  24         ldy     #3
  25
  26 L1:     sta     VDP_DATA_W
  27         inx
  28         bne     L1
  29         dey
  30         bne     L1
  31
  32         cli             ; Let interrupts go again
  33
  34         lda     #0
  35         sta     CURSOR_X
  36         sta     CURSOR_Y
  37         sta     <SCREEN_PTR
  38         lda     #$10
  39         sta      >SCREEN_PTR
  40
  41         rts