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

Delay clearing high part of literals count until we really have to in 6809 LZSA2 depacker

Browse Source
This commit is contained in:
Doug Masten 2020-06-26 15:56:28 -05:00
parent 99db30a732
commit c0f09db364
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
asm/6809/unlzsa2.s
View File

@ -29,8 +29,7 @@ decompress_lzsa2
lz2token ldb ,x+ ; load next token into B: XYZ|LL|MMM lz2token ldb ,x+ ; load next token into B: XYZ|LL|MMM
pshs b ; save it pshs b ; save it
clra ; clear A (high part of literals count) andb #$18 ; isolate LL (embedded literals count) in B
andb #$18 ; isolate LLL (embedded literals count) in B
beq lz2nolt ; skip if no literals beq lz2nolt ; skip if no literals
cmpb #$18 ; LITERALS_RUN_LEN_V2? cmpb #$18 ; LITERALS_RUN_LEN_V2?
bne lz2declt ; if not, we have the complete count, go unshift bne lz2declt ; if not, we have the complete count, go unshift
@ -38,10 +37,10 @@ lz2token ldb ,x+ ; load next token into B: XYZ|LL|MMM
bsr lz2nibl ; get extra literals length nibble in B bsr lz2nibl ; get extra literals length nibble in B
addb #$03 ; add LITERALS_RUN_LEN_V2 addb #$03 ; add LITERALS_RUN_LEN_V2
cmpb #$12 ; LITERALS_RUN_LEN_V2 + 15 ? cmpb #$12 ; LITERALS_RUN_LEN_V2 + 15 ?
bne lz2gotlt ; if not, we have the full literals count, go copy bne lz2gotla ; if not, we have the full literals count, go copy
addb ,x+ ; add extra literals count byte + LITERALS_RUN_LEN + 15 addb ,x+ ; add extra literals count byte + LITERALS_RUN_LEN + 15
bcc lz2gotlt ; if no overflow, we got the complete count, copy bcc lz2gotla ; if no overflow, we got the complete count, copy
ldb ,x+ ; load low 8 bits of little-endian literals count ldb ,x+ ; load low 8 bits of little-endian literals count
lda ,x+ ; load high 8 bits of literal count lda ,x+ ; load high 8 bits of literal count
@ -50,7 +49,8 @@ lz2token ldb ,x+ ; load next token into B: XYZ|LL|MMM
lz2declt lsrb ; shift literals count into place lz2declt lsrb ; shift literals count into place
lsrb lsrb
lsrb lsrb
lz2gotla clra ; clear A (high part of literals count)
lz2gotlt tfr x,u lz2gotlt tfr x,u
tfr d,x ; transfer 16-bit count into X tfr d,x ; transfer 16-bit count into X
lz2cpylt lda ,u+ ; copy literal byte lz2cpylt lda ,u+ ; copy literal byte