From f858ab6ac4217f691ec1bd44ea82a87b70beaf6b Mon Sep 17 00:00:00 2001
From: Paul Gardner-Stephen <paul@servalproject.org>
Date: Mon, 22 Apr 2019 11:49:34 +0930
Subject: [PATCH] fix glitching when shortening a full-length line using DELETE

---
 c64/kernal/chrout.s | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/c64/kernal/chrout.s b/c64/kernal/chrout.s
index dd2d485e..851cc19b 100644
--- a/c64/kernal/chrout.s
+++ b/c64/kernal/chrout.s
@@ -122,7 +122,9 @@ delete_non_zero_column:
 	ldy current_screen_x
 	cpy logical_line_length
 	beq done_delete
+	dey
 *
+	iny
 	lda (current_screen_line_ptr),y
 	dey
 	sta (current_screen_line_ptr),y
@@ -131,9 +133,15 @@ delete_non_zero_column:
 	dey
 	sta (current_screen_line_colour_ptr),y
 	iny
-	iny
 	cpy logical_line_length
 	bne -
+
+	;; Clear char at end of line
+	jsr get_current_line_logical_length
+	tay
+	lda #$20
+	sta (current_screen_line_ptr),y
+	
 done_delete:	
 	dec current_screen_x
 	jmp chrout_done