Reworked version by Oliver Schmidt

git-svn-id: svn://svn.cc65.org/cc65/trunk@2913 b7a2c559-68d2-44c3-8de9-860c34a00d81
2004-03-11 21:54:22 +00:00
parent 5f2569ef28
commit a57deeb58a
25 changed files with 499 additions and 364 deletions
--- a/libsrc/apple2/cclear.s
+++ b/libsrc/apple2/cclear.s
@@ -6,8 +6,7 @@
 ;

    	.export		_cclearxy, _cclear
-	.import		popa, _gotoxy, cputdirect
-	.importzp	tmp1
+	.import 	popa, _gotoxy, chlinedirect

 _cclearxy:
       	pha	    		; Save the length
@@ -16,15 +15,5 @@ _cclearxy:
       	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
-
-
-
-
+	ldx	#' ' | $80	; Blank, screen code
+	jmp	chlinedirect