1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
|
#!/usr/bin/env bash
# ota_test.sh
#
# Automated Over The Air (OTA) data test for FreeDV OFDM HF data modems
#
# 1. Build codec2
# 2. Install kiwclient:
# cd ~ && git clone git@github.com:jks-prv/kiwiclient.git
# 3. Install Hamlib cli tools
PATH=${PATH}:${HOME}/codec2/build_linux/src:${HOME}/kiwiclient
CODEC2=${HOME}/codec2
kiwi_url=""
port=8073
freq_kHz="7177"
tx_only=0
Nbursts=5
mode="datac0"
model=361
function print_help {
echo
echo "Automated Over The Air (OTA) data test for FreeDV OFDM HF data modems"
echo
echo " usage ./ota_test.sh [-d] [-f freq_kHz] [-t] [-n Nbursts] [-o model] [-p port] kiwi_url"
echo
echo " -d debug mode; trace script execution"
echo " -o model select radio model number ('rigctl -l' to list)"
echo " -m mode datac0|datac1|datac3"
echo " -t Tx only, useful for manually observing SDRs which block multiple sessions from one IP"
echo
exit
}
function run_rigctl {
command=$1
model=$2
echo $command | rigctl -m $model -r /dev/ttyUSB0 > /dev/null
if [ $? -ne 0 ]; then
echo "Can't talk to Tx"
exit 1
fi
}
POSITIONAL=()
while [[ $# -gt 0 ]]
do
key="$1"
case $key in
-d)
set -x
shift
;;
-f)
freq_kHz="$2"
shift
shift
;;
-o)
model="$2"
shift
shift
;;
-m)
mode="$2"
shift
shift
;;
-n)
Nbursts="$2"
shift
shift
;;
-p)
port="$2"
shift
shift
;;
-t)
tx_only=1
shift
;;
-h)
print_help
;;
*)
POSITIONAL+=("$1") # save it in an array for later
shift
;;
esac
done
set -- "${POSITIONAL[@]}" # restore positional parameters
if [ $tx_only -eq 0 ]; then
if [ $# -lt 1 ]; then
print_help
fi
kiwi_url="$1"
echo $kiwi_url
fi
# create test Tx file
echo $mode
freedv_data_raw_tx -q --framesperburst 1 --bursts ${Nbursts} --testframes ${Nbursts} ${mode} /dev/zero test_datac0.raw
usb_lsb=$(python3 -c "print('usb') if ${freq_kHz} >= 10000 else print('lsb')")
if [ $tx_only -eq 0 ]; then
echo -n "waiting for KiwiSDR "
# start recording from remote kiwisdr
kiwi_stdout=$(mktemp)
kiwirecorder.py -s $kiwi_url -p ${port} -f $freq_kHz -m ${usb_lsb} -r 8000 --filename=rx --time-limit=300 >$kiwi_stdout &
kiwi_pid=$!
# wait for kiwi to start recording
timeout_counter=0
until grep -q -i 'Block: ' $kiwi_stdout
do
timeout_counter=$((timeout_counter+1))
if [ $timeout_counter -eq 10 ]; then
echo "can't connect to ${kiwi_url}"
exit 1
fi
echo -n "."
sleep 1
done
echo
fi
# transmit using local SSB radio
echo "Tx data signal"
freq_Hz=$((freq_kHz*1000))
usb_lsb_upper=$(echo ${usb_lsb} | awk '{print toupper($0)}')
run_rigctl "\\set_mode PKT${usb_lsb_upper} 0" $model
run_rigctl "\\set_freq ${freq_Hz}" $model
run_rigctl "\\set_ptt 1" $model
aplay --device="plughw:CARD=CODEC,DEV=0" -f S16_LE test_datac0.raw 2>/dev/null
run_rigctl "\\set_ptt 0" $model
if [ $tx_only -eq 0 ]; then
sleep 2
echo "Stopping KiwiSDR"
kill ${kiwi_pid}
wait ${kiwi_pid} 2>/dev/null
echo "Process receiver sample"
# generate spectrogram
echo "pkg load signal; warning('off', 'all'); \
s=load_raw('rx.wav'); \
plot_specgram(s, 8000, 500, 2500); print('spec.jpg', '-djpg'); \
quit" | octave-cli -p ${CODEC2}/octave -qf > /dev/null
# attempt to demodulate
freedv_data_raw_rx -q --framesperburst 1 --testframes ${mode} -v --scatter scatter.txt --singleline rx.wav /dev/null
# render scatter plot (if we get any frames)
scatter_sz=$(ls -l scatter.txt | cut -f 5 -d' ')
if [ $scatter_sz -ne 0 ]; then
echo "pkg load signal; warning('off', 'all'); pl_scatter('scatter.txt'); quit" | octave-cli -p ${CODEC2}/octave -qf > /dev/null
fi
fi
|
