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

Housekeeping

This commit is contained in:
neauoire 2023-11-15 16:33:49 -08:00
parent 47a1e91a74
commit 68c5089ac6
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
cli/lz/ulzdec.tal
View File

@ -43,14 +43,13 @@
ADD2 .ptr STZ2
JMP2r
@op-dict ( byte )
@op-dict ( byte -- )
#7f AND
DUP #40 AND ?&dict2
#00 SWP !copy
&dict2 ( byte -- )
DUP #40 AND ?&long
#00 SWP !&copy
&long ( byte -- )
#3f AND getc
@copy ( length* -- )
&copy ( length* -- )
.ptr LDZ2 #00 getc INC2 SUB2 STH2
#0004 ADD2 #0000
&l ( -- )