174 lines
2.4 KiB
NASM
174 lines
2.4 KiB
NASM
|
;Exomizer3 Intel 8088/86 decoder version by Ivan Gorodetsky
|
||
|
|
;Compression algorithm by Magnus Lind
|
||
|
|
;
|
||
|
|
;Memory model - Tiny
|
||
|
|
;input: si=compressed data start
|
||
|
|
; di=uncompressed destination start
|
||
|
|
; you may change exo_mapbasebits to point to any 256-byte aligned free buffer
|
||
|
|
;
|
||
|
|
;v1.1 - 2019-10-28
|
||
|
|
;
|
||
|
|
;compress with <raw -P47> options (with BACKWARD equ 0)
|
||
|
|
;compress with <raw -P47 -b> options (with BACKWARD equ 1)
|
||
|
|
;212 bytes
|
||
|
|
;
|
||
|
|
;Compile with flat assembler (FASM)
|
||
|
|
|
||
|
|
|
||
|
|
BACKWARD equ 0
|
||
|
|
|
||
|
|
macro SetDir {
|
||
|
|
if BACKWARD eq 1
|
||
|
|
std
|
||
|
|
else
|
||
|
|
cld
|
||
|
|
end if
|
||
|
|
}
|
||
|
|
|
||
|
|
macro NextSI {
|
||
|
|
if BACKWARD eq 1
|
||
|
|
dec si
|
||
|
|
else
|
||
|
|
inc si
|
||
|
|
end if
|
||
|
|
}
|
||
|
|
|
||
|
|
macro AddOffset {
|
||
|
|
if BACKWARD eq 1
|
||
|
|
add si,bp
|
||
|
|
else
|
||
|
|
sub si,bp
|
||
|
|
end if
|
||
|
|
}
|
||
|
|
|
||
|
|
macro GetBit {
|
||
|
|
add al,al
|
||
|
|
jnz $+5
|
||
|
|
lodsb
|
||
|
|
adc al,al
|
||
|
|
}
|
||
|
|
|
||
|
|
exo_table equ 0
|
||
|
|
|
||
|
|
deexo:
|
||
|
|
mov ax,0180h
|
||
|
|
mov bx,exo_table
|
||
|
|
xor ch,ch
|
||
|
|
SetDir
|
||
|
|
push di
|
||
|
|
exo_initable:
|
||
|
|
test bl,63
|
||
|
|
jnz exo_node1
|
||
|
|
mov di,1
|
||
|
|
exo_node1:
|
||
|
|
mov cl,4
|
||
|
|
call exo_getbits
|
||
|
|
mov cl,dl
|
||
|
|
ror cl,1
|
||
|
|
mov [bx],cl
|
||
|
|
jnc exo_skipPlus8
|
||
|
|
add cl,-128+8
|
||
|
|
exo_skipPlus8:
|
||
|
|
mov bp,1
|
||
|
|
shl bp,cl
|
||
|
|
inc bx
|
||
|
|
inc bx
|
||
|
|
mov [bx],di
|
||
|
|
inc bx
|
||
|
|
inc bx
|
||
|
|
add di,bp
|
||
|
|
cmp bl,52*4
|
||
|
|
jnz exo_initable
|
||
|
|
pop di
|
||
|
|
xor cx,cx
|
||
|
|
exo_literalcopy1:
|
||
|
|
movsb
|
||
|
|
stc
|
||
|
|
exo_mainloop:
|
||
|
|
adc ah,ah
|
||
|
|
GetBit
|
||
|
|
jc exo_literalcopy1
|
||
|
|
dec cx
|
||
|
|
exo_getindex:
|
||
|
|
inc cx
|
||
|
|
GetBit
|
||
|
|
jnc exo_getindex
|
||
|
|
cmp cl,16
|
||
|
|
jc exo_continue
|
||
|
|
jz exo_ret
|
||
|
|
mov ch,[si]
|
||
|
|
NextSI
|
||
|
|
mov cl,[si]
|
||
|
|
NextSI
|
||
|
|
exo_literalcopy:
|
||
|
|
rep movsb
|
||
|
|
stc
|
||
|
|
jmp exo_mainloop
|
||
|
|
exo_continue:
|
||
|
|
mov bl,cl
|
||
|
|
call exo_getpair
|
||
|
|
mov cl,ah
|
||
|
|
and cl,3
|
||
|
|
dec cl
|
||
|
|
jnz not_reuse_offset
|
||
|
|
GetBit
|
||
|
|
jnc not_reuse_offset
|
||
|
|
mov cx,dx
|
||
|
|
jmp reuse_offset
|
||
|
|
not_reuse_offset:
|
||
|
|
push dx
|
||
|
|
mov cl,02h
|
||
|
|
mov bl,30h
|
||
|
|
dec dx
|
||
|
|
jz exo_gogetbits
|
||
|
|
mov cl,04h
|
||
|
|
mov bl,20h
|
||
|
|
dec dx
|
||
|
|
jz exo_gogetbits
|
||
|
|
mov bl,10h
|
||
|
|
exo_gogetbits:
|
||
|
|
call exo_getbits
|
||
|
|
add bl,dl
|
||
|
|
call exo_getpair
|
||
|
|
mov bp,dx
|
||
|
|
pop cx
|
||
|
|
reuse_offset:
|
||
|
|
mov dx,si
|
||
|
|
mov si,di
|
||
|
|
AddOffset
|
||
|
|
rep movsb
|
||
|
|
mov si,dx
|
||
|
|
jmp exo_mainloop
|
||
|
|
|
||
|
|
exo_getpair:
|
||
|
|
add bl,bl
|
||
|
|
add bl,bl
|
||
|
|
mov cl,[bx]
|
||
|
|
call exo_getbits
|
||
|
|
inc bx
|
||
|
|
inc bx
|
||
|
|
add dx,[bx]
|
||
|
|
ret
|
||
|
|
|
||
|
|
exo_getbits:
|
||
|
|
xor dx,dx
|
||
|
|
test cl,cl
|
||
|
|
jz exo_ret
|
||
|
|
jns exo_gettingbits
|
||
|
|
and cl,7Fh
|
||
|
|
jz GT7z
|
||
|
|
call exo_gettingbits
|
||
|
|
mov dh,dl
|
||
|
|
GT7z:
|
||
|
|
mov dl,[si]
|
||
|
|
NextSI
|
||
|
|
ret
|
||
|
|
exo_gettingbits:
|
||
|
|
GetBit
|
||
|
|
adc dx,dx
|
||
|
|
loop exo_gettingbits
|
||
|
|
exo_ret:
|
||
|
|
ret
|
||
|
|
|
||
|
|
|