Fixed gcc compiler warning (#867)

[cc65] / libsrc / apple2 / chline.s

diff --git a/libsrc/apple2/chline.s b/libsrc/apple2/chline.s
index ab07991b0eceb22cc2e71fc6b3681ee3896f856f..be157ca9e62607949219fcfaa642f139194ea9d0 100644 (file)
--- a/libsrc/apple2/chline.s
+++ b/libsrc/apple2/chline.s
@@ -1,29 +1,35 @@
 ;
 ; Ullrich von Bassewitz, 08.08.1998
 ;
-; void chlinexy (unsigned char x, unsigned char y, unsigned char length);
-; void chline (unsigned char length);
+; void __fastcall__ chlinexy (unsigned char x, unsigned char y, unsigned char length);
+; void __fastcall__ chline (unsigned char length);
 ;
 
-       .export         _chlinexy, _chline, chlinedirect
-       .import         popa, _gotoxy, cputdirect
-       .importzp       tmp1
+        .export         _chlinexy, _chline, chlinedirect
+        .import         gotoxy, cputdirect
+
+        .include        "zeropage.inc"
+        .include        "apple2.inc"
 
 _chlinexy:
-               pha                     ; Save the length
-       jsr     popa            ; Get y
-               jsr     _gotoxy         ; Call this one, will pop params
-       pla                     ; Restore the length and run into _chline
+        pha                     ; Save the length
+        jsr     gotoxy          ; Call this one, will pop params
+        pla                     ; Restore the length and run into _chline
 
 _chline:
-       ldx     #'-' | $80      ; Horizontal line, screen code
+        .ifdef  __APPLE2ENH__
+        ldx     #'_' | $80      ; Underscore, screen code
+        .else
+        ldx     #'-' | $80      ; Minus, screen code
+        .endif
 
 chlinedirect:
-       cmp     #$00            ; Is the length zero?
-       beq     done            ; Jump if done
-       sta     tmp1
-:      txa                     ; Screen code
-       jsr     cputdirect      ; Direct output
-       dec     tmp1
-       bne     :-
-done:  rts
+        stx     tmp1
+        cmp     #$00            ; Is the length zero?
+        beq     done            ; Jump if done
+        sta     tmp2
+:       lda     tmp1            ; Screen code
+        jsr     cputdirect      ; Direct output
+        dec     tmp2
+        bne     :-
+done:   rts