开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 磁盘/存储 > SCSI/ASPI > 查看源码
crcmodel.c
资源名称：cdrdao-1.1.3.src.tar.gz　[点击查看]
上传用户：weiliju62
上传日期：2007-01-06
资源大小：619k
文件大小：5k
源码类别：

SCSI/ASPI

开发平台：

MultiPlatform

crcmodel.c：源码内容
  1. /****************************************************************************/
  2. /*                             Start of crcmodel.c                          */
  3. /****************************************************************************/
  4. /*                                                                          */
  5. /* Author : Ross Williams (ross@guest.adelaide.edu.au.).                    */
  6. /* Date   : 3 June 1993.                                                    */
  7. /* Status : Public domain.                                                  */
  8. /*                                                                          */
  9. /* Description : This is the implementation (.c) file for the reference     */
  10. /* implementation of the Rocksoft^tm Model CRC Algorithm. For more          */
  11. /* information on the Rocksoft^tm Model CRC Algorithm, see the document     */
  12. /* titled "A Painless Guide to CRC Error Detection Algorithms" by Ross      */
  13. /* Williams (ross@guest.adelaide.edu.au.). This document is likely to be in */
  14. /* "ftp.adelaide.edu.au/pub/rocksoft".                                      */
  15. /*                                                                          */
  16. /* Note: Rocksoft is a trademark of Rocksoft Pty Ltd, Adelaide, Australia.  */
  17. /*                                                                          */
  18. /****************************************************************************/
  19. /*                                                                          */
  20. /* Implementation Notes                                                     */
  21. /* --------------------                                                     */
  22. /* To avoid inconsistencies, the specification of each function is not      */
  23. /* echoed here. See the header file for a description of these functions.   */
  24. /* This package is light on checking because I want to keep it short and    */
  25. /* simple and portable (i.e. it would be too messy to distribute my entire  */
  26. /* C culture (e.g. assertions package) with this package.                   */
  27. /*                                                                          */
  28. /****************************************************************************/
  30. #include "crcmodel.h"
  32. /****************************************************************************/
  33. /* The following definitions make the code more readable.                   */
  35. #define BITMASK(X) (1L << (X))
  36. #define MASK32 0xFFFFFFFFL
  37. #define LOCAL static
  39. /****************************************************************************/
  41. LOCAL ulong reflect P_((ulong v,int b));
  42. LOCAL ulong reflect (v,b)
  44. /* Returns the value v with the bottom b [0,32] bits reflected. */
  45. /* Example: reflect(0x3e23L,3) == 0x3e26                        */
  47. ulong v;
  48. int   b;
  49. {
  50.  int   i;
  51.  ulong t = v;
  52.  for (i=0; i<b; i++)
  53.    {
  54.     if (t & 1L)
  55.        v|=  BITMASK((b-1)-i);
  56.     else
  57.        v&= ~BITMASK((b-1)-i);
  59.     t>>=1;
  61.    }
  62.  return v;
  63. }
  65. /****************************************************************************/
  67. LOCAL ulong widmask P_((p_cm_t));
  68. LOCAL ulong widmask (p_cm)
  69. /* Returns a longword whose value is (2^p_cm->cm_width)-1.     */
  70. /* The trick is to do this portably (e.g. without doing <<32). */
  71. p_cm_t p_cm;
  72. {
  73.  return (((1L<<(p_cm->cm_width-1))-1L)<<1)|1L;
  74. }
  76. /****************************************************************************/
  78. void cm_ini (p_cm)
  79. p_cm_t p_cm;
  80. {
  81.  p_cm->cm_reg = p_cm->cm_init;
  82. }
  84. /****************************************************************************/
  86. void cm_nxt (p_cm,ch)
  87. p_cm_t p_cm;
  88. int    ch;
  89. {
  90.  int   i;
  91.  ulong uch  = (ulong) ch;
  92.  ulong topbit = BITMASK(p_cm->cm_width-1);
  94.  if (p_cm->cm_refin) uch = reflect(uch,8);
  95.  p_cm->cm_reg ^= (uch << (p_cm->cm_width-8));
  96.  for (i=0; i<8; i++)
  97.    {
  98.     if (p_cm->cm_reg & topbit)
  99.        p_cm->cm_reg = (p_cm->cm_reg << 1) ^ p_cm->cm_poly;
  100.     else
  101.        p_cm->cm_reg <<= 1;
  102.     p_cm->cm_reg &= widmask(p_cm);
  103.    }
  104. }
  106. /****************************************************************************/
  108. void cm_blk (p_cm,blk_adr,blk_len)
  109. p_cm_t   p_cm;
  110. p_ubyte_ blk_adr;
  111. ulong    blk_len;
  112. {
  113.  while (blk_len--) cm_nxt(p_cm,*blk_adr++);
  114. }
  116. /****************************************************************************/
  118. ulong cm_crc (p_cm)
  119. p_cm_t p_cm;
  120. {
  121.  if (p_cm->cm_refot)
  122.     return p_cm->cm_xorot ^ reflect(p_cm->cm_reg,p_cm->cm_width);
  123.  else
  124.     return p_cm->cm_xorot ^ p_cm->cm_reg;
  125. }
  127. /****************************************************************************/
  129. ulong cm_tab (p_cm,index)
  130. p_cm_t p_cm;
  131. int    index;
  132. {
  133.  int   i;
  134.  ulong r;
  135.  ulong topbit = BITMASK(p_cm->cm_width-1);
  136.  ulong inbyte = (ulong) index;
  138.  if (p_cm->cm_refin) inbyte = reflect(inbyte,8);
  139.  r = inbyte << (p_cm->cm_width-8);
  140.  for (i=0; i<8; i++)
  141.     if (r & topbit)
  142.        r = (r << 1) ^ p_cm->cm_poly;
  143.     else
  144.        r<<=1;
  145.  if (p_cm->cm_refin) r = reflect(r,p_cm->cm_width);
  146.  return r & widmask(p_cm);
  147. }
  149. /****************************************************************************/
  150. /*                             End of crcmodel.c                            */
  151. /****************************************************************************/