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

Cleanup

This commit is contained in:
neauoire 2023-11-15 15:27:08 -08:00
parent 4f257170f4
commit d2f4f338cc
1 changed files with 8 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
cli/lz/ulzdec.tal
View File

@ -46,23 +46,18 @@
@op-dict ( byte ) @op-dict ( byte )
#7f AND #7f AND
DUP #40 AND ?&dict2 DUP #40 AND ?&dict2
#00 SWP !do-copy #00 SWP !copy
&dict2 ( byte -- ) &dict2 ( byte -- )
#3f AND getc #3f AND getc
@do-copy ( length* -- ) @copy ( length* -- )
( +4 ) #0004 ADD2 ( offset ) .ptr LDZ2 #00 getc INC2 SUB2 ,&offset STR2
( +1 ) getc INC ( length+4 ) #0004 ADD2 #0000
#00 SWP #0000 SWP2 SUB2 .ptr LDZ2 ADD2 STH2 &l ( -- )
#0000 ( get ) DUP2 [ LIT2 &offset $2 ] ADD2 LDA
&l ( put ) .ptr LDZ2 STAk INC2 .ptr STZ2 POP
DUP2 STH2kr ADD2 LDA
.ptr LDZ2 STH2k STA
STH2r INC2 .ptr STZ2
INC2 GTH2k ?&l INC2 GTH2k ?&l
POP2 POP2 POP2 POP2
POP2r
JMP2r JMP2r
( (