d6
/
nxu
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

clean up out-of-date comments

This commit is contained in:
~d6 2023-02-10 20:40:41 -05:00
parent df66f10fa3
commit 958b4a508f
1 changed files with 26 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
term.tal
View File

@ -13,12 +13,13 @@
( 7. stop hard coding terminal size in both term.py and term.tal ) ( 7. stop hard coding terminal size in both term.py and term.tal )
( 8. key repeat - not possible in general though ) ( 8. key repeat - not possible in general though )
( 9. support shift+arrow and alt+arrow ) ( 9. support shift+arrow and alt+arrow )
( 10. investigate neauoire mosh flicker. theory: tmux running under non-ansi TERM ) ( 10. crawl has screen-clearing issues )
( 11. crawl has screen-clearing issues ) ( 11. cursor hiding for cmatrix )
( 12. cursor hiding for cmatrix ) ( 12. clean up super ugly selection code )
( 13. clean up super ugly selection code ) ( 13. hide cursor when not moving for awhile )
( 14. hide cursor when not moving for awhile ) ( 14. configure terminal dimensions (config file?) )
( 15. configure terminal dimensions (config file?) ) ( 15. blinking text? )
( 16. visual bell? )
( ANSI sequences ) ( ANSI sequences )
( ) ( )
@ -179,7 +180,7 @@
#80 .Console/mode DEO ( start bash subprocess ) #80 .Console/mode DEO ( start bash subprocess )
( set to 01 to enable debug log ) ( set to 01 to enable debug log )
#00 .debug STZ #01 .debug STZ
.debug LDZ ?&continue BRK &continue .debug LDZ ?&continue BRK &continue
#99 #010e DEO #99 #010e DEO
@ -227,7 +228,6 @@
LIT2r =cells ( [addr*] ) LIT2r =cells ( [addr*] )
#0000 &yloop ( y* [addr*] y* ) #0000 &yloop ( y* [addr*] y* )
#0000 &xloop ( y* x* [addr*] ) #0000 &xloop ( y* x* [addr*] )
( #0220 STH2kr STA2 ( y* x* [addr*] ) )
#0200 STH2kr STA2 ( y* x* [addr*] ) #0200 STH2kr STA2 ( y* x* [addr*] )
INC2r INC2r ( y* x* [addr+2*] ) INC2r INC2r ( y* x* [addr+2*] )
INC2 DUP2 .cols LDZ2 ( y* x+1* x+1* cols* [addr+2*] ) INC2 DUP2 .cols LDZ2 ( y* x+1* x+1* cols* [addr+2*] )
@ -272,10 +272,10 @@
@screen-to-cursor ( -> ) @screen-to-cursor ( -> )
.cur-y LDZ2 .cur-x LDZ2 !screen-to-cell .cur-y LDZ2 .cur-x LDZ2 !screen-to-cell
@clear-cursor @clear-cursor ( -> )
screen-to-cursor cur-addr LDA2 !draw-cell screen-to-cursor cur-addr LDA2 !draw-cell
@draw-cursor @draw-cursor ( -> )
screen-to-cursor cur-addr LDA2 screen-to-cursor cur-addr LDA2
.tcem LDZ #00 EQU ?&skip SWP reverse-tint SWP .tcem LDZ #00 EQU ?&skip SWP reverse-tint SWP
&skip !draw-cell &skip !draw-cell
@ -648,6 +648,12 @@
DUP LIT "L EQU ?exec-insert-lines ( insert blank lines ) DUP LIT "L EQU ?exec-insert-lines ( insert blank lines )
DUP LIT "M EQU ?exec-delete-lines ( delete n lines ) DUP LIT "M EQU ?exec-delete-lines ( delete n lines )
DUP LIT "P EQU ?exec-delete-chars ( delete n chars ) DUP LIT "P EQU ?exec-delete-chars ( delete n chars )
( ` - horizontal position absolute )
( S - scroll up n lines )
( X - erase n chars )
( Z - backward n tab stops )
( = 0 C - normal cursor )
( = 1 C - bold cursor )
debug-csi BRK debug-csi BRK
@exec-noop ( c^ -> ) @exec-noop ( c^ -> )
@ -746,11 +752,10 @@
@erase ( start* end* -> ) @erase ( start* end* -> )
EQU2k ?&skip ( start* end* ) EQU2k ?&skip ( start* end* )
OVR2 SWP2 ( start* start* end* ) OVR2 SWP2 ( start* start* end* )
( SUB2 STH2 #0220 SWP2 ( 4220 start* [count*] ) ) SUB2 STH2 #0200 SWP2 ( 0200 start* [count*] )
SUB2 STH2 #0200 SWP2 ( 4220 start* [count*] ) &loop ( 0200 addr* [i*] )
&loop ( 4220 addr* [i*] ) STA2k INC2 INC2 INC2r INC2r ( 0200 addr+2* [i+1*] )
STA2k INC2 INC2 INC2r INC2r ( 4220 addr+2* [i+1*] ) ORAkr STHr ?&loop ( 0200 addr+2* [i+2*] )
ORAkr STHr ?&loop ( 4220 addr+2* [i+2*] )
POP2r POP2 POP2 ( ) POP2r POP2 POP2 ( )
#01 .dirty STZ ( ; FIXME just redraw affected tiles ) #01 .dirty STZ ( ; FIXME just redraw affected tiles )
JMP2r ( ) JMP2r ( )
@ -947,8 +952,7 @@
&loop ( bound* pos* [i*] ) &loop ( bound* pos* [i*] )
LDA2k OVR2 STH2kr ADD2 ( bound* pos* x* pos+i* [i*] ) LDA2k OVR2 STH2kr ADD2 ( bound* pos* x* pos+i* [i*] )
STA2 ( bound* pos* [i*] ; pos+i<-x ) STA2 ( bound* pos* [i*] ; pos+i<-x )
( #0220 OVR2 STA2 ( bound* pos* [i*] ; pos<-4220 ) ) #0200 OVR2 STA2 ( bound* pos* [i*] ; pos<-0200 )
#0200 OVR2 STA2 ( bound* pos* [i*] ; pos<-4220 )
#0002 SUB2 ( bound* pos-2* [i*] ) #0002 SUB2 ( bound* pos-2* [i*] )
GTH2k #00 EQU ?&loop ( bound* pos-2* [i*] ) GTH2k #00 EQU ?&loop ( bound* pos-2* [i*] )
POP2 POP2 POP2r ( ) POP2 POP2 POP2r ( )
@ -968,11 +972,10 @@
POP2 POP2 POP2r ( [n*] ) POP2 POP2 POP2r ( [n*] )
&replace ( [n*] ) &replace ( [n*] )
LIT2r 0000 SWP2r SUB2r ( [-n*] ) LIT2r 0000 SWP2r SUB2r ( [-n*] )
( #0220 cur-addr ( 4220 cur* [-n*] ) ) #0200 cur-addr ( 0200 cur* [-n*] )
#0200 cur-addr ( 4220 cur* [-n*] ) &loop2 ( 0200 pos* [-i*] )
&loop2 ( 4220 pos* [-i*] ) STA2k INC2 INC2 INC2r ( 0200 pos+2* [-i+1*] )
STA2k INC2 INC2 INC2r ( 4220 pos+2* [-i+1*] ) ORAkr STHr ?&loop2 ( 0200 pos+2* [-i+1*] )
ORAkr STHr ?&loop2 ( 4220 pos+2* [-i+1*] )
POP2 POP2 POP2r ( ) POP2 POP2 POP2r ( )
#01 .dirty STZ JMP2r ( ) #01 .dirty STZ JMP2r ( )
@ -983,8 +986,7 @@
cur-addr ( limit* start* [i*] ) cur-addr ( limit* start* [i*] )
&loop ( limit* pos* [n*] ) &loop ( limit* pos* [n*] )
DUP2 STH2kr ADD2 LDA2k ( limit* pos* pos+i* x* [i*] ) DUP2 STH2kr ADD2 LDA2k ( limit* pos* pos+i* x* [i*] )
( #0220 ROT2 STA2 ( limit* pos* x* [i*] ; pos+i<-4220 ) ) #0200 ROT2 STA2 ( limit* pos* x* [i*] ; pos+i<-0200 )
#0200 ROT2 STA2 ( limit* pos* x* [i*] ; pos+i<-4220 )
OVR2 STA2 INC2 INC2 ( limit* pos+2* [i*] ; pos<-x ) OVR2 STA2 INC2 INC2 ( limit* pos+2* [i*] ; pos<-x )
GTH2k ?&loop ( limit* pos+2* [i*] ) GTH2k ?&loop ( limit* pos+2* [i*] )
POP2 POP2 POP2r ( ) POP2 POP2 POP2r ( )
@ -1001,7 +1003,6 @@
limit-addr STH2 limit-addr STH2
;cells .col-bytes LDZ2 ADD2 STH2 ;cells .col-bytes LDZ2 ADD2 STH2
&loop &loop
( STH2kr LDA2 #0220 STH2kr STA2 )
STH2kr LDA2 #0200 STH2kr STA2 STH2kr LDA2 #0200 STH2kr STA2
STH2kr .col-bytes LDZ2 SUB2 STA2 STH2kr .col-bytes LDZ2 SUB2 STA2
INC2r INC2r GTH2kr STHr ?&loop INC2r INC2r GTH2kr STHr ?&loop