'===========================================================================
' Subject: 32-BIT CRC CODE FOR PBDLL/PBCC    Date: 06-01-99 (15:43)       
' Author:  Dave Navarro, Jr.                 Code: PBCC, PBDLL            
' Origin:  dave@powerbasic.com             Packet: PBCC.ABC
'===========================================================================
'==============================================================================
'
'  32-bit CRC code for PB/DLL and PB/CC
'  Copyright (c) 1998 PowerBASIC, Inc.
'
'  Calculates a 32-bit CRC compatible with PKZIP and ZMODEM.
'
'==============================================================================

FUNCTION Crc32(BYVAL Address AS DWORD, _
               BYVAL Length AS LONG, _
               BYVAL Seed AS LONG) AS LONG

  ! mov     ESI,Address             ; address in ESI
  ! mov     EDX,Seed                ; put seed in EDX
  ! mov     ECX,Length              ; length in ECX
  ! jecxz   CrcDone                 ;
  ! xor     EBX, EBX                ; clear EBX
CRCLoop:
  ! lodsb                           ; get next byte from data block
  ! movzx   EBX,DX                  ; put low word of CRC in BX
  ! xor     BL,AL                   ; xor byte with BL
  ! shr     EDX,8                   ; clear high 8 bits of EDX
  ! shl     EBX,2                   ; multiply BX * 4
  ! xor     EDX, CS:CrcTable[EBX]   ;
  ! loop    CRCLoop                 ; loop until ecx=0
CrcDone:
  ! mov     FUNCTION, EDX           ;

  EXIT FUNCTION

CrcTable:
  ! DD &H000000000&, &H077073096&, &H0EE0E612C&, &H0990951BA&
  ! DD &H0076DC419&, &H0706AF48F&, &H0E963A535&, &H09E6495A3&
  ! DD &H00EDB8832&, &H079DCB8A4&, &H0E0D5E91E&, &H097D2D988&
  ! DD &H009B64C2B&, &H07EB17CBD&, &H0E7B82D07&, &H090BF1D91&
  ! DD &H01DB71064&, &H06AB020F2&, &H0F3B97148&, &H084BE41DE&
  ! DD &H01ADAD47D&, &H06DDDE4EB&, &H0F4D4B551&, &H083D385C7&
  ! DD &H0136C9856&, &H0646BA8C0&, &H0FD62F97A&, &H08A65C9EC&
  ! DD &H014015C4F&, &H063066CD9&, &H0FA0F3D63&, &H08D080DF5&
  ! DD &H03B6E20C8&, &H04C69105E&, &H0D56041E4&, &H0A2677172&
  ! DD &H03C03E4D1&, &H04B04D447&, &H0D20D85FD&, &H0A50AB56B&
  ! DD &H035B5A8FA&, &H042B2986C&, &H0DBBBC9D6&, &H0ACBCF940&
  ! DD &H032D86CE3&, &H045DF5C75&, &H0DCD60DCF&, &H0ABD13D59&
  ! DD &H026D930AC&, &H051DE003A&, &H0C8D75180&, &H0BFD06116&
  ! DD &H021B4F4B5&, &H056B3C423&, &H0CFBA9599&, &H0B8BDA50F&
  ! DD &H02802B89E&, &H05F058808&, &H0C60CD9B2&, &H0B10BE924&
  ! DD &H02F6F7C87&, &H058684C11&, &H0C1611DAB&, &H0B6662D3D&
  ! DD &H076DC4190&, &H001DB7106&, &H098D220BC&, &H0EFD5102A&
  ! DD &H071B18589&, &H006B6B51F&, &H09FBFE4A5&, &H0E8B8D433&
  ! DD &H07807C9A2&, &H00F00F934&, &H09609A88E&, &H0E10E9818&
  ! DD &H07F6A0DBB&, &H0086D3D2D&, &H091646C97&, &H0E6635C01&
  ! DD &H06B6B51F4&, &H01C6C6162&, &H0856530D8&, &H0F262004E&
  ! DD &H06C0695ED&, &H01B01A57B&, &H08208F4C1&, &H0F50FC457&
  ! DD &H065B0D9C6&, &H012B7E950&, &H08BBEB8EA&, &H0FCB9887C&
  ! DD &H062DD1DDF&, &H015DA2D49&, &H08CD37CF3&, &H0FBD44C65&
  ! DD &H04DB26158&, &H03AB551CE&, &H0A3BC0074&, &H0D4BB30E2&
  ! DD &H04ADFA541&, &H03DD895D7&, &H0A4D1C46D&, &H0D3D6F4FB&
  ! DD &H04369E96A&, &H0346ED9FC&, &H0AD678846&, &H0DA60B8D0&
  ! DD &H044042D73&, &H033031DE5&, &H0AA0A4C5F&, &H0DD0D7CC9&
  ! DD &H05005713C&, &H0270241AA&, &H0BE0B1010&, &H0C90C2086&
  ! DD &H05768B525&, &H0206F85B3&, &H0B966D409&, &H0CE61E49F&
  ! DD &H05EDEF90E&, &H029D9C998&, &H0B0D09822&, &H0C7D7A8B4&
  ! DD &H059B33D17&, &H02EB40D81&, &H0B7BD5C3B&, &H0C0BA6CAD&
  ! DD &H0EDB88320&, &H09ABFB3B6&, &H003B6E20C&, &H074B1D29A&
  ! DD &H0EAD54739&, &H09DD277AF&, &H004DB2615&, &H073DC1683&
  ! DD &H0E3630B12&, &H094643B84&, &H00D6D6A3E&, &H07A6A5AA8&
  ! DD &H0E40ECF0B&, &H09309FF9D&, &H00A00AE27&, &H07D079EB1&
  ! DD &H0F00F9344&, &H08708A3D2&, &H01E01F268&, &H06906C2FE&
  ! DD &H0F762575D&, &H0806567CB&, &H0196C3671&, &H06E6B06E7&
  ! DD &H0FED41B76&, &H089D32BE0&, &H010DA7A5A&, &H067DD4ACC&
  ! DD &H0F9B9DF6F&, &H08EBEEFF9&, &H017B7BE43&, &H060B08ED5&
  ! DD &H0D6D6A3E8&, &H0A1D1937E&, &H038D8C2C4&, &H04FDFF252&
  ! DD &H0D1BB67F1&, &H0A6BC5767&, &H03FB506DD&, &H048B2364B&
  ! DD &H0D80D2BDA&, &H0AF0A1B4C&, &H036034AF6&, &H041047A60&
  ! DD &H0DF60EFC3&, &H0A867DF55&, &H0316E8EEF&, &H04669BE79&
  ! DD &H0CB61B38C&, &H0BC66831A&, &H0256FD2A0&, &H05268E236&
  ! DD &H0CC0C7795&, &H0BB0B4703&, &H0220216B9&, &H05505262F&
  ! DD &H0C5BA3BBE&, &H0B2BD0B28&, &H02BB45A92&, &H05CB36A04&
  ! DD &H0C2D7FFA7&, &H0B5D0CF31&, &H02CD99E8B&, &H05BDEAE1D&
  ! DD &H09B64C2B0&, &H0EC63F226&, &H0756AA39C&, &H0026D930A&
  ! DD &H09C0906A9&, &H0EB0E363F&, &H072076785&, &H005005713&
  ! DD &H095BF4A82&, &H0E2B87A14&, &H07BB12BAE&, &H00CB61B38&
  ! DD &H092D28E9B&, &H0E5D5BE0D&, &H07CDCEFB7&, &H00BDBDF21&
  ! DD &H086D3D2D4&, &H0F1D4E242&, &H068DDB3F8&, &H01FDA836E&
  ! DD &H081BE16CD&, &H0F6B9265B&, &H06FB077E1&, &H018B74777&
  ! DD &H088085AE6&, &H0FF0F6A70&, &H066063BCA&, &H011010B5C&
  ! DD &H08F659EFF&, &H0F862AE69&, &H0616BFFD3&, &H0166CCF45&
  ! DD &H0A00AE278&, &H0D70DD2EE&, &H04E048354&, &H03903B3C2&
  ! DD &H0A7672661&, &H0D06016F7&, &H04969474D&, &H03E6E77DB&
  ! DD &H0AED16A4A&, &H0D9D65ADC&, &H040DF0B66&, &H037D83BF0&
  ! DD &H0A9BCAE53&, &H0DEBB9EC5&, &H047B2CF7F&, &H030B5FFE9&
  ! DD &H0BDBDF21C&, &H0CABAC28A&, &H053B39330&, &H024B4A3A6&
  ! DD &H0BAD03605&, &H0CDD70693&, &H054DE5729&, &H023D967BF&
  ! DD &H0B3667A2E&, &H0C4614AB8&, &H05D681B02&, &H02A6F2B94&
  ! DD &H0B40BBE37&, &H0C30C8EA1&, &H05A05DF1B&, &H02D02EF8D&

END FUNCTION