|
2
|
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 }
|
