libgsmfr/src/gsm_print.c

   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 }