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

21
cli/lz/ulzdec.tal
View File

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