git.sur5r.net Git - cc65/blob - libsrc/c64/soft80_kclrscr.s

   1
   2         .export         soft80_kclrscr
   3         .import         soft80_kplot
   4         .import         __bgcolor        ; FIX/CHECK
   5
   6         .include        "c64.inc"
   7         .include        "soft80.inc"
   8
   9 soft80_kclrscr:
  10
  11         lda     #$ff
  12
  13         ldx     #$00
  14 lp1:
  15         .repeat $20,page
  16         sta     soft80_bitmap+(page*$100),x
  17         .endrepeat
  18         inx
  19         bne     lp1
  20
  21         sei
  22         ldy     $01
  23         lda     #$34
  24         sta     $01
  25
  26         lda     CHARCOLOR
  27         and     #$f0
  28         ora     __bgcolor
  29
  30         ;ldx     #$00
  31 lp2:
  32         .repeat $4,page
  33         sta     soft80_vram+(page*$100),x
  34         .endrepeat
  35         inx
  36         bne     lp2
  37
  38         inc     $01
  39
  40         lda     __bgcolor
  41         ;ldx     #$00
  42 lp3:
  43         .repeat $4,page
  44         sta     soft80_colram+(page*$100),x
  45         .endrepeat
  46         inx
  47         bne     lp3
  48
  49
  50         sty     $01
  51         cli
  52
  53         ldx     #0
  54         ldy     #0
  55         clc
  56         jmp     soft80_kplot
  57
  58
  59
  60