Apple-2-SW/emailler
1
0
Fork 0
mirror of https://github.com/bobbimanners/emailler.git synced 2024-11-18 21:07:03 +00:00
Code Issues Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: http://svn.code.sf.net/p/netboot65/code@236 93682198-c243-4bdb-bd91-e943c89aac3b
This commit is contained in:
jonnosan 2009-12-23 10:12:32 +00:00
parent 488c28d671
commit 902e4e5e6e
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
client/carts/kipperterm.s
View File

@ -43,6 +43,7 @@
.import dns_set_hostname .import dns_set_hostname
.import get_key_ip65 .import get_key_ip65
.import get_key
.import cfg_mac .import cfg_mac
.import dhcp_init .import dhcp_init
@ -196,9 +197,6 @@ wait_for_keypress:
beq @loop beq @loop
rts rts
get_key:
jmp get_key_ip65
cfg_get_configuration_ptr: cfg_get_configuration_ptr:
ldax #cfg_mac ldax #cfg_mac
rts rts

2
client/drivers/c64_vt100.s
View File

@ -1368,6 +1368,7 @@ erase_line_by_vector:
; ------------------------------------- ; -------------------------------------
erase_to_end_of_line: erase_to_end_of_line:
jsr cursor_off
; erase chars ; erase chars
ldy $d3 ; get crsr col ldy $d3 ; get crsr col
lda #$20 ; load space lda #$20 ; load space
@ -1386,6 +1387,7 @@ erase_to_end_of_line:
iny iny
cpy #$28 ; pos 40? cpy #$28 ; pos 40?
bne :- ; next char bne :- ; next char
jsr cursor_on
rts rts
; ------------------------------------- ; -------------------------------------