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