(lz) Larger buffer

cli/lz/build.sh

@@ -52,9 +52,15 @@ echo "Result(Uxn):"
 cat b.bin
 echo ""
 
+echo ""
+echo "Image Encoding"
+./ulzenc ako10x10.chr ako10x10.chr.ulz
+uxncli ulzenc.rom ako10x10.chr ako10x10.chr.ulz
+
 rm ./ulzdec
 rm ./ulzenc
 rm ./a.ulz
 rm ./b.bin
 rm ./ulzdec.rom
+rm ./ulzenc.rom
 rm *.sym

cli/lz/ulzenc.tal

@@ -5,9 +5,9 @@
 
 |0000
 
+	@pad $2
 	@src $30
 	@dst $30
-	@ptr $1
 	@match-len $2
 	@output-ptr $2
 	@match-ctl $2
@@ -55,9 +55,9 @@
 	;compressed .File/write DEO2
 	( | summary )
 	;dict/decompressed <pstr>
-	;src <pstr>
+	;src <pstr>/
 	;dict/spacer <pstr>
-	;dst <pstr>
+	;dst <pstr>/
 	[ LIT2 "( 18 ] DEO
 	.output-ptr LDZ2 ;compressed SUB2 <pdec>
 	;dict/bytes <pstr>
@@ -101,6 +101,7 @@
 		( res ) LDA STHr NEQ ?&end-for2
 		INC2 ORAk ?&for2
 	&end-for2 ( | i > match_len )
+
 		DUP2 .match-len LDZ2 LTH2 ?{
 			DUP2 .match-len STZ2
 			.dict-data LDZ2 .dict-best STZ2 }
@@ -172,11 +173,6 @@
 	STA
 	JMP2r
 
-@getc ( -- b )
-	#0001 .File/length DEO2
-	;&b .File/read DEO2
-	[ LIT &b $1 ] JMP2r
-
 @<pstr> ( str* -- )
 	&w LDAk #18 DEO
 	INC2 & LDAk ?&w
@@ -204,7 +200,8 @@
 	&spacer 20 "-> 20 $1
 	&bytes 20 "bytes $1
 
-@raw $4000
+@raw $8000
+
+@compressed
 
-@compressed $4000