From 902e4e5e6e9aa1bd5d2b772b5c46f2ff16dd5590 Mon Sep 17 00:00:00 2001
From: jonnosan <jonnosan@93682198-c243-4bdb-bd91-e943c89aac3b>
Date: Wed, 23 Dec 2009 10:12:32 +0000
Subject: [PATCH] vt100 emulation was leaving a cursor after a "clear to end of
 line" command ( ]J ) - most visible when pressing up arrow in bash to get to
 previous item in command history

git-svn-id: http://svn.code.sf.net/p/netboot65/code@236 93682198-c243-4bdb-bd91-e943c89aac3b
---
 client/carts/kipperterm.s  | 4 +---
 client/drivers/c64_vt100.s | 2 ++
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/client/carts/kipperterm.s b/client/carts/kipperterm.s
index e14b302..d20bd18 100644
--- a/client/carts/kipperterm.s
+++ b/client/carts/kipperterm.s
@@ -43,6 +43,7 @@
   .import dns_set_hostname
  
   .import get_key_ip65
+  .import get_key
   .import cfg_mac
   .import dhcp_init
   
@@ -196,9 +197,6 @@ wait_for_keypress:
   beq @loop
   rts
 
-get_key:
-  jmp get_key_ip65
-
 cfg_get_configuration_ptr:
   ldax  #cfg_mac
   rts
diff --git a/client/drivers/c64_vt100.s b/client/drivers/c64_vt100.s
index f434ff1..d8ee6c5 100644
--- a/client/drivers/c64_vt100.s
+++ b/client/drivers/c64_vt100.s
@@ -1368,6 +1368,7 @@ erase_line_by_vector:
 ; -------------------------------------
 
 erase_to_end_of_line:
+  jsr cursor_off
 ; erase chars
   ldy $d3       ; get crsr col
   lda #$20      ; load space
@@ -1386,6 +1387,7 @@ erase_to_end_of_line:
   iny
   cpy #$28      ; pos 40?
   bne :-      ; next char        
+  jsr cursor_on
   rts
 
 ; -------------------------------------