From cd1397e3cf9eca238de2921a5b2cd35fcda1484f Mon Sep 17 00:00:00 2001
From: Kelvin Sherlock <ksherlock@gmail.com>
Date: Sun, 28 Nov 2021 14:45:03 -0500
Subject: [PATCH] fixed cursor position report - verified DECOM behavior - was
 missing [ write.

---
 vt100.csi.S | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/vt100.csi.S b/vt100.csi.S
index f73e3a0..f2121d6 100644
--- a/vt100.csi.S
+++ b/vt100.csi.S
@@ -787,12 +787,19 @@ csi_n  ; status report
 	lda #'n'
 	jmp write_modem
 :cpr ; cursor report
-* TODO - verify and support DECOM
+* returned y is in terms of DECOM.
 	lda #ESC
 	jsr write_modem
 	lda #'['
+	jsr write_modem
+
 	lda y
-	inc
+	bit DECOM
+	bpl :y
+	sec
+	sbc DECTM
+
+:y	inc
 	jsr write_digit
 	lda #';'
 	jsr write_modem