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

   1 ;
   2 ; Groepaz/Hitmen, 19.10.2015
   3 ;
   4 ; lowlevel kclrscr for the monochrome soft80 implementation
   5 ;
   6
   7         .export         soft80mono_kclrscr
   8         .import         soft80mono_kplot
   9         .import         soft80mono_internal_bgcolor, soft80mono_internal_cellcolor
  10         .importzp       ptr1
  11
  12         .include        "c64.inc"
  13         .include        "soft80.inc"
  14
  15 soft80mono_kclrscr:
  16
  17         lda     #<soft80_bitmap
  18         sta     ptr1
  19         lda     #>soft80_bitmap
  20         sta     ptr1+1
  21
  22         lda     #$ff
  23
  24         ldx     #$1f
  25 @lp2:
  26         ldy     #0
  27 @lp1:
  28         sta     (ptr1),y
  29         iny
  30         bne     @lp1
  31         inc     ptr1+1
  32         dex
  33         bne     @lp2
  34
  35         ;ldx     #$00
  36 @lp3:
  37         sta     soft80_bitmap+$1e40,x
  38         inx
  39         bne     @lp3
  40
  41         sei
  42         ldy     $01
  43         lda     #$34                            ; enable RAM under I/O
  44         sta     $01
  45
  46         lda     soft80mono_internal_cellcolor
  47         ; clear loop for vram
  48         ;ldx     #$00
  49 @lp4:
  50         sta     soft80_vram,x
  51         sta     soft80_vram+$100,x
  52         sta     soft80_vram+$200,x
  53         sta     soft80_vram+$2e8,x
  54         inx
  55         bne     @lp4
  56
  57         sty     $01
  58         cli
  59
  60         ldx     #0
  61         ldy     #0
  62         clc
  63         jmp     soft80mono_kplot