From 92c443fd8564c79db42dbe1a28f9462c9d57b01c Mon Sep 17 00:00:00 2001
From: d6 <d_m@plastic-idolatry.com>
Date: Sat, 18 Feb 2023 00:15:44 -0500
Subject: [PATCH] optimize things a bit more

---
 term.tal | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/term.tal b/term.tal
index ecd5bc0..56a47b8 100644
--- a/term.tal
+++ b/term.tal
@@ -279,11 +279,11 @@
     #0000 draw-border/row
     #0008 draw-border/row
     .rows LDZ2 #000c MUL2 #0010 ADD2 draw-border/row
-    .rows LDZ2 #000c MUL2 #0018 ADD2 draw-border/row
+    .Screen/y DEI2 #0008 ADD2 draw-border/row
     #0000 draw-border/col
     #0008 draw-border/col
     .cols LDZ2 #0008 MUL2 #0010 ADD2 draw-border/col
-    .cols LDZ2 #0008 MUL2 #0018 ADD2 draw-border/col
+    .Screen/x DEI2 #0008 ADD2 draw-border/col
     #00 .Screen/auto DEO POP2 !screen-to-cursor
 
     &row ( y* -> )
@@ -383,7 +383,7 @@
     JMP2r
 
 @paste-snarf ( -> )
-    .paste LDZ #00 EQU ?&start LIT "0 ;bracket-paste JSR2 &start
+    .paste LDZ #00 EQU ?&start LIT "0 bracket-paste &start
     ;snarf .File2/name DEO2      ( )
     #0780 .File2/len DEO2        ( )
     &loop                        ( )
@@ -395,7 +395,7 @@
         !&loop                   ( )
     &failed POP2
     &done
-    .paste LDZ #00 EQU ?&end LIT "1 ;bracket-paste JSR2 &end
+    .paste LDZ #00 EQU ?&end LIT "1 bracket-paste &end
     JMP2r
 
 @lit-first-y