X-Git-Url: https://git.sur5r.net/?a=blobdiff_plain;f=libsrc%2Fapple2%2Fcclear.s;h=4106752ebc92ad33db4c2b92f5c0b293ff5f5403;hb=8d1b80e6fd7c4f3feef1fe7f56a321966bf59cd8;hp=de6f01ef4d7591e4447034407ff1a81237b7cc78;hpb=a57deeb58ad43b9c8daa48a77d7ac7557b6bc744;p=cc65

diff --git a/libsrc/apple2/cclear.s b/libsrc/apple2/cclear.s
index de6f01ef4..4106752eb 100644
--- a/libsrc/apple2/cclear.s
+++ b/libsrc/apple2/cclear.s
@@ -1,19 +1,18 @@
 ;
 ; Ullrich von Bassewitz, 08.08.1998
 ;
-; void cclearxy (unsigned char x, unsigned char y, unsigned char length);
-; void cclear (unsigned char length);
+; void __fastcall__ cclearxy (unsigned char x, unsigned char y, unsigned char length);
+; void __fastcall__ cclear (unsigned char length);
 ;
 
-    	.export		_cclearxy, _cclear
-	.import 	popa, _gotoxy, chlinedirect
+        .export         _cclearxy, _cclear
+        .import         gotoxy, chlinedirect
 
 _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
+        pha                     ; Save the length
+        jsr     gotoxy          ; Call this one, will pop params
+        pla                     ; Restore the length and run into _cclear
 
 _cclear:
-	ldx	#' ' | $80	; Blank, screen code
-	jmp	chlinedirect
+        ldx     #' ' | $80      ; Blank, screen code
+        jmp     chlinedirect