From 233e8b07f243f3bf31be493c6bb0f1fd98bcfdd6 Mon Sep 17 00:00:00 2001
From: d6 <d_m@plastic-idolatry.com>
Date: Sat, 12 Feb 2022 02:25:41 -0500
Subject: [PATCH] goto-end + bugfix

---
 femto.tal | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

diff --git a/femto.tal b/femto.tal
index 5d7e9b9..fbe4770 100644
--- a/femto.tal
+++ b/femto.tal
@@ -280,7 +280,16 @@
 @escape ( -> )
     #01 ;saw-esc STA BRK
 
-@goto-end ( FIXME )
+( TODO: small buffers )
+@goto-end ( -> )
+    ;buffer/line-count LDA2 ;term/rows LDA2 ( #00 #00 DIV ) SUB2
+    DUP2 ;buffer/line-offset STA2
+    ;abs-line JSR2 ;buffer/offset STA2
+    height #01 SUB ;cursor/row STA
+    ;cur-len JSR2 NIP ;cursor/col STA
+    ;draw-all JSR2
+    BRK
+
 @goto-start ( -> )
     ;buffer/data ;buffer/offset STA2
     #0000 ;buffer/line-offset STA2
@@ -386,9 +395,9 @@
     ;messages/lines ;print JSR2
     #20 emit
     LIT '( emit
-    ;cursor/col LDA ;emit-dec JSR2
+    ;cursor/col LDA INC ;emit-dec JSR2
     LIT ', emit
-    ;cur-abs-row JSR2 ;emit-dec2 JSR2
+    ;cur-abs-row JSR2 INC2 ;emit-dec2 JSR2
     LIT ') emit
 
     ansi LIT '0 emit LIT 'm emit
@@ -441,7 +450,7 @@
 
 @abs-line ( y* -> s* )
     #0000 SWP2 SUB2 STH2 ( [-y] )
-    ;buffer/data LDA2 ( addr )
+    ;buffer/data ( addr )
     &newline ( addr [-y] )
           STH2kr ORA ,&loop JCN ,&done JMP
     &loop ( addr [-y] )