From 902b18611bb389c008982735a970f44640e080aa Mon Sep 17 00:00:00 2001
From: neauoire <aliceffekt@gmail.com>
Date: Sun, 6 Aug 2023 15:13:05 -0700
Subject: [PATCH] Keep lenght in zp

---
 src/drifblim.tal | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

diff --git a/src/drifblim.tal b/src/drifblim.tal
index 7f6ff1a..73dd6ba 100644
--- a/src/drifblim.tal
+++ b/src/drifblim.tal
@@ -8,6 +8,7 @@
 
 	@scan $1
 	@head $2
+	@length $2
 	@qerror $1
 	@src $1 &buf $30
 	@dst $1 &buf $30
@@ -193,8 +194,8 @@
 	SWP <write>
 
 @<write> ( byte -- )
-	.head LDZ2 INC2k STH2 ;memory/result ADD2 STA
-	STH2r
+	DUP .head LDZ2 INC2k STH2 ;memory/result ADD2 STA
+	record-length STH2r
 
 @<set-head> ( v* -- )
 	.head STZ2
@@ -205,6 +206,12 @@
 	[ LIT2 01 -qerror ] STZ
 	JMP2r
 
+@record-length ( byte -- )
+	.scan LDZ ?{ POP JMP2r }
+	?{ JMP2r }
+	.head LDZ2 .length STZ2
+	JMP2r
+
 (
 @|labels )
 
@@ -293,13 +300,6 @@
 	&fill ( -- )
 		POP2 #ff JMP2r
 
-@get-len ( -- length* )
-	;rom #ffff OVR2 STH2k
-	&l ( -- )
-		LDAk #00 EQU ?{ POP2r STH2k }
-		INC2 GTH2k ?&l
-	POP2 POP2 STH2r SWP2 SUB2 INC2 JMP2r
-
 @is-hex ( str* -- str* f )
 	DUP2
 	&w ( -- )
@@ -347,7 +347,7 @@
 
 @save-result ( -- )
 	;dst/buf .File2/name DEO2
-	get-len .File2/length DEO2
+	.length LDZ2 #00ff SUB2 .File2/length DEO2
 	;rom .File2/write DEO2
 	JMP2r
 
@@ -372,7 +372,7 @@
 	;dst/buf <print-err>/
 	( | length )
 	;dict/in <print-err>/
-	get-len <print-dec>
+	.length LDZ2 #00ff SUB2 <print-dec>
 	;dict/bytes <print-err>/
 	;<create-symbol>/count LDA2 <print-dec>
 	;dict/labels <print-err>/
-- 
2.45.2