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

libsrc/atari/cclear.s

@@ -0,0 +1,34 @@
+;
+; Ullrich von Bassewitz, 08.08.1998
+;
+; void cclearxy (unsigned char x, unsigned char y, unsigned char length);
+; void cclear (unsigned char length);
+;
+
+    	.export		_cclearxy, _cclear
+	.import		popa, _gotoxy, cputdirect
+	.importzp	tmp1
+
+_cclearxy:
+       	pha	    		; Save the length
+	jsr	popa		; Get y
+       	jsr    	_gotoxy		; Call this one, will pop params
+       	pla			; Restore the length and run into _cclear
+
+_cclear:
+       	cmp	#0		; Is the length zero?
+       	beq	L9  		; Jump if done
+    	sta	tmp1				     
+.ifdef DIRECT_SCREEN
+L1:    	lda    	#0		; Blank - screen code
+.else
+L1:    	lda    	#$20		; Blank
+.endif
+   	jsr	cputdirect	; Direct output
+   	dec	tmp1
+	bne	L1
+L9:	rts
+
+
+
+