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

fix bugs

This commit is contained in:
~d6 2022-04-11 21:57:45 -04:00
parent edfd0b791b
commit d42464b289
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
femto.tal
View File

@ -668,7 +668,7 @@
.prompt/active LDZ ,&is-active JCN .prompt/active LDZ ,&is-active JCN
#01 .prompt/active STZ ( prompt/active <- 1 ) #01 .prompt/active STZ ( prompt/active <- 1 )
.prompt/vector STZ2 ( prompt/vector <- vector ) .prompt/vector STZ2 ( prompt/vector <- vector )
DUP2 ;tmp/data ;str-copy JSR2 ( tmp/data <- default ) ;tmp/data ;str-copy JSR2 ( tmp/data <- default )
;tmp/data ADD2 .tmp/pos STZ2 ( tmp/pos <- len(default)+data ) ;tmp/data ADD2 .tmp/pos STZ2 ( tmp/pos <- len(default)+data )
.prompt/string STZ2 ( prompt/string <- prompt ) .prompt/string STZ2 ( prompt/string <- prompt )
JMP2r JMP2r
@ -1317,7 +1317,7 @@
@ansi-emit ( 00 cn ... c1 c0 -> ) @ansi-emit ( 00 cn ... c1 c0 -> )
LITr 18 ( Console/write ) LITr 18 ( Console/write )
#5b1b STHkr DEO STHkr DEO ( ESC [ ) #5b1b STHkr DEO STHkr DEO ( ESC [ )
&loop LDA DUP ,&next JCN POP POPr JMP2r &loop DUP ,&next JCN POP POPr JMP2r
&next STHkr DEO ,&loop JMP &next STHkr DEO ,&loop JMP
( ESC [ 3 1 m ) ( ESC [ 3 1 m )