cc65/libsrc/c64/soft80_kclrscr.s

;
; Groepaz/Hitmen, 12.10.2015
;
; lowlevel kclrscr for soft80 implementation
;

        .export         soft80_kclrscr
        .import         soft80_kplot
        .import         soft80_internal_bgcolor, soft80_internal_cellcolor
        .importzp       ptr1

        .include        "c64.inc"
        .include        "soft80.inc"

soft80_kclrscr:

        lda     #<soft80_bitmap
        sta     ptr1
        lda     #>soft80_bitmap
        sta     ptr1+1

        lda     #$ff

        ldx     #$1f
@lp2:
        ldy     #0
@lp1:
        sta     (ptr1),y
        iny
        bne     @lp1
        inc     ptr1+1
        dex
        bne     @lp2

        ;ldx     #$00
@lp3:
        sta     soft80_bitmap+$1e40,x
        inx
        bne     @lp3

.if SOFT80COLORVOODOO = 1
        lda     soft80_internal_bgcolor
        jsr     clear                           ; clear color ram
.endif

        sei
        ldy     $01
        lda     #$34                            ; enable RAM under I/O
        sta     $01

        lda     soft80_internal_cellcolor
        and     #$f0
        ora     soft80_internal_bgcolor
        jsr     clear                           ; clear vram

        sty     $01
        cli

        ldx     #0
        ldy     #0
        clc
        jmp     soft80_kplot

        ; clear loop for colram and vram
clear:
        ;ldx     #$00
@lp1:
        sta     soft80_colram,x
        sta     soft80_colram+$100,x
        sta     soft80_colram+$200,x
        sta     soft80_colram+$2e8,x
        inx
        bne     @lp1
        rts
added some more comments and -headers 2015-10-12 12:40:12 +00:00			`;`
			`; Groepaz/Hitmen, 12.10.2015`
			`;`
			`; lowlevel kclrscr for soft80 implementation`
			`;`
initial commit of soft80 implementation 2015-09-27 16:12:25 +00:00
			`.export soft80_kclrscr`
			`.import soft80_kplot`
use 'soft80_internal_cellcolor' for the current cell color, and CHARCOLOR for the actual textcolor 2015-10-14 15:24:16 +00:00			`.import soft80_internal_bgcolor, soft80_internal_cellcolor`
optimized clrscr for size 2015-10-06 17:33:43 +00:00			`.importzp ptr1`
initial commit of soft80 implementation 2015-09-27 16:12:25 +00:00
			`.include "c64.inc"`
			`.include "soft80.inc"`

			`soft80_kclrscr:`

optimized clrscr for size 2015-10-06 17:33:43 +00:00			`lda #<soft80_bitmap`
			`sta ptr1`
			`lda #>soft80_bitmap`
			`sta ptr1+1`

initial commit of soft80 implementation 2015-09-27 16:12:25 +00:00			`lda #$ff`

optimized clrscr for size 2015-10-06 17:33:43 +00:00			`ldx #$1f`
			`@lp2:`
			`ldy #0`
			`@lp1:`
			`sta (ptr1),y`
			`iny`
			`bne @lp1`
			`inc ptr1+1`
			`dex`
			`bne @lp2`

			`;ldx #$00`
			`@lp3:`
fix clrscr so it doesnt wipe sprite pointers 2015-10-01 15:16:02 +00:00			`sta soft80_bitmap+$1e40,x`
initial commit of soft80 implementation 2015-09-27 16:12:25 +00:00			`inx`
optimized clrscr for size 2015-10-06 17:33:43 +00:00			`bne @lp3`
initial commit of soft80 implementation 2015-09-27 16:12:25 +00:00
some more rework, second attempt on fixing the color issues. added ifdefs to disable the color voodoo alltogether for debugging purposes. 2015-10-08 18:43:25 +00:00			`.if SOFT80COLORVOODOO = 1`
move internal text/bgcolor variables into the file that also contains the init code for them. also rename them to avoid namespace pollution 2015-10-12 13:04:55 +00:00			`lda soft80_internal_bgcolor`
fix some style issues 2015-10-12 13:54:08 +00:00			`jsr clear ; clear color ram`
some more rework, second attempt on fixing the color issues. added ifdefs to disable the color voodoo alltogether for debugging purposes. 2015-10-08 18:43:25 +00:00			`.endif`

initial commit of soft80 implementation 2015-09-27 16:12:25 +00:00			`sei`
			`ldy $01`
fix some style issues 2015-10-12 13:54:08 +00:00			`lda #$34 ; enable RAM under I/O`
initial commit of soft80 implementation 2015-09-27 16:12:25 +00:00			`sta $01`

use 'soft80_internal_cellcolor' for the current cell color, and CHARCOLOR for the actual textcolor 2015-10-14 15:24:16 +00:00			`lda soft80_internal_cellcolor`
initial commit of soft80 implementation 2015-09-27 16:12:25 +00:00			`and #$f0`
move internal text/bgcolor variables into the file that also contains the init code for them. also rename them to avoid namespace pollution 2015-10-12 13:04:55 +00:00			`ora soft80_internal_bgcolor`
fix some style issues 2015-10-12 13:54:08 +00:00			`jsr clear ; clear vram`
initial commit of soft80 implementation 2015-09-27 16:12:25 +00:00
			`sty $01`
			`cli`

			`ldx #0`
			`ldy #0`
			`clc`
			`jmp soft80_kplot`

optimized clrscr for size 2015-10-06 17:33:43 +00:00			`; clear loop for colram and vram`
			`clear:`
			`;ldx #$00`
			`@lp1:`
			`sta soft80_colram,x`
			`sta soft80_colram+$100,x`
			`sta soft80_colram+$200,x`
			`sta soft80_colram+$2e8,x`
			`inx`
			`bne @lp1`
			`rts`
initial commit of soft80 implementation 2015-09-27 16:12:25 +00:00