MirrorRepos/RomWBW
1
0
Fork 1
mirror of https://github.com/wwarthen/RomWBW.git synced 2026-02-06 22:43:15 -06:00
Code Issues Projects Releases Wiki Activity

Update unlzsa2s.asm

Browse Source
This commit is contained in:
b1ackmai1er
2023-01-07 08:02:32 +08:00
parent 3aed60afe2
commit 3603ef9c9d
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Source/HBIOS/unlzsa2s.asm
View File

@@ -87,7 +87,7 @@
DLZSA2:
; in many places we assume that B = 0
; flag P in A' signals the need to re-load the nibble store
xor a : ld b,a : exa : jr .ReadToken
xor a \ ld b,a \ ex af,af' \ jr ReadToken
CASE00x: ; token "00Z" stands for 5-bit offsets
; (read a nibble for offset bits 1-4 and use the inverted bit Z
@@ -113,7 +113,7 @@ SaveOffset: ld (PrevOffset),bc \ ld b,0
SaveOffset: push bc \ pop ix \ ld b,0
#ENDIF
MatchLen: and %00000111 \ add 2 \ cp 9
MatchLen: and %00000111 \ add a,2 \ cp 9
call z,ExtendedCode
CopyMatch: ld c,a
@@ -158,16 +158,16 @@ CASE10x: ; token "10Z" stands for 13-bit offsets
ExtendedCode: call ReadNibble \ inc a \ jr z,ExtraByte
sub #F0+1 \ add c \ ret
ExtraByte ld a,15 \ add c \ add (hl) \ NEXT_HL \ ret nc
sub $F0+1 \ add a,c \ ret
ExtraByte ld a,15 \ add a,c \ add a,(hl) \ NEXT_HL \ ret nc
ld a,(hl) \ NEXT_HL
ld b,(hl) \ NEXT_HL \ ret nz
pop bc ; RET is not needed, because RET from ReadNibble is sufficient
ReadNibble: ld c,a
skipLDCA xor a \ exa \ ret m
ld a,(hl) \ or #F0 \ exa
ld a,(hl) \ NEXT_HL \ or #0F
skipLDCA xor a \ ex af,af' \ ret m
ld a,(hl) \ or $F0 \ ex af,af'
ld a,(hl) \ NEXT_HL \ or $0F
rrca \ rrca \ rrca \ rrca \ ret