mirror of
https://github.com/ondra-novak/gates_of_skeldal.git
synced 2025-07-04 21:50:38 -04:00
55 lines
1 KiB
NASM
55 lines
1 KiB
NASM
.model small
|
|
.386
|
|
;16 bit line (de)comprimator
|
|
;
|
|
DGROUP group _DATA
|
|
|
|
extern _old_value:byte
|
|
extern _compress_dic:dword
|
|
|
|
|
|
_TEXT segment byte public 'CODE' use32
|
|
assume CS:_TEXT
|
|
assume DS:DGROUP
|
|
|
|
|
|
|
|
public fast_expand_code_
|
|
fast_expand_code_:
|
|
cmp eax,256
|
|
jnc expand
|
|
mov esi,[edi]
|
|
inc dword ptr [edi]
|
|
mov bl,al
|
|
add al,_old_value
|
|
mov [esi],al
|
|
mov _old_value,al
|
|
ret
|
|
expand:
|
|
mov ebx,_compress_dic
|
|
lea ecx,[eax*8+ebx]
|
|
movzx eax,word ptr [ecx+4]
|
|
add [edi],eax
|
|
push eax
|
|
mov esi,[edi]
|
|
eloop:movzx eax,word ptr [ecx+2]
|
|
mov [esi],al
|
|
dec esi
|
|
movzx eax,word ptr [ecx]
|
|
lea ecx,[eax*8+ebx]
|
|
cmp eax,256
|
|
jnc eloop
|
|
mov bl,al
|
|
add al,_old_value
|
|
mov [esi],al
|
|
inc dword ptr [edi]
|
|
pop ecx
|
|
elp2:inc esi
|
|
add al,[esi]
|
|
mov [esi],al
|
|
dec ecx
|
|
jnz elp2
|
|
mov _old_value,al
|
|
ret
|
|
_TEXT ends
|
|
end
|