| 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 |
|
Parent Directory
| 
Revision Log