FreeCalypso > hg > gsm-net-reveng

annotate trau-decode/parse-fr-common.c @ 94:f9ef582c199c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
tfo-ut: check in tfo-fr.bin and tfo-efr.bin Each of these binary files is an extract from MSC-side E1 timeslot recording in a Nokia TCSM2 TFO session involving a cross-connect between two TRAU channels. The extracts have been chosen to begin at the point where the TRAU starts emitting TFO frames, thereby beginning with a series of TFO frames that contain an embedded TFO_TRANS message. In each experiment, one of the two cross-connected TRAU channels emitted two "plain" TFO frames (not containing embedded TFO messages) in between the initial embedded TFO_TRANS and the subsequent embedded TFO_REQ_L; this channel was chosen for the present extracts. Each extract is thus 2560 PCM samples, containing 16 aligned TFO frames: 5 carrying TFO_TRANS, 2 plain, 9 carrying TFO_REQ_L.
author Mychaela Falconia <falcon@freecalypso.org>
date Tue, 18 Mar 2025 22:56:23 +0000
parents d4ee42801cdc
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
131e0f1972bb beginning of trau-parse program
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
1 /*
76
d4ee42801cdc trau-decode: factor out parse-fr-common.c
Mychaela Falconia <falcon@freecalypso.org>
parents: 50
diff changeset
2 * This module contains a bit of code that has been factored out of
d4ee42801cdc trau-decode: factor out parse-fr-common.c
Mychaela Falconia <falcon@freecalypso.org>
parents: 50
diff changeset
3 * trau-parse and tfo-parse-fr16 programs; it handles FR and EFR codecs.
0
131e0f1972bb beginning of trau-parse program
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
4 */
131e0f1972bb beginning of trau-parse program
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
5
131e0f1972bb beginning of trau-parse program
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
6 #include <stdio.h>
131e0f1972bb beginning of trau-parse program
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
7 #include <stdint.h>
131e0f1972bb beginning of trau-parse program
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
8 #include <stdlib.h>
131e0f1972bb beginning of trau-parse program
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
9 #include <string.h>
131e0f1972bb beginning of trau-parse program
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
10 #include <strings.h>
131e0f1972bb beginning of trau-parse program
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
11
131e0f1972bb beginning of trau-parse program
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
12 static void
76
d4ee42801cdc trau-decode: factor out parse-fr-common.c
Mychaela Falconia <falcon@freecalypso.org>
parents: 50
diff changeset
13 collect_d_bits(frame_bits, d_bits)
d4ee42801cdc trau-decode: factor out parse-fr-common.c
Mychaela Falconia <falcon@freecalypso.org>
parents: 50
diff changeset
14 uint8_t *frame_bits, *d_bits;
2
b2ef2c80fef1 trau-parse: add FR decoding
Mychaela Falconia <falcon@freecalypso.org>
parents: 1
diff changeset
15 {
b2ef2c80fef1 trau-parse: add FR decoding
Mychaela Falconia <falcon@freecalypso.org>
parents: 1
diff changeset
16 bcopy(frame_bits + 33, d_bits, 15);
b2ef2c80fef1 trau-parse: add FR decoding
Mychaela Falconia <falcon@freecalypso.org>
parents: 1
diff changeset
17 bcopy(frame_bits + 49, d_bits + 15, 15);
b2ef2c80fef1 trau-parse: add FR decoding
Mychaela Falconia <falcon@freecalypso.org>
parents: 1
diff changeset
18 bcopy(frame_bits + 65, d_bits + 30, 15);
b2ef2c80fef1 trau-parse: add FR decoding
Mychaela Falconia <falcon@freecalypso.org>
parents: 1
diff changeset
19 bcopy(frame_bits + 81, d_bits + 45, 15);
b2ef2c80fef1 trau-parse: add FR decoding
Mychaela Falconia <falcon@freecalypso.org>
parents: 1
diff changeset
20 bcopy(frame_bits + 97, d_bits + 60, 15);
b2ef2c80fef1 trau-parse: add FR decoding
Mychaela Falconia <falcon@freecalypso.org>
parents: 1
diff changeset
21 bcopy(frame_bits + 113, d_bits + 75, 15);
b2ef2c80fef1 trau-parse: add FR decoding
Mychaela Falconia <falcon@freecalypso.org>
parents: 1
diff changeset
22 bcopy(frame_bits + 129, d_bits + 90, 15);
b2ef2c80fef1 trau-parse: add FR decoding
Mychaela Falconia <falcon@freecalypso.org>
parents: 1
diff changeset
23 bcopy(frame_bits + 145, d_bits + 105, 15);
b2ef2c80fef1 trau-parse: add FR decoding
Mychaela Falconia <falcon@freecalypso.org>
parents: 1
diff changeset
24 bcopy(frame_bits + 161, d_bits + 120, 15);
b2ef2c80fef1 trau-parse: add FR decoding
Mychaela Falconia <falcon@freecalypso.org>
parents: 1
diff changeset
25 bcopy(frame_bits + 177, d_bits + 135, 15);
b2ef2c80fef1 trau-parse: add FR decoding
Mychaela Falconia <falcon@freecalypso.org>
parents: 1
diff changeset
26 bcopy(frame_bits + 193, d_bits + 150, 15);
b2ef2c80fef1 trau-parse: add FR decoding
Mychaela Falconia <falcon@freecalypso.org>
parents: 1
diff changeset
27 bcopy(frame_bits + 209, d_bits + 165, 15);
b2ef2c80fef1 trau-parse: add FR decoding
Mychaela Falconia <falcon@freecalypso.org>
parents: 1
diff changeset
28 bcopy(frame_bits + 225, d_bits + 180, 15);
b2ef2c80fef1 trau-parse: add FR decoding
Mychaela Falconia <falcon@freecalypso.org>
parents: 1
diff changeset
29 bcopy(frame_bits + 241, d_bits + 195, 15);
b2ef2c80fef1 trau-parse: add FR decoding
Mychaela Falconia <falcon@freecalypso.org>
parents: 1
diff changeset
30 bcopy(frame_bits + 257, d_bits + 210, 15);
b2ef2c80fef1 trau-parse: add FR decoding
Mychaela Falconia <falcon@freecalypso.org>
parents: 1
diff changeset
31 bcopy(frame_bits + 273, d_bits + 225, 15);
b2ef2c80fef1 trau-parse: add FR decoding
Mychaela Falconia <falcon@freecalypso.org>
parents: 1
diff changeset
32 bcopy(frame_bits + 289, d_bits + 240, 15);
b2ef2c80fef1 trau-parse: add FR decoding
Mychaela Falconia <falcon@freecalypso.org>
parents: 1
diff changeset
33 bcopy(frame_bits + 305, d_bits + 255, 5);
b2ef2c80fef1 trau-parse: add FR decoding
Mychaela Falconia <falcon@freecalypso.org>
parents: 1
diff changeset
34 }
b2ef2c80fef1 trau-parse: add FR decoding
Mychaela Falconia <falcon@freecalypso.org>
parents: 1
diff changeset
35
76
d4ee42801cdc trau-decode: factor out parse-fr-common.c
Mychaela Falconia <falcon@freecalypso.org>
parents: 50
diff changeset
36 void
d4ee42801cdc trau-decode: factor out parse-fr-common.c
Mychaela Falconia <falcon@freecalypso.org>
parents: 50
diff changeset
37 print_fr_efr_frame(frame_bits, c1_5)
d4ee42801cdc trau-decode: factor out parse-fr-common.c
Mychaela Falconia <falcon@freecalypso.org>
parents: 50
diff changeset
38 uint8_t *frame_bits;
47
7119884f6afe trau-parse: rudimentary AMR decoding (C-bits)
Mychaela Falconia <falcon@freecalypso.org>
parents: 46
diff changeset
39 unsigned c1_5;
7119884f6afe trau-parse: rudimentary AMR decoding (C-bits)
Mychaela Falconia <falcon@freecalypso.org>
parents: 46
diff changeset
40 {
76
d4ee42801cdc trau-decode: factor out parse-fr-common.c
Mychaela Falconia <falcon@freecalypso.org>
parents: 50
diff changeset
41 uint8_t d_bits[260];
d4ee42801cdc trau-decode: factor out parse-fr-common.c
Mychaela Falconia <falcon@freecalypso.org>
parents: 50
diff changeset
42
47
7119884f6afe trau-parse: rudimentary AMR decoding (C-bits)
Mychaela Falconia <falcon@freecalypso.org>
parents: 46
diff changeset
43 switch (c1_5) {
7119884f6afe trau-parse: rudimentary AMR decoding (C-bits)
Mychaela Falconia <falcon@freecalypso.org>
parents: 46
diff changeset
44 case 0x02:
7119884f6afe trau-parse: rudimentary AMR decoding (C-bits)
Mychaela Falconia <falcon@freecalypso.org>
parents: 46
diff changeset
45 case 0x1C:
76
d4ee42801cdc trau-decode: factor out parse-fr-common.c
Mychaela Falconia <falcon@freecalypso.org>
parents: 50
diff changeset
46 collect_d_bits(frame_bits, d_bits);
47
7119884f6afe trau-parse: rudimentary AMR decoding (C-bits)
Mychaela Falconia <falcon@freecalypso.org>
parents: 46
diff changeset
47 print_fr_frame(d_bits);
7119884f6afe trau-parse: rudimentary AMR decoding (C-bits)
Mychaela Falconia <falcon@freecalypso.org>
parents: 46
diff changeset
48 break;
7119884f6afe trau-parse: rudimentary AMR decoding (C-bits)
Mychaela Falconia <falcon@freecalypso.org>
parents: 46
diff changeset
49 case 0x1A:
76
d4ee42801cdc trau-decode: factor out parse-fr-common.c
Mychaela Falconia <falcon@freecalypso.org>
parents: 50
diff changeset
50 collect_d_bits(frame_bits, d_bits);
47
7119884f6afe trau-parse: rudimentary AMR decoding (C-bits)
Mychaela Falconia <falcon@freecalypso.org>
parents: 46
diff changeset
51 check_efr_crc(d_bits);
7119884f6afe trau-parse: rudimentary AMR decoding (C-bits)
Mychaela Falconia <falcon@freecalypso.org>
parents: 46
diff changeset
52 print_efr_frame(d_bits);
7119884f6afe trau-parse: rudimentary AMR decoding (C-bits)
Mychaela Falconia <falcon@freecalypso.org>
parents: 46
diff changeset
53 break;
7119884f6afe trau-parse: rudimentary AMR decoding (C-bits)
Mychaela Falconia <falcon@freecalypso.org>
parents: 46
diff changeset
54 }
7119884f6afe trau-parse: rudimentary AMR decoding (C-bits)
Mychaela Falconia <falcon@freecalypso.org>
parents: 46
diff changeset
55 }