fix comments

[cc65] / libsrc / apple2 / cvline.s

diff --git a/libsrc/apple2/cvline.s b/libsrc/apple2/cvline.s
index 044e73d58f5ca47ebc2a91176680f9d72ff99685..280e4ced3d3afc8cd705e16feb651822b04c655d 100644 (file)
--- a/libsrc/apple2/cvline.s
+++ b/libsrc/apple2/cvline.s
@@ -1,30 +1,35 @@
 ;
 ; Ullrich von Bassewitz, 08.08.1998
 ;
-; void cvlinexy (unsigned char x, unsigned char y, unsigned char length);
-; void cvline (unsigned char length);
+; void __fastcall__ cvlinexy (unsigned char x, unsigned char y, unsigned char length);
+; void __fastcall__ cvline (unsigned char length);
 ;
 
-       .export         _cvlinexy, _cvline, cvlinedirect
-       .import         popa, _gotoxy, putchar, newline
-       .importzp       tmp1
+        .export        _cvlinexy, _cvline, cvlinedirect
+        .import                popa, _gotoxy, putchar, newline
+
+        .include       "zeropage.inc"
 
 _cvlinexy:
-               pha                     ; Save the length
-       jsr     popa            ; Get y
-               jsr     _gotoxy         ; Call this one, will pop params
-       pla                     ; Restore the length and run into _cvline
+        pha                    ; Save the length
+        jsr    popa            ; Get y
+        jsr            _gotoxy         ; Call this one, will pop params
+        pla                    ; Restore the length and run into _cvline
 
 _cvline:
-       ldx     #'!' | $80      ; Vertical line, screen code
+        .ifdef __APPLE2ENH__
+        ldx    #'|' | $80      ; Vertical line, screen code
+        .else
+        ldx    #'!' | $80      ; Vertical line, screen code
+        .endif
 
 cvlinedirect:
-       cmp     #$00            ; Is the length zero?
-       beq     done            ; Jump if done
-       sta     tmp1
-:      txa                     ; Screen code
-       jsr     putchar         ; Write, no cursor advance
-       jsr     newline         ; Advance cursor to next line
-       dec     tmp1
-       bne     :-
-done:  rts
+        cmp    #$00            ; Is the length zero?
+        beq    done            ; Jump if done
+        sta    tmp1
+:       txa                    ; Screen code
+        jsr    putchar         ; Write, no cursor advance
+        jsr    newline         ; Advance cursor to next line
+        dec    tmp1
+        bne    :-
+done:   rts