Made Apple II CONIO more flexible.

[cc65] / libsrc / apple2 / chline.s

diff --git a/libsrc/apple2/chline.s b/libsrc/apple2/chline.s
index 6cf77de1bbe7f5ed5564610141b59f1e225c3fcf..be157ca9e62607949219fcfaa642f139194ea9d0 100644 (file)
--- a/libsrc/apple2/chline.s
+++ b/libsrc/apple2/chline.s
@@ -18,19 +18,18 @@ _chlinexy:
 
 _chline:
         .ifdef  __APPLE2ENH__
-        ldx     #'S'            ; MouseText character
-        ldy     INVFLG
-        cpy     #$FF            ; Normal character display mode?
-        beq     chlinedirect
+        ldx     #'_' | $80      ; Underscore, screen code
+        .else
+        ldx     #'-' | $80      ; Minus, screen code
         .endif
-        ldx     #'-' | $80      ; Horizontal line, screen code
 
 chlinedirect:
+        stx     tmp1
         cmp     #$00            ; Is the length zero?
         beq     done            ; Jump if done
-        sta     tmp1
-:       txa                     ; Screen code
+        sta     tmp2
+:       lda     tmp1            ; Screen code
         jsr     cputdirect      ; Direct output
-        dec     tmp1
+        dec     tmp2
         bne     :-
 done:   rts