(*
**	JAM(mbp) - The Joaquim-Andrew-Mats Message Base Proposal
**
**	Turbo Pascal API
**
**	Written by Joaquim Homrighausen.
**
**	----------------------------------------------------------------------
**
**	jamcrc32.pas (JAMmb)
**
**	CRC-32 calculation
**
**	Copyright 1993 Joaquim Homrighausen, Andrew Milner, Mats Birch, and
**	Mats Wallin. ALL RIGHTS RESERVED.
**
**	93-06-08	JoHo
**	Initial coding
*)
UNIT JAMCRC32;

{$IFNDEF VER55}
	{$A-,B-,E-,D+,L+,F-,I-,N-,O-,R-,S-,V-,X+}
{$ELSE}
	{$A-,B-,E-,D+,L+,F-,I-,N-,O-,R-,S-,V-}
{$ENDIF}

INTERFACE

	function crc32(VAR Buf; BufLen:WORD; OldCRC:LONGINT):LONGINT;

IMPLEMENTATION

{$L JCRC32.OBJ}

	function crc32(VAR Buf; BufLen:WORD; OldCRC:LONGINT):LONGINT; external;

END.

(* end of file "jamcrc32.pas" *)