home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / JAMAPI.ZIP / TPAPI.ZIP / JAMCRC32.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-07-01  |  800 b   |  41 lines
  1. (*
  2. **    JAM(mbp) - The Joaquim-Andrew-Mats Message Base Proposal
  3. **
  4. **    Turbo Pascal API
  5. **
  6. **    Written by Joaquim Homrighausen.
  7. **
  8. **    ----------------------------------------------------------------------
  9. **
  10. **    jamcrc32.pas (JAMmb)
  11. **
  12. **    CRC-32 calculation
  13. **
  14. **    Copyright 1993 Joaquim Homrighausen, Andrew Milner, Mats Birch, and
  15. **    Mats Wallin. ALL RIGHTS RESERVED.
  16. **
  17. **    93-06-08    JoHo
  18. **    Initial coding
  19. *)
  20. UNIT JAMCRC32;
  21.  
  22. {$IFNDEF VER55}
  23.     {$A-,B-,E-,D+,L+,F-,I-,N-,O-,R-,S-,V-,X+}
  24. {$ELSE}
  25.     {$A-,B-,E-,D+,L+,F-,I-,N-,O-,R-,S-,V-}
  26. {$ENDIF}
  27.  
  28. INTERFACE
  29.  
  30.     function crc32(VAR Buf; BufLen:WORD; OldCRC:LONGINT):LONGINT;
  31.  
  32. IMPLEMENTATION
  33.  
  34. {$L JCRC32.OBJ}
  35.  
  36.     function crc32(VAR Buf; BufLen:WORD; OldCRC:LONGINT):LONGINT; external;
  37.  
  38. END.
  39.  
  40. (* end of file "jamcrc32.pas" *)
  41.