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

Cleaned up ulzdec.tal

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

8
cli/lz/ulzdec.tal
View File

@ -51,13 +51,13 @@
#3f AND getc
@copy ( length* -- )
( offset ) .ptr LDZ2 #00 getc INC2 SUB2 ,&offset STR2
( length+4 ) #0004 ADD2 #0000
.ptr LDZ2 #00 getc INC2 SUB2 STH2
#0004 ADD2 #0000
&l ( -- )
( get ) DUP2 [ LIT2 &offset $2 ] ADD2 LDA
( get ) DUP2 STH2kr ADD2 LDA
( put ) .ptr LDZ2 STAk INC2 .ptr STZ2 POP
INC2 GTH2k ?&l
POP2 POP2
POP2 POP2 POP2r
JMP2r
(