From c15ae6ac4c1854a35ef28fc94a5856ad9135a5e1 Mon Sep 17 00:00:00 2001
From: Kelvin Sherlock <ksherlock@gmail.com>
Date: Sat, 29 Jan 2022 11:23:41 -0500
Subject: [PATCH] add DECREQTPARM support, fix a bug with DA/Device attributes
 response.

---
 vt100.csi.S | 54 +++++++++++++++++++++++++++++++++++++----------------
 1 file changed, 38 insertions(+), 16 deletions(-)

diff --git a/vt100.csi.S b/vt100.csi.S
index 1a080fc..1c20abb 100644
--- a/vt100.csi.S
+++ b/vt100.csi.S
@@ -18,7 +18,7 @@
 	ext erase_screen_0,erase_screen_1,erase_screen_2
 	ext update_sgr
 
-	ext write_modem
+	ext write_modem,write_modem_str
 
 
 vt100_csi ent
@@ -262,7 +262,7 @@ vt100_csi_2 ent
 	dw :rts		; u
 	dw :rts		; v
 	dw :rts		; w
-	dw :rts		; x
+	dw csi_x	; x
 	dw csi_y	; y
 
 :modifier
@@ -832,23 +832,45 @@ write_digit
 :table	db 0,10,20,30,40,50,60,70,80
 
 csi_c  ; what are you?
-	lda #ESC
-	jsr write_modem
-	lda #'['
-	jsr write_modem
-	lda #'?'
-	jsr write_modem
-	lda #'1'
-	jsr write_modem
-	lda #'?'
-	jsr write_modem
-	lda #'0'
-	jsr write_modem
-	lda #'c'
-	jmp write_modem
+* DA - Device Attributes
+
+	mx %11
+
+	php
+	rep #$10 ; long x/y
+	ldy #:response
+	jsr write_modem_str
+	plp
+	rts
+
+:response asc 1b,'[?1;0c',00 ; No options.
 
 csi_y  ; invoke confidence test
 * ??? 
 	rts
 
+
+
+csi_x ; request terminal parameters
+* DECREQTPARM – Request Terminal Parameters
+
+	mx %11
+
+	lda parms
+	cmp #2
+	bcs :rts
+	inc
+	inc
+	ora #'0'
+	sta :response+2
+
+	php
+	rep #$10 ; long x/y
+	ldy #:response
+	jsr write_modem_str
+	plp
+:rts	rts
+
+:response asc 1b,'[x;1;1;112;112;1;0x',00 ; no parity, 8-bits, 9600/9600, 16x multiplier, no stp flags.
+
 	sav vt100.csi.L