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