src/INFN/CM_Common_INFN.c

/****************************************************************************
 *  F i l e   D a t a                                                        
 *  $Id: CM_Common_INFN.c,v 1.13 2005/03/20 18:18:57 sebastiani Exp $
 *  $Revision: 1.13 $
 *  $Date: 2005/03/20 18:18:57 $
 *  $RCSfile: CM_Common_INFN.c,v $
 *                                                                           
 ****************************************************************************
 *  S W   D e v e l o p m e n t   E n v i r o n m e n t                      
 *                                                                           
 *  $Author: sebastiani $
 *               :                                                           
 ****************************************************************************
 *  U p d a t i n g                                                          
 *                                                                           
 *  $Log: CM_Common_INFN.c,v $
 *  Revision 1.13  2005/03/20 18:18:57  sebastiani
 *  *** empty log message ***
 *
 *  Revision 1.12  2005/02/19 10:19:38  sebastiani
 *  ALM_S4_CALIB_00_HARD,ALM_S4_CALIB_00_SOFT,ALM_S4_128TRIGGER_0 added
 *
 *  Revision 1.11  2005/01/11 13:59:21  faber
 *  Random number support introduced
 *
 *  Revision 1.10  2004/11/05 09:36:35  sebastiani
 *  first version of the PM state machine. tried but not deeply tested
 *
 *  Revision 1.9  2004/10/18 10:43:02  faber
 *  Power check new fligh mode
 *
 *  Revision 1.8  2004/09/28 15:36:25  sebastiani
 *  interrupt manager fix
 *
 *  Revision 1.7  2004/02/10 16:48:28  faber
 *  *** empty log message ***
 *
 *  Revision 1.6  2003/10/31 17:21:29  sebastiani
 *  bug fix on read and write function in TM_TMTCManager: added busy flag control on each read & write
 *  CRC functions updated in the SRAMPageManager
 *
 *  Revision 1.5  2003/10/31 11:36:07  faber
 *  CRC functions (8_8 and 16) had been finally fixed and hard tested with a
 *  strong-stressing C program (crctest.c)
 *
 *  Revision 1.4  2003/10/30 14:55:52  faber
 *  CRC function debuggin (some fixes)
 *
 *  Revision 1.3  2003/10/30 10:09:36  sebastiani
 *  *** empty log message ***
 *
 *  Revision 1.2  2003/10/27 18:51:38  sebastiani
 *  crc function moved in the "Common" module
 *
 *  Revision 1.1.1.1  2003/08/04 09:40:22  sebastiani
 *  Imported sources laben rel. 19.06.2003 integrated with pam2
 *
 *  Revision 1.1  2003/06/23 15:40:10  sebastiani
 *  Trakcer added: First Compilation of tracker
 *
 *                                                                           
 *****************************************************************************/


/*============================= Include File ================================*/
#ifndef I386
#include <src/INFN/LU_SourceFileID_INFN.h>
#define __FILEID__ _CM_Common_INFN__c
#include <src/INFN/PRH_ParamHandler_INFN.h>
#include <src/INFN/LU_LogUtility_INFN.h>
#include <src/INFN/PRH_ParamHandler_INFN_auto.h>
LU_DECL_MASK();

#endif // I386

#include <src/INFN/CM_Common_INFN.h>

/*============================ Global define ================================*/


/*============================== global types  ==============================*/


/*****************************************************************************/
/*=========================== Structure define ==============================*/


/*****************************************************************************/
/*============================ Enumerate define =============================*/

/*****************************************************************************/

/*=== Common   I N T E R N A L   ==*/

/*****************************************************************************/

/*************************************************************************/
/* @Constant: Ccrc_lookup                                                */
/* @Purpose :                                                            */
/*   CRC-TABLE CRCINIT=0x0000 POLY=0x1021 CCITT V.41                     */
/*                                                                       */
/* @@                                                                    */
/*************************************************************************/

static const unsigned int Crc_lookup[256] = {
    0x0000,0x1021,0x2042,0x3063,0x4084,0x50A5,0x60C6,0x70E7,
    0x8108,0x9129,0xA14A,0xB16B,0xC18C,0xD1AD,0xE1CE,0xF1EF,
    0x1231,0x0210,0x3273,0x2252,0x52B5,0x4294,0x72F7,0x62D6,
    0x9339,0x8318,0xB37B,0xA35A,0xD3BD,0xC39C,0xF3FF,0xE3DE,
    0x2462,0x3443,0x0420,0x1401,0x64E6,0x74C7,0x44A4,0x5485,
    0xA56A,0xB54B,0x8528,0x9509,0xE5EE,0xF5CF,0xC5AC,0xD58D,
    0x3653,0x2672,0x1611,0x0630,0x76D7,0x66F6,0x5695,0x46B4,
    0xB75B,0xA77A,0x9719,0x8738,0xF7DF,0xE7FE,0xD79D,0xC7BC,
    0x48C4,0x58E5,0x6886,0x78A7,0x0840,0x1861,0x2802,0x3823,
    0xC9CC,0xD9ED,0xE98E,0xF9AF,0x8948,0x9969,0xA90A,0xB92B,
    0x5AF5,0x4AD4,0x7AB7,0x6A96,0x1A71,0x0A50,0x3A33,0x2A12,
    0xDBFD,0xCBDC,0xFBBF,0xEB9E,0x9B79,0x8B58,0xBB3B,0xAB1A,
    0x6CA6,0x7C87,0x4CE4,0x5CC5,0x2C22,0x3C03,0x0C60,0x1C41,
    0xEDAE,0xFD8F,0xCDEC,0xDDCD,0xAD2A,0xBD0B,0x8D68,0x9D49,
    0x7E97,0x6EB6,0x5ED5,0x4EF4,0x3E13,0x2E32,0x1E51,0x0E70,
    0xFF9F,0xEFBE,0xDFDD,0xCFFC,0xBF1B,0xAF3A,0x9F59,0x8F78,
    0x9188,0x81A9,0xB1CA,0xA1EB,0xD10C,0xC12D,0xF14E,0xE16F,
    0x1080,0x00A1,0x30C2,0x20E3,0x5004,0x4025,0x7046,0x6067,
    0x83B9,0x9398,0xA3FB,0xB3DA,0xC33D,0xD31C,0xE37F,0xF35E,
    0x02B1,0x1290,0x22F3,0x32D2,0x4235,0x5214,0x6277,0x7256,
    0xB5EA,0xA5CB,0x95A8,0x8589,0xF56E,0xE54F,0xD52C,0xC50D,
    0x34E2,0x24C3,0x14A0,0x0481,0x7466,0x6447,0x5424,0x4405,
    0xA7DB,0xB7FA,0x8799,0x97B8,0xE75F,0xF77E,0xC71D,0xD73C,
    0x26D3,0x36F2,0x0691,0x16B0,0x6657,0x7676,0x4615,0x5634,
    0xD94C,0xC96D,0xF90E,0xE92F,0x99C8,0x89E9,0xB98A,0xA9AB,
    0x5844,0x4865,0x7806,0x6827,0x18C0,0x08E1,0x3882,0x28A3,
    0xCB7D,0xDB5C,0xEB3F,0xFB1E,0x8BF9,0x9BD8,0xABBB,0xBB9A,
    0x4A75,0x5A54,0x6A37,0x7A16,0x0AF1,0x1AD0,0x2AB3,0x3A92,
    0xFD2E,0xED0F,0xDD6C,0xCD4D,0xBDAA,0xAD8B,0x9DE8,0x8DC9,
    0x7C26,0x6C07,0x5C64,0x4C45,0x3CA2,0x2C83,0x1CE0,0x0CC1,
    0xEF1F,0xFF3E,0xCF5D,0xDF7C,0xAF9B,0xBFBA,0x8FD9,0x9FF8,
    0x6E17,0x7E36,0x4E55,0x5E74,0x2E93,0x3EB2,0x0ED1,0x1EF0
    };


static unsigned long long int CM_CalibrateDummyLoop_steps;
static unsigned long long int CM_CalibrateDummyLoop_ms;


/*****************************************************************************/
/*  
 *  TRK_crc8_8
 *
 *  calculate single 8 bit crc  
 *
 *  Input parameters: 
 *                   old  = old value 
 *                   data = new value   
 *                   outcrc = pointer to calculated crc  
 *                 
 *  Output parameters: status_code
 *
 */
/*****************************************************************************/

typedef union  {
  BYTE word;
#ifdef I386
  /* IA32 arch is LITTLE endian */
  struct bit_field_w 
  {
    unsigned b0:1;
    unsigned b1:1;
    unsigned b2:1;
    unsigned b3:1;
    unsigned b4:1;
    unsigned b5:1;
    unsigned b6:1;
    unsigned b7:1;
  } bit;
#else
  /* ERC 32 arch is BIG endian */
  struct bit_field_w 
  {
    unsigned b7:1;
    unsigned b6:1;
    unsigned b5:1;
    unsigned b4:1;
    unsigned b3:1;
    unsigned b2:1;
    unsigned b1:1;
    unsigned b0:1;
  } bit;
#endif // I386
} CM_crc8_8_word ;


#define CM_CRC8_8(old,data,crc,c,d,r) do { \
  c.word = (old);   \
  d.word = (data);  \
  r.bit.b0  = c.bit.b0  ^ c.bit.b6 ^ c.bit.b7 ^ d.bit.b0  ^ d.bit.b6 ^ d.bit.b7;                       \
  r.bit.b1  = c.bit.b0  ^ c.bit.b1 ^ c.bit.b6 ^ d.bit.b0  ^ d.bit.b1 ^ d.bit.b6;                       \
  r.bit.b2  = c.bit.b0  ^ c.bit.b1 ^ c.bit.b2 ^ c.bit.b6  ^ d.bit.b0 ^ d.bit.b1 ^d.bit.b2 ^ d.bit.b6;  \
  r.bit.b3  = c.bit.b1  ^ c.bit.b2 ^ c.bit.b3 ^ c.bit.b7  ^ d.bit.b1 ^ d.bit.b2 ^d.bit.b3 ^ d.bit.b7;  \
  r.bit.b4  = c.bit.b2  ^ c.bit.b3 ^ c.bit.b4 ^ d.bit.b2  ^ d.bit.b3 ^ d.bit.b4;                       \
  r.bit.b5  = c.bit.b3  ^ c.bit.b4 ^ c.bit.b5 ^ d.bit.b3  ^ d.bit.b4 ^ d.bit.b5;                       \
  r.bit.b6  = c.bit.b4  ^ c.bit.b5 ^ c.bit.b6 ^ d.bit.b4  ^ d.bit.b5 ^ d.bit.b6;                       \
  r.bit.b7  = c.bit.b5  ^ c.bit.b6 ^ c.bit.b7 ^ d.bit.b5  ^ d.bit.b6 ^ d.bit.b7;                       \
  crc = r.word; \
} while(0)


static void CM_Dummy_Loop(UINT32 n) {
  volatile UINT32 i;
  for(i=0;i<n;i++);
}

#ifndef I386
void CM_Init() {
#ifdef DEBUG
  TI_TIME t1,t2;
#endif
  CM_CalibrateDummyLoop_steps = 10000000;
#if 0
  /* do the calibration test */
  LU_INFN_LOG(LU_DEBUG_TRACE|LU_HA,LU_MASK(__FILEID__),__FILEID__,__LINE__,CM_CalibrateDummyLoop_steps);
  TI_opGetTimeInfo_ms (&t1);
  CM_Dummy_Loop((UINT32)CM_CalibrateDummyLoop_steps);
  TI_opGetTimeInfo_ms (&t2);
  CM_CalibrateDummyLoop_ms = t2-t1;
  LU_INFN_LOG(LU_DEBUG_TRACE|LU_HA,LU_MASK(__FILEID__),__FILEID__,__LINE__,CM_CalibrateDummyLoop_ms);
#else
  CM_CalibrateDummyLoop_ms    = 5489;
#endif
  CM_Rand_Seed(0xFAB9B151,0x060E605A4D,0x9B0);
}
#endif // I386

BYTE CM_crc8_8(BYTE old,BYTE data) {
  CM_crc8_8_word c,d,r;
  BYTE Crc;

  CM_CRC8_8(old,data,Crc,c,d,r);

  return Crc;
} 

/**
   Compute a 8 CRC based over a \a buffer data of length \a length, whith a starting crc of \a oldcrc
   and returns the 32 bit crc on the whole buffer
 */ 
UINT32 CM_Compute_CRC8_8(UINT32 oldcrc /** the starting CRC value. changing this value also change the returning value. usually 0. */
                         ,BYTE *buffer /** the starting pointer to start crc computing */
                         ,UINT32 length  /** the length in byte of the buffer */
                         )
{
  int i;
  BYTE tmpcrc,crc = oldcrc;
  CM_crc8_8_word c,d,r;

  for (i=0; i < length; i++) {
    tmpcrc=crc;
    CM_CRC8_8(tmpcrc,*buffer,crc,c,d,r);
    buffer++;
  }
  return crc;
}


/*****************************************************************************/
/* @Function: CM_Crc16                                                       */
/* @Purpose :                                                                */
/*  This function calculates the CRC.                                        */
/*                                                                           */
/* @@                                                                        */
/* @Parameter Name      @Mode   @Description                                 */
/* @@                                                                        */
/*****************************************************************************/

/* adrs_ptr: is BYTE*
 * crc     : is UINT16
 */
#define CM_MACRO_CRC16(Crc16,adrs_ptr) do { \
  Crc16 = \
    (UINT32)(Crc16 << 8) ^ \
    (UINT32)(Crc_lookup[ (UINT32) ( ((Crc16 >> 8) & 0xFF) ^ *adrs_ptr) ]); \
} while(0)

UINT16 CM_CRC16(BYTE* adrs, UINT16 Crc)
{
  UINT32 Crc16Value=Crc;
  // Calculating the CRC16 by using a LookUp table
  CM_MACRO_CRC16(Crc16Value,adrs);
  return ((UINT16)Crc16Value);
}


UINT16 CM_Compute_CRC16(UINT16 oldcrc,BYTE *buffer,UINT32 length) {
  unsigned int i;
  UINT32 Crc16Value=oldcrc;
  for(i=0; i < length; i++) {
    CM_MACRO_CRC16(Crc16Value,buffer);
    buffer++;
  }
  return ((UINT16)Crc16Value);
}

#ifndef I386
void CM_Suspend_Dummy_Loop(TI_TIME ms) {
   CM_Dummy_Loop( (UINT32)
                  ((CM_CalibrateDummyLoop_steps*ms)/CM_CalibrateDummyLoop_ms)
                  );
}
#endif // I386


/* Combination of 3 tausworthe generators -- assumes 32-bit integers */
/* Source: Pierre L'Ecuyer, "Maximally Equidistributed Combined Tausworthe
   Generators". Mathematics of Computation, vol.65, no.213(1996), pp203--213.*/
/* Special thanks to Joushua Grass (of Microsoft) for pointing out an error
   in the initialization routine "rand_seed()" */

static UINT32 s1=390451501, s2=613566701, s3=858993401;  /* The seeds */
static unsigned mask1, mask2, mask3;
static int shft1, shft2, shft3, k1=31, k2=29, k3=28;

/* use either of the following two sets of parameters*/
static int q1=13, q2=2, q3=3, p1=12, p2=4, p3=17;
/* static int q1=3, q2=2, q3=13, p1=20, p2=16, p3=7; */


UINT32 CM_Rand()
{
  UINT32 b;
  
  b  = ((s1 << q1)^s1) >> shft1;
  s1 = ((s1 & mask1) << p1) ^ b;
  b  = ((s2 << q2) ^ s2) >> shft2;
  s2 = ((s2 & mask2) << p2) ^ b;
  b  = ((s3 << q3) ^ s3) >> shft3;
  s3 = ((s3 & mask3) << p3) ^ b;
  return (s1 ^ s2 ^ s3);
}

void CM_Rand_Seed(UINT32 a,UINT32 b,UINT32 c )
{
  static UINT32 x = 4294967295U;
  
  shft1 = k1-p1;
  shft2 = k2-p2;
  shft3 = k3-p3;
  mask1 = x << (32-k1);
  mask2 = x << (32-k2);
  mask3 = x << (32-k3);
  if (a > (1 << (32-k1))) s1 = a;
  if (b > (1 << (32-k2))) s2 = b;
  if (c > (1 << (32-k3))) s3 = c;
  rand();
}

1	kusanagi	1.1	/****************************************************************************
2			* F i l e D a t a
3			* $Id: CM_Common_INFN.c,v 1.13 2005/03/20 18:18:57 sebastiani Exp $
4			* $Revision: 1.13 $
5			* $Date: 2005/03/20 18:18:57 $
6			* $RCSfile: CM_Common_INFN.c,v $
7			*
8			****************************************************************************
9			* S W D e v e l o p m e n t E n v i r o n m e n t
10			*
11			* $Author: sebastiani $
12			* :
13			****************************************************************************
14			* U p d a t i n g
15			*
16			* $Log: CM_Common_INFN.c,v $
17			* Revision 1.13 2005/03/20 18:18:57 sebastiani
18			* * empty log message *
19			*
20			* Revision 1.12 2005/02/19 10:19:38 sebastiani
21			* ALM_S4_CALIB_00_HARD,ALM_S4_CALIB_00_SOFT,ALM_S4_128TRIGGER_0 added
22			*
23			* Revision 1.11 2005/01/11 13:59:21 faber
24			* Random number support introduced
25			*
26			* Revision 1.10 2004/11/05 09:36:35 sebastiani
27			* first version of the PM state machine. tried but not deeply tested
28			*
29			* Revision 1.9 2004/10/18 10:43:02 faber
30			* Power check new fligh mode
31			*
32			* Revision 1.8 2004/09/28 15:36:25 sebastiani
33			* interrupt manager fix
34			*
35			* Revision 1.7 2004/02/10 16:48:28 faber
36			* * empty log message *
37			*
38			* Revision 1.6 2003/10/31 17:21:29 sebastiani
39			* bug fix on read and write function in TM_TMTCManager: added busy flag control on each read & write
40			* CRC functions updated in the SRAMPageManager
41			*
42			* Revision 1.5 2003/10/31 11:36:07 faber
43			* CRC functions (8_8 and 16) had been finally fixed and hard tested with a
44			* strong-stressing C program (crctest.c)
45			*
46			* Revision 1.4 2003/10/30 14:55:52 faber
47			* CRC function debuggin (some fixes)
48			*
49			* Revision 1.3 2003/10/30 10:09:36 sebastiani
50			* * empty log message *
51			*
52			* Revision 1.2 2003/10/27 18:51:38 sebastiani
53			* crc function moved in the "Common" module
54			*
55			* Revision 1.1.1.1 2003/08/04 09:40:22 sebastiani
56			* Imported sources laben rel. 19.06.2003 integrated with pam2
57			*
58			* Revision 1.1 2003/06/23 15:40:10 sebastiani
59			* Trakcer added: First Compilation of tracker
60			*
61			*
62			*****************************************************************************/
63
64
65			/============================= Include File ================================/
66			#ifndef I386
67			#include <src/INFN/LU_SourceFileID_INFN.h>
68			#define __FILEID__ _CM_Common_INFN__c
69			#include <src/INFN/PRH_ParamHandler_INFN.h>
70			#include <src/INFN/LU_LogUtility_INFN.h>
71			#include <src/INFN/PRH_ParamHandler_INFN_auto.h>
72			LU_DECL_MASK();
73
74			#endif // I386
75
76			#include <src/INFN/CM_Common_INFN.h>
77
78			/============================ Global define ================================/
79
80
81			/============================== global types ==============================/
82
83
84
85			/*****************************************************************************/
86			/=========================== Structure define ==============================/
87
88
89			/*****************************************************************************/
90			/============================ Enumerate define =============================/
91
92			/*****************************************************************************/
93
94			/=== Common I N T E R N A L ==/
95
96			/*****************************************************************************/
97
98			/*************************************************************************/
99			/* @Constant: Ccrc_lookup */
100			/* @Purpose : */
101			/* CRC-TABLE CRCINIT=0x0000 POLY=0x1021 CCITT V.41 */
102			/* */
103			/* @@ */
104			/*************************************************************************/
105
106			static const unsigned int Crc_lookup[256] = {
107			0x0000,0x1021,0x2042,0x3063,0x4084,0x50A5,0x60C6,0x70E7,
108			0x8108,0x9129,0xA14A,0xB16B,0xC18C,0xD1AD,0xE1CE,0xF1EF,
109			0x1231,0x0210,0x3273,0x2252,0x52B5,0x4294,0x72F7,0x62D6,
110			0x9339,0x8318,0xB37B,0xA35A,0xD3BD,0xC39C,0xF3FF,0xE3DE,
111			0x2462,0x3443,0x0420,0x1401,0x64E6,0x74C7,0x44A4,0x5485,
112			0xA56A,0xB54B,0x8528,0x9509,0xE5EE,0xF5CF,0xC5AC,0xD58D,
113			0x3653,0x2672,0x1611,0x0630,0x76D7,0x66F6,0x5695,0x46B4,
114			0xB75B,0xA77A,0x9719,0x8738,0xF7DF,0xE7FE,0xD79D,0xC7BC,
115			0x48C4,0x58E5,0x6886,0x78A7,0x0840,0x1861,0x2802,0x3823,
116			0xC9CC,0xD9ED,0xE98E,0xF9AF,0x8948,0x9969,0xA90A,0xB92B,
117			0x5AF5,0x4AD4,0x7AB7,0x6A96,0x1A71,0x0A50,0x3A33,0x2A12,
118			0xDBFD,0xCBDC,0xFBBF,0xEB9E,0x9B79,0x8B58,0xBB3B,0xAB1A,
119			0x6CA6,0x7C87,0x4CE4,0x5CC5,0x2C22,0x3C03,0x0C60,0x1C41,
120			0xEDAE,0xFD8F,0xCDEC,0xDDCD,0xAD2A,0xBD0B,0x8D68,0x9D49,
121			0x7E97,0x6EB6,0x5ED5,0x4EF4,0x3E13,0x2E32,0x1E51,0x0E70,
122			0xFF9F,0xEFBE,0xDFDD,0xCFFC,0xBF1B,0xAF3A,0x9F59,0x8F78,
123			0x9188,0x81A9,0xB1CA,0xA1EB,0xD10C,0xC12D,0xF14E,0xE16F,
124			0x1080,0x00A1,0x30C2,0x20E3,0x5004,0x4025,0x7046,0x6067,
125			0x83B9,0x9398,0xA3FB,0xB3DA,0xC33D,0xD31C,0xE37F,0xF35E,
126			0x02B1,0x1290,0x22F3,0x32D2,0x4235,0x5214,0x6277,0x7256,
127			0xB5EA,0xA5CB,0x95A8,0x8589,0xF56E,0xE54F,0xD52C,0xC50D,
128			0x34E2,0x24C3,0x14A0,0x0481,0x7466,0x6447,0x5424,0x4405,
129			0xA7DB,0xB7FA,0x8799,0x97B8,0xE75F,0xF77E,0xC71D,0xD73C,
130			0x26D3,0x36F2,0x0691,0x16B0,0x6657,0x7676,0x4615,0x5634,
131			0xD94C,0xC96D,0xF90E,0xE92F,0x99C8,0x89E9,0xB98A,0xA9AB,
132			0x5844,0x4865,0x7806,0x6827,0x18C0,0x08E1,0x3882,0x28A3,
133			0xCB7D,0xDB5C,0xEB3F,0xFB1E,0x8BF9,0x9BD8,0xABBB,0xBB9A,
134			0x4A75,0x5A54,0x6A37,0x7A16,0x0AF1,0x1AD0,0x2AB3,0x3A92,
135			0xFD2E,0xED0F,0xDD6C,0xCD4D,0xBDAA,0xAD8B,0x9DE8,0x8DC9,
136			0x7C26,0x6C07,0x5C64,0x4C45,0x3CA2,0x2C83,0x1CE0,0x0CC1,
137			0xEF1F,0xFF3E,0xCF5D,0xDF7C,0xAF9B,0xBFBA,0x8FD9,0x9FF8,
138			0x6E17,0x7E36,0x4E55,0x5E74,0x2E93,0x3EB2,0x0ED1,0x1EF0
139			};
140
141
142			static unsigned long long int CM_CalibrateDummyLoop_steps;
143			static unsigned long long int CM_CalibrateDummyLoop_ms;
144
145
146
147
148
149			/*****************************************************************************/
150			/*
151			* TRK_crc8_8
152			*
153			* calculate single 8 bit crc
154			*
155			* Input parameters:
156			* old = old value
157			* data = new value
158			* outcrc = pointer to calculated crc
159			*
160			* Output parameters: status_code
161			*
162			*/
163			/*****************************************************************************/
164
165			typedef union {
166			BYTE word;
167			#ifdef I386
168			/* IA32 arch is LITTLE endian */
169			struct bit_field_w
170			{
171			unsigned b0:1;
172			unsigned b1:1;
173			unsigned b2:1;
174			unsigned b3:1;
175			unsigned b4:1;
176			unsigned b5:1;
177			unsigned b6:1;
178			unsigned b7:1;
179			} bit;
180			#else
181			/* ERC 32 arch is BIG endian */
182			struct bit_field_w
183			{
184			unsigned b7:1;
185			unsigned b6:1;
186			unsigned b5:1;
187			unsigned b4:1;
188			unsigned b3:1;
189			unsigned b2:1;
190			unsigned b1:1;
191			unsigned b0:1;
192			} bit;
193			#endif // I386
194			} CM_crc8_8_word ;
195
196
197			#define CM_CRC8_8(old,data,crc,c,d,r) do { \
198			c.word = (old); \
199			d.word = (data); \
200			r.bit.b0 = c.bit.b0 ^ c.bit.b6 ^ c.bit.b7 ^ d.bit.b0 ^ d.bit.b6 ^ d.bit.b7; \
201			r.bit.b1 = c.bit.b0 ^ c.bit.b1 ^ c.bit.b6 ^ d.bit.b0 ^ d.bit.b1 ^ d.bit.b6; \
202			r.bit.b2 = c.bit.b0 ^ c.bit.b1 ^ c.bit.b2 ^ c.bit.b6 ^ d.bit.b0 ^ d.bit.b1 ^d.bit.b2 ^ d.bit.b6; \
203			r.bit.b3 = c.bit.b1 ^ c.bit.b2 ^ c.bit.b3 ^ c.bit.b7 ^ d.bit.b1 ^ d.bit.b2 ^d.bit.b3 ^ d.bit.b7; \
204			r.bit.b4 = c.bit.b2 ^ c.bit.b3 ^ c.bit.b4 ^ d.bit.b2 ^ d.bit.b3 ^ d.bit.b4; \
205			r.bit.b5 = c.bit.b3 ^ c.bit.b4 ^ c.bit.b5 ^ d.bit.b3 ^ d.bit.b4 ^ d.bit.b5; \
206			r.bit.b6 = c.bit.b4 ^ c.bit.b5 ^ c.bit.b6 ^ d.bit.b4 ^ d.bit.b5 ^ d.bit.b6; \
207			r.bit.b7 = c.bit.b5 ^ c.bit.b6 ^ c.bit.b7 ^ d.bit.b5 ^ d.bit.b6 ^ d.bit.b7; \
208			crc = r.word; \
209			} while(0)
210
211
212			static void CM_Dummy_Loop(UINT32 n) {
213			volatile UINT32 i;
214			for(i=0;i<n;i++);
215			}
216
217			#ifndef I386
218			void CM_Init() {
219			#ifdef DEBUG
220			TI_TIME t1,t2;
221			#endif
222			CM_CalibrateDummyLoop_steps = 10000000;
223			#if 0
224			/* do the calibration test */
225			LU_INFN_LOG(LU_DEBUG_TRACE\|LU_HA,LU_MASK(__FILEID__),__FILEID__,__LINE__,CM_CalibrateDummyLoop_steps);
226			TI_opGetTimeInfo_ms (&t1);
227			CM_Dummy_Loop((UINT32)CM_CalibrateDummyLoop_steps);
228			TI_opGetTimeInfo_ms (&t2);
229			CM_CalibrateDummyLoop_ms = t2-t1;
230			LU_INFN_LOG(LU_DEBUG_TRACE\|LU_HA,LU_MASK(__FILEID__),__FILEID__,__LINE__,CM_CalibrateDummyLoop_ms);
231			#else
232			CM_CalibrateDummyLoop_ms = 5489;
233			#endif
234			CM_Rand_Seed(0xFAB9B151,0x060E605A4D,0x9B0);
235			}
236			#endif // I386
237
238			BYTE CM_crc8_8(BYTE old,BYTE data) {
239			CM_crc8_8_word c,d,r;
240			BYTE Crc;
241
242			CM_CRC8_8(old,data,Crc,c,d,r);
243
244			return Crc;
245			}
246
247			/**
248			Compute a 8 CRC based over a \a buffer data of length \a length, whith a starting crc of \a oldcrc
249			and returns the 32 bit crc on the whole buffer
250			*/
251			UINT32 CM_Compute_CRC8_8(UINT32 oldcrc /** the starting CRC value. changing this value also change the returning value. usually 0. */
252			,BYTE buffer /* the starting pointer to start crc computing */
253			,UINT32 length /** the length in byte of the buffer */
254			)
255			{
256			int i;
257			BYTE tmpcrc,crc = oldcrc;
258			CM_crc8_8_word c,d,r;
259
260			for (i=0; i < length; i++) {
261			tmpcrc=crc;
262			CM_CRC8_8(tmpcrc,*buffer,crc,c,d,r);
263			buffer++;
264			}
265			return crc;
266			}
267
268
269			/*****************************************************************************/
270			/* @Function: CM_Crc16 */
271			/* @Purpose : */
272			/* This function calculates the CRC. */
273			/* */
274			/* @@ */
275			/* @Parameter Name @Mode @Description */
276			/* @@ */
277			/*****************************************************************************/
278
279			/* adrs_ptr: is BYTE*
280			* crc : is UINT16
281			*/
282			#define CM_MACRO_CRC16(Crc16,adrs_ptr) do { \
283			Crc16 = \
284			(UINT32)(Crc16 << 8) ^ \
285			(UINT32)(Crc_lookup[ (UINT32) ( ((Crc16 >> 8) & 0xFF) ^ *adrs_ptr) ]); \
286			} while(0)
287
288			UINT16 CM_CRC16(BYTE* adrs, UINT16 Crc)
289			{
290			UINT32 Crc16Value=Crc;
291			// Calculating the CRC16 by using a LookUp table
292			CM_MACRO_CRC16(Crc16Value,adrs);
293			return ((UINT16)Crc16Value);
294			}
295
296
297			UINT16 CM_Compute_CRC16(UINT16 oldcrc,BYTE *buffer,UINT32 length) {
298			unsigned int i;
299			UINT32 Crc16Value=oldcrc;
300			for(i=0; i < length; i++) {
301			CM_MACRO_CRC16(Crc16Value,buffer);
302			buffer++;
303			}
304			return ((UINT16)Crc16Value);
305			}
306
307			#ifndef I386
308			void CM_Suspend_Dummy_Loop(TI_TIME ms) {
309			CM_Dummy_Loop( (UINT32)
310			((CM_CalibrateDummyLoop_steps*ms)/CM_CalibrateDummyLoop_ms)
311			);
312			}
313			#endif // I386
314
315
316			/* Combination of 3 tausworthe generators -- assumes 32-bit integers */
317			/* Source: Pierre L'Ecuyer, "Maximally Equidistributed Combined Tausworthe
318			Generators". Mathematics of Computation, vol.65, no.213(1996), pp203--213.*/
319			/* Special thanks to Joushua Grass (of Microsoft) for pointing out an error
320			in the initialization routine "rand_seed()" */
321
322			static UINT32 s1=390451501, s2=613566701, s3=858993401; /* The seeds */
323			static unsigned mask1, mask2, mask3;
324			static int shft1, shft2, shft3, k1=31, k2=29, k3=28;
325
326			/* use either of the following two sets of parameters*/
327			static int q1=13, q2=2, q3=3, p1=12, p2=4, p3=17;
328			/* static int q1=3, q2=2, q3=13, p1=20, p2=16, p3=7; */
329
330
331
332			UINT32 CM_Rand()
333			{
334			UINT32 b;
335
336			b = ((s1 << q1)^s1) >> shft1;
337			s1 = ((s1 & mask1) << p1) ^ b;
338			b = ((s2 << q2) ^ s2) >> shft2;
339			s2 = ((s2 & mask2) << p2) ^ b;
340			b = ((s3 << q3) ^ s3) >> shft3;
341			s3 = ((s3 & mask3) << p3) ^ b;
342			return (s1 ^ s2 ^ s3);
343			}
344
345			void CM_Rand_Seed(UINT32 a,UINT32 b,UINT32 c )
346			{
347			static UINT32 x = 4294967295U;
348
349			shft1 = k1-p1;
350			shft2 = k2-p2;
351			shft3 = k3-p3;
352			mask1 = x << (32-k1);
353			mask2 = x << (32-k2);
354			mask3 = x << (32-k3);
355			if (a > (1 << (32-k1))) s1 = a;
356			if (b > (1 << (32-k2))) s2 = b;
357			if (c > (1 << (32-k3))) s3 = c;
358			rand();
359			}
360