2 ; Groepaz/Hitmen, 12.10.2015
4 ; lowlevel kclrscr for soft80 implementation
9 .import soft80_internal_bgcolor, soft80_internal_cellcolor
37 sta soft80_bitmap+$1e40,x
41 .if SOFT80COLORVOODOO = 1
42 lda soft80_internal_bgcolor
43 jsr clear ; clear color ram
48 lda #$34 ; enable RAM under I/O
51 lda soft80_internal_cellcolor
53 ora soft80_internal_bgcolor
54 jsr clear ; clear vram
64 ; clear loop for colram and vram
69 sta soft80_colram+$100,x
70 sta soft80_colram+$200,x
71 sta soft80_colram+$2e8,x