From: rs <>
Date: Tue, 14 Oct 2025 00:54:14 +0000 (-0500)
Subject: Fix screen scrolling in writer test program
X-Git-Url: https://git.the-white-hart.net/?a=commitdiff_plain;h=d1b5e3ec8e60d3f5496a30610c67d01a33edc362;p=vhdl

Fix screen scrolling in writer test program
---

diff --git a/projects/cpu_0/asm/vga_console.asm b/projects/cpu_0/asm/vga_console.asm
index 0aa3fc0..1f3cb44 100644
--- a/projects/cpu_0/asm/vga_console.asm
+++ b/projects/cpu_0/asm/vga_console.asm
@@ -130,11 +130,19 @@ vga_update_cursor:
 .topgood:
 
     ( If y coordinate off the bottom, scroll and pull it back )
+    idis
     #32 vga_cursor_y @8 #8 60i8 swap - jn .botgood
     #32 vga_scr
     #32 vga_scr #8 80i8 shl +
-    #32 4800i32 #8 80i8 shl -
+    #32 4720i32 shl
     call mem_move
+
+    #32 vga_scr #32 4720i32 shl +
+    #32 vga_cursor_col @8 shl shl shl shl shl shl shl shl #8 0x20i32 |
+    #8 80i8
+    call mem_set_16
+    ien
+
     #32 vga_cursor_y @8 #8 1i8 swap - #32 vga_cursor_y !8 drop
 .botgood: