d6
/
uxn-utils
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(lz) Added append short

This commit is contained in:
neauoire 2023-11-19 11:30:17 -08:00
parent 6a3ca87e97
commit 7485fc7e2c
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
cli/lz/ulzenc.tal
View File

@ -70,6 +70,11 @@
STA STA
JMP2r JMP2r
@<append-short> ( short* -- )
.output-ptr LDZ2 INC2k INC2 .output-ptr STZ2
STA2
JMP2r
@uxn_lz_compress ( input* length* -- ) @uxn_lz_compress ( input* length* -- )
( | fill variables ) ( | fill variables )
;compressed .output-ptr STZ2 ;compressed .output-ptr STZ2
@ -125,8 +130,7 @@
NIP #80 ORA <append-byte> NIP #80 ORA <append-byte>
!&cpy-resume !&cpy-resume
&cpy2 ( match-ctl* -- ) &cpy2 ( match-ctl* -- )
SWP #c0 ORA <append-byte> SWP #c0 ORA <append-short>
<append-byte>
&cpy-resume ( -- ) &cpy-resume ( -- )
( | *output_ptr++ = in - dict_best - 1; ) ( | *output_ptr++ = in - dict_best - 1; )
DUP2 .dict-best LDZ2 SUB2 #0001 SUB2 NIP <append-byte> DUP2 .dict-best LDZ2 SUB2 #0001 SUB2 NIP <append-byte>