From 780a9c751ebcce4e909d72d1f8e4fbce2b6b9bd9 Mon Sep 17 00:00:00 2001
From: Bobbi Webber-Manners <bobbi.manners@gmail.com>
Date: Sun, 11 Aug 2024 19:26:35 -0400
Subject: [PATCH] Workaround to fix cursor at login prompt.

---
 apps/telnet65.s   |  2 +-
 drivers/a2vt100.s | 15 ++++++++++++---
 2 files changed, 13 insertions(+), 4 deletions(-)

diff --git a/apps/telnet65.s b/apps/telnet65.s
index a13a2db..b560ab9 100644
--- a/apps/telnet65.s
+++ b/apps/telnet65.s
@@ -526,7 +526,7 @@ welcome_2:              .byte 14,"x",15,"    - IP65 (github.com/cc65/ip65)     "
                         .byte 15,13,10
                         .byte 27,")A"
                         .byte 27,"[?25l",0
-on_connect:             .byte 27,"[?25h",0
+on_connect:             .byte 27,"[?25h",13,10,13,10,13,10,13,10,13,10,0 ; Force a scroll
 on_disconnect:          .byte 27,"[?25l",27,"[0m",27,"(A",15,0
 
 ; initial_telnet_options:
diff --git a/drivers/a2vt100.s b/drivers/a2vt100.s
index 9ab1898..70d7a10 100644
--- a/drivers/a2vt100.s
+++ b/drivers/a2vt100.s
@@ -2196,13 +2196,22 @@ ExitChar
 
 InitScr
 .ifdef videx
+        lda #$00
+        sta CV
+        sta CH
+        sta BASEL
+        sta BASEH
+        sta START
+        ldx #12       ; Register 12 - MSbyte of start address
+        stx SL3DEV0
+        sta SL3DEV1
+        ldx #13       ; Register 13 - LSbyte of start address
+        stx SL3DEV0
+        sta SL3DEV1
         sta $cfff     ; Turn off any other $c800 shared ROM
         sta $c300     ; Select slot 3 ROM to $c800 space
         lda #$8c
         jsr $c300     ; Initialize Videoterm and clear screen
-        lda #$00
-        sta CV
-        sta CH
 .else
         ; --- turn on 80 col ---
         jsr $c300