From 3fc2c9f16a9df941fb6fbb983d9acc5bc716449c Mon Sep 17 00:00:00 2001
From: d6 <d_m@plastic-idolatry.com>
Date: Fri, 4 Mar 2022 01:47:11 -0500
Subject: [PATCH] long line support 50% working

---
 femto.tal | 44 +++++++++++++++++++++++++++++++-------------
 1 file changed, 31 insertions(+), 13 deletions(-)

diff --git a/femto.tal b/femto.tal
index 41f630b..f484a5d 100644
--- a/femto.tal
+++ b/femto.tal
@@ -400,7 +400,7 @@
     BRK
 
 @move-to-message-line ( -> )
-    #0002 ;term/rows LDA2 #0002 ADD2 ;term-move-cursor JSR2 JMP2r
+    #0002 ;term/rows LDA2 #0002 ADD2 ;term-move-cursor JMP2 ( JSR2 JMP2r )
 
 ( TODO: filename prmopt )
 @save ( -> )
@@ -466,7 +466,7 @@
 @draw-cursor ( -> )
     ;cur-w-col JSR2 ;term/lmargin LDA2 ADD2
     ;cur-row JSR2
-    ;term-move-cursor JSR2 JMP2r
+    ;term-move-cursor JMP2 ( JSR2 JMP2r )
 
 @draw-statusbar ( -> )
     #0000 ;term/rows LDA2 ;term-move-cursor JSR2
@@ -510,24 +510,42 @@
     &loop ORAk ,&next JCN POP2 POP2r JMP2r
     &next DEOkr INC2 ,&loop JMP
 
+@emit-red ( -> )
+    ansi LIT '3 emit LIT '1 emit LIT 'm emit JMP2r
+
+@emit-reset ( -> )
+    ansi LIT '0 emit LIT 'm emit JMP2r
+
+@emit-red-dollar ( -> )
+    ;emit-red JSR2 LIT '$ emit ;emit-reset JMP2
+
 @draw-all ( -> )
     ;term-erase-all JSR2
     #0000 #0000 ;term-move-cursor JSR2
     ;buffer/line-offset LDA2 STH2 LIT2r 0001 ( [k line-offset] )
     ADD2kr STH2r ;draw-linenum JSR2
     ;buffer/offset LDA2
-    &loop
+    ;term/lmargin LDA2 INC2 ,&x STR2
+    &loop ( offset [k line-offset] )
     LDAk #00 EQU ,&eof JCN
     LDAk #0a EQU ,&eol JCN
+    ,&x LDR2 ;term/cols LDA2
+        LTH2k ,&ok JCN
+        GTH2 ,&skip JCN
+        ;emit-red-dollar JSR2 ,&x LDR2 INC2 ,&x STR2
+    &skip INC2 ,&loop JMP
+    &ok POP2 POP2
     LDAk #09 EQU ,&do-tab JCN
-    LDAk emit INC2 ,&loop JMP
-    &do-tab ;emit-tab JSR2 INC2 ,&loop JMP
+    LDAk emit INC2 ,&x LDR2 INC2 ,&x STR2 ,&loop JMP
+    &do-tab ;emit-tab JSR2 INC2 ;config/tab-width LDA2 ,&x LDR2 ADD2 ,&x STR2 ,&loop JMP
+    [ &x $2 ]
     &eol INC2r STH2kr ;term/rows LDA2 GTH2 ,&done JCN
          cr nl INC2
          ADD2kr STH2r ;draw-linenum JSR2
+         ;term/lmargin LDA2 INC2 ,&x STR2
          ,&loop JMP
     &eof
-        ansi LIT '3 emit LIT '1 emit LIT 'm emit
+         ;emit-red JSR2
     &eof-loop
         STH2kr ;term/rows LDA2 GTH2 ,&done JCN
         cr nl
@@ -535,7 +553,7 @@
         LIT '~ emit INC2r
         ,&eof-loop JMP
     &done POP2 POP2r POP2r
-    ansi LIT '0 emit LIT 'm emit
+    ;emit-reset JSR2
     ;draw-statusbar JSR2
     ;draw-cursor JSR2
     JMP2r
@@ -554,13 +572,13 @@
     &eof POP2 JMP2r
 
 @cur-len ( -> n* )
-    ;cur-line JSR2 ;line-len JSR2 JMP2r
+    ;cur-line JSR2 ;line-len JMP2 ( JSR2 JMP2r )
 
 @cur-last ( -> n* )
     ;cur-line JSR2 ;line-len JSR2 #0001 SUB2 JMP2r
 
 @cur-width ( -> n* )
-    ;cur-line JSR2 ;line-width JSR2 JMP2r
+    ;cur-line JSR2 ;line-width JMP2 ( JSR2 JMP2r )
 
 @cur-w-last ( -> n* )
     ;cur-line JSR2 ;line-width JSR2 #0001 SUB2 JMP2r
@@ -610,7 +628,7 @@
     &not-found ;rel-line-error ;error! JMP2
 
 @cur-line ( -> s* )
-    ;cur-row JSR2 ;rel-line JSR2 JMP2r
+    ;cur-row JSR2 ;rel-line JMP2 ( JSR2 JMP2r )
 
 @cur-pos ( -> s* )
     ;cur-line JSR2 ;cur-col JSR2 ADD2 JMP2r
@@ -650,7 +668,7 @@
     JMP2r
 
 @cur-col ( -> col* )
-    ;cursor/col LDA2 ;cur-len JSR2 ;min2 JSR2 JMP2r
+    ;cursor/col LDA2 ;cur-len JSR2 ;min2 JMP2 ( JSR2 JMP2r )
 
 @cur-w-col ( -> col* )
     LIT2r 0000 ( [0] )
@@ -696,7 +714,7 @@
                 ,&do1 JMP
     &do3 #64 ;mod-div JSR2 ;emit-digit JSR2
     &do2 #0a ;mod-div JSR2 ;emit-digit JSR2
-    &do1                   ;emit-digit JSR2 JMP2r
+    &do1                   ;emit-digit JMP2 ( JSR2 JMP2r )
 
 @emit-dec2 ( n* -> )
     DUP2 #270f GTH2 ,&do5 JCN
@@ -708,7 +726,7 @@
     &do4 #03e8 ;mod-div2 JSR2 NIP ;emit-digit JSR2
     &do3 #0064 ;mod-div2 JSR2 NIP ;emit-digit JSR2
     &do2 #000a ;mod-div2 JSR2 NIP ;emit-digit JSR2
-    &do1                      NIP ;emit-digit JSR2 JMP2r
+    &do1                      NIP ;emit-digit JMP2 ( JSR2 JMP2r )
 
 @emit-dec2-pad ( n* -> )
     LIT2r 2018 ( preload #20 .Console/write into rst )