Mercurial > hg > audiostuff

comparison intercom/gsm/gsm_prin.c @ 2:13be24d74cd2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
import intercom-0.4.1
author Peter Meerwald <pmeerw@cosy.sbg.ac.at>
date Fri, 25 Jun 2010 09:57:52 +0200
parents
children
comparison
equal deleted inserted replaced
1:9cadc470e3da 2:13be24d74cd2
1 /*
2 * Copyright 1992 by Jutta Degener and Carsten Bormann, Technische
3 * Universitaet Berlin. See the accompanying file "COPYRIGHT" for
4 * details. THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
5 */
6
7 /* $Header: /home/kbs/jutta/src/gsm/gsm-1.0/src/RCS/gsm_print.c,v 1.1 1992/10/28 00:15:50 jutta Exp $ */
8
9 #include <stdio.h>
10
11 #include "private.h"
12
13 #include "gsm.h"
14 #include "proto.h"
15
16 int gsm_print P3((f, s, c), FILE * f, gsm s, gsm_byte * c)
17 {
18 word LARc[8], Nc[4], Mc[4], bc[4], xmaxc[4], xmc[13 * 4];
19
20 /* GSM_MAGIC = (*c >> 4) & 0xF; */
21
22 if (((*c >> 4) & 0x0F) != GSM_MAGIC)
23 return -1;
24
25 LARc[0] = (*c++ & 0xF) << 2; /* 1 */
26 LARc[0] |= (*c >> 6) & 0x3;
27 LARc[1] = *c++ & 0x3F;
28 LARc[2] = (*c >> 3) & 0x1F;
29 LARc[3] = (*c++ & 0x7) << 2;
30 LARc[3] |= (*c >> 6) & 0x3;
31 LARc[4] = (*c >> 2) & 0xF;
32 LARc[5] = (*c++ & 0x3) << 2;
33 LARc[5] |= (*c >> 6) & 0x3;
34 LARc[6] = (*c >> 3) & 0x7;
35 LARc[7] = *c++ & 0x7;
36
37
38 Nc[0] = (*c >> 1) & 0x7F;
39 bc[0] = (*c++ & 0x1) << 1;
40 bc[0] |= (*c >> 7) & 0x1;
41 Mc[0] = (*c >> 5) & 0x3;
42 xmaxc[0] = (*c++ & 0x1F) << 1;
43 xmaxc[0] |= (*c >> 7) & 0x1;
44 xmc[0] = (*c >> 4) & 0x7;
45 xmc[1] = (*c >> 1) & 0x7;
46 xmc[2] = (*c++ & 0x1) << 2;
47 xmc[2] |= (*c >> 6) & 0x3;
48 xmc[3] = (*c >> 3) & 0x7;
49 xmc[4] = *c++ & 0x7;
50 xmc[5] = (*c >> 5) & 0x7;
51 xmc[6] = (*c >> 2) & 0x7;
52 xmc[7] = (*c++ & 0x3) << 1; /* 10 */
53 xmc[7] |= (*c >> 7) & 0x1;
54 xmc[8] = (*c >> 4) & 0x7;
55 xmc[9] = (*c >> 1) & 0x7;
56 xmc[10] = (*c++ & 0x1) << 2;
57 xmc[10] |= (*c >> 6) & 0x3;
58 xmc[11] = (*c >> 3) & 0x7;
59 xmc[12] = *c++ & 0x7;
60
61 Nc[1] = (*c >> 1) & 0x7F;
62 bc[1] = (*c++ & 0x1) << 1;
63 bc[1] |= (*c >> 7) & 0x1;
64 Mc[1] = (*c >> 5) & 0x3;
65 xmaxc[1] = (*c++ & 0x1F) << 1;
66 xmaxc[1] |= (*c >> 7) & 0x1;
67 xmc[13] = (*c >> 4) & 0x7;
68 xmc[14] = (*c >> 1) & 0x7;
69 xmc[15] = (*c++ & 0x1) << 2;
70 xmc[15] |= (*c >> 6) & 0x3;
71 xmc[16] = (*c >> 3) & 0x7;
72 xmc[17] = *c++ & 0x7;
73 xmc[18] = (*c >> 5) & 0x7;
74 xmc[19] = (*c >> 2) & 0x7;
75 xmc[20] = (*c++ & 0x3) << 1;
76 xmc[20] |= (*c >> 7) & 0x1;
77 xmc[21] = (*c >> 4) & 0x7;
78 xmc[22] = (*c >> 1) & 0x7;
79 xmc[23] = (*c++ & 0x1) << 2;
80 xmc[23] |= (*c >> 6) & 0x3;
81 xmc[24] = (*c >> 3) & 0x7;
82 xmc[25] = *c++ & 0x7;
83
84
85 Nc[2] = (*c >> 1) & 0x7F;
86 bc[2] = (*c++ & 0x1) << 1; /* 20 */
87 bc[2] |= (*c >> 7) & 0x1;
88 Mc[2] = (*c >> 5) & 0x3;
89 xmaxc[2] = (*c++ & 0x1F) << 1;
90 xmaxc[2] |= (*c >> 7) & 0x1;
91 xmc[26] = (*c >> 4) & 0x7;
92 xmc[27] = (*c >> 1) & 0x7;
93 xmc[28] = (*c++ & 0x1) << 2;
94 xmc[28] |= (*c >> 6) & 0x3;
95 xmc[29] = (*c >> 3) & 0x7;
96 xmc[30] = *c++ & 0x7;
97 xmc[31] = (*c >> 5) & 0x7;
98 xmc[32] = (*c >> 2) & 0x7;
99 xmc[33] = (*c++ & 0x3) << 1;
100 xmc[33] |= (*c >> 7) & 0x1;
101 xmc[34] = (*c >> 4) & 0x7;
102 xmc[35] = (*c >> 1) & 0x7;
103 xmc[36] = (*c++ & 0x1) << 2;
104 xmc[36] |= (*c >> 6) & 0x3;
105 xmc[37] = (*c >> 3) & 0x7;
106 xmc[38] = *c++ & 0x7;
107
108 Nc[3] = (*c >> 1) & 0x7F;
109 bc[3] = (*c++ & 0x1) << 1;
110 bc[3] |= (*c >> 7) & 0x1;
111 Mc[3] = (*c >> 5) & 0x3;
112 xmaxc[3] = (*c++ & 0x1F) << 1;
113 xmaxc[3] |= (*c >> 7) & 0x1;
114
115 xmc[39] = (*c >> 4) & 0x7;
116 xmc[40] = (*c >> 1) & 0x7;
117 xmc[41] = (*c++ & 0x1) << 2;
118 xmc[41] |= (*c >> 6) & 0x3;
119 xmc[42] = (*c >> 3) & 0x7;
120 xmc[43] = *c++ & 0x7; /* 30 */
121 xmc[44] = (*c >> 5) & 0x7;
122 xmc[45] = (*c >> 2) & 0x7;
123 xmc[46] = (*c++ & 0x3) << 1;
124 xmc[46] |= (*c >> 7) & 0x1;
125 xmc[47] = (*c >> 4) & 0x7;
126 xmc[48] = (*c >> 1) & 0x7;
127 xmc[49] = (*c++ & 0x1) << 2;
128 xmc[49] |= (*c >> 6) & 0x3;
129 xmc[50] = (*c >> 3) & 0x7;
130 xmc[51] = *c & 0x7; /* 33 */
131
132 fprintf(f,
133 "LARc:\t%2.2d %2.2d %2.2d %2.2d %2.2d %2.2d %2.2d %2.2d\n",
134 LARc[0], LARc[1], LARc[2], LARc[3], LARc[4], LARc[5], LARc[6],
135 LARc[7]);
136
137 fprintf(f, "#1: Nc %4.4d bc %d Mc %d xmaxc %d\n",
138 Nc[0], bc[0], Mc[0], xmaxc[0]);
139 fprintf(f,
140 "\t%.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d\n",
141 xmc[0], xmc[1], xmc[2], xmc[3], xmc[4], xmc[5], xmc[6],
142 xmc[7], xmc[8], xmc[9], xmc[10], xmc[11], xmc[12]);
143
144 fprintf(f, "#2: Nc %4.4d bc %d Mc %d xmaxc %d\n",
145 Nc[1], bc[1], Mc[1], xmaxc[1]);
146 fprintf(f,
147 "\t%.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d\n",
148 xmc[13 + 0], xmc[13 + 1], xmc[13 + 2], xmc[13 + 3], xmc[13 + 4],
149 xmc[13 + 5], xmc[13 + 6], xmc[13 + 7], xmc[13 + 8], xmc[13 + 9],
150 xmc[13 + 10], xmc[13 + 11], xmc[13 + 12]);
151
152 fprintf(f, "#3: Nc %4.4d bc %d Mc %d xmaxc %d\n",
153 Nc[2], bc[2], Mc[2], xmaxc[2]);
154 fprintf(f,
155 "\t%.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d\n",
156 xmc[26 + 0], xmc[26 + 1], xmc[26 + 2], xmc[26 + 3], xmc[26 + 4],
157 xmc[26 + 5], xmc[26 + 6], xmc[26 + 7], xmc[26 + 8], xmc[26 + 9],
158 xmc[26 + 10], xmc[26 + 11], xmc[26 + 12]);
159
160 fprintf(f, "#4: Nc %4.4d bc %d Mc %d xmaxc %d\n",
161 Nc[3], bc[3], Mc[3], xmaxc[3]);
162 fprintf(f,
163 "\t%.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d\n",
164 xmc[39 + 0], xmc[39 + 1], xmc[39 + 2], xmc[39 + 3], xmc[39 + 4],
165 xmc[39 + 5], xmc[39 + 6], xmc[39 + 7], xmc[39 + 8], xmc[39 + 9],
166 xmc[39 + 10], xmc[39 + 11], xmc[39 + 12]);
167
168 return 0;
169 }

Repositories maintained by Peter Meerwald, pmeerw@pmeerw.net.