From 74d0ee7f07fe2d5474bb68e5133f83160ec11465 Mon Sep 17 00:00:00 2001
From: Kelvin Sherlock <ksherlock@gmail.com>
Date: Sat, 25 Sep 2021 21:28:12 -0400
Subject: [PATCH] based on testing, will not advance to column 80 unless DECAWM
 is set.

---
 vt100.screen.S | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/vt100.screen.S b/vt100.screen.S
index 32b487b..ebf309c 100644
--- a/vt100.screen.S
+++ b/vt100.screen.S
@@ -237,6 +237,7 @@ draw_char ent
 
 * x = 80 indicates next char will wrap if DECAWM. however, treated as 79 
 
+* based on testing, will not advance to column 80 unless DECAWM is enabled.
 
 	ldx x
 	cpx #79
@@ -256,7 +257,7 @@ draw_char ent
 :79
 	ldy cursor_offset
 	sta [cursor_base],y
-	lda #$80
+	lda DECAWM ; set bit 7 if DECAWM.
 	tsb x ; mark overflow
 	rts
 
@@ -604,6 +605,8 @@ erase_line_1 ent
 	adc cursor_offset
 	tax
 
+	sep #$20 ; short m
+
 	ldy cursor_offset
 	lda cursor_base+2
 	beq :odd