forroutines/tof/tofcrc.cpp

#include <stdlib.h>
#include <stdio.h>
#include <string.h>

#define BLEN 8
extern "C"{
 short crctof_(short*, short*);
}
short crctof_(short *oldCRC, short *newCRC) 
/* void crctof_(short *old,short *new) */
{
  union crctof_data {
    short word;
    struct bit_field {
      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;
  } c,d,r;

  c.word = *oldCRC;
  d.word = *newCRC;
  r.word = 0;

  r.bit.b0 = c.bit.b7 ^ c.bit.b6 ^ c.bit.b0 ^ 
             d.bit.b0 ^ d.bit.b6 ^ d.bit.b7;

  r.bit.b1 = c.bit.b6 ^ c.bit.b1 ^ c.bit.b0 ^ 
             d.bit.b0 ^ d.bit.b1 ^ d.bit.b6;

  r.bit.b2 = c.bit.b6 ^ c.bit.b2 ^ c.bit.b1 ^ c.bit.b0 ^
             d.bit.b0 ^ d.bit.b1 ^ d.bit.b2 ^ d.bit.b6;

  r.bit.b3 = c.bit.b7 ^ c.bit.b3 ^ c.bit.b2 ^ c.bit.b1 ^ 
             d.bit.b1 ^ d.bit.b2 ^ d.bit.b3 ^ d.bit.b7;

  r.bit.b4 = c.bit.b4 ^ c.bit.b3 ^ c.bit.b2 ^
             d.bit.b2 ^ d.bit.b3 ^ d.bit.b4;

  r.bit.b5 = c.bit.b5 ^ c.bit.b4 ^ c.bit.b3 ^
             d.bit.b3 ^ d.bit.b4 ^ d.bit.b5;

  r.bit.b6 = c.bit.b6 ^ c.bit.b5 ^ c.bit.b4 ^ 
             d.bit.b4 ^ d.bit.b5 ^ d.bit.b6;

  r.bit.b7 = c.bit.b7 ^ c.bit.b6 ^ c.bit.b5 ^ 
             d.bit.b5 ^ d.bit.b6 ^ d.bit.b7 ;

  return r.word; 
  /*  *old = r.word; */
}

1	#include <stdlib.h>
2	#include <stdio.h>
3	#include <string.h>
4
5	#define BLEN 8
6	extern "C"{
7	short crctof_(short, short);
8	}
9	short crctof_(short oldCRC, short newCRC)
10	/* void crctof_(short old,short new) */
11	{
12	union crctof_data {
13	short word;
14	struct bit_field {
15	unsigned b0:1;
16	unsigned b1:1;
17	unsigned b2:1;
18	unsigned b3:1;
19	unsigned b4:1;
20	unsigned b5:1;
21	unsigned b6:1;
22	unsigned b7:1;
23	} bit;
24	} c,d,r;
25
26	c.word = *oldCRC;
27	d.word = *newCRC;
28	r.word = 0;
29
30	r.bit.b0 = c.bit.b7 ^ c.bit.b6 ^ c.bit.b0 ^
31	d.bit.b0 ^ d.bit.b6 ^ d.bit.b7;
32
33	r.bit.b1 = c.bit.b6 ^ c.bit.b1 ^ c.bit.b0 ^
34	d.bit.b0 ^ d.bit.b1 ^ d.bit.b6;
35
36	r.bit.b2 = c.bit.b6 ^ c.bit.b2 ^ c.bit.b1 ^ c.bit.b0 ^
37	d.bit.b0 ^ d.bit.b1 ^ d.bit.b2 ^ d.bit.b6;
38
39	r.bit.b3 = c.bit.b7 ^ c.bit.b3 ^ c.bit.b2 ^ c.bit.b1 ^
40	d.bit.b1 ^ d.bit.b2 ^ d.bit.b3 ^ d.bit.b7;
41
42	r.bit.b4 = c.bit.b4 ^ c.bit.b3 ^ c.bit.b2 ^
43	d.bit.b2 ^ d.bit.b3 ^ d.bit.b4;
44
45	r.bit.b5 = c.bit.b5 ^ c.bit.b4 ^ c.bit.b3 ^
46	d.bit.b3 ^ d.bit.b4 ^ d.bit.b5;
47
48	r.bit.b6 = c.bit.b6 ^ c.bit.b5 ^ c.bit.b4 ^
49	d.bit.b4 ^ d.bit.b5 ^ d.bit.b6;
50
51	r.bit.b7 = c.bit.b7 ^ c.bit.b6 ^ c.bit.b5 ^
52	d.bit.b5 ^ d.bit.b6 ^ d.bit.b7 ;
53
54	return r.word;
55	/* old = r.word; /
56	}
57