101 lines
1.5 KiB
ArmAsm
101 lines
1.5 KiB
ArmAsm
|
|
cas se
|
|
|
|
|
|
st_vt52 equ 0
|
|
st_vt52_esc equ 2
|
|
st_vt52_dca equ 4
|
|
st_vt100 equ 6
|
|
st_vt100_esc equ 8
|
|
st_vt100_csi equ 10
|
|
st_vt100_csi_2 equ 12
|
|
st_vt100_esc_pound equ 14 ; #
|
|
st_vt100_esc_lparen equ 16 ; (
|
|
st_vt100_esc_rparen equ 18 ; )
|
|
|
|
st_vt100_esc_bad equ 20
|
|
st_vt100_csi_bad equ 22
|
|
|
|
ESC equ $1b
|
|
|
|
DPAGE equ $1f00
|
|
|
|
dum 0
|
|
state ds 2
|
|
x ds 2
|
|
y ds 2
|
|
|
|
DECTM ds 2 ; top margin
|
|
DECBM ds 2 ; bottom margin
|
|
|
|
LOCAL ds 2 ; local mode
|
|
DECANM ds 2 ; ansi/vt52
|
|
DECKPAM ds 2 ; alternate keypad
|
|
DECCKM ds 2 ; cursor key modes
|
|
DECOM ds 2 ; origin
|
|
DECSCNM ds 2 ; screen mode
|
|
DECAWM ds 2 ; wrap
|
|
DECARM ds 2 ; auto repeat
|
|
DECCOLM ds 2 ; character per line (80/132)
|
|
|
|
|
|
LNM ds 2 ; new line
|
|
SGR ds 2 ; graphics, bit 1 = bold, 4 = underscore, 5 = blink, 7 = inverse
|
|
|
|
* not supported
|
|
|
|
*CHARSET ds 2 ;
|
|
*GRAPHICS ds 2 ;
|
|
|
|
*DECINLM ds 2 ; interlace
|
|
*DECSCLM ds 2 ; scroll mode
|
|
|
|
* DECDHL - double height line
|
|
* DECDWL - double width line
|
|
|
|
|
|
* parameters
|
|
MAX_PCOUNT equ 8
|
|
pcount ds 2
|
|
parms ds MAX_PCOUNT
|
|
pmod ds 2
|
|
|
|
; scratch registers
|
|
r0 ds 2
|
|
|
|
|
|
cursor_saved_char ds 2 ; saved char under the cursor
|
|
cursor_base ds 4
|
|
cursor_offset ds 2
|
|
cursor_char ds 2 ; cursor character
|
|
cursor_state ds 2 ; on/off/disabled.
|
|
|
|
draw_inverse ds 2 ; flag to draw inverse
|
|
erase_char ds 2 ; clear character
|
|
|
|
|
|
* keypress data.
|
|
key ds 2
|
|
mod ds 2
|
|
|
|
|
|
* saved cursor
|
|
saved_x ds 2
|
|
saved_y ds 2
|
|
saved_decom ds 2
|
|
saved_sgr ds 2
|
|
|
|
|
|
* async read/write pointers.
|
|
*
|
|
read_q_head ds 2
|
|
read_q_tail ds 2
|
|
write_q_head ds 2
|
|
write_q_tail ds 2
|
|
|
|
|
|
do *>256
|
|
err "too big"
|
|
fin
|
|
dend
|