add todos, update metadata, etc
This commit is contained in:
parent
2e510dc278
commit
a30bc914db
36
term.tal
36
term.tal
|
@ -76,6 +76,8 @@
|
||||||
( ESC [ ? 1060 l -> unset legacy keyboard emulation )
|
( ESC [ ? 1060 l -> unset legacy keyboard emulation )
|
||||||
( ESC [ ? 1061 h -> set VT220 keyboard emulation )
|
( ESC [ ? 1061 h -> set VT220 keyboard emulation )
|
||||||
|
|
||||||
|
( special graphics [] changes 95-126 )
|
||||||
|
|
||||||
|00 @System [ &vect $2 &expansion $2 &title $2 &metadata $2 &r $2 &g $2 &b $2 ]
|
|00 @System [ &vect $2 &expansion $2 &title $2 &metadata $2 &r $2 &g $2 &b $2 ]
|
||||||
|10 @Console [ &vect $2 &r $1 &exec $2 &mode $1 &dead $1 &exit $1 &w $1 ]
|
|10 @Console [ &vect $2 &r $1 &exec $2 &mode $1 &dead $1 &exit $1 &w $1 ]
|
||||||
|20 @Screen [ &vect $2 &w $2 &h $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &px $1 &sprite $1 ]
|
|20 @Screen [ &vect $2 &w $2 &h $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &px $1 &sprite $1 ]
|
||||||
|
@ -377,6 +379,8 @@
|
||||||
( send ESC [ $c )
|
( send ESC [ $c )
|
||||||
@arrow ( c^ -> )
|
@arrow ( c^ -> )
|
||||||
.Console/w STH
|
.Console/w STH
|
||||||
|
( TODO: send ESC-$c in VT-52 mode )
|
||||||
|
( TODO: send ESC-O-$c in "cursor key mode set" )
|
||||||
#1b STHkr DEO LIT "[ STHkr DEO STHr DEO
|
#1b STHkr DEO LIT "[ STHkr DEO STHr DEO
|
||||||
JMP2r
|
JMP2r
|
||||||
|
|
||||||
|
@ -805,9 +809,10 @@
|
||||||
draw-cursor BRK
|
draw-cursor BRK
|
||||||
|
|
||||||
@mode-addr ( n* -> zp^ )
|
@mode-addr ( n* -> zp^ )
|
||||||
DUP2 #0004 NEQ2 ?¬-irm POP2 .irm JMP2r
|
DUP2 #0004 NEQ2 ?{ POP2 .irm JMP2r } ( TODO: permanently reset )
|
||||||
¬-irm DUP2 #0007 NEQ2 ?¬-awm POP2 .awm JMP2r
|
DUP2 #0007 NEQ2 ?{ POP2 .awm JMP2r } ( TODO: rename to DECAWM )
|
||||||
¬-awm POP2 .ignored JMP2r
|
( TODO: 20 is LNM: line feed/newline mode )
|
||||||
|
POP2 .ignored JMP2r
|
||||||
|
|
||||||
@sm ( n* -> ) mode-addr #01 SWP STZ JMP2r
|
@sm ( n* -> ) mode-addr #01 SWP STZ JMP2r
|
||||||
@rm ( n* -> ) mode-addr #00 SWP STZ JMP2r
|
@rm ( n* -> ) mode-addr #00 SWP STZ JMP2r
|
||||||
|
@ -973,6 +978,7 @@
|
||||||
DUP LIT "8 EQU ?&skip ( DECRC: restore cursor )
|
DUP LIT "8 EQU ?&skip ( DECRC: restore cursor )
|
||||||
DUP LIT "> EQU ?&skip ( DECKPNM: normal keypad )
|
DUP LIT "> EQU ?&skip ( DECKPNM: normal keypad )
|
||||||
DUP LIT "~ EQU ?&skip ( LS1R: invoke G1 charset as GR )
|
DUP LIT "~ EQU ?&skip ( LS1R: invoke G1 charset as GR )
|
||||||
|
DUP LIT "# EQU ?&skip ( TODO: DECALN, fill screen with Es )
|
||||||
debug-esc
|
debug-esc
|
||||||
;on-read .Console/vect DEO2
|
;on-read .Console/vect DEO2
|
||||||
!on-read
|
!on-read
|
||||||
|
@ -995,7 +1001,7 @@
|
||||||
( preceeded by '(' [G0] or ')' [G1] )
|
( preceeded by '(' [G0] or ')' [G1] )
|
||||||
( "A" -> UK )
|
( "A" -> UK )
|
||||||
( "B" -> USASCII )
|
( "B" -> USASCII )
|
||||||
( "0" -> DEC special character, line drawing )
|
( "0" -> DEC special graphics, line drawing )
|
||||||
@start-charset ( c^ -> BRK )
|
@start-charset ( c^ -> BRK )
|
||||||
POP ;on-read-skip .Console/vect DEO2 BRK
|
POP ;on-read-skip .Console/vect DEO2 BRK
|
||||||
|
|
||||||
|
@ -1080,6 +1086,8 @@
|
||||||
@read-lf ( 0a -> )
|
@read-lf ( 0a -> )
|
||||||
POP !lf
|
POP !lf
|
||||||
|
|
||||||
|
( TODO: cur-wrap machinery not vt100 compliant. )
|
||||||
|
( cursor should stay on previous line normally )
|
||||||
@lf ( -> )
|
@lf ( -> )
|
||||||
.cur-wrap LDZ ?&skip clear-cursor down-or-scroll &skip JMP2r
|
.cur-wrap LDZ ?&skip clear-cursor down-or-scroll &skip JMP2r
|
||||||
|
|
||||||
|
@ -1311,7 +1319,7 @@
|
||||||
&name "determ 0a
|
&name "determ 0a
|
||||||
&details "ansi 20 "terminal 20 "emulator 0a
|
&details "ansi 20 "terminal 20 "emulator 0a
|
||||||
&author "by 20 "d_m 0a
|
&author "by 20 "d_m 0a
|
||||||
&date "3 20 "jan 20 2023 00
|
&date "13 20 "nov 20 "2023 00
|
||||||
02
|
02
|
||||||
( device mask ) 41 0d07
|
( device mask ) 41 0d07
|
||||||
( 24x24 icon ) 83 =icon-2-bit
|
( 24x24 icon ) 83 =icon-2-bit
|
||||||
|
@ -1320,9 +1328,9 @@
|
||||||
0d 0a
|
0d 0a
|
||||||
20 20 c9 cd cd cd cd cd cd cd cd cd cd cd cd cd cd cd bb 0d 0a
|
20 20 c9 cd cd cd cd cd cd cd cd cd cd cd cd cd cd cd bb 0d 0a
|
||||||
20 20 ba 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ba 0d 0a
|
20 20 ba 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ba 0d 0a
|
||||||
20 20 ba 20 20 "d "e "t "e "r "m 20 20 "v "1 "0 20 20 ba 0d 0a
|
20 20 ba 20 20 "d "e "t "e "r "m 20 20 "v "1 "1 20 20 ba 0d 0a
|
||||||
20 20 ba 20 20 20 20 "b "y 20 "d "_ "m 20 20 20 20 20 ba 0d 0a
|
20 20 ba 20 20 20 20 "b "y 20 "d "_ "m 20 20 20 20 20 ba 0d 0a
|
||||||
20 20 ba 20 20 "1 "8 20 "m "a "r 20 "2 "0 "2 "3 20 20 ba 0d 0a
|
20 20 ba 20 20 "1 "3 20 "n "o "v 20 "2 "0 "2 "3 20 20 ba 0d 0a
|
||||||
20 20 ba 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ba 0d 0a
|
20 20 ba 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ba 0d 0a
|
||||||
20 20 c8 cd cd cb cd cd cd cd cd cd cd cd cd cb cd cd bc 0d 0a
|
20 20 c8 cd cd cb cd cd cd cd cd cd cd cd cd cb cd cd bc 0d 0a
|
||||||
20 20 c9 cb cb ce cb cb cb cb cb cb cb cb cb ce cb cb bb 0d 0a
|
20 20 c9 cb cb ce cb cb cb cb cb cb cb cb cb ce cb cb bb 0d 0a
|
||||||
|
@ -1344,5 +1352,19 @@
|
||||||
@paste-buf $0780 ( max 80 x 24 characters )
|
@paste-buf $0780 ( max 80 x 24 characters )
|
||||||
@paste-pos $2
|
@paste-pos $2
|
||||||
|
|
||||||
|
( TODO: tab stops )
|
||||||
|
|
||||||
|
( state )
|
||||||
|
@setup
|
||||||
|
&alternate-keypad-mode 00 ( 00 numeric [DECKPNM], 01 application [DECKPAM] )
|
||||||
|
&ansi-vt52 00 ( DECANM; 00 ansi, 01 vt-52 )
|
||||||
|
&chars-per-line 00 ( DECCOLM; 00 80, 01 132 )
|
||||||
|
&cursor-key-modes 00 ( DECCKM )
|
||||||
|
&new-line 00 ( LNM; 00 return=CR, return=CRLF; ignored by IND/NEL )
|
||||||
|
&origin-mode 00 ( DECOM; )
|
||||||
|
&screen 00 ( DECSCNM; 00 normal, 01 reverse video )
|
||||||
|
&wraparound 00 ( DECAWM; right margin 00 replace, 01 next line/scroll )
|
||||||
|
&3-shifted "B ( SCS; character set selected; B is ASCII )
|
||||||
|
|
||||||
( store tint+char for each screen position )
|
( store tint+char for each screen position )
|
||||||
@cells ( width x height x 2 bytes )
|
@cells ( width x height x 2 bytes )
|
||||||
|
|
Loading…
Reference in New Issue