;=========================================================================== ; Copyright (c) 1990-2007 Info-ZIP. All rights reserved. ; ; See the accompanying file LICENSE, version 2000-Apr-09 or later ; (the contents of which are also included in zip.h) for terms of use. ; If, for some reason, all these files are missing, the Info-ZIP license ; also may be found at: ftp://ftp.info-zip.org/pub/infozip/license.html ;=========================================================================== ; crc_i386.asm, optimized CRC calculation function for Zip and UnZip, ; created by Paul Kienitz and Christian Spieler. Last revised 07 Jan 2007. ; ; Revised 06-Oct-96, Scott Field (sfield@microsoft.com) ; fixed to assemble with masm by not using .model directive which makes ; assumptions about segment alignment. Also, ; avoid using loop, and j[e]cxz where possible. Use mov + inc, rather ; than lodsb, and other misc. changes resulting in the following performance ; increases: ; ; unrolled loops NO_UNROLLED_LOOPS ; *8 >8 <8 *8 >8 <8 ; ; +54% +42% +35% +82% +52% +25% ; ; first item in each table is input buffer length, even multiple of 8 ; second item in each table is input buffer length, > 8 ; third item in each table is input buffer length, < 8 ; ; Revised 02-Apr-97, Chr. Spieler, based on Rodney Brown (rdb@cmutual.com.au) ; Incorporated Rodney Brown's 32-bit-reads optimization as found in the ; UNIX AS source crc_i386.S. This new code can be disabled by defining ; the macro symbol NO_32_BIT_LOADS. ; ; Revised 12-Oct-97, Chr. Spieler, based on Rodney Brown (rdb@cmutual.com.au) ; Incorporated Rodney Brown's additional tweaks for 32-bit-optimized CPUs ; (like the Pentium Pro, Pentium II, and probably some Pentium clones). ; This optimization is controlled by the macro symbol __686 and is disabled ; by default. (This default is based on the assumption that most users ; do not yet work on a Pentium Pro or Pentium II machine ...) ; ; Revised 25-Mar-98, Cosmin Truta (cosmint@cs.ubbcluj.ro) ; Working without .model directive caused tasm32 version 5.0 to produce ; bad object code. The optimized alignments can be optionally disabled ; by defining NO_ALIGN, thus allowing to use .model flat. There is no need ; to define this macro if using other versions of tasm. ; ; Revised 16-Jan-2005, Cosmin Truta (cosmint@cs.ubbcluj.ro) ; Enabled the 686 build by default, because there are hardly any pre-686 CPUs ; in serious use nowadays. (See the 12-Oct-97 note above.) ; ; Revised 03-Jan-2006, Chr. Spieler ; Enlarged unrolling loops to "do 16 bytes per turn"; optimized access to ; data buffer in loop body (adjust pointer only once in loop body and use ; offsets to access each item); added additional support for the "unfolded ; tables" optimization variant (enabled by IZ_CRCOPTIM_UNFOLDTBL). ; ; Revised 07-Jan-2007, Chr. Spieler ; Recognize additional conditional flag CRC_TABLE_ONLY that prevents ; compilation of the crc32() function. ; ; FLAT memory model assumed. ; ; Loop unrolling can be disabled by defining the macro NO_UNROLLED_LOOPS. ; This results in shorter code at the expense of reduced performance. ; ;============================================================================== ; ; Do NOT assemble this source if external crc32 routine from zlib gets used, ; or only the precomputed CRC_32_Table is needed. ; ; .386p name crc_i386 extrn _get_crc_table:near ; ZCONST ulg near *get_crc_table(void); ; ; Use a `standard' stack frame setup on routine entry and exit. ; Actually, this option is set as default, because it results ; in smaller code !! STD_ENTRY MACRO push ebp mov ebp,esp ENDM Arg1 EQU 08H[ebp] Arg2 EQU 0CH[ebp] Arg3 EQU 10H[ebp] STD_LEAVE MACRO pop ebp ENDM ; These two (three) macros make up the loop body of the CRC32 cruncher. ; registers modified: ; eax : crc value "c" ; esi : pointer to next data byte (or dword) "buf++" ; registers read: ; edi : pointer to base of crc_table array ; scratch registers: ; ebx : index into crc_table array ; (requires upper three bytes = 0 when __686 is undefined) Do_CRC MACRO mov bl,al ; tmp = c & 0xFF shr eax,8 ; c = (c >> 8) xor eax,[edi+ebx*4] ; ^ table[tmp] ENDM Do_CRC_byte MACRO xor al, byte ptr [esi] ; c ^= *buf inc esi ; buf++ Do_CRC ; c = (c >> 8) ^ table[c & 0xFF] ENDM Do_CRC_byteof MACRO ofs xor al, byte ptr [esi+ofs] ; c ^= *(buf+ofs) Do_CRC ; c = (c >> 8) ^ table[c & 0xFF] ENDM ; the edx register is not needed anywhere else SavLen EQU edx UpdCRC_dword MACRO Do_CRC Do_CRC Do_CRC Do_CRC ENDM UpdCRC_dword_sh MACRO dwPtrIncr Do_CRC Do_CRC add esi, 4*dwPtrIncr ; ((ulg *)buf) += dwPtrIncr Do_CRC Do_CRC ENDM Do_CRC_dword MACRO xor eax, dword ptr [esi] ; c ^= *(ulg *)buf UpdCRC_dword_sh 1 ; ... ((ulg *)buf)++ ENDM Do_CRC_4dword MACRO xor eax, dword ptr [esi] ; c ^= *(ulg *)buf UpdCRC_dword xor eax, dword ptr [esi+4] ; c ^= *((ulg *)buf+1) UpdCRC_dword xor eax, dword ptr [esi+8] ; c ^= *((ulg *)buf+2) UpdCRC_dword xor eax, dword ptr [esi+12] ; c ^= *((ulg *)buf]+3 UpdCRC_dword_sh 4 ; ... ((ulg *)buf)+=4 ENDM _TEXT segment use32 para public 'CODE' assume CS: _TEXT public _crc32 _crc32 proc near ; ulg crc32(ulg crc, ZCONST uch *buf, extent len) STD_ENTRY push edi push esi push ebx push edx push ecx mov esi,Arg2 ; 2nd arg: uch *buf sub eax,eax ;> if (!buf) test esi,esi ;> return 0; jz fine ;> else { call _get_crc_table mov edi,eax mov eax,Arg1 ; 1st arg: ulg crc sub ebx,ebx ; ebx=0; make bl usable as a dword mov ecx,Arg3 ; 3rd arg: extent len not eax ;> c = ~crc; test ecx,ecx jz bail align_loop: test esi,3 ; align buf pointer on next jz SHORT aligned_now ; dword boundary Do_CRC_byte dec ecx jnz align_loop aligned_now: mov SavLen,ecx ; save current len for later shr ecx,4 ; ecx = len / 16 jz No_Sixteens ; align loop head at start of 486 internal cache line !! align 16 Next_Sixteen: Do_CRC_4dword dec ecx jnz Next_Sixteen No_Sixteens: mov ecx,SavLen and ecx,00000000FH ; ecx = len % 16 shr ecx,2 ; ecx = len / 4 jz SHORT No_Fours Next_Four: Do_CRC_dword dec ecx jnz Next_Four No_Fours: mov ecx,SavLen and ecx,000000003H ; ecx = len % 4 jz SHORT bail ;> if (len) ; align loop head at start of 486 internal cache line !! align 16 loupe: ;> do { Do_CRC_byte ; c = CRC32(c,*buf++,crctab); dec ecx ;> } while (--len); jnz loupe bail: ;> } not eax ;> return ~c; fine: pop ecx pop edx pop ebx pop esi pop edi STD_LEAVE ret _crc32 endp _TEXT ends end