| 0,0 → 1,179 |
|---|
| format MS COFF |
| public EXPORTS |
| |
| section '.flat' code readable align 16 |
| |
| include '../../../../proc32.inc' |
| include '../../../../macros.inc' |
| include '../../../../KOSfuncs.inc' |
| |
| FASTEST equ 1 |
| GEN_TREES_H equ 0 |
| DEBUG equ 0 |
| DYNAMIC_CRC_TABLE equ 1 |
| |
| ; define NO_GZIP when compiling if you want to disable gzip header and |
| ; trailer creation by deflate(). NO_GZIP would be used to avoid linking in |
| ; the crc code when it is not needed. For shared libraries, gzip encoding |
| ; should be left enabled. |
| GZIP equ 1 |
| |
| macro zlib_debug fmt,p1 |
| { |
| local .end_t |
| local .m_fmt |
| jmp .end_t |
| .m_fmt db fmt,13,10,0 |
| align 4 |
| .end_t: |
| if p1 eq |
| stdcall dbg_print,0,.m_fmt |
| else |
| stdcall str_format_dbg, buf_param,.m_fmt,p1 |
| end if |
| } |
| |
| include 'zlib.inc' |
| include 'deflate.inc' |
| include 'zutil.asm' |
| include 'crc32.asm' |
| include 'adler32.asm' |
| include 'trees.asm' |
| include 'deflate.asm' |
| |
| align 4 |
| buf_param rb 80 |
| |
| align 4 |
| proc dbg_print, fun:dword, mes:dword |
| pushad |
| mov eax,SF_BOARD |
| mov ebx,SSF_DEBUG_WRITE |
| |
| mov esi,[fun] |
| cmp esi,0 |
| je .end0 |
| @@: |
| mov cl,byte[esi] |
| int 0x40 |
| inc esi |
| cmp byte[esi],0 |
| jne @b |
| mov cl,':' |
| int 0x40 |
| mov cl,' ' |
| int 0x40 |
| .end0: |
| mov esi,[mes] |
| cmp esi,0 |
| je .end_f |
| @@: |
| mov cl,byte[esi] |
| cmp cl,0 |
| je .end_f |
| int 0x40 |
| inc esi |
| jmp @b |
| .end_f: |
| popad |
| ret |
| endp |
| |
| align 4 |
| proc str_format_dbg, buf:dword, fmt:dword, p1:dword |
| pushad |
| mov esi,[fmt] |
| mov edi,[buf] |
| mov ecx,80-1 |
| .cycle0: |
| lodsb |
| cmp al,'%' |
| jne .no_param |
| lodsb |
| dec ecx |
| cmp al,0 |
| je .cycle0end |
| cmp al,'d' |
| je @f |
| cmp al,'u' |
| je @f |
| cmp al,'l' |
| je .end1 |
| jmp .end0 |
| .end1: ;%lu %lx |
| lodsb |
| dec ecx |
| cmp al,'u' |
| jne .end0 |
| @@: |
| mov eax,[p1] |
| stdcall convert_int_to_str,ecx |
| xor al,al |
| repne scasb |
| dec edi |
| .end0: |
| loop .cycle0 |
| .no_param: |
| stosb |
| cmp al,0 |
| je .cycle0end |
| loop .cycle0 |
| .cycle0end: |
| xor al,al |
| stosb |
| stdcall dbg_print,0,[buf] |
| popad |
| ret |
| endp |
| |
| ;input: |
| ; eax - число |
| ; edi - буфер для строки |
| ; len - длинна буфера |
| ;output: |
| align 4 |
| proc convert_int_to_str, len:dword |
| pushad |
| mov esi,[len] |
| add esi,edi |
| dec esi |
| call .str |
| popad |
| ret |
| endp |
| |
| align 4 |
| .str: |
| mov ecx,0x0a |
| cmp eax,ecx |
| jb @f |
| xor edx,edx |
| div ecx |
| push edx |
| call .str |
| pop eax |
| @@: |
| cmp edi,esi |
| jge @f |
| or al,0x30 |
| stosb |
| mov byte[edi],0 |
| @@: |
| ret |
| |
| ; export table |
| align 4 |
| EXPORTS: |
| dd adeflateInit, deflateInit |
| dd adeflateInit2, deflateInit2 |
| dd adeflateReset, deflateReset |
| dd adeflate, deflate |
| dd adeflateEnd, deflateEnd |
| dd 0 |
| |
| ; exported names |
| adeflateInit db 'deflateInit',0 |
| adeflateInit2 db 'deflateInit2',0 |
| adeflateReset db 'deflateReset',0 |
| adeflate db 'deflate',0 |
| adeflateEnd db 'deflateEnd',0 |