• Home
  • Line#
  • Scopes#
  • Navigate#
  • Raw
  • Download
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: /tmp_amd/presto/export/kbs/jutta/src/gsm/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) return -1;
23 
24 	LARc[0]  = (*c++ & 0xF) << 2;		/* 1 */
25 	LARc[0] |= (*c >> 6) & 0x3;
26 	LARc[1]  = *c++ & 0x3F;
27 	LARc[2]  = (*c >> 3) & 0x1F;
28 	LARc[3]  = (*c++ & 0x7) << 2;
29 	LARc[3] |= (*c >> 6) & 0x3;
30 	LARc[4]  = (*c >> 2) & 0xF;
31 	LARc[5]  = (*c++ & 0x3) << 2;
32 	LARc[5] |= (*c >> 6) & 0x3;
33 	LARc[6]  = (*c >> 3) & 0x7;
34 	LARc[7]  = *c++ & 0x7;
35 
36 
37 	Nc[0]  = (*c >> 1) & 0x7F;
38 	bc[0]  = (*c++ & 0x1) << 1;
39 	bc[0] |= (*c >> 7) & 0x1;
40 	Mc[0]  = (*c >> 5) & 0x3;
41 	xmaxc[0]  = (*c++ & 0x1F) << 1;
42 	xmaxc[0] |= (*c >> 7) & 0x1;
43 	xmc[0]  = (*c >> 4) & 0x7;
44 	xmc[1]  = (*c >> 1) & 0x7;
45 	xmc[2]  = (*c++ & 0x1) << 2;
46 	xmc[2] |= (*c >> 6) & 0x3;
47 	xmc[3]  = (*c >> 3) & 0x7;
48 	xmc[4]  = *c++ & 0x7;
49 	xmc[5]  = (*c >> 5) & 0x7;
50 	xmc[6]  = (*c >> 2) & 0x7;
51 	xmc[7]  = (*c++ & 0x3) << 1;		/* 10 */
52 	xmc[7] |= (*c >> 7) & 0x1;
53 	xmc[8]  = (*c >> 4) & 0x7;
54 	xmc[9]  = (*c >> 1) & 0x7;
55 	xmc[10]  = (*c++ & 0x1) << 2;
56 	xmc[10] |= (*c >> 6) & 0x3;
57 	xmc[11]  = (*c >> 3) & 0x7;
58 	xmc[12]  = *c++ & 0x7;
59 
60 	Nc[1]  = (*c >> 1) & 0x7F;
61 	bc[1]  = (*c++ & 0x1) << 1;
62 	bc[1] |= (*c >> 7) & 0x1;
63 	Mc[1]  = (*c >> 5) & 0x3;
64 	xmaxc[1]  = (*c++ & 0x1F) << 1;
65 	xmaxc[1] |= (*c >> 7) & 0x1;
66 	xmc[13]  = (*c >> 4) & 0x7;
67 	xmc[14]  = (*c >> 1) & 0x7;
68 	xmc[15]  = (*c++ & 0x1) << 2;
69 	xmc[15] |= (*c >> 6) & 0x3;
70 	xmc[16]  = (*c >> 3) & 0x7;
71 	xmc[17]  = *c++ & 0x7;
72 	xmc[18]  = (*c >> 5) & 0x7;
73 	xmc[19]  = (*c >> 2) & 0x7;
74 	xmc[20]  = (*c++ & 0x3) << 1;
75 	xmc[20] |= (*c >> 7) & 0x1;
76 	xmc[21]  = (*c >> 4) & 0x7;
77 	xmc[22]  = (*c >> 1) & 0x7;
78 	xmc[23]  = (*c++ & 0x1) << 2;
79 	xmc[23] |= (*c >> 6) & 0x3;
80 	xmc[24]  = (*c >> 3) & 0x7;
81 	xmc[25]  = *c++ & 0x7;
82 
83 
84 	Nc[2]  = (*c >> 1) & 0x7F;
85 	bc[2]  = (*c++ & 0x1) << 1;		/* 20 */
86 	bc[2] |= (*c >> 7) & 0x1;
87 	Mc[2]  = (*c >> 5) & 0x3;
88 	xmaxc[2]  = (*c++ & 0x1F) << 1;
89 	xmaxc[2] |= (*c >> 7) & 0x1;
90 	xmc[26]  = (*c >> 4) & 0x7;
91 	xmc[27]  = (*c >> 1) & 0x7;
92 	xmc[28]  = (*c++ & 0x1) << 2;
93 	xmc[28] |= (*c >> 6) & 0x3;
94 	xmc[29]  = (*c >> 3) & 0x7;
95 	xmc[30]  = *c++ & 0x7;
96 	xmc[31]  = (*c >> 5) & 0x7;
97 	xmc[32]  = (*c >> 2) & 0x7;
98 	xmc[33]  = (*c++ & 0x3) << 1;
99 	xmc[33] |= (*c >> 7) & 0x1;
100 	xmc[34]  = (*c >> 4) & 0x7;
101 	xmc[35]  = (*c >> 1) & 0x7;
102 	xmc[36]  = (*c++ & 0x1) << 2;
103 	xmc[36] |= (*c >> 6) & 0x3;
104 	xmc[37]  = (*c >> 3) & 0x7;
105 	xmc[38]  = *c++ & 0x7;
106 
107 	Nc[3]  = (*c >> 1) & 0x7F;
108 	bc[3]  = (*c++ & 0x1) << 1;
109 	bc[3] |= (*c >> 7) & 0x1;
110 	Mc[3]  = (*c >> 5) & 0x3;
111 	xmaxc[3]  = (*c++ & 0x1F) << 1;
112 	xmaxc[3] |= (*c >> 7) & 0x1;
113 
114 	xmc[39]  = (*c >> 4) & 0x7;
115 	xmc[40]  = (*c >> 1) & 0x7;
116 	xmc[41]  = (*c++ & 0x1) << 2;
117 	xmc[41] |= (*c >> 6) & 0x3;
118 	xmc[42]  = (*c >> 3) & 0x7;
119 	xmc[43]  = *c++ & 0x7;			/* 30  */
120 	xmc[44]  = (*c >> 5) & 0x7;
121 	xmc[45]  = (*c >> 2) & 0x7;
122 	xmc[46]  = (*c++ & 0x3) << 1;
123 	xmc[46] |= (*c >> 7) & 0x1;
124 	xmc[47]  = (*c >> 4) & 0x7;
125 	xmc[48]  = (*c >> 1) & 0x7;
126 	xmc[49]  = (*c++ & 0x1) << 2;
127 	xmc[49] |= (*c >> 6) & 0x3;
128 	xmc[50]  = (*c >> 3) & 0x7;
129 	xmc[51]  = *c & 0x7;			/* 33 */
130 
131 	fprintf(f,
132 	      "LARc:\t%2.2d  %2.2d  %2.2d  %2.2d  %2.2d  %2.2d  %2.2d  %2.2d\n",
133 	       LARc[0],LARc[1],LARc[2],LARc[3],LARc[4],LARc[5],LARc[6],LARc[7]);
134 
135 	fprintf(f, "#1: 	Nc %4.4d    bc %d    Mc %d    xmaxc %d\n",
136 		Nc[0], bc[0], Mc[0], xmaxc[0]);
137 	fprintf(f,
138 "\t%.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d\n",
139 		xmc[0],xmc[1],xmc[2],xmc[3],xmc[4],xmc[5],xmc[6],
140 		xmc[7],xmc[8],xmc[9],xmc[10],xmc[11],xmc[12] );
141 
142 	fprintf(f, "#2: 	Nc %4.4d    bc %d    Mc %d    xmaxc %d\n",
143 		Nc[1], bc[1], Mc[1], xmaxc[1]);
144 	fprintf(f,
145 "\t%.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d\n",
146 		xmc[13+0],xmc[13+1],xmc[13+2],xmc[13+3],xmc[13+4],xmc[13+5],
147 		xmc[13+6], xmc[13+7],xmc[13+8],xmc[13+9],xmc[13+10],xmc[13+11],
148 		xmc[13+12] );
149 
150 	fprintf(f, "#3: 	Nc %4.4d    bc %d    Mc %d    xmaxc %d\n",
151 		Nc[2], bc[2], Mc[2], xmaxc[2]);
152 	fprintf(f,
153 "\t%.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d\n",
154 		xmc[26+0],xmc[26+1],xmc[26+2],xmc[26+3],xmc[26+4],xmc[26+5],
155 		xmc[26+6], xmc[26+7],xmc[26+8],xmc[26+9],xmc[26+10],xmc[26+11],
156 		xmc[26+12] );
157 
158 	fprintf(f, "#4: 	Nc %4.4d    bc %d    Mc %d    xmaxc %d\n",
159 		Nc[3], bc[3], Mc[3], xmaxc[3]);
160 	fprintf(f,
161 "\t%.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d %.2d\n",
162 		xmc[39+0],xmc[39+1],xmc[39+2],xmc[39+3],xmc[39+4],xmc[39+5],
163 		xmc[39+6], xmc[39+7],xmc[39+8],xmc[39+9],xmc[39+10],xmc[39+11],
164 		xmc[39+12] );
165 
166 	return 0;
167 }
168