aboutsummaryrefslogtreecommitdiffstats
path: root/src/amps
diff options
context:
space:
mode:
authorAndreas Eversberg <jolly@eversberg.eu>2017-05-30 12:49:40 +0200
committerAndreas Eversberg <jolly@eversberg.eu>2017-07-15 07:38:09 +0200
commit3788b3e8a5051ab9ad7073d951ad3bb4969d2b87 (patch)
tree2c564d2140241ee80bdd855cb9400ee097debd53 /src/amps
parentd52f4cd29d0713d171a40321cfe739bc70cdbf67 (diff)
TACS support (variations added to AMPS code)
These are: - Bandwidth only 25 KHz, so lower deviations - Data rate only 8000 KHz - SID is called AID (Area ID) - MIN1 coding is different
Diffstat (limited to 'src/amps')
-rw-r--r--src/amps/Makefile.am13
-rw-r--r--src/amps/amps.c164
-rw-r--r--src/amps/amps_tacs_main.c417
-rw-r--r--src/amps/dsp.c58
-rw-r--r--src/amps/frame.c103
-rw-r--r--src/amps/frame.h2
-rw-r--r--src/amps/main.c382
-rw-r--r--src/amps/main.h5
-rw-r--r--src/amps/stations.c11
-rw-r--r--src/amps/stations.h1
-rw-r--r--src/amps/sysinfo.c12
-rw-r--r--src/amps/sysinfo.h2
12 files changed, 693 insertions, 477 deletions
diff --git a/src/amps/Makefile.am b/src/amps/Makefile.am
index 20af5ac..0be8899 100644
--- a/src/amps/Makefile.am
+++ b/src/amps/Makefile.am
@@ -1,24 +1,31 @@
AM_CPPFLAGS = -Wall -Wextra -g $(all_includes)
+noinst_LIBRARIES = libamps.a
+
bin_PROGRAMS = \
amps
-amps_SOURCES = \
+libamps_a_SOURCES = \
+ amps_tacs_main.c \
amps.c \
transaction.c \
frame.c \
dsp.c \
- sysinfo.c \
- image.c \
+ sysinfo.c
+
+amps_SOURCES = \
tones.c \
noanswer.c \
outoforder.c \
invalidnumber.c \
congestion.c \
stations.c \
+ image.c \
main.c
+
amps_LDADD = \
$(COMMON_LA) \
+ libamps.a \
$(top_builddir)/src/common/libcommon.a \
$(ALSA_LIBS) \
$(UHD_LIBS) \
diff --git a/src/amps/amps.c b/src/amps/amps.c
index 798f95b..9efd91e 100644
--- a/src/amps/amps.c
+++ b/src/amps/amps.c
@@ -50,6 +50,8 @@
#include "amps.h"
#include "dsp.h"
#include "frame.h"
+#include "stations.h"
+#include "main.h"
/* Uncomment this to test SAT via loopback */
//#define DEBUG_VC
@@ -72,14 +74,22 @@ double amps_channel2freq(int channel, int uplink)
{
double freq;
- /* 832 channels, 990 not used, see TIA/EIA-136-110 */
- if (channel < 1 || channel > 1023 || (channel > 799 && channel < 991))
- return 0;
+ if (!tacs) {
+ /* 832 channels, 990 not used, see TIA/EIA-136-110 */
+ if (channel < 1 || channel > 1023 || (channel > 799 && channel < 991))
+ return 0;
- if (channel >= 990) // 990 is not used
- channel -= 1023;
+ if (channel >= 990) // 990 is not used
+ channel -= 1023;
- freq = 870.030 + (channel - 1) * 0.030;
+ freq = 870.030 + (channel - 1) * 0.030;
+ } else {
+ /* 600 channels */
+ if (channel < 1 || channel > 600)
+ return 0;
+
+ freq = 935.0125 + (channel - 1) * 0.025;
+ }
if (uplink)
freq -= 45.000;
@@ -89,24 +99,38 @@ double amps_channel2freq(int channel, int uplink)
enum amps_chan_type amps_channel2type(int channel)
{
- if (channel >= 313 && channel <= 354)
- return CHAN_TYPE_CC;
+ if (!tacs) {
+ if (channel >= 313 && channel <= 354)
+ return CHAN_TYPE_CC;
+ } else {
+ if (channel >= 23 && channel <= 43)
+ return CHAN_TYPE_CC;
+ if (channel >= 323 && channel <= 343)
+ return CHAN_TYPE_CC;
+ }
return CHAN_TYPE_VC;
}
const char *amps_channel2band(int channel)
{
- if (channel >= 991 && channel <= 1023)
- return "A''";
- if (channel >= 1 && channel <= 333)
- return "A";
- if (channel >= 334 && channel <= 666)
- return "B";
- if (channel >= 667 && channel <= 716)
- return "A'";
- if (channel >= 717 && channel <= 799)
- return "B'";
+ if (!tacs) {
+ if (channel >= 991 && channel <= 1023)
+ return "A''";
+ if (channel >= 1 && channel <= 333)
+ return "A";
+ if (channel >= 334 && channel <= 666)
+ return "B";
+ if (channel >= 667 && channel <= 716)
+ return "A'";
+ if (channel >= 717 && channel <= 799)
+ return "B'";
+ } else {
+ if (channel >= 1 && channel <= 300)
+ return "A";
+ if (channel >= 301 && channel <= 600)
+ return "B";
+ }
return "<invalid>";
}
@@ -125,11 +149,15 @@ static inline int binary2digit(int binary)
return binary + '0';
}
-/* convert NPA-NXX-XXXX to MIN1 and MIN2
+/* AMPS: convert NPA-NXX-XXXX to MIN1 and MIN2
* NPA = numbering plan area (MIN2)
* NXX = mobile exchange code
* XXXX = telephone number within the exchange
*/
+/* TACS: convert AREA-XXXXXX to MIN1 and MIN2
+ * AREA = 3 + 1 Digits
+ * XXXXXX = telephone number
+ */
void amps_number2min(const char *number, uint32_t *min1, uint16_t *min2)
{
int nlen = strlen(number);
@@ -154,13 +182,22 @@ void amps_number2min(const char *number, uint32_t *min1, uint16_t *min2)
nlen -= 3;
}
- /* MIN1 */
- *min1 = ((uint32_t)(digit2binary(number[0]) * 100 + digit2binary(number[1]) * 10 + digit2binary(number[2]) - 111)) << 14;
- *min1 |= digit2binary(number[3]) << 10;
- *min1 |= digit2binary(number[4]) * 100 + digit2binary(number[5]) * 10 + digit2binary(number[6]) - 111;
+ if (!tacs) {
+ /* MIN1 */
+ *min1 = ((uint32_t)(digit2binary(number[0]) * 100 + digit2binary(number[1]) * 10 + digit2binary(number[2]) - 111)) << 14;
+ *min1 |= digit2binary(number[3]) << 10;
+ *min1 |= digit2binary(number[4]) * 100 + digit2binary(number[5]) * 10 + digit2binary(number[6]) - 111;
+ } else {
+ /* MIN1 */
+ *min1 = (number[0] - '0') << 20;
+ *min1 |= (digit2binary(number[1]) * 100 + digit2binary(number[2]) * 10 + digit2binary(number[3]) - 111) << 10;
+ *min1 |= digit2binary(number[4]) * 100 + digit2binary(number[5]) * 10 + digit2binary(number[6]) - 111;
+ }
}
-/* convert MIN1 and MIN2 to NPA-NXX-XXXX
+/* AMPS: convert MIN1 and MIN2 to NPA-NXX-XXXX
+ */
+/* TACS: convert MIN1 and MIN2 to AREA-XXXXXXX
*/
const char *amps_min22number(uint16_t min2)
{
@@ -183,24 +220,46 @@ const char *amps_min12number(uint32_t min1)
{
static char number[8];
- /* MIN1 */
- if ((min1 >> 14) > 999)
- strcpy(number, "???");
- else {
- number[0] = binary2digit(((min1 >> 14) / 100) + 1);
- number[1] = binary2digit((((min1 >> 14) / 10) % 10) + 1);
- number[2] = binary2digit(((min1 >> 14) % 10) + 1);
- }
- if (((min1 >> 10) & 0xf) < 1 || ((min1 >> 10) & 0xf) > 10)
- number[3] = '?';
- else
- number[3] = binary2digit((min1 >> 10) & 0xf);
- if ((min1 & 0x3ff) > 999)
- strcpy(number + 4, "???");
- else {
- number[4] = binary2digit(((min1 & 0x3ff) / 100) + 1);
- number[5] = binary2digit((((min1 & 0x3ff) / 10) % 10) + 1);
- number[6] = binary2digit(((min1 & 0x3ff) % 10) + 1);
+ if (!tacs) {
+ /* MIN1 */
+ if ((min1 >> 14) > 999)
+ strcpy(number, "???");
+ else {
+ number[0] = binary2digit(((min1 >> 14) / 100) + 1);
+ number[1] = binary2digit((((min1 >> 14) / 10) % 10) + 1);
+ number[2] = binary2digit(((min1 >> 14) % 10) + 1);
+ }
+ if (((min1 >> 10) & 0xf) < 1 || ((min1 >> 10) & 0xf) > 10)
+ number[3] = '?';
+ else
+ number[3] = binary2digit((min1 >> 10) & 0xf);
+ if ((min1 & 0x3ff) > 999)
+ strcpy(number + 4, "???");
+ else {
+ number[4] = binary2digit(((min1 & 0x3ff) / 100) + 1);
+ number[5] = binary2digit((((min1 & 0x3ff) / 10) % 10) + 1);
+ number[6] = binary2digit(((min1 & 0x3ff) % 10) + 1);
+ }
+ } else {
+ /* MIN1 */
+ if ((min1 >> 20) > 9)
+ number[0] = '?';
+ else
+ number[0] = '0' + (min1 >> 20);
+ if (((min1 >> 10) & 0x3ff) > 999)
+ strcpy(number + 1, "???");
+ else {
+ number[1] = binary2digit((((min1 >> 10) & 0x3ff) / 100) + 1);
+ number[2] = binary2digit(((((min1 >> 10) & 0x3ff) / 10) % 10) + 1);
+ number[3] = binary2digit((((min1 >> 10) & 0x3ff) % 10) + 1);
+ }
+ if ((min1 & 0x3ff) > 999)
+ strcpy(number + 4, "???");
+ else {
+ number[4] = binary2digit(((min1 & 0x3ff) / 100) + 1);
+ number[5] = binary2digit((((min1 & 0x3ff) / 10) % 10) + 1);
+ number[6] = binary2digit(((min1 & 0x3ff) % 10) + 1);
+ }
}
number[7] = '\0';
@@ -424,7 +483,7 @@ int amps_create(int channel, enum amps_chan_type chan_type, const char *audiodev
const char *band;
/* check for channel number */
- if (channel < 1 || (channel > 799 && channel < 991) || channel > 1023) {
+ if (amps_channel2freq(channel, 0) == 0) {
PDEBUG(DAMPS, DEBUG_ERROR, "Channel number %d invalid.\n", channel);
return -EINVAL;
}
@@ -459,11 +518,11 @@ int amps_create(int channel, enum amps_chan_type chan_type, const char *audiodev
/* check if sid machtes channel band */
band = amps_channel2band(channel);
if (band[0] == 'A' && (sid & 1) == 0 && chan_type != CHAN_TYPE_VC) {
- PDEBUG(DAMPS, DEBUG_ERROR, "Channel number %d belongs to system A, but your SID %d is even and belongs to system B. Please give odd SID.\n", channel, sid);
+ PDEBUG(DAMPS, DEBUG_ERROR, "Channel number %d belongs to system A, but your %s %d is even and belongs to system B. Please give odd %s.\n", channel, (!tacs) ? "SID" : "AID", sid, (!tacs) ? "SID" : "AID");
return -EINVAL;
}
if (band[0] == 'B' && (sid & 1) == 1 && chan_type != CHAN_TYPE_VC) {
- PDEBUG(DAMPS, DEBUG_ERROR, "Channel number %d belongs to system B, but your SID %d is odd and belongs to system A. Please give even SID.\n", channel, sid);
+ PDEBUG(DAMPS, DEBUG_ERROR, "Channel number %d belongs to system B, but your %s %d is odd and belongs to system A. Please give even %s.\n", channel, (!tacs) ? "SID" : "AID", sid, (!tacs) ? "SID" : "AID");
return -EINVAL;
}
@@ -722,6 +781,7 @@ void amps_rx_recc(amps_t *amps, uint8_t scm, uint8_t mpci, uint32_t esn, uint32_
amps_t *vc;
transaction_t *trans;
const char *callerid = amps_min2number(min1, min2);
+ const char *carrier = NULL, *country = NULL, *national_number = NULL;
/* check if we are busy, so we ignore all signaling */
if (amps->state == STATE_BUSY) {
@@ -731,6 +791,14 @@ void amps_rx_recc(amps_t *amps, uint8_t scm, uint8_t mpci, uint32_t esn, uint32_
if (order == 13 && (ordq == 0 || ordq == 1 || ordq == 2 || ordq == 3) && msg_type == 0) {
PDEBUG_CHAN(DAMPS, DEBUG_INFO, "Registration %s (ESN = %08x, %s, %s)\n", callerid, esn, amps_scm(scm), amps_mpci(mpci));
+_register:
+ numbering(callerid, &carrier, &country, &national_number);
+ if (carrier)
+ PDEBUG_CHAN(DAMPS, DEBUG_INFO, " -> Home carrier: %s\n", carrier);
+ if (country)
+ PDEBUG_CHAN(DAMPS, DEBUG_INFO, " -> Home country: %s\n", country);
+ if (national_number)
+ PDEBUG_CHAN(DAMPS, DEBUG_INFO, " -> Home number: %s\n", national_number);
trans = create_transaction(amps, TRANS_REGISTER_ACK, min1, min2, msg_type, ordq, order, 0);
if (!trans) {
PDEBUG(DAMPS, DEBUG_ERROR, "Failed to create transaction\n");
@@ -739,11 +807,7 @@ void amps_rx_recc(amps_t *amps, uint8_t scm, uint8_t mpci, uint32_t esn, uint32_
} else
if (order == 13 && ordq == 3 && msg_type == 1) {
PDEBUG_CHAN(DAMPS, DEBUG_INFO, "Registration - Power Down %s (ESN = %08x, %s, %s)\n", callerid, esn, amps_scm(scm), amps_mpci(mpci));
- trans = create_transaction(amps, TRANS_REGISTER_ACK, min1, min2, msg_type, ordq, order, 0);
- if (!trans) {
- PDEBUG(DAMPS, DEBUG_ERROR, "Failed to create transaction\n");
- return;
- }
+ goto _register;
} else
if (order == 0 && ordq == 0 && msg_type == 0) {
if (!dialing)
diff --git a/src/amps/amps_tacs_main.c b/src/amps/amps_tacs_main.c
new file mode 100644
index 0000000..4f7fcbc
--- /dev/null
+++ b/src/amps/amps_tacs_main.c
@@ -0,0 +1,417 @@
+/* AMPS main
+ *
+ * (C) 2016 by Andreas Eversberg <jolly@eversberg.eu>
+ * All Rights Reserved
+ *
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program. If not, see <http://www.gnu.org/licenses/>.
+ */
+
+#include <stdio.h>
+#include <stdint.h>
+#include <getopt.h>
+#include <stdlib.h>
+#include <string.h>
+#include "../common/sample.h"
+#include "../common/main.h"
+#include "../common/debug.h"
+#include "../common/timer.h"
+#include "../common/call.h"
+#include "../common/mncc_sock.h"
+#include "amps.h"
+#include "dsp.h"
+#include "frame.h"
+#include "image.h"
+#include "stations.h"
+#include "main.h"
+
+/* settings */
+int num_chan_type = 0;
+enum amps_chan_type chan_type[MAX_SENDER] = { CHAN_TYPE_CC_PC_VC };
+const char *flip_polarity = "";
+int ms_power = 4, dtx = 0, dcc = 0, scc = 0, sid = 0, regh = 1, regr = 1, pureg = 0, pdreg = 0, locaid = -1, regincr = 300, bis = 0;
+int tolerant = 0;
+
+void print_help(const char *arg0)
+{
+ if (!tacs)
+ print_help_common(arg0, "-p -d -F yes | no [-S sid=<sid>] ");
+ else
+ print_help_common(arg0, "-p -d -F yes | no [-S aid=<aid>] ");
+ /* - - */
+ printf(" -T --channel-type <channel type> | list\n");
+ printf(" Give channel type, use 'list' to get a list. (default = '%s')\n", chan_type_short_name(chan_type[0]));
+ printf(" -F --flip-polarity no | yes\n");
+ printf(" Flip polarity of transmitted FSK signal. If yes, the sound card\n");
+ printf(" generates a negative signal rather than a positive one. Be sure that\n");
+ printf(" a positive signal causes a positive deviation on your transmitter.\n");
+ printf(" If the phone shows 'NoSrv', try the other way.\n");
+ printf(" -P --ms-power <power level>\n");
+ printf(" Give power level of the mobile station 0..7. (default = '%d')\n", ms_power);
+ if (!tacs) {
+ printf(" 0 = 4 W; 1 = 1.6 W; 2 = 630 mW; 3 = 250 mW;\n");
+ printf(" 4 = 100 mW; 5 = 40 mW; 6 = 16 mW; 7 = 6.3 mW\n");
+ } else {
+ printf(" 0 = 2.82 W; 1 = 1.12 W; 2 = 447 mW; 3 = 178 mW;\n");
+ printf(" 4 = 70.8 mW; 5 = 28.2 mW; 6 = 11.2 mW; 7 = 4.5 mW\n");
+ }
+ printf(" -D --dtx <parameter>\n");
+ printf(" Give DTX parameter for Discontinuous Transmission. (default = '%d')\n", dtx);
+ printf(" 0 = disable DTX; 1 = reserved;\n");
+ printf(" 2 = 8 dB attenuation in low state; 3 = transmitter off\n");
+ if (!tacs) {
+ printf(" -S --sysinfo sid=<System ID> | sid=list\n");
+ printf(" Give system ID of cell broadcast\n");
+ printf(" If it changes, phone re-registers. Use 'sid=list' to get a full list.\n");
+ } else {
+ printf(" -S --sysinfo aid=<System ID> | aid=list\n");
+ printf(" Give area ID of cell broadcast (default = '%d')\n", sid);
+ printf(" If it changes, phone re-registers. Use 'aid=list' to get a full list.\n");
+ }
+ printf(" -S --sysinfo dcc=<digital color code>\n");
+ printf(" Give digital color code 0..3 (default = '%d')\n", dcc);
+ printf(" -S --sysinfo scc=<SAT color code>\n");
+ printf(" Give supervisor tone color code 0..2 (default = '%d')\n", scc);
+ printf(" -S --sysinfo regincr\n");
+ printf(" Amount to add to REGID after successful registration (default = '%d')\n", regincr);
+ printf(" Since REGID is incremented every second, this value define after how\n");
+ printf(" many second the phone waits before it re-registers.\n");
+ printf(" -S --sysinfo pureg=0 | pureg=1\n");
+ printf(" If 1, phone registers on every power on (default = '%d')\n", pureg);
+ printf(" Warning: Older phones may not like this and show 'No Service'!\n");
+ printf(" -S --sysinfo pdreg=0 | pdreg=1\n");
+ printf(" If 1, phone de-registers on every power down (default = '%d')\n", pureg);
+ printf(" Warning: Older phones may not like this and show 'No Service'!\n");
+ printf(" -S --sysinfo locaid=<location area ID > | locaid=-1 to disable\n");
+ printf(" (default = '%d')\n", locaid);
+ printf(" If it changes, phone re-registers.\n");
+ printf(" Warning: Older phones may not like this and show 'No Service'!\n");
+ printf(" -S --sysinfo regh=0 | regh=1\n");
+ printf(" If 1, phone registers only if System ID matches (default = '%d')\n", regh);
+ printf(" -S --sysinfo regr=0 | regr=1\n");
+ printf(" If 1, phone registers only if System ID is different (default = '%d')\n", regr);
+ printf(" -S --sysinfo bis=0 | bis=1\n");
+ printf(" If 0, phone ignores BUSY/IDLE bit on FOCC (default = '%d')\n", bis);
+ printf(" If 1, be sure to have a round-trip delay (latency) not more than 5 ms\n");
+ printf(" -O --tolerant\n");
+ printf(" Be more tolerant when hunting for sync sequence\n");
+ printf("\nstation-id: Give 10 digit station-id, you don't need to enter it for every\n");
+ printf(" start of this program.\n");
+ print_hotkeys_common();
+}
+
+static int handle_options(int argc, char **argv)
+{
+ const char *p;
+ int skip_args = 0;
+ int rc;
+
+ static struct option long_options_special[] = {
+ {"channel-type", 1, 0, 'T'},
+ {"flip-polarity", 1, 0, 'F'},
+ {"ms-power", 1, 0, 'P'},
+ {"dtx", 1, 0, 'D'},
+ {"sysinfo", 1, 0, 'S'},
+ {"tolerant", 0, 0, 'O'},
+ {0, 0, 0, 0}
+ };
+
+ set_options_common("T:F:P:D:S:O", long_options_special);
+
+ while (1) {
+ int option_index = 0, c;
+
+ c = getopt_long(argc, argv, optstring, long_options, &option_index);
+
+ if (c == -1)
+ break;
+
+ switch (c) {
+ case 'T':
+ if (!strcmp(optarg, "list")) {
+ amps_channel_list();
+ exit(0);
+ }
+ rc = amps_channel_by_short_name(optarg);
+ if (rc < 0) {
+ fprintf(stderr, "Error, channel type '%s' unknown. Please use '-t list' to get a list. I suggest to use the default.\n", optarg);
+ exit(0);
+ }
+ OPT_ARRAY(num_chan_type, chan_type, rc)
+ skip_args += 2;
+ break;
+ case 'F':
+ if (!strcasecmp(optarg, "no"))
+ flip_polarity = "no";
+ else if (!strcasecmp(optarg, "yes"))
+ flip_polarity = "yes";
+ else {
+ fprintf(stderr, "Given polarity '%s' is illegal, see help!\n", optarg);
+ exit(0);
+ }
+ skip_args += 2;
+ break;
+ case 'P':
+ ms_power = atoi(optarg);
+ if (ms_power > 7)
+ ms_power = 7;
+ if (ms_power < 0)
+ ms_power = 0;
+ skip_args += 2;
+ break;
+ case 'D':
+ dtx = atoi(optarg);
+ if (dtx > 3)
+ dtx = 3;
+ if (dtx < 0)
+ dtx = 0;
+ skip_args += 2;
+ break;
+ case 'S':
+ p = strchr(optarg, '=');
+ if (!p) {
+ fprintf(stderr, "Given sysinfo parameter '%s' requires '=' character to set value, see help!\n", optarg);
+ exit(0);
+ }
+ p++;
+ if (!strncasecmp(optarg, "sid=", p - optarg)
+ || !strncasecmp(optarg, "aid=", p - optarg)) {
+ if (!strcasecmp(p, "list")) {
+ list_stations();
+ exit(0);
+ }
+ sid = atoi(p);
+ if (sid > 32767)
+ sid = 32767;
+ if (sid < 0)
+ sid = 0;
+ } else
+ if (!strncasecmp(optarg, "dcc=", p - optarg)) {
+ dcc = atoi(p);
+ if (dcc > 3)
+ dcc = 3;
+ if (dcc < 0)
+ dcc = 0;
+ } else
+ if (!strncasecmp(optarg, "scc=", p - optarg)) {
+ scc = atoi(p);
+ if (scc > 2)
+ scc = 2;
+ if (scc < 0)
+ scc = 0;
+ } else
+ if (!strncasecmp(optarg, "regincr=", p - optarg)) {
+ regincr = atoi(p);
+ } else
+ if (!strncasecmp(optarg, "pureg=", p - optarg)) {
+ pureg = atoi(p) & 1;
+ } else
+ if (!strncasecmp(optarg, "pdreg=", p - optarg)) {
+ pdreg = atoi(p) & 1;
+ } else
+ if (!strncasecmp(optarg, "locaid=", p - optarg)) {
+ locaid = atoi(p);
+ if (locaid > 4095)
+ locaid = 4095;
+ } else
+ if (!strncasecmp(optarg, "regh=", p - optarg)) {
+ regh = atoi(p) & 1;
+ } else
+ if (!strncasecmp(optarg, "regr=", p - optarg)) {
+ regr = atoi(p) & 1;
+ } else
+ if (!strncasecmp(optarg, "bis=", p - optarg)) {
+ bis = atoi(p) & 1;
+ } else {
+ fprintf(stderr, "Given sysinfo parameter '%s' unknown, see help!\n", optarg);
+ exit(0);
+ }
+ skip_args += 2;
+ break;
+ case 'O':
+ tolerant = 1;
+ skip_args += 1;
+ break;
+ default:
+ opt_switch_common(c, argv[0], &skip_args);
+ }
+ }
+
+ free(long_options);
+
+ return skip_args;
+}
+
+int main_amps_tacs(int argc, char *argv[])
+{
+ int rc;
+ int skip_args;
+ const char *station_id = "";
+ int polarity;
+ int i;
+
+ /* override default */
+ samplerate = 96000;
+
+ skip_args = handle_options(argc, argv);
+ argc -= skip_args;
+ argv += skip_args;
+
+ if (argc > 1) {
+ station_id = argv[1];
+ if (strlen(station_id) != 10) {
+ printf("Given station ID '%s' does not have 10 digits\n", station_id);
+ return 0;
+ }
+ }
+
+ if (!num_kanal) {
+ printf("No channel (\"Kanal\") is specified, I suggest channel %d.\n\n", (!tacs) ? 334 : 323);
+ print_help(argv[-skip_args]);
+ return 0;
+ }
+ if (use_sdr) {
+ /* set audiodev */
+ for (i = 0; i < num_kanal; i++)
+ audiodev[i] = "sdr";
+ num_audiodev = num_kanal;
+ /* set channel types for more than 1 channel */
+ if (num_kanal > 1 && num_chan_type == 0) {
+ chan_type[0] = CHAN_TYPE_CC_PC;
+ for (i = 1; i < num_kanal; i++)
+ chan_type[i] = CHAN_TYPE_VC;
+ num_chan_type = num_kanal;
+ }
+ }
+ if (num_kanal == 1 && num_audiodev == 0)
+ num_audiodev = 1; /* use default */
+ if (num_kanal != num_audiodev) {
+ fprintf(stderr, "You need to specify as many sound devices as you have channels.\n");
+ exit(0);
+ }
+ if (num_kanal == 1 && num_chan_type == 0)
+ num_chan_type = 1; /* use default */
+ if (num_kanal != num_chan_type) {
+ fprintf(stderr, "You need to specify as many channel types as you have channels.\n");
+ exit(0);
+ }
+
+ /* check for mandatory CC */
+ for (i = 0; i < num_kanal; i++) {
+ if (chan_type[i] == CHAN_TYPE_CC || chan_type[i] == CHAN_TYPE_CC_PC || chan_type[i] == CHAN_TYPE_CC_PC_VC)
+ break;
+ }
+ if (i == num_kanal) {
+ fprintf(stderr, "You must define at least one CC (control) or combined channel type. Quitting!\n");
+ goto fail;
+ }
+ // NOTE: Variable 'i' from above is used here:
+ /* default SID/AID, depending on system */
+ if (!sid) {
+ if (amps_channel2band(kanal[i])[0] == 'A') {
+ if (!tacs)
+ sid = 1; /* Chicago */
+ else
+ sid = 2051; /* UK Vodafone */
+ } else {
+ if (!tacs)
+ sid = 40; /* Frisco */
+ else
+ sid = 3600; /* UK Cellnet */
+ }
+
+ }
+
+ if (bis && latency > 5) {
+ fprintf(stderr, "If you use BUSY/IDLE bit, you need to lower the round-trip delay to 5 ms (--latency 5).\n");
+ exit(0);
+ }
+
+ if (!loopback)
+ print_image();
+ sid_stations(sid);
+
+ /* init functions */
+ dsp_init();
+ init_frame();
+
+ /* check for mandatory PC */
+ for (i = 0; i < num_kanal; i++) {
+ if (chan_type[i] == CHAN_TYPE_CC_PC || chan_type[i] == CHAN_TYPE_CC_PC_VC)
+ break;
+ }
+ if (i == num_kanal) {
+ fprintf(stderr, "You must define at least one PC (paging) or combined channel type. Quitting!\n");
+ goto fail;
+ }
+
+ /* check for mandatory VC */
+ for (i = 0; i < num_kanal; i++) {
+ if (chan_type[i] == CHAN_TYPE_VC || chan_type[i] == CHAN_TYPE_CC_PC_VC)
+ break;
+ }
+ if (i == num_kanal)
+ fprintf(stderr, "You did not define any VC (voice) channel. You will not be able to make any call.\n");
+
+ /* SDR always requires emphasis */
+ if (use_sdr) {
+ do_pre_emphasis = 1;
+ do_de_emphasis = 1;
+ }
+
+ if (!do_pre_emphasis || !do_de_emphasis) {
+ fprintf(stderr, "*******************************************************************************\n");
+ fprintf(stderr, "I strongly suggest to let me do pre- and de-emphasis (options -p -d)!\n");
+ fprintf(stderr, "Use a transmitter/receiver without emphasis and let me do that!\n");
+ fprintf(stderr, "Because carrier FSK signaling does not use emphasis, I like to control\n");
+ fprintf(stderr, "emphasis by myself for best results.\n");
+ fprintf(stderr, "*******************************************************************************\n");
+ }
+
+ if (!strcmp(flip_polarity, "no"))
+ polarity = 1; /* positive */
+ else if (!strcmp(flip_polarity, "yes"))
+ polarity = -1; /* negative */
+ else if (use_sdr)
+ polarity = 1; /* SDR is always positive */
+ else {
+ fprintf(stderr, "You must define, if the the TX deviation polarity has to be flipped. (-F yes | no) See help.\n");
+ exit(0);
+ }
+
+ /* create transceiver instance */
+ for (i = 0; i < num_kanal; i++) {
+ amps_si si;
+
+ init_sysinfo(&si, ms_power, ms_power, dtx, dcc, sid >> 1, regh, regr, pureg, pdreg, locaid, regincr, bis);
+ rc = amps_create(kanal[i], chan_type[i], audiodev[i], use_sdr, samplerate, rx_gain, do_pre_emphasis, do_de_emphasis, write_rx_wave, write_tx_wave, read_rx_wave, &si, sid, scc, polarity, tolerant, loopback);
+ if (rc < 0) {
+ fprintf(stderr, "Failed to create \"Sender\" instance. Quitting!\n");
+ goto fail;
+ }
+ if (!tacs)
+ printf("Base station on channel %d ready (%s), please tune transmitter to %.3f MHz and receiver to %.3f MHz.\n", kanal[i], chan_type_long_name(chan_type[i]), amps_channel2freq(kanal[i], 0) / 1e6, amps_channel2freq(kanal[i], 1) / 1e6);
+ else
+ printf("Base station on channel %d ready (%s), please tune transmitter to %.4f MHz and receiver to %.4f MHz.\n", kanal[i], chan_type_long_name(chan_type[i]), amps_channel2freq(kanal[i], 0) / 1e6, amps_channel2freq(kanal[i], 1) / 1e6);
+ }
+
+ main_common(&quit, latency, interval, NULL, station_id, 10);
+
+fail:
+ /* destroy transceiver instance */
+ while (sender_head)
+ amps_destroy(sender_head);
+
+ return 0;
+}
+
diff --git a/src/amps/dsp.c b/src/amps/dsp.c
index ece14aa..e65e791 100644
--- a/src/amps/dsp.c
+++ b/src/amps/dsp.c
@@ -88,6 +88,7 @@
#include "amps.h"
#include "frame.h"
#include "dsp.h"
+#include "main.h"
#define CHAN amps->sender.kanal
@@ -99,14 +100,22 @@
#define PI M_PI
-#define MAX_DEVIATION 8000.0
-#define MAX_MODULATION 10000.0
-#define DBM0_DEVIATION 2900.0 /* deviation of dBm0 at 1 kHz */
#define COMPANDOR_0DB 1.0 /* A level of 0dBm (1.0) shall be unaccected */
-#define FSK_DEVIATION (8000.0 / DBM0_DEVIATION) /* no emphasis */
-#define SAT_DEVIATION (2000.0 / DBM0_DEVIATION) /* no emphasis */
-#define MAX_DISPLAY (8000.0 / DBM0_DEVIATION) /* no emphasis */
-#define BITRATE 10000
+#define AMPS_MAX_DEVIATION 8000.0
+#define AMPS_MAX_MODULATION 10000.0
+#define AMPS_DBM0_DEVIATION 2900.0 /* deviation of dBm0 at 1 kHz */
+#define AMPS_FSK_DEVIATION (8000.0 / AMPS_DBM0_DEVIATION) /* no emphasis */
+#define AMPS_SAT_DEVIATION (2000.0 / AMPS_DBM0_DEVIATION) /* no emphasis */
+#define AMPS_MAX_DISPLAY (8000.0 / AMPS_DBM0_DEVIATION) /* no emphasis */
+#define AMPS_BITRATE 10000
+/* for some reason, 4000 Hz deviation works better */
+#define TACS_DBM0_DEVIATION 4000.0 /* 2300 Hz deviation at 1 kHz (according to panasonic manual) */
+#define TACS_MAX_DEVIATION 6400.0 /* (according to texas intruments and other sources) */
+#define TACS_MAX_MODULATION 9500.0 /* (according to panasonic manual) */
+#define TACS_FSK_DEVIATION (6400.0 / TACS_DBM0_DEVIATION) /* no emphasis */
+#define TACS_SAT_DEVIATION (1700.0 / TACS_DBM0_DEVIATION) /* no emphasis (panasonic / TI) */
+#define TACS_MAX_DISPLAY (6400.0 / TACS_DBM0_DEVIATION) /* no emphasis */
+#define TACS_BITRATE 8000
#define SAT_DURATION 0.05 /* duration of SAT signal measurement */
#define SAT_QUALITY 0.85 /* quality needed to detect SAT signal */
#define DTX_LEVEL 0.50 /* SAT level needed to mute/unmute */
@@ -121,12 +130,11 @@
static sample_t ramp_up[256], ramp_down[256];
-static double sat_freq[5] = {
+static double sat_freq[4] = {
5970.0,
6000.0,
6030.0,
5800.0, /* noise level to check against */
- 10000.0, /* signaling tone */
};
static sample_t dsp_sine_sat[65536];
@@ -143,8 +151,8 @@ void dsp_init(void)
PDEBUG(DDSP, DEBUG_DEBUG, "Generating sine table for SAT signal.\n");
for (i = 0; i < 65536; i++) {
s = sin((double)i / 65536.0 * 2.0 * PI);
- dsp_sine_sat[i] = s * SAT_DEVIATION;
- dsp_sine_test[i] = s * FSK_DEVIATION;
+ dsp_sine_sat[i] = s * ((!tacs) ? AMPS_SAT_DEVIATION : TACS_SAT_DEVIATION);
+ dsp_sine_test[i] = s * ((!tacs) ? AMPS_FSK_DEVIATION : TACS_FSK_DEVIATION);
}
/* sync checker */
@@ -194,14 +202,18 @@ int dsp_init_sender(amps_t *amps, int tolerant)
PDEBUG_CHAN(DDSP, DEBUG_DEBUG, "Init DSP for transceiver.\n");
/* set modulation parameters */
- sender_set_fm(&amps->sender, MAX_DEVIATION, MAX_MODULATION, DBM0_DEVIATION, MAX_DISPLAY);
+ sender_set_fm(&amps->sender,
+ (!tacs) ? AMPS_MAX_DEVIATION : TACS_MAX_DEVIATION,
+ (!tacs) ? AMPS_MAX_MODULATION : TACS_MAX_MODULATION,
+ (!tacs) ? AMPS_DBM0_DEVIATION : TACS_DBM0_DEVIATION,
+ (!tacs) ? AMPS_MAX_DISPLAY : TACS_MAX_DISPLAY);
if (amps->sender.samplerate < 96000) {
PDEBUG(DDSP, DEBUG_ERROR, "Sample rate must be at least 96000 Hz to process FSK and SAT signals.\n");
return -EINVAL;
}
- amps->fsk_bitduration = (double)amps->sender.samplerate / (double)BITRATE;
+ amps->fsk_bitduration = (double)amps->sender.samplerate / (double)((!tacs) ? AMPS_BITRATE : TACS_BITRATE);
amps->fsk_bitstep = 1.0 / amps->fsk_bitduration;
PDEBUG(DDSP, DEBUG_DEBUG, "Use %.4f samples for full bit duration @ %d.\n", amps->fsk_bitduration, amps->sender.samplerate);
@@ -231,7 +243,7 @@ int dsp_init_sender(amps_t *amps, int tolerant)
amps->fsk_rx_window = spl;
/* create devation and ramp */
- amps->fsk_deviation = FSK_DEVIATION;
+ amps->fsk_deviation = (!tacs) ? AMPS_FSK_DEVIATION : TACS_FSK_DEVIATION;
dsp_init_ramp(amps);
/* allocate ring buffer for SAT signal detection */
@@ -244,13 +256,15 @@ int dsp_init_sender(amps_t *amps, int tolerant)
amps->sat_filter_spl = spl;
/* count SAT tones */
- for (i = 0; i < 5; i++) {
+ for (i = 0; i < 4; i++) {
audio_goertzel_init(&amps->sat_goertzel[i], sat_freq[i], amps->sender.samplerate);
if (i < 3) {
amps->sat_phaseshift65536[i] = 65536.0 / ((double)amps->sender.samplerate / sat_freq[i]);
PDEBUG(DDSP, DEBUG_DEBUG, "sat_phaseshift65536[%d] = %.4f\n", i, amps->sat_phaseshift65536[i]);
}
}
+ /* signaling tone */
+ audio_goertzel_init(&amps->sat_goertzel[4], (!tacs) ? 10000.0 : 8000.0, amps->sender.samplerate);
sat_reset(amps, "Initial state");
/* test tone */
@@ -568,7 +582,7 @@ prepare_frame:
amps->fsk_rx_frame_quality = 0.0;
amps->fsk_rx_frame_level = 0.0;
amps->fsk_rx_sync_register = 0x555;
- amps->when_received = get_time() - (21.0 / (double)BITRATE);
+ amps->when_received = get_time() - (21.0 / (double)((!tacs) ? AMPS_BITRATE : TACS_BITRATE));
return;
case 0x81:
if (!amps->fsk_rx_sync_tolerant)
@@ -594,11 +608,11 @@ prepare_frame:
}
/* count level and quality */
- amps->fsk_rx_frame_level += (double)(max - min) / (double)FSK_DEVIATION / 2.0;
+ amps->fsk_rx_frame_level += (double)(max - min) / (double)((!tacs) ? AMPS_FSK_DEVIATION : TACS_FSK_DEVIATION) / 2.0;
if (bit)
- amps->fsk_rx_frame_quality += (double)(second - first) / (double)FSK_DEVIATION / 2.0 / BEST_QUALITY;
+ amps->fsk_rx_frame_quality += (double)(second - first) / (double)((!tacs) ? AMPS_FSK_DEVIATION : TACS_FSK_DEVIATION) / 2.0 / BEST_QUALITY;
else
- amps->fsk_rx_frame_quality += (double)(first - second) / (double)FSK_DEVIATION / 2.0 / BEST_QUALITY;
+ amps->fsk_rx_frame_quality += (double)(first - second) / (double)((!tacs) ? AMPS_FSK_DEVIATION : TACS_FSK_DEVIATION) / 2.0 / BEST_QUALITY;
/* invert bit if negative sync was detected */
if (amps->fsk_rx_sync == FSK_SYNC_NEGATIVE)
@@ -745,11 +759,11 @@ static void sat_decode(amps_t *amps, sample_t *samples, int length)
if (quality[1] < 0)
quality[1] = 0;
- PDEBUG_CHAN(DDSP, DEBUG_NOTICE, "SAT level %.2f%% quality %.0f%%\n", result[0] / SAT_DEVIATION / 0.63662 * 100.0, quality[0] * 100.0);
+ PDEBUG_CHAN(DDSP, DEBUG_NOTICE, "SAT level %.2f%% quality %.0f%%\n", result[0] / ((!tacs) ? AMPS_SAT_DEVIATION : TACS_SAT_DEVIATION) / 0.63662 * 100.0, quality[0] * 100.0);
if (amps->sender.loopback || debuglevel == DEBUG_DEBUG) {
- PDEBUG_CHAN(DDSP, debuglevel, "Signaling Tone level %.2f%% quality %.0f%%\n", result[2] / FSK_DEVIATION / 0.63662 * 100.0, quality[1] * 100.0);
+ PDEBUG_CHAN(DDSP, debuglevel, "Signaling Tone level %.2f%% quality %.0f%%\n", result[2] / ((!tacs) ? AMPS_FSK_DEVIATION : TACS_FSK_DEVIATION) / 0.63662 * 100.0, quality[1] * 100.0);
}
- if (quality[0] > SAT_QUALITY && result[0] / SAT_DEVIATION / 0.63662 > DTX_LEVEL)
+ if (quality[0] > SAT_QUALITY && result[0] / ((!tacs) ? AMPS_SAT_DEVIATION : TACS_SAT_DEVIATION) / 0.63662 > DTX_LEVEL)
amps->dtx_state = 1;
else
amps->dtx_state = 0;
diff --git a/src/amps/frame.c b/src/amps/frame.c
index 7676c36..757fbc3 100644
--- a/src/amps/frame.c
+++ b/src/amps/frame.c
@@ -32,6 +32,7 @@
#include "amps.h"
#include "dsp.h"
#include "frame.h"
+#include "main.h"
/* uncomment this to debug bits */
//#define BIT_DEBUGGING
@@ -317,7 +318,7 @@ static struct def_word word5_third_ssd_update_order_word = {
/* FOCC - System Parameter Overhead Message */
-static struct def_word word1_system_parameter_overhead = {
+static struct def_word amps_word1_system_parameter_overhead = {
"Word 1 - System Parameter Overhead",
{
{ "T1T2", 2, 0 },
@@ -333,6 +334,21 @@ static struct def_word word1_system_parameter_overhead = {
}
};
+static struct def_word tacs_word1_system_parameter_overhead = {
+ "Word 1 - System Parameter Overhead",
+ {
+ { "T1T2", 2, 0 },
+ { "DCC", 2, 0 },
+ { "AID1", 14, 0 },
+ { "EP", 1, 0 },
+ { "AUTH", 1, 0 },
+ { "PCI", 1, 0 },
+ { "NAWC", 4, 0 },
+ { "OHD", 3, 0 },
+ { "P", 12, 0 },
+ { NULL, 0, 0 }
+ }
+};
static struct def_word word2_system_parameter_overhead = {
"Word 2 - System Parameter Overhead",
@@ -612,7 +628,8 @@ static struct def_message_set focc_words = {
&word4_second_ssd_update_order_word,
&word5_third_ssd_update_order_word,
- &word1_system_parameter_overhead,
+ &amps_word1_system_parameter_overhead,
+ &tacs_word1_system_parameter_overhead,
&word2_system_parameter_overhead,
&rescan_global_action,
&registration_increment_global_action,
@@ -1711,23 +1728,43 @@ static const char *ie_chan(uint64_t value)
static const char *ie_cmac(uint64_t value)
{
- switch (value) {
- case 0:
- return "6 dbW (4 Watts)";
- case 1:
- return "2 dbW (1.6 Watts)";
- case 2:
- return "-2 dbW (630 Milliwatts)";
- case 3:
- return "-6 dbW (250 Milliwatts)";
- case 4:
- return "-10 dbW (100 Milliwatts)";
- case 5:
- return "-14 dbW (40 Milliwatts)";
- case 6:
- return "-18 dbW (16 Milliwatts)";
+ if (!tacs) {
+ switch (value) {
+ case 0:
+ return "6 dbW (4 Watts)";
+ case 1:
+ return "2 dbW (1.6 Watts)";
+ case 2:
+ return "-2 dbW (630 Milliwatts)";
+ case 3:
+ return "-6 dbW (250 Milliwatts)";
+ case 4:
+ return "-10 dbW (100 Milliwatts)";
+ case 5:
+ return "-14 dbW (40 Milliwatts)";
+ case 6:
+ return "-18 dbW (16 Milliwatts)";
+ }
+ return "-22 dbW (6.3 Milliwatts)";
+ } else {
+ switch (value) {
+ case 0:
+ return "4.5 dbW (2.82 Watts)";
+ case 1:
+ return "0.5 dbW (1.12 Watts)";
+ case 2:
+ return "-3.5 dbW (447 Milliwatts)";
+ case 3:
+ return "-7.5 dbW (178 Milliwatts)";
+ case 4:
+ return "-11.5 dbW (70.8 Milliwatts)";
+ case 5:
+ return "-15.5 dbW (28.2 Milliwatts)";
+ case 6:
+ return "-19.5 dbW (11.2 Milliwatts)";
+ }
+ return "-23.5 dbW (4.5 Milliwatts)";
}
- return "-22 dbW (6.3 Milliwatts)";
}
static const char *ie_cmax(uint64_t value)
@@ -2113,6 +2150,7 @@ struct amps_ie_desc amps_ie_desc[] = {
{ AMPS_IE_11, "11", "bit combination 3", NULL },
{ AMPS_IE_1111, "1111", "bit combination 15", NULL },
{ AMPS_IE_ACT, "ACT", "Global action field", ie_act },
+ { AMPS_IE_AID1, "AID1", "First part of the area identification field", NULL },
{ AMPS_IE_AUTH, "AUTH", "Support of authentication procedures described in TIA/EIA-136-510", ie_yes },
{ AMPS_IE_AUTHBS, "AUTHBS", "Output response of the authentication algorithm initiated by the Base Station Challenge Order", ie_hex },
{ AMPS_IE_AUTHR, "AUTHR", "Output response of the authentication algorithm", ie_hex },
@@ -2763,7 +2801,23 @@ uint64_t amps_encode_word1_system(uint8_t dcc, uint16_t sid1, uint8_t ep, uint8_
frame.ie[AMPS_IE_PCI] = pci;
frame.ie[AMPS_IE_NAWC] = nawc;
frame.ie[AMPS_IE_OHD] = 6;
- return amps_encode_word(&frame, &word1_system_parameter_overhead, -1);
+ return amps_encode_word(&frame, &amps_word1_system_parameter_overhead, -1);
+}
+
+uint64_t tacs_encode_word1_system(uint8_t dcc, uint16_t aid1, uint8_t ep, uint8_t auth, uint8_t pci, uint8_t nawc)
+{
+ frame_t frame;
+
+ memset(&frame, 0, sizeof(frame));
+ frame.ie[AMPS_IE_T1T2] = 3;
+ frame.ie[AMPS_IE_DCC] = dcc;
+ frame.ie[AMPS_IE_AID1] = aid1;
+ frame.ie[AMPS_IE_EP] = ep;
+ frame.ie[AMPS_IE_AUTH] = auth;
+ frame.ie[AMPS_IE_PCI] = pci;
+ frame.ie[AMPS_IE_NAWC] = nawc;
+ frame.ie[AMPS_IE_OHD] = 6;
+ return amps_encode_word(&frame, &tacs_word1_system_parameter_overhead, -1);
}
uint64_t amps_encode_word2_system(uint8_t dcc, uint8_t s, uint8_t e, uint8_t regh, uint8_t regr, uint8_t dtx, uint8_t n_1, uint8_t rcf, uint8_t cpa, uint8_t cmax_1, uint8_t end)
@@ -3061,7 +3115,10 @@ static void amps_decode_word_focc(amps_t *amps, uint64_t word)
ohd = (word >> 12) & 7;
switch (ohd) {
case 6:
- w = &word1_system_parameter_overhead;
+ if (!tacs)
+ w = &amps_word1_system_parameter_overhead;
+ else
+ w = &tacs_word1_system_parameter_overhead;
break;
case 7:
w = &word2_system_parameter_overhead;
@@ -3385,7 +3442,7 @@ int amps_encode_frame_focc(amps_t *amps, char *bits)
/* send overhead train */
if (amps->si.num) {
word = get_sysinfo(&amps->si);
- if (++amps->tx_focc_frame_count >= 17)
+ if (++amps->tx_focc_frame_count >= amps->si.overhead_repeat)
amps->tx_focc_frame_count = 0;
goto send;
}
@@ -3427,7 +3484,7 @@ int amps_encode_frame_focc(amps_t *amps, char *bits)
amps->tx_focc_word_repeat = 0;
amps->tx_focc_send = 0;
/* now we may wrap */
- if (amps->tx_focc_frame_count >= 17)
+ if (amps->tx_focc_frame_count >= amps->si.overhead_repeat)
amps->tx_focc_frame_count = 0;
}
}
@@ -3436,7 +3493,7 @@ int amps_encode_frame_focc(amps_t *amps, char *bits)
/* send filler */
word = amps_encode_control_filler(amps, amps->si.dcc, amps->si.filler.cmac, amps->si.filler.sdcc1, amps->si.filler.sdcc2, amps->si.filler.wfom);
- if (++amps->tx_focc_frame_count >= 17)
+ if (++amps->tx_focc_frame_count >= amps->si.overhead_repeat)
amps->tx_focc_frame_count = 0;
send:
diff --git a/src/amps/frame.h b/src/amps/frame.h
index 9531dfe..42380ad 100644
--- a/src/amps/frame.h
+++ b/src/amps/frame.h
@@ -5,6 +5,7 @@ enum amps_ie {
AMPS_IE_11,
AMPS_IE_1111,
AMPS_IE_ACT,
+ AMPS_IE_AID1,
AMPS_IE_AUTH,
AMPS_IE_AUTHBS,
AMPS_IE_AUTHR,
@@ -211,6 +212,7 @@ typedef struct amps_frame {
void init_frame(void);
uint64_t amps_encode_word1_system(uint8_t dcc, uint16_t sid1, uint8_t ep, uint8_t auth, uint8_t pci, uint8_t nawc);
+uint64_t tacs_encode_word1_system(uint8_t dcc, uint16_t aid1, uint8_t ep, uint8_t auth, uint8_t pci, uint8_t nawc);
uint64_t amps_encode_word2_system(uint8_t dcc, uint8_t s, uint8_t e, uint8_t regh, uint8_t regr, uint8_t dtx, uint8_t n_1, uint8_t rcf, uint8_t cpa, uint8_t cmax_1, uint8_t end);
uint64_t amps_encode_registration_id(uint8_t dcc, uint32_t regid, uint8_t end);
uint64_t amps_encode_registration_increment(uint8_t dcc, uint16_t regincr, uint8_t end);
diff --git a/src/amps/main.c b/src/amps/main.c
index e4dc243..ce0e065 100644
--- a/src/amps/main.c
+++ b/src/amps/main.c
@@ -1,394 +1,20 @@
-/* AMPS main
- *
- * (C) 2016 by Andreas Eversberg <jolly@eversberg.eu>
- * All Rights Reserved
- *
- * This program is free software: you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation, either version 3 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program. If not, see <http://www.gnu.org/licenses/>.
- */
-
-#include <stdio.h>
-#include <stdint.h>
-#include <getopt.h>
-#include <stdlib.h>
-#include <string.h>
-#include "../common/sample.h"
-#include "../common/main.h"
-#include "../common/debug.h"
-#include "../common/timer.h"
-#include "../common/call.h"
-#include "../common/mncc_sock.h"
-#include "amps.h"
-#include "dsp.h"
-#include "frame.h"
-#include "image.h"
+#include "main.h"
#include "tones.h"
#include "noanswer.h"
#include "outoforder.h"
#include "invalidnumber.h"
#include "congestion.h"
-#include "stations.h"
-
-/* settings */
-int num_chan_type = 0;
-enum amps_chan_type chan_type[MAX_SENDER] = { CHAN_TYPE_CC_PC_VC };
-const char *flip_polarity = "";
-int ms_power = 4, dtx = 0, dcc = 0, scc = 0, sid = 40, regh = 1, regr = 1, pureg = 1, pdreg = 1, locaid = -1, regincr = 300, bis = 0;
-int tolerant = 0;
-
-void print_help(const char *arg0)
-{
- print_help_common(arg0, "-p -d -F yes | no [-S sid=<sid>] ");
- /* - - */
- printf(" -T --channel-type <channel type> | list\n");
- printf(" Give channel type, use 'list' to get a list. (default = '%s')\n", chan_type_short_name(chan_type[0]));
- printf(" -F --flip-polarity no | yes\n");
- printf(" Flip polarity of transmitted FSK signal. If yes, the sound card\n");
- printf(" generates a negative signal rather than a positive one. Be sure that\n");
- printf(" a positive signal causes a positive deviation on your transmitter.\n");
- printf(" If the phone shows 'NoSrv', try the other way.\n");
- printf(" -P --ms-power <power level>\n");
- printf(" Give power level of the mobile station 0..7. (default = '%d')\n", ms_power);
- printf(" 0 = 4 W; 1 = 1.6 W; 2 = 630 mW; 3 = 250 mW;\n");
- printf(" 4 = 100 mW; 5 = 40 mW; 6 = 16 mW; 7 = 6.3 mW\n");
- printf(" -D --dtx <parameter>\n");
- printf(" Give DTX parameter for Discontinuous Transmission. (default = '%d')\n", dtx);
- printf(" 0 = disable DTX; 1 = reserved;\n");
- printf(" 2 = 8 dB attenuation in low state; 3 = transmitter off\n");
- printf(" -S --sysinfo sid=<System ID> | sid=list\n");
- printf(" Give system ID of cell broadcast (default = '%d')\n", sid);
- printf(" If it changes, phone re-registers. Use 'sid=list' to get a full list.\n");
- printf(" -S --sysinfo dcc=<digital color code>\n");
- printf(" Give digital color code 0..3 (default = '%d')\n", dcc);
- printf(" -S --sysinfo scc=<SAT color code>\n");
- printf(" Give supervisor tone color code 0..2 (default = '%d')\n", scc);
- printf(" -S --sysinfo regincr\n");
- printf(" Amount to add to REGID after successful registration (default = '%d')\n", regincr);
- printf(" Since REGID is incremented every second, this value define after how\n");
- printf(" many second the phone waits before it re-registers.\n");
- printf(" -S --sysinfo pureg=0 | pureg=1\n");
- printf(" If 1, phone registers on every power on (default = '%d')\n", pureg);
- printf(" (Not supported by older phones.)\n");
- printf(" -S --sysinfo pdreg=0 | pdreg=1\n");
- printf(" If 1, phone de-registers on every power down (default = '%d')\n", pureg);
- printf(" (Not supported by older phones.)\n");
- printf(" -S --sysinfo locaid=<location area ID > | locaid=-1 to disable\n");
- printf(" (default = '%d')\n", locaid);
- printf(" If it changes, phone re-registers.\n");
- printf(" (Not supported by older phones.)\n");
- printf(" -S --sysinfo regh=0 | regh=1\n");
- printf(" If 1, phone registers only if System ID matches (default = '%d')\n", regh);
- printf(" -S --sysinfo regr=0 | regr=1\n");
- printf(" If 1, phone registers only if System ID is different (default = '%d')\n", regr);
- printf(" -S --sysinfo bis=0 | bis=1\n");
- printf(" If 0, phone ignores BUSY/IDLE bit on FOCC (default = '%d')\n", bis);
- printf(" If 1, be sure to have a round-trip delay (latency) not more than 5 ms\n");
- printf(" -O --tolerant\n");
- printf(" Be more tolerant when hunting for sync sequence\n");
- printf("\nstation-id: Give 10 digit station-id, you don't need to enter it for every\n");
- printf(" start of this program.\n");
- print_hotkeys_common();
-}
-
-static int handle_options(int argc, char **argv)
-{
- const char *p;
- int skip_args = 0;
- int rc;
-
- static struct option long_options_special[] = {
- {"channel-type", 1, 0, 'T'},
- {"flip-polarity", 1, 0, 'F'},
- {"ms-power", 1, 0, 'P'},
- {"dtx", 1, 0, 'D'},
- {"sysinfo", 1, 0, 'S'},
- {"tolerant", 0, 0, 'O'},
- {0, 0, 0, 0}
- };
-
- set_options_common("T:F:P:D:S:O", long_options_special);
- while (1) {
- int option_index = 0, c;
-
- c = getopt_long(argc, argv, optstring, long_options, &option_index);
-
- if (c == -1)
- break;
-
- switch (c) {
- case 'T':
- if (!strcmp(optarg, "list")) {
- amps_channel_list();
- exit(0);
- }
- rc = amps_channel_by_short_name(optarg);
- if (rc < 0) {
- fprintf(stderr, "Error, channel type '%s' unknown. Please use '-t list' to get a list. I suggest to use the default.\n", optarg);
- exit(0);
- }
- OPT_ARRAY(num_chan_type, chan_type, rc)
- skip_args += 2;
- break;
- case 'F':
- if (!strcasecmp(optarg, "no"))
- flip_polarity = "no";
- else if (!strcasecmp(optarg, "yes"))
- flip_polarity = "yes";
- else {
- fprintf(stderr, "Given polarity '%s' is illegal, see help!\n", optarg);
- exit(0);
- }
- skip_args += 2;
- break;
- case 'P':
- ms_power = atoi(optarg);
- if (ms_power > 3)
- ms_power = 3;
- if (ms_power < 0)
- ms_power = 0;
- skip_args += 2;
- break;
- case 'D':
- dtx = atoi(optarg);
- if (dtx > 3)
- dtx = 3;
- if (dtx < 0)
- dtx = 0;
- skip_args += 2;
- break;
- case 'S':
- p = strchr(optarg, '=');
- if (!p) {
- fprintf(stderr, "Given sysinfo parameter '%s' requires '=' character to set value, see help!\n", optarg);
- exit(0);
- }
- p++;
- if (!strncasecmp(optarg, "sid=", p - optarg)) {
- if (!strcasecmp(p, "list")) {
- list_stations();
- exit(0);
- }
- sid = atoi(p);
- if (sid > 32767)
- sid = 32767;
- if (sid < 0)
- sid = 0;
- } else
- if (!strncasecmp(optarg, "dcc=", p - optarg)) {
- dcc = atoi(p);
- if (dcc > 3)
- dcc = 3;
- if (dcc < 0)
- dcc = 0;
- } else
- if (!strncasecmp(optarg, "scc=", p - optarg)) {
- scc = atoi(p);
- if (scc > 2)
- scc = 2;
- if (scc < 0)
- scc = 0;
- } else
- if (!strncasecmp(optarg, "regincr=", p - optarg)) {
- regincr = atoi(p);
- } else
- if (!strncasecmp(optarg, "pureg=", p - optarg)) {
- pureg = atoi(p) & 1;
- } else
- if (!strncasecmp(optarg, "pdreg=", p - optarg)) {
- pdreg = atoi(p) & 1;
- } else
- if (!strncasecmp(optarg, "locaid=", p - optarg)) {
- locaid = atoi(p);
- if (locaid > 4095)
- locaid = 4095;
- } else
- if (!strncasecmp(optarg, "regh=", p - optarg)) {
- regh = atoi(p) & 1;
- } else
- if (!strncasecmp(optarg, "regr=", p - optarg)) {
- regr = atoi(p) & 1;
- } else
- if (!strncasecmp(optarg, "bis=", p - optarg)) {
- bis = atoi(p) & 1;
- } else {
- fprintf(stderr, "Given sysinfo parameter '%s' unknown, see help!\n", optarg);
- exit(0);
- }
- skip_args += 2;
- break;
- case 'O':
- tolerant = 1;
- skip_args += 1;
- break;
- default:
- opt_switch_common(c, argv[0], &skip_args);
- }
- }
-
- free(long_options);
-
- return skip_args;
-}
+const int tacs = 0;
int main(int argc, char *argv[])
{
- int rc;
- int skip_args;
- const char *station_id = "";
- int polarity;
- int i;
-
- /* override default */
- samplerate = 96000;
-
/* init common tones */
init_tones();
- init_noanswer();
init_outoforder();
+ init_noanswer();
init_invalidnumber();
init_congestion();
- skip_args = handle_options(argc, argv);
- argc -= skip_args;
- argv += skip_args;
-
- if (argc > 1) {
- station_id = argv[1];
- if (strlen(station_id) != 10) {
- printf("Given station ID '%s' does not have 10 digits\n", station_id);
- return 0;
- }
- }
-
- if (!num_kanal) {
- printf("No channel (\"Kanal\") is specified, I suggest channel 334.\n\n");
- print_help(argv[-skip_args]);
- return 0;
- }
- if (use_sdr) {
- /* set audiodev */
- for (i = 0; i < num_kanal; i++)
- audiodev[i] = "sdr";
- num_audiodev = num_kanal;
- /* set channel types for more than 1 channel */
- if (num_kanal > 1 && num_chan_type == 0) {
- chan_type[0] = CHAN_TYPE_CC_PC;
- for (i = 1; i < num_kanal; i++)
- chan_type[i] = CHAN_TYPE_VC;
- num_chan_type = num_kanal;
- }
- }
- if (num_kanal == 1 && num_audiodev == 0)
- num_audiodev = 1; /* use default */
- if (num_kanal != num_audiodev) {
- fprintf(stderr, "You need to specify as many sound devices as you have channels.\n");
- exit(0);
- }
- if (num_kanal == 1 && num_chan_type == 0)
- num_chan_type = 1; /* use default */
- if (num_kanal != num_chan_type) {
- fprintf(stderr, "You need to specify as many channel types as you have channels.\n");
- exit(0);
- }
-
- if (bis && latency > 5) {
- fprintf(stderr, "If you use BUSY/IDLE bit, you need to lower the round-trip delay to 5 ms (--latenc 5).\n");
- exit(0);
- }
-
- if (!loopback)
- print_image();
- sid_stations(sid);
-
- /* init functions */
- dsp_init();
- init_frame();
-
- /* check for mandatory CC */
- for (i = 0; i < num_kanal; i++) {
- if (chan_type[i] == CHAN_TYPE_CC || chan_type[i] == CHAN_TYPE_CC_PC || chan_type[i] == CHAN_TYPE_CC_PC_VC)
- break;
- }
- if (i == num_kanal) {
- fprintf(stderr, "You must define at least one CC (control) or combined channel type. Quitting!\n");
- goto fail;
- }
-
- /* check for mandatory PC */
- for (i = 0; i < num_kanal; i++) {
- if (chan_type[i] == CHAN_TYPE_CC_PC || chan_type[i] == CHAN_TYPE_CC_PC_VC)
- break;
- }
- if (i == num_kanal) {
- fprintf(stderr, "You must define at least one PC (paging) or combined channel type. Quitting!\n");
- goto fail;
- }
-
- /* check for mandatory VC */
- for (i = 0; i < num_kanal; i++) {
- if (chan_type[i] == CHAN_TYPE_VC || chan_type[i] == CHAN_TYPE_CC_PC_VC)
- break;
- }
- if (i == num_kanal)
- fprintf(stderr, "You did not define any VC (voice) channel. You will not be able to make any call.\n");
-
- /* SDR always requires emphasis */
- if (use_sdr) {
- do_pre_emphasis = 1;
- do_de_emphasis = 1;
- }
-
- if (!do_pre_emphasis || !do_de_emphasis) {
- fprintf(stderr, "*******************************************************************************\n");
- fprintf(stderr, "I strongly suggest to let me do pre- and de-emphasis (options -p -d)!\n");
- fprintf(stderr, "Use a transmitter/receiver without emphasis and let me do that!\n");
- fprintf(stderr, "Because carrier FSK signaling does not use emphasis, I like to control\n");
- fprintf(stderr, "emphasis by myself for best results.\n");
- fprintf(stderr, "*******************************************************************************\n");
- }
-
- if (!strcmp(flip_polarity, "no"))
- polarity = 1; /* positive */
- else if (!strcmp(flip_polarity, "yes"))
- polarity = -1; /* negative */
- else if (use_sdr)
- polarity = 1; /* SDR is always positive */
- else {
- fprintf(stderr, "You must define, if the the TX deviation polarity has to be flipped. (-F yes | no) See help.\n");
- exit(0);
- }
-
- /* create transceiver instance */
- for (i = 0; i < num_kanal; i++) {
- amps_si si;
-
- init_sysinfo(&si, ms_power, ms_power, dtx, dcc, sid >> 1, regh, regr, pureg, pdreg, locaid, regincr, bis);
- rc = amps_create(kanal[i], chan_type[i], audiodev[i], use_sdr, samplerate, rx_gain, do_pre_emphasis, do_de_emphasis, write_rx_wave, write_tx_wave, read_rx_wave, &si, sid, scc, polarity, tolerant, loopback);
- if (rc < 0) {
- fprintf(stderr, "Failed to create \"Sender\" instance. Quitting!\n");
- goto fail;
- }
- printf("Base station on channel %d ready (%s), please tune transmitter to %.3f MHz and receiver to %.3f MHz.\n", kanal[i], chan_type_long_name(chan_type[i]), amps_channel2freq(kanal[i], 0) / 1e6, amps_channel2freq(kanal[i], 1) / 1e6);
- }
-
- main_common(&quit, latency, interval, NULL, station_id, 10);
-
-fail:
- /* destroy transceiver instance */
- while (sender_head)
- amps_destroy(sender_head);
-
- return 0;
+ return main_amps_tacs(argc, argv);
}
-
diff --git a/src/amps/main.h b/src/amps/main.h
new file mode 100644
index 0000000..323b94a
--- /dev/null
+++ b/src/amps/main.h
@@ -0,0 +1,5 @@
+
+extern const int tacs;
+
+int main_amps_tacs(int argc, char *argv[]);
+
diff --git a/src/amps/stations.c b/src/amps/stations.c
index ebd6544..481a77e 100644
--- a/src/amps/stations.c
+++ b/src/amps/stations.c
@@ -1,6 +1,17 @@
#include <stdio.h>
+#include <string.h>
#include "stations.h"
+void numbering(const char *number, const char __attribute__((unused)) **carrier, const char **country, const char **national_number)
+{
+ static char digits[64];
+
+ *country = "USA";
+ strcpy(digits, "1");
+ strcat(digits, number);
+ *national_number = number;
+}
+
/*
1: the SID, system Identification number
2: the BID, the billing identification number, or 0= if same as the SID
diff --git a/src/amps/stations.h b/src/amps/stations.h
index d4f3046..0d3a0ec 100644
--- a/src/amps/stations.h
+++ b/src/amps/stations.h
@@ -1,4 +1,5 @@
+void numbering(const char *number, const char **carrier, const char **country, const char **national_number);
void list_stations(void);
void sid_stations(int sid);
diff --git a/src/amps/sysinfo.c b/src/amps/sysinfo.c
index 064abbf..8b99f30 100644
--- a/src/amps/sysinfo.c
+++ b/src/amps/sysinfo.c
@@ -7,6 +7,7 @@
#include "../common/timer.h"
#include "amps.h"
#include "frame.h"
+#include "main.h"
static struct sysinfo_reg_incr default_reg_incr = {
450,
@@ -48,6 +49,12 @@ void init_sysinfo(amps_si *si, int cmac, int vmac, int dtx, int dcc, int sid1, i
memset(si, 0, sizeof(*si));
+ /* how oftern to repeat the overhead train */
+ if (!tacs)
+ si->overhead_repeat = 17;
+ else
+ si->overhead_repeat = 14;
+
/* all words */
si->dcc = dcc;
/* VC assginment */
@@ -159,7 +166,10 @@ uint64_t get_sysinfo(amps_si *si)
switch (si->type[count]) {
case SYSINFO_WORD1:
nawc = si->num - 1;
- return amps_encode_word1_system(si->dcc, si->word1.sid1, si->word1.ep, si->word1.auth, si->word1.pci, nawc);
+ if (!tacs)
+ return amps_encode_word1_system(si->dcc, si->word1.sid1, si->word1.ep, si->word1.auth, si->word1.pci, nawc);
+ else
+ return tacs_encode_word1_system(si->dcc, si->word1.sid1, si->word1.ep, si->word1.auth, si->word1.pci, nawc);
case SYSINFO_WORD2:
return amps_encode_word2_system(si->dcc, si->word2.s, si->word2.e, si->word2.regh, si->word2.regr, si->word2.dtx, si->word2.n_1, si->word2.rcf, si->word2.cpa, si->word2.cmax_1, end);
case SYSINFO_REG_ID:
diff --git a/src/amps/sysinfo.h b/src/amps/sysinfo.h
index 211c128..bf16f65 100644
--- a/src/amps/sysinfo.h
+++ b/src/amps/sysinfo.h
@@ -86,6 +86,8 @@ struct sysinfo_reg_id {
};
typedef struct system_information {
+ /* how ofter repeat overhead train (in frames) */
+ int overhead_repeat;
/* all words */
uint8_t dcc;
/* VC assginment */