From d23ce3e11157dd4a602dbe078d576adce723b5a5 Mon Sep 17 00:00:00 2001 From: d6 Date: Sun, 19 Feb 2023 20:13:16 -0500 Subject: [PATCH] fix wrap bugs --- term.tal | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/term.tal b/term.tal index 26fb25a..f005dbb 100644 --- a/term.tal +++ b/term.tal @@ -159,7 +159,7 @@ reset-terminal ( set to 01 to enable debug log ) - #01 .debug STZ + #00 .debug STZ .debug LDZ ?&continue BRK &continue #99 #010e DEO @@ -349,7 +349,6 @@ screen-to-cursor cur-addr LDA2 !draw-cell @draw-cursor ( -> ) - at-max-x .cur-wrap STZ screen-to-cursor cur-addr LDA2 .tcem LDZ #00 EQU ?&skip SWP reverse-tint SWP &skip !draw-cell @@ -783,6 +782,10 @@ @sm ( n* -> ) mode-addr #01 SWP STZ JMP2r @rm ( n* -> ) mode-addr #00 SWP STZ JMP2r +( other attributes: ) +( 10 - primary font ) +( 39 - default fg ) +( 49 - default bg ) @read-attr ( attr* -> ) DUP2 #0000 NEQ2 ?&!0 #02 .attr STZ !&done ( reset ) &!0 DUP2 #0001 NEQ2 ?&!1 #03 !&set-fg ( bright ) @@ -828,7 +831,7 @@ @exec-vpa POP ;vpa !exec1 @exec-cha POP ;cha !exec1 @exec-el POP ;el !exec0 -@exec-ed POP ;edx !exec0 +@exec-ed POP ;ed_ !exec0 @exec-sm POP ;sm !exec1 @exec-rm POP ;rm !exec1 @exec-dsr POP ;dsr !exec1 @@ -878,7 +881,7 @@ &erase-to-end POP2 cur-addr eol-addr !erase &erase-from-start POP2 bol-addr cur-addr !erase -@edx ( n* -> ) +@ed_ ( n* -> ) DUP2 #0000 EQU2 ?&erase-to-end DUP2 #0001 EQU2 ?&erase-from-start DUP2 #0002 EQU2 ?&erase-full @@ -896,8 +899,7 @@ goto BRK ( ) @dec-floor ( x* -> x==0 ? 0* : x-1* ) - #0001 SUB2 JMP2r -( ORAk ?&sub JMP2r &sub #0001 SUB2 JMP2r ) + #0001 SUB2 #0000 !smax @debug-esc ( c^ -> ) .debug LDZ ?&continue POP JMP2r &continue @@ -966,6 +968,7 @@ DUP #20 LTH ?read-ctrl DUP #7f EQU ?read-del .tint LDZ SWP DUP2 insert-cell draw-cell + .cur-x LDZ2 .max-x LDZ2 EQU2 .cur-wrap STZ clear-cursor forward BRK @read-ctrl ( c^ -> BRK )