Apple-2gs-SW/itty-bitty-vtty
1
0
Fork 0
mirror of https://github.com/ksherlock/itty-bitty-vtty.git synced 2025-01-14 05:31:56 +00:00
Code Issues Projects Releases Wiki Activity

[VT102] SRM/IRM variables [wip]

Browse Source
This commit is contained in:
Kelvin Sherlock 2024-09-12 16:07:10 -04:00
parent ad06f83ec8
commit 322bdad1a1
2 changed files with 45 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
vt.equ.S
View File

@ -1,6 +1,7 @@
cas se cas se
BUILD equ 100 ; 52, 100, 102
st_vt52 equ 0 st_vt52 equ 0
st_vt52_esc equ 2 st_vt52_esc equ 2
@ -42,6 +43,12 @@ DECCOLM ds 2 ; character per line (80/132)
LNM ds 2 ; new line LNM ds 2 ; new line
SGR ds 2 ; graphics, bit 1 = bold, 4 = underscore, 5 = blink, 7 = inverse SGR ds 2 ; graphics, bit 1 = bold, 4 = underscore, 5 = blink, 7 = inverse
do BUILD=102
SRM ds 2 ; local echo aka send-receive mode
IRM ds 2 ; insertion-replacement mode
fin
* not supported * not supported
*CHARSET ds 2 ; *CHARSET ds 2 ;

41
vt100.csi.S
View File

@ -355,7 +355,7 @@ mode_common
dw mode_DECCKM dw mode_DECCKM
dw mode_DECANM dw mode_DECANM
dw mode_DECCOLM ; DECCOLM dw mode_DECCOLM ; DECCOLM
dw :rts ; DECSCLM dw mode_4 ; DECSCLM
dw mode_DECSCNM dw mode_DECSCNM
dw mode_DECOM dw mode_DECOM
dw mode_DECAWM dw mode_DECAWM
@ -363,7 +363,7 @@ mode_common
dw :rts ; DECINLM dw :rts ; DECINLM
dw :rts ; 10 dw :rts ; 10
dw :rts ; 11 dw :rts ; 11
dw :rts ; 12 dw mode_12 ; 12
dw :rts ; 13 dw :rts ; 13
dw :rts ; 14 dw :rts ; 14
dw :rts ; 15 dw :rts ; 15
@ -417,6 +417,7 @@ mode_DECCOLM
stz x stz x
stz y stz y
* TODO - does this also reset the origin mode?
phy phy
jsr recalc_cursor jsr recalc_cursor
jsr erase_screen_2 jsr erase_screen_2
@ -424,11 +425,40 @@ mode_DECCOLM
:rts rts :rts rts
mode_4
* ? 4 = DECSCLM
* 4 = IRM (vt102)
do BUILD=102
bit pmod
bmi :rts
:irm
sty IRM
fin
:rts rts
mode_12
* ? 12 = unused
* 12 = SRM (vt102)
do BUILD=102
bit pmod
bmi :rts
sty SRM
fin
:rts rts
mode_DECSCNM mode_DECSCNM
bit pmod bit pmod
bpl :rts bpl :rts
* todo - invert on-screen characters? * todo - invert on-screen characters? swap foreground/background colors in control panel?
sty DECSCNM sty DECSCNM
:rts rts :rts rts
@ -866,7 +896,12 @@ csi_c ; what are you?
plp plp
rts rts
do BUILD=100
:response asc 1b,'[?1;0c',00 ; No options. :response asc 1b,'[?1;0c',00 ; No options.
fin
do BUILD=102
:response asc 1b,'[?1;6c',00 ; No options.
fin
csi_y ; invoke confidence test csi_y ; invoke confidence test
* ??? * ???