From edcc015a4832257e59326d048bdfc6bfe6d2855c Mon Sep 17 00:00:00 2001
From: cuz <cuz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Fri, 21 Sep 2001 12:55:27 +0000
Subject: [PATCH] Color RAM initialization was missing

git-svn-id: svn://svn.cc65.org/cc65/trunk@959 b7a2c559-68d2-44c3-8de9-860c34a00d81
---
 libsrc/cbm510/clrscr.s | 33 ++++++++++++++++++++++++++-------
 1 file changed, 26 insertions(+), 7 deletions(-)

diff --git a/libsrc/cbm510/clrscr.s b/libsrc/cbm510/clrscr.s
index a2bb4e2db..206833cc1 100644
--- a/libsrc/cbm510/clrscr.s
+++ b/libsrc/cbm510/clrscr.s
@@ -16,28 +16,47 @@
 	lda	#0
 	sta	CURS_X
 	sta	CURS_Y
-       	jsr	plot		; Set cursor to top left corner
+       	jsr	plot	    	; Set cursor to top left corner
 
-	lda	#$20	   	; Screencode for blank
-	ldx    	#$00
-	ldy	#$00
+       	ldx    	#$00		; Count
 	jsr	clearpage
 	jsr	clearpage
 	jsr	clearpage
-	ldx	#<(40*25)
-	jsr	clearpage	; Clear remainder of last page
-	jmp	plot	   	; Set screen pointer again
+       	ldx	#<(40*25)	; Count
+	jsr	clearpage   	; Clear remainder of last page
+	jmp	plot	    	; Set screen pointer again
 
 .endproc
 
 
 .proc	clearpage
+				
+	txa
+	pha	 		; Save count
 
+	lda	#$20	    	; Screencode for blank
+	ldy	#$00
 @L1:	sta	(SCREEN_PTR),y
    	iny
 	dex
    	bne	@L1
    	inc	SCREEN_PTR+1
+
+	pla
+	tax			; Reload count
+	lda	IndReg
+	pha
+	lda	#$0F
+	sta	IndReg		; Switch to the system bank
+	lda	CHARCOLOR   	; Load color
+	ldy	#$00
+@L2:	sta	(CRAM_PTR),y
+	iny
+	dex
+	bne	@L2
+	inc	CRAM_PTR+1
+	pla
+	sta	IndReg		; Restore the old indirect bank
 	rts
 
 .endproc
-- 
2.39.5