This commit was generated by cvs2svn to compensate for changes in r2,

which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81
2000-05-28 13:40:48 +00:00
parent 579491e8a4
commit 53dd513176
847 changed files with 91345 additions and 0 deletions
--- a/libsrc/cbm610/clrscr.s
+++ b/libsrc/cbm610/clrscr.s
@@ -0,0 +1,42 @@
+;
+; Ullrich von Bassewitz, 22.09.1998
+;
+; void clrscr (void);
+;
+
+	.export		_clrscr
+	.import		plot
+
+	.include	"zeropage.inc"
+
+.proc	_clrscr
+
+	lda	#0
+	sta	CURS_X
+	sta	CURS_Y
+       	jsr	plot		; Set cursor to top left corner
+
+	lda	IndReg
+	pha
+	lda	#$0F
+	sta	IndReg		; Switch to the system bank
+
+	ldx	#8
+	ldy	#$00
+	lda	#$20	   	; Screencode for blank
+L1:	sta	(CharPtr),y
+   	iny
+   	bne	L1
+   	inc	CharPtr+1
+	dex
+	bne	L1
+
+	pla
+	sta	IndReg		; Restore old indirect segment
+
+	jmp	plot		; Set screen pointer again
+
+.endproc
+
+
+