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

status bar + todo list

This commit is contained in:
~d6 2022-02-11 19:15:40 -05:00
parent 8f2028cbdd
commit 28704a9bfc
1 changed files with 24 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
femto.tal
View File

@ -36,6 +36,25 @@
( black, red, green, yellow, ) ( black, red, green, yellow, )
( blue, magenta, cyan, white ) ( blue, magenta, cyan, white )
( TODO: )
( - set up term scrolling at start )
( - optimize term drawing )
( - get long line truncation/scrolling working )
( - unify insertion/overwrite code )
( - display cursor coords )
( - page up/page down )
( - jump to end of buffer )
( - line numbers in left column (toggle mode?) )
( - help text )
( - save file command -> tmp first )
( - open file command? )
( - close file command? )
( - move by word/paragraph )
( - search )
( - search&replace )
( - tab support? )
( - windows line-ending support (CRLF) )
|00 @System [ &vector $2 &wst $1 &rst $1 &pad $4 &r $2 &g $2 &b $2 &debug $1 &halt $1 ] |00 @System [ &vector $2 &wst $1 &rst $1 &pad $4 &r $2 &g $2 &b $2 &debug $1 &halt $1 ]
|10 @Console [ &vector $2 &read $1 &pad $5 &write $1 &error $1 ] |10 @Console [ &vector $2 &read $1 &pad $5 &write $1 &error $1 ]
|a0 @File [ &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2 ] |a0 @File [ &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2 ]
@ -343,7 +362,8 @@
&continue DEOkr INC2 ,&loop JMP &continue DEOkr INC2 ,&loop JMP
&done POP2 POP2 POP2r &done POP2 POP2 POP2r
#01 height ;term-move-cursor JSR2 #00 height ;term-move-cursor JSR2
;messages/saved ;print JSR2
;filename ;print JSR2 ;filename ;print JSR2
#20 emit #20 emit
;buffer/limit LDA2 ;buffer/data SUB2 ;emit-dec2 JSR2 ;buffer/limit LDA2 ;buffer/data SUB2 ;emit-dec2 JSR2
@ -520,7 +540,9 @@
@messages [ &input-error "input 20 "error 00 @messages [ &input-error "input 20 "error 00
&bytes 20 "bytes 00 &bytes 20 "bytes 00
&lines 20 "lines 00 ] &lines 20 "lines 00
&saved "-- 20 00
&unsaved "** 20 00 ]
@tmp [ &pos :tmp/data @tmp [ &pos :tmp/data
&data $100 ] &data $100 ]