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 16int 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