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 0aa3fc08f50b38bb94a3aab81c9a572d6f5b9a17..1f3cb44e02d072297b680a6dbc92ce9745c9a4b6 100644 (file)
--- 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: