add todos, update metadata, etc

This commit is contained in:
~d6 2023-11-13 11:35:26 -05:00
parent 2e510dc278
commit a30bc914db
1 changed files with 29 additions and 7 deletions

View File

@ -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 ?&not-irm POP2 .irm JMP2r DUP2 #0004 NEQ2 ?{ POP2 .irm JMP2r } ( TODO: permanently reset )
&not-irm DUP2 #0007 NEQ2 ?&not-awm POP2 .awm JMP2r DUP2 #0007 NEQ2 ?{ POP2 .awm JMP2r } ( TODO: rename to DECAWM )
&not-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 )