mer feb 12 14:56:57 CET 2003
[asterisk/asterisk.git] / codecs / lpc10 / ham84.c
1 /*
2
3 $Log$
4 Revision 1.14  2003/02/12 13:59:15  matteo
5 mer feb 12 14:56:57 CET 2003
6
7 Revision 1.1.1.1  2003/02/12 13:59:15  matteo
8 mer feb 12 14:56:57 CET 2003
9
10 Revision 1.2  2000/01/05 08:20:39  markster
11 Some OSS fixes and a few lpc changes to make it actually work
12
13  * Revision 1.1  1996/08/19  22:32:07  jaf
14  * Initial revision
15  *
16
17 */
18
19 #ifdef P_R_O_T_O_T_Y_P_E_S
20 extern int ham84_(integer *input, integer *output, integer *errcnt);
21 #endif
22
23 /*  -- translated by f2c (version 19951025).
24    You must link the resulting object file with the libraries:
25         -lf2c -lm   (in that order)
26 */
27
28 #include "f2c.h"
29
30 /* ***************************************************************** */
31
32 /*      HAM84 Version 45G */
33
34 /* $Log$
35  * Revision 1.14  2003/02/12 13:59:15  matteo
36  * mer feb 12 14:56:57 CET 2003
37  *
38 /* Revision 1.1.1.1  2003/02/12 13:59:15  matteo
39 /* mer feb 12 14:56:57 CET 2003
40 /*
41 /* Revision 1.2  2000/01/05 08:20:39  markster
42 /* Some OSS fixes and a few lpc changes to make it actually work
43 /*
44  * Revision 1.1  1996/08/19  22:32:07  jaf
45  * Initial revision
46  * */
47 /* Revision 1.3  1996/03/21  15:26:00  jaf */
48 /* Put comment header in standard form. */
49
50 /* Revision 1.2  1996/03/13  22:00:13  jaf */
51 /* Comments added explaining that none of the local variables of this */
52 /* subroutine need to be saved from one invocation to the next. */
53
54 /* Revision 1.1  1996/02/07 14:47:04  jaf */
55 /* Initial revision */
56
57
58 /* ***************************************************************** */
59
60 /*  Hamming 8,4 Decoder - can correct 1 out of seven bits */
61 /*   and can detect up to two errors. */
62
63 /* Input: */
64 /*  INPUT  - Seven bit data word, 4 bits parameter and */
65 /*           4 bits parity information */
66 /* Input/Output: */
67 /*  ERRCNT - Sums errors detected by Hamming code */
68 /* Output: */
69 /*  OUTPUT - 4 corrected parameter bits */
70
71 /* This subroutine is entered with an eight bit word in INPUT.  The 8th */
72 /* bit is parity and is stripped off.  The remaining 7 bits address the */
73 /* hamming 8,4 table and the output OUTPUT from the table gives the 4 */
74 /* bits of corrected data.  If bit 4 is set, no error was detected. */
75 /* ERRCNT is the number of errors counted. */
76
77 /* This subroutine has no local state. */
78
79 /* Subroutine */ int ham84_(integer *input, integer *output, integer *errcnt)
80 {
81     /* Initialized data */
82
83     static integer dactab[128] = { 16,0,0,3,0,5,14,7,0,9,14,11,14,13,30,14,0,
84             9,2,7,4,7,7,23,9,25,10,9,12,9,14,7,0,5,2,11,5,21,6,5,8,11,11,27,
85             12,5,14,11,2,1,18,2,12,5,2,7,12,9,2,11,28,12,12,15,0,3,3,19,4,13,
86             6,3,8,13,10,3,13,29,14,13,4,1,10,3,20,4,4,7,10,9,26,10,4,13,10,15,
87             8,1,6,3,6,5,22,6,24,8,8,11,8,13,6,15,1,17,2,1,4,1,6,15,8,1,10,15,
88             12,15,15,31 };
89
90     integer i__, j, parity;
91
92 /*       Arguments */
93 /*       Parameters/constants */
94 /*       Local variables that need not be saved */
95 /*  Determine parity of input word */
96     parity = *input & 255;
97     parity ^= parity / 16;
98     parity ^= parity / 4;
99     parity ^= parity / 2;
100     parity &= 1;
101     i__ = dactab[*input & 127];
102     *output = i__ & 15;
103     j = i__ & 16;
104     if (j != 0) {
105 /*          No errors detected in seven bits */
106         if (parity != 0) {
107             ++(*errcnt);
108         }
109     } else {
110 /*          One or two errors detected */
111         ++(*errcnt);
112         if (parity == 0) {
113 /*             Two errors detected */
114             ++(*errcnt);
115             *output = -1;
116         }
117     }
118     return 0;
119 } /* ham84_ */
120