diff --git a/femto.tal b/femto.tal index b6a3047..dd0b90f 100644 --- a/femto.tal +++ b/femto.tal @@ -668,7 +668,7 @@ .prompt/active LDZ ,&is-active JCN #01 .prompt/active STZ ( prompt/active <- 1 ) .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 ) .prompt/string STZ2 ( prompt/string <- prompt ) JMP2r @@ -1317,7 +1317,7 @@ @ansi-emit ( 00 cn ... c1 c0 -> ) LITr 18 ( Console/write ) #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 ( ESC [ 3 1 m )