Quick fix for missing _div() adaptation after 95223be.

[cc65] / libsrc / apple2 / cclear.s

diff --git a/libsrc/apple2/cclear.s b/libsrc/apple2/cclear.s
index 586459cb0eb44f35242c8ca52faccfae715a8bf4..4106752ebc92ad33db4c2b92f5c0b293ff5f5403 100644 (file)
--- a/libsrc/apple2/cclear.s
+++ b/libsrc/apple2/cclear.s
@@ -1,30 +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, cputdirect
-       .importzp       tmp1
+        .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:
-               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