6502/lzsa
1
0
Fork 0
mirror of https://github.com/emmanuel-marty/lzsa.git synced 2025-01-01 05:31:57 +00:00
Code Issues Projects Releases Wiki Activity

Update fast Z80 decompressor

Browse Source
This commit is contained in:
emmanuel-marty 2019-04-25 17:19:58 +02:00
parent bd6e31b03c
commit 97dd3ffc1f
1 changed files with 21 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
asm/z80/unlzsa_fast_v1.asm
View File

@ -1,5 +1,5 @@
; ;
; Speed-optimized LZSA decompressor by spke (v.1 23-24/04/2019, 134 bytes) ; Speed-optimized LZSA decompressor by spke (v.1 03-25/04/2019, 110 bytes)
; ;
; The data must be comressed using the command line compressor by Emmanuel Marty ; The data must be comressed using the command line compressor by Emmanuel Marty
; The compression is done as follows: ; The compression is done as follows:
@ -19,7 +19,6 @@
; ;
; Drop me an email if you have any comments/ideas/suggestions: zxintrospec@gmail.com ; Drop me an email if you have any comments/ideas/suggestions: zxintrospec@gmail.com
; ;
;
; This software is provided 'as-is', without any express or implied ; This software is provided 'as-is', without any express or implied
; warranty. In no event will the authors be held liable for any damages ; warranty. In no event will the authors be held liable for any damages
; arising from the use of this software. ; arising from the use of this software.
@ -35,29 +34,15 @@
; 2. Altered source versions must be plainly marked as such, and must not be ; 2. Altered source versions must be plainly marked as such, and must not be
; misrepresented as being the original software. ; misrepresented as being the original software.
; 3. This notice may not be removed or altered from any source distribution. ; 3. This notice may not be removed or altered from any source distribution.
;
@DecompressLZSA: @DecompressLZSA:
ld b,0 : jr ReadToken ld b,0 : jr ReadToken
MoreLiterals: ; there are three possible situations here
xor (hl) : inc hl : exa
ld a,7 : add (hl) : inc hl : jr c,ManyLiterals
CopyLiterals: ld c,a
.UseC ldir
push de : ld e,(hl) : inc hl : exa : jp m,LongOffset
ld d,#FF : add 3 : cp 15+3 : jp c,CopyMatch
jr LongerMatch
ManyLiterals:
.code1 ld b,a : ld c,(hl) : inc hl : jr nz,CopyLiterals.UseC
.code0 ld b,(hl) : inc hl : jr CopyLiterals.UseC
NoLiterals: xor (hl) : inc hl NoLiterals: xor (hl) : inc hl
push de : ld e,(hl) : inc hl : jp m,LongOffset push de : ld e,(hl) : inc hl : jp m,LongOffset
ld d,#FF : add 3 : cp 15+3 : jr nc,LongerMatch
; short matches have length 0+3..14+3
ShortOffset: ld d,#FF : add 3 : cp 15+3 : jr nc,LongerMatch
; placed here this saves a JP per iteration ; placed here this saves a JP per iteration
CopyMatch: ld c,a CopyMatch: ld c,a
@ -79,12 +64,11 @@ ReadToken: ; first a byte token "O|LLL|MMMM" is read from the stream,
; next we read the first byte of the offset ; next we read the first byte of the offset
push de : ld e,(hl) : inc hl push de : ld e,(hl) : inc hl
; the top bit of token is set if the offset contains two bytes ; the top bit of token is set if the offset contains two bytes
and #8F : jp m,LongOffset and #8F : jp p,ShortOffset
ShortOffset: ld d,#FF LongOffset: ; read second byte of the offset
ld d,(hl) : inc hl
; short matches have length 0+3..14+3 add -128+3 : cp 15+3 : jp c,CopyMatch
ReadMatchLen: add 3 : cp 15+3 : jp c,CopyMatch
; MMMM=15 indicates a multi-byte number of literals ; MMMM=15 indicates a multi-byte number of literals
LongerMatch: add (hl) : inc hl : jr nc,CopyMatch LongerMatch: add (hl) : inc hl : jr nc,CopyMatch
@ -100,10 +84,18 @@ LongerMatch: add (hl) : inc hl : jr nc,CopyMatch
ld a,b : or c : jr nz,CopyMatch.UseC ld a,b : or c : jr nz,CopyMatch.UseC
pop de : ret pop de : ret
LongOffset: ; read second byte of the offset MoreLiterals: ; there are three possible situations here
ld d,(hl) : inc hl xor (hl) : inc hl : exa
add -128+3 : cp 15+3 : jp c,CopyMatch ld a,7 : add (hl) : inc hl : jr c,ManyLiterals
add (hl) : inc hl : jr nc,CopyMatch
jr LongerMatch.code1 CopyLiterals: ld c,a
.UseC ldir
push de : ld e,(hl) : inc hl
exa : jp p,ShortOffset : jr LongOffset
ManyLiterals:
.code1 ld b,a : ld c,(hl) : inc hl : jr nz,CopyLiterals.UseC
.code0 ld b,(hl) : inc hl : jr CopyLiterals.UseC