More additions

git-svn-id: svn://svn.cc65.org/cc65/trunk@2128 b7a2c559-68d2-44c3-8de9-860c34a00d81
2003-05-02 15:00:45 +00:00
parent 51a9e4351b
commit 58b9530c2b
15 changed files with 522 additions and 0 deletions
--- a/libsrc/nes/cclear.s
+++ b/libsrc/nes/cclear.s
@@ -0,0 +1,30 @@
+;
+; 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				     
+L1:    	lda    	#$20		; Blank - screen code
+   	jsr	cputdirect	; Direct output
+   	dec	tmp1
+	bne	L1
+L9:	rts
+
+
+
+