John's Vademecum - public:miscellany:radio:dormant

4m FM

anonymous@undisclosed.example.com (Anonymous) — Sun, 04 Jan 2026 07:33:11 +0000

4m FM

Low Band PMR and 4m Ham band

Background

The PMR radio system for the Shetland Islands Council (SIC) Roads dept. is being re-engineered (summer 2023) with new base station radios and a new IP based microwave link network.

I thought I would set myself up with the ability to monitor, and test coverage, both mobile and at home. I found my old FM1100 and also was given a selection of other ones by SIC, as well as the PDP to program them.

My plan is to configure the radios for both 4m ham band and SIC roads network.

Frequencies

SIC Roads PMR

Site	Base TX	Base RX	CTCSS
Bressay	85.425	71.925	103.5
Weisdale	85.350	71.850	103.5
Collafirth Hill	85.225	71.725	103.5

4m Amateur Band

12.5kHz spacing
- 70.3000
- 70.3125
- 70.3250
- 70.3375
- 70.3500
- 70.3625
- 70.3750
- 70.3875
- 70.4000
- 70.4125
- 70.4250
- 70.4375
- 70.4500 = FM Calling Channel
- 70.4625
- 70.4750
- 70.4875

Business Radio Simple Light

5 channels
- 77.6875
- 86.3375
- 86.3500
- 86.3625
- 86.3750

— John Pumford-Green 20/05/23 12:25

Further Information

fm1100, 4m, radio

10m/12m

anonymous@undisclosed.example.com (Anonymous) — Sun, 04 Jan 2026 07:31:29 +0000

←Older Topics

10m/12m

A diversion into 10m and 12m

Equipment

~~Shack : CRT SS9900~~
Shack : Icom IC-706
Mobile : Anytone Smart CB for 10M

Antenna

Sleeve “T2LT” dipole
- Sloping at approx. 45°
- Choke 5T 110mm diameter air wound

Choke design recommendations :

Update 22/5/23 : Moved to fully vertical with choke/feedpoint 2m agl and tip @ 7m agl
- using 7m “Sota pole”
Update 4/6/12 : moved back to sloping configureaton on original 5m long pole, and choke/radiator/feedpoint changed to suit 12m : choke now 6T on 110m former at 3m from “feedpoint”
- radiator section lengthened to 3m.

(Photo to follow)

Propagation Data

10m WSPR Spots vs SFI & K indices

Date	Time First Spot	Time Last Spot	Power	Spots In	Min/Max/Ave km	Spots Out	Min/Max/Ave km	SFI	SSN	K	48H Flare
10/05/23	(1442)	2010	5W	3	2939 / 2939 / 2939	26	2939 / 10373 / 4043	180	151	5	M6.5
10/05/23	2332	0122	5W	7	1008 / 1605 / 1297	9	1175 / 1743 / 1348	180	151	5	M6.5

Last Update : 04/01/26 07:31 GMT

Further Information

https://www.radio-workshop.co.uk/cb-radio-citizens-band-27mhz-11-metres/

radio, 10m, 11m, cb

MB7AZE AllStar Config

anonymous@undisclosed.example.com (Anonymous) — Tue, 30 Dec 2025 09:55:07 +0000

←Older Topics

MB7AZE AllStar Config

all /etc/asterisk files

allstar_conf.tar

Main Config files

echolink.conf

/etc/asterisk/echolink.conf

[el0]
call = MB7AZE-L                          ; Change this!
pwd = xxxxxxxx                           ; Change this!
name = John                        ; Change this!
qth = allstar 481481                           ; Change this!
email = gm4slv@gm4slv.plus.com                         ; Change this!
node = 879598                           ; Change this!
; Data for EchoLink Status Page
lat = 60.2883                               ; Latitude in decimal degrees
lon = -001.42533                               ; Longitude in decimal degrees
freq = 430.050                              ; not mandatory Frequency in MHz
tone = 0.0                              ; not mandatory CTCSS Tone (0 for none)
power = 1                               ; 0=0W, 1=1W, 2=4W, 3=9W, 4=16W, 5=25W, 6=36W, 7=49W, 8=64W, 9=81W (Power in Watts)
height = 0                              ; 0=10 1=20 2=40 3=80 4=160 5=320 6=640 7=1280 8=2560 9=5120 (AMSL in Feet)
gain = 0                                ; Gain in db (0-9)
dir = 0                                 ; 0=omni 1=45deg 2=90deg 3=135deg 4=180deg 5=225deg 6=270deg 7=315deg 8=360deg (Direction)
maxstns = 5                            ; Max Stations

rtcptimeout = 10
recfile = /tmp/echolink_recorded.gsm    ;
astnode = 481481             ; Change this!
context = radio-secure                  ; Default in code is echolink-in

; Max 3 servers
server1 = nasouth.echolink.org
server2 = naeast.echolink.org
server3 = server3.echolink.org

; To deny w6xxx you would add the statement: deny = w6xxx
; To prohibit computer-based connections you would write: permit = *-*
; To allow access to only a select group of callsigns: permit = w6abc,w6def,...
; permit                                ; comma delimited list of callsign, type (-r)
; deny


; Remote text commands thru netcat:
; o.conip <IPaddress>    (request a connect)
; o.dconip <IPaddress>   (request a disconnect)
; o.rec                  (turn on/off recording)

; ipaddr
; port

manager.conf

/etc/asterisk/manager.conf

;
; Asterisk Call Management support
;

; By default asterisk will listen on localhost only. 
[general]
enabled = yes
port = 5038
bindaddr = 127.0.0.1

[gm4slv]
secret = llcgi
read = all,system,call,log,verbose,command,agent,user,config
write = all,system,call,log,verbose,command,agent,user,config

rpt.conf

/etc/asterisk/rpt.conf

; Radio Repeater configuration file (for use with app_rpt)
; Your Repeater
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; This is where you define your nodes which can be connected to.
;

[nodes]
; Note, if you are using automatic update for allstar link nodes,
; no allstar link nodes should be defined here. Only place a definition
; for your local nodes, and private (off of allstar link) nodes here.

;481480 = radio@127.0.0.1:4569/481480,NONE	; This must be changed to your node number
481481 = radio@127.0.0.1:4569/481481,NONE	; This must be changed to your node number
                                        ; and iax port number if not the default

;[481480]					; Change this to your assigned node number
[481481]					; Change this to your assigned node number

                                        ; Must also be enabled in modules.conf
					; Rx audio/signalling channel. Choose ONLY 1 per node stanza

					; Enable the selected channel driver in modules.conf !!!
;rxchannel = dahdi/pseudo	        ; No radio (hub)
 rxchannel = SimpleUSB/usb_48148	; SimpleUSB
; rxchannel = Pi/1                      ; Raspberry Pi PiTA
; rxchannel = Radio/usb_48148		; USBRadio (DSP)
; rxchannel = Dahdi/1			; PCI Quad card
; rxchannel = Beagle/1			; BeagleBoard
; rxchannel = USRP/127.0.0.1:34001:32001; GNU Radio interface USRP
; rxchannel = Voter/48148                ; RTCM device


duplex = 1                              ; 0 = Half duplex with no telemetry tones or hang time.
                                        ;     Special Case: Full duplex if linktolink is set to yes.
                                        ;     This mode is preferred when interfacing with an external multiport repeater controller.
					;     Comment out idrecording and idtalkover to suppress IDs also
                                        ; 1 = Half duplex with telemetry tones and hang time. Does not repeat audio.
                                        ;     This mode is preferred when interfacing a simplex node.
                                        ; 2 = Full Duplex with telemetry tones and hang time.
                                        ;     This mode is preferred when interfacing a repeater.
                                        ; 3 = Full Duplex with telemetry tones and hang time, but no repeated audio.
                                        ; 4 = Full Duplex with telemetry tones and hang time. Repeated audio only when the autopatch is down.

linktolink = no				; disables forcing physical half-duplex operation of main repeater while
					; still keeping half-duplex semantics (optional)

linkmongain = 0				; Link Monitor Gain adjusts the audio level of monitored nodes when a signal from another node or the local receiver is received.
					; If linkmongain is set to a negative number the monitored audio will decrease by the set amount in db.
					; If linkmongain set to a positive number monitored audio will increase by the set amount in db.
					; The value of linkmongain is in db. The default value is 0 db.

erxgain = -3				; Echolink receive gain adjustment
					; Note: Gain is in db-volts (20logVI/VO)
etxgain = 3				; Echolink transmit gain adjustment
					; Note: Gain is in db-volts (20logVI/VO)
eannmode = 2                           ; 1 = Say only node number on echolink connects (default = 1)
                                        ; 2 = say phonetic call sign only on echolink connects
                                        ; 3 = say phonetic call sign and node number on echolink connects

;controlstates = controlstates		; system control state stanza

scheduler = schedule			; scheduler stanza
functions = functions			; Repeater Function stanza
phone_functions = functions		; Phone Function stanza
link_functions = functions		; Link Function stanza

telemetry = telemetry			; Telemetry stanza
morse = morse				; Morse stanza
wait_times = wait-times			; Wait times stanza

context = radio				; dialing context for phone
callerid = "Repeater" <0000000000>	; callerid for phone calls
accountcode = RADIO                     ; account code (optional)

hangtime = 200				; squelch tail hang time (in ms) (optional, default 5 seconds, 5000 ms)
althangtime = 300			; longer squelch tail
totime = 300000				; 5 mins (12/4/22) transmit time-out time (in ms) (optional, default 3 minutes 180000 ms)

telemnomdb = -3				;
telemduckdb = -10			;

;idrecording = /home/gm4slv/gm4slv_id
;idrecording = /home/gm4slv/mb7aze_id
idrecording = |iDE MB7AZE			; Main ID message

;idtalkover = |iMB7AZE			; Talkover ID message
idtalkover = |iMB7AZE			; Talkover ID message
					; See Telemetry section Example: idrecording = rpt/nodenames/48148
idtime = 900000				; 15 mins (12/4/22) id interval time (in ms) (optional) Default 5 minutes (300000 ms)
politeid = 30000			; time in milliseconds before ID timer expires to try and ID in the tail. (optional, default 30000)

unlinkedct = ct12			; Send a this courtesy tone when the user unkeys if the node is not connected to any other nodes. (optional, default is none)
remotect = ct3				; remote linked courtesy tone (indicates a remote is in the list of links)
linkunkeyct = ct4			; sent when a transmission received over the link unkeys
;nolocallinkct = 0			; Send unlinkedct instead if another local node is connected to this node (hosted on the same PC).

; Supermon smlogger
connpgm=/usr/local/sbin/supermon/smlogger 1
discpgm=/usr/local/sbin/supermon/smlogger 0

;connpgm = yourconnectprogram		; Disabled. Execute a program you specify on connect. (default)
					; passes 2 command line arguments to your program:
					; 1. node number in this stanza (us)
					; 2. node number being connected to us (them)
;discpgm = yourdisconnectprogram	; Disabled. Execute a program you specify on disconnect. (default)
					; passes 2 command line arguments to your program:
					; 1. node number in this stanza (us)
					; 2. node number being disconnected from us (them)

lnkactenable = 0			; Set to 1 to enable the link activity timer. Applicable to standard nodes only.

lnkacttime = 3600			; Link activity timer time in seconds.
lnkactmacro = *73			; Function to execute when link activity timer expires.
lnkacttimerwarn = custom/timeout		; Message to play when the link activity timer has 30 seconds left.

;remote_inact_timeout =	60		; Specifies the amount of time without keying from the link. Set to 0 to disable timeout. (15 * 60)
;remote_timeout =			; Session time out for remote base. Set to 0 to disable. (60 * 60)
;remote_timeout_warning_freq =		; 30
;remote_timeout_warning =		; (3 * 60)

;nounkeyct = 0				; Set to a 1 to eliminate courtesy tones and associated delays.

holdofftelem = 0			; Hold off all telemetry when signal is present on receiver or from connected nodes
					; except when an ID needs to be done and there is a signal coming from a connected node.

telemdefault = 1                        ; 0 = telemetry output off
                                        ; 1 = telemetry output on (default = 1)
                                        ; 2 = timed telemetry output on command execution and for a short time thereafter.

telemdynamic = 1                        ; 0 = disallow users to change the local telemetry setting with a COP command,
                                        ; 1 = Allow users to change the setting with a COP command. (default = 1)

beaconing = 1				; Send ID regardless of repeater activity (Required in the UK, but probably illegal in the US)

parrotmode = 1				; 0 = Parrot Off (default = 0)
					; 1 = Parrot On Command
					; 2 = Parrot Always
					; 3 = Parrot Once by Command

parrottime = 1000			; Set the amount of time in milliseconds
					; to wait before parroting what was received

;rxnotch=1065,40                        ; (Optional) Notch a particular frequency for a specified
                                        ; b/w. app_rpt must have been compiled with
                                        ; the notch option

startup_macro = *80*81*70

; nodenames = /var/lib/asterisk/sounds/rpt/nodenames.callsign	; Point to alternate nodename sound directory

; Stream your node audio to Broadcastify or similar. See https://wiki.allstarlink.org/wiki/Stream_Node_Audio_to_Broadcastify
; outstreamcmd = /bin/sh,-c,/usr/bin/lame --preset cbr 16 -r -m m -s 8 --bitwidth 16 - - | /usr/bin/ezstream -qvc /etc/ezstream.xml

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Need more information on these

;extnodes = extnodes-different	; section in extnodefile containing dynamic node information (optional)
;extnodefile = /home/gm4slv/rpt_extnodes	; Points to nodelist file containing dynamic node info default = /var/lib/asterisk/rpt_extnodes (optional)
;extnodefile2 =			; Is this a list of node files? Possible a list of private nodes or a list of static IPs for known nodes????
;nodenames = /foo/names         ; locaton of node sound files default = /var/lib/asterisk/sounds/rpt/nodenames
;archivedir = /tmp              ; defines and enables activity recording into specified directory (optional)
;monminblocks = 2048            ; Min 1K blocks to be left on partition (will not save monitor output if disk too full)

;                               ; The tailmessagetime,tailsquashedtime, and tailmessagelist need to be set
;                               ; to support tail messages. They can be omitted otherwise.
;tailmessagetime = 300000       ; Play a tail message every 5 mins
;tailsquashedtime = 30000       ; If squashed by another user,
;                               ; try again after 30 seconds
;tailmessagelist = msg1,msg2    ; list of messages to be played for tail message

; alt_functions
; ctgroup
; dphone_functions
; idtime
; iobase
; iospeed
; locallist
; mars		Remote Base
; memory
; nobusyout
; nodes
; nolocallinkct
; notelemtx
; outxlat
; parrot
; propagate_phonedtmf
; rptnode
; rptinactmacro  Macro to execute when inactivity timer expires
; rptinacttime   Inactivity timer time in seconds  (0 seconds disables feature)
; rxnotch	Optional Audio notch
; simplexphonedelay
; tonemacro
; tonezone
; txlimits


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


; *** Status Reporting ***

; Comment the following statpost line stop to reporting of the status of your node to stats.allstarlink.org
statpost_url = http://stats.allstarlink.org/uhandler ; Status updates

[functions]

; Prefix	Functions
; *1		Disconnect Link
; *2		Monitor Link
; *3		Connect Link
; *4		Command Mode
; *5		Macros
; *6		User Functions
; *7		Connection Status/Functions
; *8		User Functions
; *9		User Functions
; *0		User Functions

; *A		User Functions
; *B		User Functions
; *C		User Functions
; *D		User Functions


; Mandatory Command Codes
1 = ilink,1		; Disconnect specified link
2 = ilink,2		; Connect specified link -- monitor only
3 = ilink,3		; Connect specified link -- tranceive
4 = ilink,4		; Enter command mode on specified link

70 = ilink,5		; System status

;99 = cop,6              ; PTT (phone mode only)

; End Mandatory Command Codes

73 = ilink,6		; Disconnect All Links
74 = ilink,16		; Reconnect links disconnected with "disconnect all links"

80 = status,11         ; Force ID (local only)
81 = status,12         ; Give Time of Day (local only)

91 = cop,21		; Enable Parrot Mode
92 = cop,22		; Disable Parrot Mode
93 = cop,55		; Parrot Once if parrot mode is disabled

98 = cop,2		; System enable
99 = cop,3		; System disable

901 = cop,1				; System warm boot

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; Macro Commands
5 = macro

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; Autopatch Commands
; Note, This may be a good place for other 2 digit frequently used commands

;61 = autopatchup,noct = 1,farenddisconnect = 1,dialtime = 20000  ; Autopatch up
;62 = autopatchdn                                                 ; Autopatch down

; autopatchup can optionally take comma delimited setting=value pairs:

; context = string		; Override default context with "string"
; dialtime = ms			; Specify the max number of milliseconds between phone number digits (1000 milliseconds = 1 second)
; farenddisconnect = 1		; Automatically disconnect when called party hangs up
; noct = 1			; Don't send repeater courtesy tone during autopatch calls
; quiet = 1			; Don't send dial tone, or connect messages. Do not send patch down message when called party hangs up
				; Example: 123=autopatchup,dialtime=20000,noct=1,farenddisconnect=1

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; Status Commands

; 1 - Force ID (global)
; 2 - Give Time of Day (global)
; 3 - Give software Version (global)
; 4 - Give GPS location info
; 5 - Last (dtmf) user
; 11 - Force ID (local only)
; 12 - Give Time of Day (local only)

;721 = status,1          ; Force ID (global)
;722 = status,2          ; Give Time of Day (global)
;723 = status,3          ; Give software Version (global)
;724 = status,4          ; Give GPS location info
;725 = status,5          ; Last (dtmf) user



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; Link Commands

; 1 - Disconnect specified link
; 2 - Connect specified link -- monitor only
; 3 - Connect specified link -- tranceive
; 4 - Enter command mode on specified link
; 5 - System status
; 6 - Disconnect all links
; 7 - Last Node to Key Up
; 8 - Connect specified link -- local monitor only
; 9 - Send Text Message (9,<destnodeno or 0 (for all)>,Message Text, etc.
; 10 - Disconnect all RANGER links (except permalinks)
; 11 - Disconnect a previously permanently connected link
; 12 - Permanently connect specified link -- monitor only
; 13 - Permanently connect specified link -- tranceive
; 15 - Full system status (all nodes)
; 16 - Reconnect links disconnected with "disconnect all links"
; 17 - MDC test (for diag purposes)
; 18 - Permanently Connect specified link -- local monitor only

; ilink commands 1 through 5 are defined in the Mandatory Command section

;806 = ilink,6			; Disconnect all links
;827 = ilink,7			; Last Node to Key Up
;808 = ilink,8			; Connect specified link -- local monitor only
;809 = ilink,9,48148,"Testing"	; would send a text message to node 48148 replace 48148 with 0 for all connected nodes
;810 = ilink,10			; Disconnect all RANGER links (except permalinks)
;811 = ilink,11			; Disconnect a previously permanently connected link
;812 = ilink,12			; Permanently connect specified link -- monitor only
;823 = ilink,13			; Permanently connect specified link -- tranceive
;815 = ilink,15			; Full system status (all nodes)
;817 = ilink,17			; MDC test (for diag purposes)
;818 = ilink,18			; Permanently Connect specified link -- local monitor only

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; Control operator (cop) functions.
; Change these to something other than these codes listed below!
; Uncomment as needed.

;901 = cop,1				; System warm boot

; 904 = cop,4				; Test tone on/off (toggle)
; 905 = cop,5				; Dump system variables on console (debug use only)

; 907 = cop,7				; Time out timer enable
; 908 = cop,8				; Time out timer disable

; 909 = cop,9				; Autopatch enable
; 910 = cop,10				; Autopatch disable

; 911 = cop,11				; User linking functions enable
; 912 = cop,12				; User linking functions disable

; 913 = cop,13				; Query system control state
; 914 = cop,14				; Set system control state

; 915 = cop,15				; Scheduler enable
; 916 = cop,16				; Scheduler disable

; 917 = cop,17				; User functions enable (time, id, etc)
; 918 = cop,18				; User functions disable

; 919 = cop,19				; Select alternate hang time (althangtime)
; 920 = cop,20				; Select standard hangtime (hangtime)


; 924 = cop,24				; Flush all telemetry
; 925 = cop,25				; Query last node un-keyed
; 926 = cop,26				; Query all nodes keyed/unkeyed
; 927 = cop,27				; Reset DAQ minimum on a pin
; 928 = cop,28				; Reset DAQ maximum on a pin

; 930 = cop,30				; Recall Memory Setting in Attached Xcvr

; 931 = cop,31				; Channel Selector for Parallel Programmed Xcvr

; 932 = cop,32				; Touchtone pad test: command + Digit string + # to playback all digits pressed

; 933 = cop,33				; Local Telemetry Output Enable
; 934 = cop,34				; Local Telemetry Output Disable
; 935 = cop,35				; Local Telemetry Output on Demand

; 936 = cop,36				; Foreign Link Local Output Path Enable
; 937 = cop,37				; Foreign Link Local Output Path Disable
; 938 = cop,38				; Foreign Link Local Output Path Follows Local Telemetry
; 939 = cop,39				; Foreign Link Local Output Path on Demand

; 942 = cop,42				; Echolink announce node # only
; 943 = cop,43				; Echolink announce node Callsign only
; 944 = cop,44				; Echolink announce node # & Callsign

; 945 = cop,45				; Link Activity timer enable
; 945 = cop,46				; Link Activity timer disable
; 947 = cop,47				; Reset "Link Config Changed" Flag

; 948 = cop,48				; Send Page Tone (Tone specs separated by parenthesis)

; 949 = cop,49				; Disable incoming connections (control state noice)
; 950 = cop,50				; Enable incoming connections (control state noicd)

; 951 = cop,51				; Enable sleep mode
; 952 = cop,52				; Disable sleep mode
; 953 = cop,53				; Wake up from sleep
; 954 = cop,54				; Go to sleep

; 956 = cop,56                            ; Rx CTCSS Enable
; 957 = cop,57                            ; Rx CTCSS Disable

; 958 = cop.58                            ; Tx CTCSS On Input only Enable
; 959 = cop,59                            ; Tx CTCSS On Input only Disable

; 960 = cop,60                            ; Send MDC-1200 Burst (cop,60,type,UnitID[,DestID,SubCode])
;                                         ; Type is 'I' for PttID, 'E' for Emergency, and 'C' for Call
;                                         ; (SelCall or Alert), or 'SX' for STS (ststus), where X is 0-F.
;                                         ; DestID and subcode are only specified for  the 'C' type message.
;                                         ; UnitID is the local systems UnitID. DestID is the MDC1200 ID of
;                                         ; the radio being called, and the subcodes are as follows:
;                                         ; Subcode '8205' is Voice Selective Call for Spectra ('Call')
;                                         ; Subcode '8015' is Voice Selective Call for Maxtrac ('SC') or
;                                         ; Astro-Saber('Call')
;                                         ; Subcode '810D' is Call Alert (like Maxtrac 'CA')

; 961 = cop,61                            ; Send Message to USB to control GPIO pins (cop,61,GPIO1=0[,GPIO4=1].....)
; 962 = cop,62                            ; Send Message to USB to control GPIO pins, quietly (cop,62,GPIO1=0[,GPIO4=1].....)

; 963 = cop,63                            ; Send pre-configred APRSTT notification (cop,63,CALL[,OVERLAYCHR])
; 964 = cop,64                            ; Send pre-configred APRSTT notification, quietly (cop,64,CALL[,OVERLAYCHR])
; 965 = cop,65                            ; Send POCSAG page (equipped channel types only)

[functions-remote]

0 = remote,1                            ; Retrieve Memory
1 = remote,2                            ; Set freq.
2 = remote,3                            ; Set tx PL tone
3 = remote,4                            ; Set rx PL tone
40 = remote,100                         ; Rx PL off
41 = remote,101                         ; Rx PL on
42 = remote,102                         ; Tx PL off
43 = remote,103                         ; Tx PL on
44 = remote,104                         ; Low Power
45 = remote,105                         ; Medium Power
46 = remote,106                         ; High Power
711 = remote,107                        ; Bump -20
714 = remote,108                        ; Bump -100
717 = remote,109                        ; Bump -500
713 = remote,110                        ; Bump +20
716 = remote,111                        ; Bump +100
719 = remote,112                        ; Bump +500
721 = remote,113                        ; Scan - slow
724 = remote,114                        ; Scan - quick
727 = remote,115                        ; Scan - fast
723 = remote,116                        ; Scan + slow
726 = remote,117                        ; Scan + quick
729 = remote,118                        ; Scan + fast
79 = remote,119                         ; Tune
51 = remote,5                           ; Long status query
52 = remote,140				; Short status query
67 = remote,210				; Send a *
69 = remote,211				; Send a #
;91 = remote,99,CALLSIGN,LICENSETAG     ; Remote base login.
                                        ; Define a different dtmf sequence for each user which is
                                        ; authorized to use the remote base to control access to it.
                                        ; For examble 9139583=remote,99,WB6NIL,G would grant access to
                                        ; the remote base and announce WB6NIL as being logged in.
                                        ; Another entry, 9148351=remote,99,WA6ZFT,E would grant access to
                                        ; the remote base and announce WA6ZFT as being logged in.
                                        ; When the remote base is disconnected from the originating node, the
                                        ; user will be logged out. The LICENSETAG argument is used to enforce
					; tx frequency limits. See [txlimits] below.
85 = cop,6                              ; Remote base telephone key


[telemetry]

; Telemetry entries can be shared across all repeaters, or defined for each repeater.
; Can be a tone sequence, morse string, or a file
;
; |t - Tone escape sequence
;
; Tone sequences consist of 1 or more 4-tuple entries (freq1, freq2, duration, amplitude)
; Single frequencies are created by setting freq1 or freq2 to zero.
;
; |m - Morse escape sequence
;
; Sends Morse code at the telemetry amplitude and telemetry frequency as defined in the
; [morse] section.
;
; Follow with an alphanumeric string
;
; |i - Morse ID escape sequence
;
; Sends Morse code at the ID amplitude and ID frequency as defined in the
; [morse] section.
;
; path/to/sound/file/without/extension
;
; Send the sound if in place of a constructed tone. Do not include the file extension
; Example: ct8 = rpt/bloop
; Example: idrecording = rpt/nodenames/48148

ct1 = |t(350,0,100,2048)(500,0,100,2048)(660,0,100,2048)
ct2 = |t(660,880,150,2048)
ct3 = |t(440,0,150,4096)
ct4 = |t(550,0,150,2048)
ct5 = |t(660,0,150,2048)
ct6 = |t(880,0,150,2048)
ct7 = |t(660,440,150,2048)
ct8 = |t(700,1100,150,2048)
ranger = |t(1800,0,60,3072)(0,0,50,0)(1800,0,60,3072)(0,0,50,0)(1800,0,60,3072)(0,0,50,0)(1800,0,60,3072)(0,0,50,0)(1800,0,60,3072)(0,0,50,0)(1800,0,60,3072)(0,0,150,0)
remotemon = |mR
;remotemon = |t(1209,0,50,2048)                                  ; local courtesy tone when receive only
remotetx = |mK
;remotetx = |t(1633,0,50,3000)(0,0,80,0)(1209,0,50,3000)		; local courtesy tone when linked Trancieve mode
cmdmode = |t(900,903,200,2048)
;functcomplete = |mW
functcomplete = |t(1000,0,100,2048)(0,0,100,0)(1000,0,100,2048)
remcomplete = |t(650,0,100,2048)(0,0,100,0)(650,0,100,2048)(0,0,100,0)(650,0,100,2048)
pfxtone = |t(350,440,30000,3072)
patchup = rpt/callproceeding
patchdown = rpt/callterminated

ct12 = |mI
ct13 = |mR

; As far as what the numbers mean,
; (000,000,010,000)
;   |   |   |   |-------amplitude
;   |   |   |-------------duration
;   |   |-------------------Tone 2
;   |-------------------------Tone 1

; So, with 0,0,10,0 That says No Tone1, No Tone2, 10ms duration, 0 Amplitude.
; Use it for a delay.  Fine tuning for how long before telemetry is sent, in conjunction with the telemdelay parameter)
; The numbers, like 350,440,10,2048 are 350Hz, 440Hz, 10ms delay, amplitude of 2048.

; Morse code parameters, these are common to all repeaters.

[morse]
speed = 18				; Approximate speed in WPM
frequency = 800				; Morse Telemetry Frequency
amplitude = 4096			; Morse Telemetry Amplitude
idfrequency = 1065			; Morse ID Frequency
idamplitude = 1024			; Morse ID Amplitude

;
; This section allows wait times for telemetry events to be adjusted
; A section for wait times can be defined for every repeater
;

[wait-times]
telemwait = 400                        ; Time to wait before sending most telemetry
idwait = 500                            ; Time to wait before starting ID
unkeywait = 200                        ; Time to wait after unkey before sending CT's and link telemetry
calltermwait = 2000                     ; Time to wait before announcing "call terminated"

; Memories for remote bases

[memory]
;00 = 146.580,100.0,m
;01 = 147.030,103.5,m+t
;02 = 147.240,103.5,m+t
;03 = 147.765,79.7,m-t
;04 = 146.460,100.0,m
;05 = 146.550,100.0,m

; Place command macros here

[macro]
11 = *141223# ; disc. hubnet
21 = *241223# ; monitor hubnet
31 = *341223# ; transceive hubnet

12 = *12197# ; disc Freestar
22 = *22197# ; monitor Freestar
32 = *32197# ; transceive Freestar

13 = *129332# ; disc Alaska
23 = *229332# ; monitor Alaska
33 = *329332# ; transceive Alaska

14 = *154383# ; disc CQ North
24 = *254383# ; monitor CQ North
34 = *354383# ; transceive CQ North

191 = *140894# ; disconnect hubnet Echo
391 = *340894# ; connect hubnet echo

192 = *13009999#	; dis echolink echotest
392 = *33009999#	; con echolink echotest



; Data Acquisition configuration

;[daq-list]
;device = device_name1
;device = device_name2

;Where: device_name1 and device_name2 are stanzas you define in this file

;device = daq-cham-1

; Device name

;[daq-cham-1]				; Defined in [daq-list]
;hwtype = uchameleon			; DAQ hardware type
;devnode = /dev/ttyUSB0			; DAQ device node (if required)
;1 = inadc				; Pin definition for an ADC channel
;2 = inadc
;3 = inadc
;4 = inadc
;5 = inadc
;6 = inadc
;7 = inadc
;8 = inadc
;9 = inp				; Pin definition for an input with a weak pullup resistor
;10 = inp
;11 = inp
;12 = inp
;13 = in				; Pin definition for an input without a weak pullup resistor
;14 = out				; Pin definition for an output
;15 = out
;16 = out
;17 = out
;18 = out

;[meter-faces]

;face = scale(scalepre,scalediv,scalepost),word/?,...
;
; scalepre = offset to add before dividing with scalediv
; scalediv = full scale/number of whole units (e.g. 256/20 or 12.8 for 20 volts).
; scalepost = offset to add after dividing with scalediv
;
;face = range(X-Y:word,X2-Y2:word,...),word/?,...
;face = bit(low-word,high-word),word/?,...
;
; word/? is either a word in /var/lib/asterisk/sounds or one of its subdirectories,
; or a question mark which is  a placeholder for the measured value.
;
;
; Battery voltage 0-20 volts
;batvolts = scale(0,12.8,0),rpt/thevoltageis,?,ha/volts
; 4 quadrant wind direction
;winddir = range(0-33:north,34-96:west,97-160:south,161-224:east,225-255:north),rpt/thewindis,?
; LM34 temperature sensor with 130 deg. F full scale
;lm34f = scale(0,1.969,0),rpt/thetemperatureis,?,degrees,fahrenheit
; Status poll (non alarmed)
;light = bit(ha/off,ha/on),ha/light,?

;[alarms]
;
;tag = device,pin,node,ignorefirst,func-low,func-hi
;
;tag = a unique name for the alarm
;device = daq device to poll
;pin = the device pin to be monitored
;ignorefirstalarm = set to 1 to throwaway first alarm event, or 0 to report it
;node = the node number to execute the function on
;func-low = the DTMF function to execute on a high to low transition
;func-high = the DTMF function to execute on a low to high transition
;
; a  '-' as a function name is shorthand for no-operation
;
;door = daq-cham-1,9,1,2017,*7,-
;pwrfail = daq-cham-1,10,0,2017,*911111,-
;
; Control states
; Allow several control operator functions to be changed at once using one command (good for scheduling)
;
;[controlstates]
;statenum = copcmd,[copcmd]...
;0 = rptena,lnkena,apena,totena,ufena,noicd  ; Normal operation
;1 = rptena,lnkena,apdis,totdis,ufena,noice  ; Net and news operation
;2 = rptena,lnkdis,apdis,totena,ufdis,noice  ; Repeater only operation

; Scheduler - execute a macro at a given time

[schedule]
;dtmf_function =  m h dom mon dow  ; ala cron, star is implied
;8 = 55 12 * * *   ; at midnight, execute macro 2.

; See https://wiki.allstarlink.org/wiki/Event_Management
[events]

#includeifexists custom/rpt.conf

simpleusb.conf

/etc/asterisk/simpleusb.conf

; If you are going to use this channel driver, you MUST enable it in modules.conf
; change:
; noload => chan_simpleusb.so ;                   CM1xx USB Cards with Radio Interface Channel Driver (No DSP)
; to:
; load => chan_simpleusb.so ;                   CM1xx USB Cards with Radio Interface Channel Driver (No DSP)

; SimpleUSB configuration

[general]

[usb_48148]

eeprom = 0              ; EEPROM installed: 0,1
                        ; 0 = no (default)
                        ; 1 = yes

hdwtype = 0		; Leave this set to 0 for USB sound fobs modified using
			; the instructions from usbfob.pdf. Use a setting of 
			; 1 is for Dingotel/Sph interfaces.

; Receiver parameters

rxboost = 0             ; 0 = 20db attenuator inserted, 1= 20db attenuator removed
                        ; Set to 1 for additonal gain if using a low-level receiver output

carrierfrom = usb ; no,usb,usbinvert
                        ; no - no carrier detection at all
                        ; usb - from the COR line on the USB sound fob (Active high)
                        ; usbinvert - from the inverted COR line on the USB sound fob (Active low)

ctcssfrom = no		; no,usb,usbinvert
                        ; no - CTCSS decoding, system will be carrier squelch
                        ; usb - CTCSS decoding using input from USB sound fob (Active high)
                        ; usbinvert - from the inverted CTCSS line on the USB sound fob (Active low)

deemphasis = yes         ; enable de-emphasis (input from discriminator)

plfilter = no           ; enable PL filter

;rxondelay = 0		; number of 20ms intervals to hold off receiver turn-on indication


; Transmitter parameters

txmixa = voice          ; Left channel output (A): no,voice
                        ; no - Do not output anything
                        ; voice - output voice only

txmixb = no		; Right channel output (B): no,voice
                        ; no - Do not output anything
                        ; voice - output voice only

txboost = 0

invertptt = 0           ; Invert PTT: 0,1
                        ; 0 - ground to transmit
                        ; 1 - open to transmit

preemphasis = yes	; Perform standard 6db/octave pre-emphasis

; pager = no            ; no,a,b (e.g. pager = b means "put the normal repeat audio on channel A, and the pager audio on channel B")

; duplex3 = 0           ; duplex 3 gain setting (0 to disable)

duplex = 0              ; Duplex 0,1
                        ; 0 - half duplex
                        ; 1 - full duplex

#includeifexists custom/simpleusb.conf

simpleusb_tune_usb_48148.conf

/etc/asterisk/simpleusb_tune_usb_48148.conf

[usb_48148]
; name=usb_48148
; devicenum=1
devstr=1-1.2:1.0
rxmixerset=330
txmixaset=70
txmixbset=50

crontab

00 * * * * sudo /usr/sbin/asterisk -rx “rpt localplay 481481 /home/gm4slv/mb7aze_id ” >/dev/null 2>&1

00 * * * * sleep 4 && sudo /usr/sbin/asterisk -rx “rpt fun 481481 *81” >/dev/null 2>&1

ID file (a uLaw audio file) for verbal announcements mb7aze_id.zip

allmon2 and supermon web files

allmon2

allmon2.tar

supermon

supermon.tar

Page created Sun May 29 15:48:50 2022 by John Pumford-Green

Page last updated: 30/12/25 09:55 GMT

pi, radio, allstar, mb7aze

VHF APRS iGate

anonymous@undisclosed.example.com (Anonymous) — Tue, 30 Dec 2025 09:55:07 +0000

←Older Topics

VHF APRS iGate

Hardware

Platform	Raspberry Pi
Software	aprx 2.9.0
Radio Hardware	FT-1500M
Frequency	144.800MHz
Callsign	GM4SLV-2

Software

iGate Software : aprx or Dixprs

Update May 2025

dixprs is no longer maintained, and after re-installing a fresh OS on my igate Pi I couldn't find the details for installing it, as the old google site https://sites.google.com/site/dixprs/ that had the details has disappeared from the internet.

Additional info

The Wayback Machine has some copies of the old google site for dixprs - here's one of them:

https://web.archive.org/web/20201009100911/https://sites.google.com/site/dixprs/installa

This might give enough information - but it looks as though it's more trouble than it's worth, when aprx works perfectly well.

Dixprs installation

Installation Preparation DIXPRS is distributed in form of Python scripts, which can be run on any OS which meets requirements below. There is a precompiled WIN32 executable available also, see WINDOWS section later.

It requires Python 2.6.x or 2.7.x installed. It is not compatible with older versions nor Python 3.x Python is usually installed on most modern LINUX systems. If not, check availability with distros package manager.

DIXPRS requires SQLite3. Usually it is part of Python installation by default. If not, install with your package manager. For WINDOWS it is available at http://python.org/

DIXPRS also requires pyserial module to handle serial interface. If not installed already and not available in the disribution's repository, download from http://pyserial.sourceforge.net/pyserial.html

Finally open a terminal window (or DOS window if installing DIXPRS source on WINDOWS), start Python and try to import sqlite3 and serial modules:

As on the picture, no error message displayed.

LINUX with AX.25 stack On LINUX DIXPRS can communicate to a KISS TNC directly via a serial interface. However it is adviced to use TNC's and modems via AX.25 stack. It makes other type modems, like USCC card, BAYCOM modem, etc. usable with DIXPRS. It requires an additional Python module installed, developed for DIXPRS, called pyax25.

Download pyax25.tar.gz and extract to a temporary folder. Then enter

./compile_ax25.py build ./compile_ax25.py install

Note: procedure requires libax25, Python development files and basic development toolchain with GCC installed.

Check installation. Open a terminal, start Python and type

import _ax25

If everything is OK, only prompt displayed, no error message.

DIXPRS installation - LINUX Download dixprs-xxx.tar.gz and extract to a folder - /usr/local/dixprs is a good choice to make installation of 3rd-party packages like munin plugins easier. Customize configuration file config.txt and start program:

./dixprs

It is a good practice to run DIXPRS in a screen terminal. In this case you can see what is going on and can disconnect terminal any time without stopping it. If you are not familiar with the screen utility, read this great article

http://www.rackaid.com/resources/linux-screen-tutorial-and-how-to/

DIXPRS can be run as a daemon using tools like daemonize or daemontools available in repository of most distros.

DIXPRS installation - WINDOWS binary Download dixprs-xxx-win32.zip and extract to a folder - C:\dixprs or C:\Program Files\dixprs is a good choice. Customize configuration file config.txt and start program:

dixprs.exe

Configuration Study supplied sample configuration files and use as a template to make your own. By default DIXPRS is looking for config.txt file. You can specify a different file with a command line argument:

dixprs -c <configfile>

dixprs –config=<configfile>

an ax_start.sh with the dixprs screen command

#!/bin/bash
 
logger "AX-Start"
logger "kissattach..."
sudo /usr/sbin/kissattach /dev/ttyAMA0 1 10.0.0.1
#kissparms -p 1 -f n -l 50 -r 32 -s 320 -t 400
logger "kissattach ok"
logger "ifconfig"
sudo /sbin/ifconfig ax0 10.0.0.1 netmask 255.255.255.0
sudo /sbin/ifconfig ax0 hw ax25 GM4SLV up
logger "ifconfig ok"
logger "mheardd"
sudo /usr/sbin/mheardd
logger "mheard ok"
logger "ax25d"
sudo /usr/sbin/ax25d
logger "ax25d ok"
 
#logger "aprx"
#sudo /sbin/aprx
#logger "aprx ok"
 
screen -c /etc/screenrc -dmS dixprs /usr/local/dixprs/dixprs.py -c /usr/local/dixprs/config.txt
 
#sleep 10
#screen -S dixprs -x -X screen bash -c 'python /home/gm4slv/selcall.py; exec bash'

The software is still available on github https://github.com/ha5di/DIXPRS

I've gone over to aprx which is still alive and easily installed.

Using Linux AX25 network device

/etc/ax25/axports

# /etc/ax25/axports
#
# The format of this file is:
#
# name callsign speed paclen window description
#
1 GM4SLV-2 19200 236 2 VHF APRS (1200 bps)

Everything starts by a script, with options commented out as necessary to start whichever software is required. The script (belongs to root) is run at boot time via

root's crontab

# m h  dom mon dow   command
@reboot sleep 30 && /root/ax_start.sh > /dev/null 2>&1

ax_start.sh

#!/bin/bash
 
echo "kissattach /dev/ttyAMA0 1 10.0.0.2"
 
/usr/sbin/kissattach /dev/ttyAMA0 1 10.0.0.2
 
echo -e "Kissattach complete\n\r"
 
 
echo "ifconf ax0 10.0.0.2 netmask 255.255.255.0"
 
/sbin/ifconfig ax0 10.0.0.2 netmask 255.255.255.0
 
echo -e "ifconfig 1 complete\n\r"
 
echo "ifconfig ax0 hw ax25 GM4SLV-2 up"
 
/sbin/ifconfig ax0 hw ax25 GM4SLV-2 up
 
echo -e "ifconfig 2 complete\n\r"
 
 
# starting mheard daemon
if [ -x /usr/sbin/mheardd ]; then
  echo "Starting Mheard Daemon"
  /usr/sbin/mheardd
fi
 
#/usr/sbin/ax25d
 
echo "starting aprx."
/usr/sbin/aprx -f /etc/aprx.conf
echo -e "aprx start complete \n\r"

Aprx Config file :

#############################################################
#
#
 
mycall  GM4SLV-2
 
myloc lat 6017.31N lon 00125.51W
 
<aprsis>
passcode 19626
server rotate.aprs.net 14580
filter "m/150"
</aprsis>
 
 
<logging>
pidfile /var/run/aprx.pid
rflog /var/log/aprx/aprx-rf.log
aprxlog /var/log/aprx/aprx.log
</logging>
 
#<interface>
#ax25-device $mycall
#tx-ok true
#</interface>
 
<interface>
ax25-device GM4SLV-2
tx-ok true
</interface>
 
<beacon>
beaconmode radio
cycle-size  20m
#beacon interface $mycall dstcall BEACON via WIDE1-1 exec /usr/bin/uptime
beacon interface $mycall via WIDE1-1,WIDE2-2  symbol "/-" $myloc comment "Shetland I-Gate"
#beacon interface $mycall via WIDE1-1,WIDE2-2 raw ">APRX"
</beacon>
 
<beacon>
beaconmode aprsis
cycle-size 30m
beacon symbol "/-" $myloc comment "Shetland I-Gate"
</beacon>
 
 
 
<digipeater>
    transmitter     $mycall
        <source>
                source         $mycall
                filter "-t/t"
                filter "t/*"
        </source>
 
        <source>
                source APRSIS
                relay-type third-party
                via-path WIDE1-1
                msg-path WIDE1-1
                filter "-t/t"
                filter "t/*"
                regex-filter data ISBeacon
        </source>
</digipeater>

Dixprs Config File

[GENERAL]

# Mandatory parameters

# Your callsign with SSID
CALLSIGN=GM4SLV-2

# Degrees; West is negative, East is positive
LONGITUDE=-1.4251

# Degrees; South is negative, North is posittive
LATITUDE=60.2885

# Optional parameters

# Station height abvove the see level in meters; no default
#ASL=<fv>

# Owner name and contact; no default
OWNER=John GM4SLV

# Spool directory to import packets; no default
SPOOL=/home/gm4slv/spool

# Station symbol; default is S#
SYMBOL=/-

# UDP port base number; default is 31110
#UDPBASE=<n>

# Beacon frequency in minutes; default is 30
#BCNTIME=<n>

# Beacon text; %v replaced with actual version string; default is %v
# Used as default for ISGW and RADIO
BCNTXT= %v

# Select km/mi on monitor and in DX list; default is y (km)
METRIC=n

# Max number of digis passed for local stations
# Used as message gating condition for gating to Rf
# Default value is 2
#LOCALHOPS=<n>

# Range in km within messages gated to Rf
# If defined, checked after hop count (local) check
# No default
#MSGRANGE=<fv>
#################################################################
#                                                               #
# IS gateway settings; remove this section to disable GW        #
#                                                               #
#################################################################

[ISGW]

# Mandatory parameters

# Domain name of IS server to connect
host=rotate.aprs2.net
#host = 192.168.21.101
# Optional parameters

# Port number; default is 14580
#PORT=2023

# Filter; default is r/@/150
# @ is replaced with station position
FILTER=m/200

#################################################################
#                                                               #
# WRB server settings; remove this section to disable it        #
#                                                               #
#################################################################

[WEBSERVER]

# Mandatory parameters

# WEB server port, no default
port=9999

#################################################################                                                               #
#                                                               #
# Radio port configuration settings; repeat section for         #
# multiple ports                                                #
#                                                               #
#################################################################

[RADIO]

# Mandatory parameters

# Interface type
INTERFACE=AX25

# Device; as listed by ifconfig; it is nbot the ax.25 port name!
DEVICE=ax0
# Optional parameters

# Modem speed, default is 1200
#SIGNALRATE=1200

# Enable/disable NWS WX bulletin and object gating from IS to Rf
# Disabled by default
#GATENWS=<y/n>

# Enable/disable BOM WX bulletin and object gating from IS to Rf
# Disabled by default
#GATEBOM=<y/n>

# Descripton of port; no default
DESCRIPTION=144.800MHz VHF 1200bd

# Via used to send locally generated packets; default is WIDE1-1,WIDE2-2
AXVIA=WIDE2-2

# Digipeaters processed with WIDEn-n algorithm; default is WIDE1,WIDE2
WIDEN=WIDE1,WIDE2

# Blacklisted stations; they are not digipeated, not gated; default is NOCALL,N0CALL
#BLACKLIST=<lst>

# PHG string, do not mix with range; no default
#PHG=4137/

# Range value in miles, do not mix with PHG; no default
#RNG=<n>

# Enable/disable transmission; change it to PTTON=1 to enable trasmission; default is no
PTTON=1

# Gate locally generated frames to IS gateway; default is no
# Useful for rx-only radio ports
# Experimental, use carefully
#GATELOCAL=<y/n>

# Gate digipeated frames to IS gateway; default is no
# Experimental, use carefully
#GATEDIGI=<y/n>

# Beacon text; %v replaced with actual version string; default is %v
#BCNTXT=<str>

# Enable/disable digipeater; default is enabled
#DIGIPEATER=<y/n>

# Modem/TNC setup parameters 0...255; no defaults
# Use to setup modem/TNC by DIXPRS
#TXD=<n>

#PPERSIST=<n>

#SLOTTIME=<n>

#TXTAIL=<n>

#DUPLEX=<n>

# Below these are the traffic shaping settings for gating messages
# From IS to Rf
#
# For advanced users only; do not change if you do not know how
# traffic shaping works and if you do not have good reason !!!

# Traffic shaping high treshold, default is 0.75
#TRAFFICHIGH=<fv>

# Traffic shaping low treshold, default is 0.5
#TRAFFIClow=<fv>

# Traffic shaping transmission delay, default is 5.0 sec
#TRAFFICDELAY=<fv>

# Comma separated list of addresses to send receveid/transmitted frames
# in hostip:port format. No default.
UDPCC=192.168.21.107:5050

Hardware

I use a TNC-Pi attached via the GPIO serial port connections. Something had to be done to stop the serial port having a Linux Console attached, in the boot configuration, but it's been many years and I can't remember the details.

I've found it

Edit /boot/cmdline.txt and remove the phrase console=serial0,115200
Edit /boot/config.txt and add the line enable_uart=1

MB7AZE SvxLink

anonymous@undisclosed.example.com (Anonymous) — Sun, 04 Jan 2026 07:36:24 +0000

←Older Topics

MB7AZE is now QRT and the NoV has expired.

The following is for historical interest only….

MB7AZE SvxLink

NoV issued April 2022

Hardware

Platform	Rapsberry Pi
Software	SVXLink
Interface	CM108 Soundcard
Radio	FT-8900 or FT-60
Frequency	430.050MHz

Network

Connected to G4NAB SVXReflector and visible on the UK SVXLink Reflector portal :

http://svxportal-uk.ddns.net:81/index.php

CCIR493 Selcall

anonymous@undisclosed.example.com (Anonymous) — Tue, 30 Dec 2025 09:55:07 +0000

←Older Topics

CCIR493 Selcall

HF Selcall Experiments

Background

I became interested in HF selcall when I was looking for a way of setting up impromptu QSOs with specific stations, for doing tests etc., without the need for listening by ear for calls. Various ideas were considered for controlling an audio mute, and alerting the operator, on HF, but nothing seemed appropriate (CTCSS, DTMF etc) until I stumbled on CCIR493 HF Selcall, specifically designed to cope with conditions on the HF bands.

The protocol was familiar, as it's very similar (but slightly simpler) than GMDSS DSC. This led to more reading and research. CCIR493 is widely used in Land Mobile HF SSB in Australia and in other countries which use HF SSB as a communications method. It seems largely unused in Europe. In Australia it is used on the networks set up to assist 4WD outback travellers, with Selcall used to initiate contact with the various base stations.

Selcall's beacon and 99 beacon functions can be used to check if a particular station is reachable before attempting a voice call.

This seemed ideal…. down the rabbit hole of HF Selcall…..

Basic details

CCIR493 HF Selcall is a predecessor to GMDSS DSC used in Marine Radio.

Two Tone FSK with 170Hz shift
100baud signalling rate
Tone frequencies 1700 = 0, 1870 = 1 (tone centre = 1785)
- compare with DSC: 1615 = 1, 1785 = 0 (tone centre = 1700, inverted shift)
Symbols are 10-bit words, 7 bit + 3 parity bits
Dotting pre-amble of alternating 1010….. 2 to 20 seconds depending on expected scan-group size
Same “symbol repeat after 4” RX/DX interleaving as DSC
Same phasing sequence as DSC
No overall Error Check Sum, unlike DSC

At its simplest a selcall transmission can be either:

Directed call to a specific address
1. Selcall = send a revertive signal over the air AND alert the remote operator. The FMT symbol = 120
2. Directed-Beacon = send revertive signal over the air, but do not alert remote operator. The FMT symbol = 123
99-beacon call to a group of addresses = all stations send revertive signal over the air, but do not alert remote operator. The 99-beacon call is a special form of a directed selcall, with the FMT symbol of 120 and the final two digits of the destination address = 99. Receiving decoders understand to treat the call as a special type of beacon call despite the FMT being 120 (Selcall)

The directed-beacon to a specific address will confirm if that station is reachable, without disturbing the operator.

The 99-beacon call confirms whether any station in the group are reachable - the group is “any station with the first two digits matching”. The address used for the 99-beacon call is XX99, where XX is the leading digits of the desired group. For example, a group stations 3610, 3602, 3603, 3654 would all respond to a 99-beacon call addressed to 3699

Jenal SC2 Mic

HF Selcall is widely used in Australia, and there is a large market for add-on Selcall devices (to convert non-selcall radios) there. One manufacturer of Selcall equipment is JENAL.

At the time of my first exploration of Selcall I found that the SC2 microphone seemed like the perfect solution. The SC2 had been out of production, but Jenal had just released a new batch and I bought TWO of them, allowing me to experiment in isolation, should I fail to find any other amateur stations suitably equipped.

SC2 Handbook

One SC2 microphone can be connected to a Xiegu G90 portable HF transceiver, capable of 20W pep, and the other SC2 can be connected to a home made 60m SSB transceiver, also capable of 20W PEP, at the main station.

Scanning

The SC2 is capable of controlling the transceiver to scan, waiting for incoming selcall dotting signals, when it will pause the scan to decode any selcall message and act upon it as appropriate. Scan will resume after a certain period. The simplest scanning method is to pulse the channel up or channel down line present on most ham-grade transceivers on the mic-connector and thus the radio will step through its memory channels looking for selcall signals.

Previous Selcall Activity

In previous periods of activity with Selcall I have managed a few contacts and QSOs. Mainly with two stations who were already equipped with Barrett or Codan radios which can use CCIR493 “out of the box”.

GM4WMM - with a Barrett 950. We successfully operated on a small set of predetermined channels in the 80m, 60m, 40m bands, scanning, and selecting the optimum channel using beacon calls.
F6EMT - with a Codan . Made several contacts on 20m, some of them while mobile, initiated as random Selcall QSOs.

For 2023 I hope to find some more Selcall-equipped stations willing to try some experiments.

Selcall Activity 2023

[✓ John Pumford-Green, 2023-04-30] ~~Attach SC2 to Xiegu G90~~
[✓ John Pumford-Green, 2023-04-30]~~Set up 60m homebrew radio & amplifier & attach SC2~~
[✓ John Pumford-Green, 2023-05-05]~~Install mobile whip on van for use with G90~~
[✓ John Pumford-Green, 2023-04-30]~~Make adaptor for IC-M710 to allow easy connection of SC2 in place of usual datamode interface, for access to more bands~~
Try to make contact with like minded experimenters for on-air tests

UPDATE — John Pumford-Green 30/04/23 16:57

When not otherwise engaged I'll leave my main station IC-M710 monitoring 14.343MHz or 18.163MHz with Selcall ID 3658. I may not be able to respond directly to any calls the Selcall will send revertives (at 50W) for successful selcall or beacon calls to 3658or for 99-beacon calls to 3699

For skeds please contact me by email - address at https://www.qrz.com/db/GM4SLV

I have re-enabled emails from the hf-link groups.io https://groups.io/g/hflink to see what's happening here - the only place where CCIR493 appears to be discussed/used.

Further Information

Blackcat Android app for generating various Selcalls, including Barrett/Codan

Code snippets

My Python2 Selcall TX encoder

selcal_functions.py

# CCIR 493-4 Selcal Symbol Generator / CPFSK Modulator
# Wire2waves Ltd
# March 2015
# with CW ID for use on Amateur Radio bands
 
version = "v0.2"
 
# Imports
import numpy
import pyaudio
import struct
import time
from math import *
 
# quick and dirty CW Ident
# words per minute
wpm = 20
# dot period
cwdit = 1.2 / wpm
# dash period
cwdah = cwdit * 3
 
w_amp = (2**15) - 1
 
# define the output audio stream for the main data
p = pyaudio.PyAudio()
cpfsk_stream = p.open(format=pyaudio.paInt16, channels=1, rate=9600, output=1)
 
# make a second stream for the Tune carrier & cw ident
pt = pyaudio.PyAudio()
tunestream = pt.open(format=pyaudio.paInt16, channels=1, rate=9600, output=1)
 
pc = pyaudio.PyAudio()
cwstream = pc.open(format=pyaudio.paInt16, channels=1, rate=9600, output=1)
 
# convert text to symbol value using dictionaries
fmt_symbol_dict = { "sel" : "120", "bcn" : "123" }
cat_symbol_dict = { "rtn" : "100"}
eos_symbol_dict = { "req" : "117" }
 
 
# list containing Phasing Symbols in DX/RX order. 
 
phasing_symbol = [ "125", "109", "125", "108", "125", "107", "125", "106", "125", "105", "125", "104" ]
 
# Instead of doing bit-twiddling to convert each symbol
# value to its 10-bit parity protected word, which involves padding to full 7-bits, counting zeros,
# reversing the bit order, shifting bits and "ORing" in the parity bits
# we just use a dictionary containing the conversion between symbol value and its 10-bit parity protected word
#
parity_table = { 
"00" : "0000000111", "01" : "1000000110", "02" : "0100000110", "03" : "1100000101", 
"04" : "0010000110", "05" : "1010000101", "06" : "0110000101", "07" : "1110000100",
"08" : "0001000110", "09" : "1001000101", "10" : "0101000101", "11" : "1101000100", 
"12" : "0011000101", "13" : "1011000100", "14" : "0111000100", "15" : "1111000011", 
"16" : "0000100110", "17" : "1000100101", "18" : "0100100101", "19" : "1100100100", 
"20" : "0010100101", "21" : "1010100100", "22" : "0110100100", "23" : "1110100011", 
"24" : "0001100101", "25" : "1001100100", "26" : "0101100100", "27" : "1101100011", 
"28" : "0011100100", "29" : "1011100011", "30" : "0111100011", "31" : "1111100010", 
"32" : "0000010110", "33" : "1000010101", "34" : "0100010101", "35" : "1100010100", 
"36" : "0010010101", "37" : "1010010100", "38" : "0110010100", "39" : "1110010011", 
"40" : "0001010101", "41" : "1001010100", "42" : "0101010100", "43" : "1101010011", 
"44" : "0011010100", "45" : "1011010011", "46" : "0111010011", "47" : "1111010010", 
"48" : "0000110101", "49" : "1000110100", "50" : "0100110100", "51" : "1100110011", 
"52" : "0010110100", "53" : "1010110011", "54" : "0110110011", "55" : "1110110010", 
"56" : "0001110100", "57" : "1001110011", "58" : "0101110011", "59" : "1101110010", 
"60" : "0011110011", "61" : "1011110010", "62" : "0111110010", "63" : "1111110001", 
"64" : "0000001110", "65" : "1000001101", "66" : "0100001101", "67" : "1100001100", 
"68" : "0010001101", "69" : "1010001100", "70" : "0110001100", "71" : "1110001011", 
"72" : "0001001101", "73" : "1001001100", "74" : "0101001100", "75" : "1101001011", 
"76" : "0011001100", "77" : "1011001011", "78" : "0111001011", "79" : "1111001010", 
"80" : "0000101101", "81" : "1000101100", "82" : "0100101100", "83" : "1100101011", 
"84" : "0010101100", "85" : "1010101011", "86" : "0110101011", "87" : "1110101010", 
"88" : "0001101100", "89" : "1001101011", "90" : "0101101011", "91" : "1101101010", 
"92" : "0011101011", "93" : "1011101010", "94" : "0111101010", "95" : "1111101001", 
"96" : "0000011101", "97" : "1000011100", "98" : "0100011100", "99" : "1100011011", 
"100" : "0010011100", "101" : "1010011011", "102" : "0110011011", "103" : "1110011010", 
"104" : "0001011100", "105" : "1001011011", "106" : "0101011011", "107" : "1101011010", 
"108" : "0011011011", "109" : "1011011010", "110" : "0111011010", "111" : "1111011001", 
"112" : "0000111100", "113" : "1000111011", "114" : "0100111011", "115" : "1100111010", 
"116" : "0010111011", "117" : "1010111010", "118" : "0110111010", "119" : "1110111001", 
"120" : "0001111011", "121" : "1001111010", "122" : "0101111010", "123" : "1101111001", 
"124" : "0011111010", "125" : "1011111001", "126" : "0111111001", "127" : "1111111000" 
}
 
cw_table = {
"A" : ".-",
"B" : "-...",
"C" : "-.-.",
"D" : "-..",
"E" : ".",
"F" : "..-.",
"G" : "--.",
"H" : "....",
"I" : "..",
"J" : ".---",
"K" : "-.-",
"L" : ".-..",
"M" : "--",
"N" : "-.",
"O" : "---",
"P" : ".--.",
"Q" : "--.-",
"R" : ".-.",
"S" : "...",
"T" : "-",
"U" : "..-",
"V" : "...-",
"W" : ".--",
"X" : "-..-",
"Y" : "--.-",
"Z" : "--..",
"1" : ".----",
"2" : "..---",
"3" : "...--",
"4" : "....-",
"5" : ".....",
"6" : "-....",
"7" : "--...",
"8" : "---..",
"9" : "----.",
"0" : "-----",
" " : "",
"/" : "-..-.",
"?" : "..--..",
"+" : ".-.-."
}
 
#####################
# function definitions
#
 
##############
#  Tone generators (not used for data, but for Tune and CW signals)
#
# Setting the "cspace" and "lspace" amplitudes (pwr) to non-zero
# will produce FSK-style CW, as used in Beacons etc,
 
def sine(frequency, length, rate):
    length = int(length * rate)
    factor = float(frequency) * (pi * 2) / rate
    return numpy.sin(numpy.arange(length) * factor)#
#
# Generate a carrier to allow Auto-ATU to re-tune when changing frequency
# reduced amplitude, 3 seconds 
#
def tune_carrier(pwr):
    frequency = 1785
    length = 3
    rate = 9600
    chunks = []
    chunks.append(sine(frequency, length, rate))
    chunk = numpy.concatenate(chunks) * (w_amp * pwr)
    tunestream.write(chunk.astype(numpy.int16).tostring())
 
def dash(pwr):
    frequency=1900
    length=cwdah 
    rate=9600
    chunks = []
    chunks.append(sine(frequency, length, rate))
    chunk = numpy.concatenate(chunks) *  (w_amp * pwr)
    cwstream.write(chunk.astype(numpy.int16).tostring())    
 
def dot(pwr):
    frequency=1900
    length=cwdit
    rate=9600
    chunks = []
    chunks.append(sine(frequency, length, rate))
    chunk = numpy.concatenate(chunks) *  (w_amp * pwr)
    cwstream.write(chunk.astype(numpy.int16).tostring())  
 
def cspace(pwr):
    frequency=1700
    length=cwdit
    rate=9600 
    chunks = []
    chunks.append(sine(frequency, length, rate))
    chunk = numpy.concatenate(chunks) *  (w_amp * pwr)
    cwstream.write(chunk.astype(numpy.int16).tostring())     
 
def lspace(pwr):
    frequency=1700
    length=cwdah
    rate=9600
    chunks = []
    chunks.append(sine(frequency, length, rate))
    chunk = numpy.concatenate(chunks) *  (w_amp * pwr)
    cwstream.write(chunk.astype(numpy.int16).tostring())      
#
#   
################################
 
def make_call(cw_table, call):
    callsign = ""
    for i in call:
        callsign += cw_table[i]
        callsign += "s"        
    return callsign
 
def cwid(call, pwr):
    callsign = make_call(cw_table, call)
    for i in callsign:
        if i == "-":
            dash(pwr)
            cspace(pwr)
        elif i == ".":
            dot(pwr)
            cspace(pwr)
        elif i == "s":
            lspace(pwr)
 
###########
 
 
# split a 4 digit Selcal into two 2-digit symbols
# resulting symbols are returned as a list
def sel_id_symbol(sel_id):
    sel_id_list = [(sel_id[i:i+2]) for i in range(0, len(sel_id), 2)]    
    return sel_id_list
 
 
# build the basic Call:
# Selcal messages are of the form:  "fmt to_id cat self_id eos eos eos"
 
def build_call(f_s, a_s, c_s, s_s, eos_s):
 
    sel_call = []
 
    sel_call.append(f_s)
 
    for i in a_s:
        sel_call.append(i)
 
    sel_call.append(c_s)
 
    for i in s_s:
        sel_call.append(i)
 
    sel_call.append(eos_s)
 
    sel_call.append(eos_s)
    sel_call.append(eos_s)
 
    return sel_call
 
 
 
# interleave the symbols into DX and RX sequence 
# at the same time convert between symbol value and
# 10-bit parity word by looking in the parity_table dictionary.
 
def interleave(parity_table, phasing, sel_list):
 
    symbol_count = len(sel_list)
 
    sel_dxrx = []
    # interleave the phasing sequence
    for p in range(0,12):
        sel_dxrx.append(parity_table[phasing[p]]) #dxrx
 
    # add dx and rx copies of the format symbol
    sel_dxrx.append(parity_table[sel_list[0]]) #dx
    sel_dxrx.append(parity_table[sel_list[0]]) #rx
 
    # add the DX copy of the the to_ID
    sel_dxrx.append(parity_table[sel_list[1]]) #dx
 
    # add another RX copy of the format symbol
    sel_dxrx.append(parity_table[sel_list[0]]) #rx
 
    # add the DX copy of the category symbol
    sel_dxrx.append(parity_table[sel_list[2]]) #dx
 
    # loop through the remaining symbols to add the RX and DX versions 
    for i in range(0,symbol_count-3):
        sel_dxrx.append(parity_table[sel_list[i]]) #rx
        sel_dxrx.append(parity_table[sel_list[i+3]]) #dx
 
    # add a final DX and RX copy of the EOS symbol
    sel_dxrx.append(parity_table[sel_list[-1]])
    sel_dxrx.append(parity_table[sel_list[-1]])    
 
    # sel_dxrx is a list of 10-bit words, as ones and noughts, for the complete message
    return sel_dxrx
 
 
# Make a 600-bit dotting period of alternating 1/0 in a string
 
# Selcal dotting periods often 6 seconds (and up to 20 seconds in some
# instances) to allow for capturing scanning radios. 
# We send 300 bits / 6 seconds for now, pending a decision to extend or reduce the dotting period.
 
# Append to the string each 10-bit interleaved word, to create a string of 
# ones and noughts.
 
# return a string of ones & noughts representing the complete message
 
def make_bitstream(sel_dxrx):
    sel_bitstream= "10"  * 300 # dotting
    for i in sel_dxrx:
        sel_bitstream += i
    return sel_bitstream
 
 
 
# DSC and Selcall use tone spacing and baud rate that prevents the use of 
# "Sunde's FSK" method to create glitch-less bit transitions.
#
# To minimize bandwidth it's necessary to use "Continuous Phase FSK" which
# has a smooth transition of the waveform at the bit boundary. The method used is time-consuming
# as we have to create each audio sample based on the phase-advance of each bit-period and 
# store them in a buffer before sending them out to the soundcard via PyAudio.
# 
# This function is courtesy of Bill Lionheart : billlionheart@gmail.com
#
# Make the CPFSK-modulated sample values, pack them into a list, and convert to a string 
# to feed PyAudio  
#
 
def modulate(fmsg, fcarrier, f0, f1, fsample, baud, amp):
 
    if amp > 1.0:
       amp = 1.0
 
    sel_amp =  (w_amp * amp)
 
    mlen = len(fmsg)
 
    mtime = mlen/baud  
 
    nsamp = int(round(fsample*mtime))
 
    deltaT = 1.0/fsample
 
    ph=0
 
    y = [0] * nsamp
 
    for i in range(nsamp): # i = sample number
 
        thisbit = int(floor((i/float(nsamp))* mlen)) 
 
        # "thisbit" is the index number of the data-bit being modulated,
        # the same data-bit is used for "the number of samples which occupy 1 bit period"
 
        if fmsg[thisbit]:
            f = f1 
        else:
            f = f0 
 
        # if this bit is a 1 then f = mark-freq, else f = space-freq
 
        ph +=  2*pi*(fcarrier + f)*deltaT
 
        # phase advances during sample period according the actual mark or space freq
        # when the bit changes between 1 and 0, the phase advance in deltaT is small, and
        # continuity in phase is achieved. The signal then starts to advance
        # in phase according to the new frequency appropriate the the bit (one or nought)
        #being sent.
 
        # reset phase to zero every 360 degrees
        if ph> 2*pi: 
            ph = ph - 2*pi
 
        y[i]=sel_amp*(sin(ph)) # y is an 8-bit value
        # y[i] is the current sample's amplitude - the "sin of current accumulated phase"
 
    wave_list = []
    for v in y:
        vp = struct.pack('h',v)
        wave_list.append(vp)
    wavestring = ''.join(wave_list)
 
    return wavestring
 
 
# Take the message to be sent and
# 1) interleave
# 2) make bitstream as a string
# 3) convert to list, for the CPFSK modulator function, 
# 4) calculate the sample values using the "modulate()" function
# 5) write the string of sample values to pyaudio
 
 
def transmit_sel(sel_call, pwr):
    #
    # 1) interleave the message and phasing DX and RX symbols together, and also convert to 10-bit parity words
    sel_dxrx = interleave(parity_table, phasing_symbol, sel_call) 
 
    # 2) create a string with the ones and noughts representing the full message
    sel_bitstream = make_bitstream(sel_dxrx)
 
    # 3) convert the string into a list, to feed the CPFSK modulator
    bitstream_list = [int(sel_bitstream[i:i+1]) for i in range(0, len(sel_bitstream), 1)]
 
    # 4) get a list of sample values from the CPFSK modulator
    #
    # arguments for modulate() : (source of message_bits(a list), f-centre, space_dev, mark_dev, sample_rate, baud_rate, amplitude)
    # returns a string of 8-bit signed values to feed PyAudio
 
    wave = modulate(bitstream_list, 1785, -85, +85, 9600, 100.0, pwr)
 
    # 5) make some noise...
 
    cpfsk_stream.write(wave)
 
    return

selcal_gui.py

# Wire2waves Ltd
# CCIR 493-4 Selcal Generator & Modulator
# Generic, non-TX GUI
 
 
from Tkinter import *
from selcal_functions import *
import threading
import Queue
import time
 
version = "v0.2"
 
 
class Application(Frame):
    def __init__(self, master):
        """ Initialize frame"""
        Frame.__init__(self, master)
        self.grid()
        self.create_widgets()
 
        # we manage the three sound-producing functions in Threads, run at startup but only produce
        # output when their Queues are set to "1"
        self.selqueue = Queue.Queue()
        self.tunequeue = Queue.Queue()
        self.cwqueue = Queue.Queue()
        self.tunequeue.put(0)
        self.selqueue.put(0)
        self.cwqueue.put(0)
        t1 = threading.Thread(target = self.tune)
        t1.setDaemon(True)
        t1.start()
        c1 = threading.Thread(target = self.send_cwid)
        c1.setDaemon(True)
        c1.start()
        d1 = threading.Thread(target = self.send_sel)
        d1.setDaemon(True)
        d1.start()
 
 
    def create_widgets(self):
 
        ###### 
        #
        # The Address Entry Fields
        self.to_l = Label(self, width = 15, text = "To ID", fg = 'red').grid(row = 0, column = 0, sticky = W)
        self.to_sel_id_e = Entry(self, width = 10, fg = 'red')
        self.to_sel_id_e.grid(row = 0, column = 1, padx = 5, pady = 5, sticky = W)
        self.to_sel_id_e.insert(0, "3922")
 
 
        self.from_l = Label(self, width = 15, text = "Self ID", fg = 'blue').grid(row = 1, column = 0, sticky = W)
        self.from_sel_id_e = Entry(self, width = 10, fg = 'blue')
        self.from_sel_id_e.grid(row = 1, column = 1, padx = 5, pady = 5, sticky = W)
        self.from_sel_id_e.insert(0, "3921")
 
        ###################
        #
        # The "Format" selection radio buttons
        self.fmt = StringVar()
        self.fmt_l = Label(self, width = 15, text = "Format").grid(row = 5, column = 0, sticky = W)
        self.sel_r = Radiobutton(self, text = "Sel", variable = self.fmt, value = "sel")
        self.sel_r.grid(row = 5, column = 1, sticky = W)
        self.bcn_r = Radiobutton(self, text = "Bcn", variable = self.fmt, value = "bcn")
        self.bcn_r.grid(row = 5, column = 2, sticky = W)
        #self.fmt_e = Entry(self, width = 10, fg = 'blue')
        #self.fmt_e.grid(row = 5, column = 1, padx = 5, pady = 5, sticky = W)
        #self.fmt_e.insert(0, "120")
 
        #
        # click the "SEL" radio button
        self.sel_r.invoke()
        #
        ########
 
        ######
        #
        # The "Category" selection radio buttons
 
        self.cat = StringVar()
 
        self.cat_l = Label(self, width = 15, text = "Category").grid(row = 6, column = 0, sticky = W)
        self.saf_r = Radiobutton(self, text = "Routine", variable = self.cat, value = "rtn")
        self.saf_r.grid(row = 6, column = 1, sticky = W)
        #self.cat_e = Entry(self, width = 10, fg = 'blue')
        #self.cat_e.grid(row = 6, column = 1, padx = 5, pady = 5, sticky = W)
        #self.cat_e.insert(0, "100")
 
 
        # For selcal we may require other categories, but at present only "Routine" is used
        #self.urg_r = Radiobutton(self, text = "Urgent", variable = self.cat, value = "urg")
        #self.urg_r.grid(row = 6, column = 2, sticky = W)
        #self.dis_r = Radiobutton(self, text = "Distress", variable = self.cat, value = "dis")
        #self.dis_r.grid(row = 6, column = 3, sticky = W)
 
        # click the "Safety" radio-button
        self.saf_r.invoke()
        #
        ########
 
        ####
        #
        # The "EOS" selection radio buttons
 
        self.eosv = StringVar()
        self.eos_l = Label(self, width = 15, text = "EOS").grid(row = 9, column = 0, sticky = W)
        self.req_r = Radiobutton(self, text = "REQ", variable = self.eosv, value = "req")
        self.req_r.grid(row = 9, column = 1, sticky = W)
        #self.eos_e = Entry(self, width = 10, fg = 'blue')
        #self.eos_e.grid(row = 9, column = 1, padx = 5, pady = 5, sticky = W)
        #self.eos_e.insert(0, "117")
 
        # leave these in case other EOS symbols would be useful in the future 
        #self.ack_r = Radiobutton(self, text = "ACK", variable = self.eosv, value = "ack")
        #self.ack_r.grid(row = 9, column = 2, sticky = W)
 
        #self.eos_r = Radiobutton(self, text = "EOS", variable = self.eosv, value = "eos")
        #self.eos_r.grid(row = 9, column = 3, sticky = W)
 
        # click the "REQ" radio button
        self.req_r.invoke()
        #
        ###########
 
 
        ###########
        #
        # The "do something" buttons
 
        self.go_b = Button(self, text = "Send Selcal", command = self.selqueue_on)
        self.go_b.grid(row = 10, column = 0, sticky = W+E)
 
        self.tune_b = Button(self, text = "Tune", command = self.tunequeue_on)
        self.tune_b.grid(row = 13, column = 0, sticky = W+E)
 
        self.cw_call_e = Entry(self)
        self.cw_call_e.grid(row = 14, column = 1, columnspan = 2)
        #
        # The CW Text is pre-set, but can be edited as required on the GUI
        self.cw_call_e.insert(0, "   de GM4SLV   ")
 
        self.cw_b = Button(self, text = "Send CW ->", command = self.cwqueue_on)
        self.cw_b.grid(row = 14, column = 0, sticky = W+E)
 
        ######
        #
        # The display of Selcal Symbols
        #
 
        self.sel_title = Label(self, text = "Sending Selcal Symbols: " , fg = 'blue').grid(row = 16, column = 0)
 
        sel_call_f = Frame(self, relief = GROOVE, borderwidth = 2, pady = 5)
        sel_call_f.grid(row = 17, column = 0, columnspan = 5, padx = 5, pady = 5, sticky = W+E)
 
 
        self.sel_label = StringVar()
        self.sel_l = Label(sel_call_f, textvariable = self.sel_label, fg = 'blue', height = 2, wraplength = 350, anchor = W)
        self.sel_l.grid(row = 0, column = 0)
        #
        #####
 
 
    # When a Tune is required we call tunequeue_on() which puts a "1" into the queue.
    # The queue is read by tune() which is running constantly (while True:) in a thread. 
    # If a "1" is found the tune_carrier() function is triggered
    # then tunequeue_off() will put a "0" in the queue which will inhibit any further
    # tune signals. 
 
    # Since the Tune, CWID and Selcal Transmit all run in their own threads, with their own queues
    # it's possible to do all three functions at once, and still retain an active GUI
    # this may not be "the right way" to do this, but it works...
 
    def tunequeue_on(self):
        self.tunequeue.put(1)
 
    def tunequeue_off(self):
        self.tunequeue.put(0)
 
 
    def tune(self):
 
        while True:
            t_on = self.tunequeue.get()
            if t_on == 1:   
                pwr = 0.7
                tune_carrier(pwr)
                self.tunequeue_off()
 
 
    def cwqueue_on(self):
        self.cwqueue.put(1)
    def cwqueue_off(self):
        self.cwqueue.put(0)
 
    def send_cwid(self):
        while True:
            c_on = self.cwqueue.get()
            if c_on == 1:
                pwr = 0.7
                call = self.cw_call_e.get().upper()
                cwid(call, pwr)
                self.cwqueue_off()
 
    def selqueue_on(self):
        self.selqueue.put(1)
    def selqueue_off(self):
        self.selqueue.put(0)
 
    def send_sel(self):
 
        while True:   
            go = self.selqueue.get()
            if go == 1:
                a_sel_id = self.to_sel_id_e.get()
                s_sel_id = self.from_sel_id_e.get()
                fmt = self.fmt.get()
                cat = self.cat.get()
                eos = self.eosv.get()
                pwr = 0.7
 
                # restrict to 4-digit 493-4
                if len(a_sel_id) != 4:
                    continue
                if len(s_sel_id) != 4:
                    continue
 
                # convert the format, category and eos to the appropriate symbol values
                fmt_symbol = (fmt_symbol_dict[fmt])
                #fmt_symbol = self.fmt_e.get()
 
                cat_symbol = (cat_symbol_dict[cat])
                #cat_symbol = self.cat_e.get()
 
                eos_symbol = (eos_symbol_dict[eos])
                #eos_symbol = self.eos_e.get()
 
                # convert the 4-digit selcal IDs into two 2-digit symbols
                a_symbol = sel_id_symbol(a_sel_id)
                s_symbol = sel_id_symbol(s_sel_id)
 
                # build the call by joining the symbol values into a list
                sel_call = build_call(fmt_symbol, a_symbol, cat_symbol, s_symbol, eos_symbol)
 
                #we want the basic selcal message returned to us, to display on the GUI
                self.sel_label.set(sel_call)
 
                # turn the selcal queue off to stop further transmissions
                self.selqueue_off()
 
                # then we pass the selcal list and required "power" into "transmit_sel() which does the rest...
                transmit_sel(sel_call, pwr) 
 
 
 
if __name__ == '__main__':
    root = Tk()
 
    root.geometry("350x350+10+10")
    root.title("GM4SLV HF CCIR 493-4 Selcal " + version)
    root.resizable(0, 0)
    app = Application(root)
 
 
    root.mainloop()

— John Pumford-Green 29/04/23 11:42

Last Modified : 30/12/25 09:55 GMT

radio, selcall

DMR HotSpots

anonymous@undisclosed.example.com (Anonymous) — Sun, 04 Jan 2026 07:49:53 +0000

←Older Topics

DMR HotSpots

Pi-Star and DVMega or MMDVM_HS Raspberry Pi “hat”

Currently connected to Brandmeister directly.

Previously it has used DMRGateway to control connections to three DMR networks:

Brandmeister
Phoenix / DMR+
TGIF

Update 3/10/22

Hotspot active again, using DMR Gateway and 3 networks:

DMR Gateway Config

[General]
RptAddress=127.0.0.1
RptPort=62032
LocalAddress=127.0.0.1
LocalPort=62031
RuleTrace=0
Daemon=1
Debug=0
RFTimeout=20
NetTimeout=20

[Log]
DisplayLevel=0
FileLevel=1
FilePath=/var/log/pi-star
FileRoot=DMRGateway

[Voice]
Enabled=1
Language=en_GB
Directory=/usr/local/etc/DMR_Audio

[Info]
Enabled=0
RXFrequency=438800000
TXFrequency=438800000
Power=1
Latitude=60.2885
Longitude=-1.4252
Height=0
Location="Shetland"
Description="UK"
URL=https://www.qrz.com/db/GM4SLV

[XLX Network]
Startup=950
Enabled=0
File=/usr/local/etc/XLXHosts.txt
Port=62030
Password=passw0rd
ReloadTime=60
Slot=2
TG=6
Base=64000
Relink=60
Debug=0
Id=2354429
UserControl=1

[DMR Network 1]
Enabled=1
Address=2341.master.brandmeister.network
Port=62031
TGRewrite0=2,9,2,9,1
PCRewrite0=2,94000,2,4000,1001
TypeRewrite0=2,9990,2,9990
SrcRewrite0=2,4000,2,9,1001
PassAllPC0=1
PassAllTG0=1
PassAllPC1=2
PassAllTG1=2
Password="<Brandmeister Hotspot Password"
Debug=0
Id=<DMRID and SSID>
Name=BM_2341_United_Kingdom
Location=1

[DMR Network 2]
Enabled=1
Address=78.129.135.43
Port=55555
TGRewrite0=2,8001,2,1,999
TGRewrite1=2,82000,2,2000,999
TGRewrite2=2,823000,2,23000,999
TGRewrite3=2,89900,2,9900,99
PCRewrite0=2,84000,2,8009,1
PCRewrite1=1,85057,2,5057,1
Password="PASSWORD"
Debug=0
Id=235442901
Name=DMR+_IPSC2-PhoenixF
Location=0
Options="StartRef=4000;UserLink=1;TS1_1=235;"

[DMR Network 3]
Enabled=0
Name=HBLink
Address=1.2.3.4
Port=5555
TGRewrite=2,11,2,11,1
Password="PASSWORD"
Location=0
Debug=0
TGRewrite0=2,11,2,11,1

[DMR Network 4]
Enabled=1
Name=TGIF
PCRewrite1=1,4009990,1,9990,1
PCRewrite2=2,4009990,2,9990,1
TGRewrite1=1,4000001,1,1,999999
TGRewrite2=2,4000001,2,1,999999
SrcRewrite1=1,9990,1,4009990,1
SrcRewrite2=2,9990,2,4009990,1
SrcRewrite3=1,1,1,4000001,999999
SrcRewrite4=2,1,2,4000001,999999
Address=tgif.network
Password=<TGIF Hotspot Access Key>
Port=62031
Location=0
Debug=0
Id=<DMRID and SSID>

[GPSD]
Enable=0
Address=127.0.0.1
Port=2947

[APRS]
Enable=1
Address=127.0.0.1
Port=8673
Description=APRS for DMRGateway
Suffix=DMR

[Dynamic TG Control]
Enabled=1
Port=3769

Fldigi Parrot

anonymous@undisclosed.example.com (Anonymous) — Tue, 30 Dec 2025 09:55:07 +0000

←Older Topics

Fldigi Parrot

Experimental HF Digi-mode message-relay system using Fldigi and Python

Work in progress

Uses xml-rpc in python to communicate with fldigi and read the incoming RX Text.

When a particular text sequence is received (ZCZC CALL CALL) to trigger the “parrot” function, the RX text is then read searching for an end of message string (…end). When this is found the full message is then re-transmitted, with self-identification added to ensure it is clear which station is the source of the message and which is the source of the relay.

Transmitter control via RS232 / NMEA (for an IC-M710 marine HF transceiver) is also included to allow for remote commands to change frequency to be handled. Fldigi does the rig control (via its own hamlib configuration). Fldigi is told what we want the radio to do via xml-rpc rather than have direct control ourselves.

Monitoring

A web-page is provided that shows the Fldigi receive text, in almost real time at:

~~Fldigi RX Text~~

and another shows the parrot activity:

~~Fldigi Parrot~~

Software

The python scripts to run these functions are run within a tmux session which is set up with the following script:

tmux script

fldigi_xml.sh

#!/bin/sh
 
session="Shack"
 
tmux start-server
 
tmux new-session -d -s $session 
 
tmux rename-window "fldigi"
 
tmux selectp -t 0
tmux send-keys "python2 ./rx_buf.py" C-m
 
 
 
tmux selectp -t 0
tmux splitw -h -p 50
tmux send-keys "python2 ./parrot_flmsg.py" C-m
 
tmux selectp -t 1 
tmux attach-session -t $session

The python scripts

rx_buf.py
parrot_flmsg.py
flfn.py

are as follows:

rx_buf.py

rx_buf.py reads the Fldigi RX Buffer and provides the online web page to allow remote observation of what is being received.

rx_buf.py

import xmlrpclib
import time
import os
 
s = xmlrpclib.ServerProxy("http://192.168.21.107:7362")
rx_text = ""
n = 0
index = 0
count = 0
 
def get_status():
 
    try:
        status = s.main.get_status1()
    except:
        status = "Fldigi Offline"
    return status
 
def get_mode():
 
    try:
        mode = s.modem.get_name()
    except:
        mode = "Fldigi Offline"
    return mode
 
def get_freq():
    try:
        freq = s.main.get_frequency()
        carrier = s.modem.get_carrier()
        centre = (float(freq) + int(carrier))/1000
    except:
        centre = 0.0
    return centre
 
def write_file(text):
    print "in write_file() with ", text
    text_asc = "".join(x for x in text if (ord(x) > 31 and ord(x) < 128) or ord(x) == 13 or ord(x) == 10 or ord(x) == 9)
    filename = r'/var/www/html/pages/gm4slv_fldigi.txt'
    f = open(filename, 'a+')  # a+ is "append to file, create it if it doesn't exist"
    f.write(text_asc)
    f.close()
    return
 
def stamp_file():
    mode = get_mode()
    centre = get_freq()
    status = get_status()
    timenow = time.strftime("*** Time Stamp : %Y-%m-%d %H:%M :  ", time.gmtime(time.time()))
    #print mode
    write_file("\r\n\n%s *** Modem : %s : Centre Freq : %.3f *** SNR : %s \r\n\n" % (timenow, mode, centre, status))
 
def tail(n):
    filename = r'/var/www/html/pages/gm4slv_fldigi.txt'
    tailfile = r'/var/www/html/pages/gm4slv_tail.txt'
    fin = open(filename, 'r')
    list = fin.readlines()
    fin.close()
    tail_list = list[-n:]
    fout = open(tailfile, "w")
    fout.writelines(tail_list)
    fout.close()
 
 
while True:
    '''
    try:
        rx_length = s.text.get_rx_length()
        rx_text = str(s.text.get_rx(index,rx_length - index))
        index = rx_length
    except:
        rx_text = ""
    '''
    rx_length = s.text.get_rx_length()
    print "rxl ", rx_length
    print "index ", index
    print "getting %d, %d" % (index, rx_length - index)
    rx_text = str(s.text.get_rx(index,rx_length - index))
    index = rx_length
    if rx_text == "empty rx buffer!":
        rx_text = ""
    #s.text.clear_rx()
    #os.system('cls' if os.name == 'nt' else 'clear')
    print  rx_text
 
 
 
    write_file(rx_text)
    tail(100)
 
    count += 1
 
    if count == 180:
        # hourly 180 * 20 secs = 3600 secs = 60 mins
        stamp_file()
        count = 0
    time.sleep(20)

parrot_flmsg.py

parrot_flmsg.py handles the message-relay functions.

Recent changes were made to handle the longer formal message formats of flmsg.

The parrot also provides some simple remote control of the HF transceiver's frequency and power level via QSY? and PWR? commands.

parrot_flmsg.py

#
#######
##  test file
#
 
import xmlrpclib
import time
import os
#import subprocess
 
import flfn
 
s = xmlrpclib.ServerProxy("http://shack:7362")
 
 
rx_text = []
zc_flag = 0
nn_flag = 0
message_time = 0
 
qsy_flag = 0
qsy_time = 0
 
mycall = "GM4SLV"
 
info = "GM4SLV INFO\nTest Relay\nIC-M710 50W\nInverted-L\n"
help_text = "Usage : \nZCZC\nRELAY_CALL FROM_CALL [ INFO? | HELP? | TO_CALL ]\nNNNN"
 
### remove old crud
#
s.text.clear_rx()
 
flfn.do_qsy(5366.5)
 
def write_file(text):
    filename = r'/var/www/html/pages/parrot_log.txt'
    f = open(filename, 'a+')
    f.write(text)
    f.close()
 
def parse_message(text):
    global qsy_flag
    global qsy_time
    #print "Parsing : ", text
    header_line=text.split('\n')[0]
    message_text = "\n".join(text.split('\n')[1:])
    print "Header Line :\n", header_line
    print "Message Text : \n", message_text
 
    calls_list = header_line.split()
 
    if len(calls_list) > 1:
        if len(calls_list) < 5:
 
            qsy_time = time.time()
 
            print "Calls List ", calls_list
 
            relay_call = calls_list[0].upper()
 
            print "Relay call ", relay_call
 
            from_call = calls_list[1].upper()
 
            if len(calls_list) > 2:
                to_call = calls_list[2].upper()
            else:
                to_call = "ECHO"
 
            print "From ",from_call
 
            print "To ",to_call
 
            user = call_asc(from_call)
 
            target = call_asc(to_call)
 
            if len(calls_list) == 4:
                command = calls_list[3]
 
            message = "\n".join(text.split('\n')[1:])
 
            if target == "INFO?":
                target = user
                user = "ECHO"
                message = info
 
            if target == "PWR?":
                pwr = flfn.do_pwr(command)
                target = "BOGUS"
                user = "BOGUS"
                message = "New Power preset %s" % (command)
 
            if target == "QSY?":
                qsy = flfn.do_qsy(command)
                target = "BOGUS"
                user = "BOGUS"
                message = "New Freq %s" % (command)
                #print "command was ", command
                if command != "HOME":
                    qsy_flag = 1
                    print "set qsy_flag ", qsy_flag
                    #print qsy_time
                else:
 
                    qsy_flag = 0
                    print "reset qsy_flag ", qsy_flag    
 
            if from_call == "HELP?" or target == "HELP?":
                target = user
                user = "ECHO"
                message = help_text
 
            if relay_call == mycall:
                return(user,target,message)
 
            else:
                print "Wrong Relay Call"
                return("BOGUS","BOGUS","Not for Me")
 
        else:
            print "Header too long"
            return("BOGUS", "BOGUS", "Too Long")
    else:
        print "Header too short"
        return("BOGUS", "BOGUS","Too Short")
 
def call_asc(call):
    call_asc = "".join(x for x in call if (ord(x) > 46 and ord(x) < 58) or (ord(x) > 62 and ord(x) < 91))
    return(call_asc)
 
 
 
def qsp(text, snr):
    print "\nQSP triggered"
 
    timenow = time.strftime("*** Time Stamp : %Y-%m-%d %H:%M:%S :  ", time.gmtime(time.time()))
 
    user,target,message=parse_message(text)
    print "Message : \n",message    
    if user == "BOGUS":
        print "Ignoring"
        write_file("\n%s\nNOT RELAYED\n%s" % (timenow, text))
        #subprocess.call("./log.sh")
        s.text.clear_rx()
 
        return
 
    time.sleep(10)
    s.text.clear_rx()
 
    print "PTT ON"
 
    timemsg = time.strftime("%H:%M:%S ", time.gmtime(time.time()))
    s.main.tx()
    s.text.add_tx("\n"+timemsg+"\nTo "+target+" from "+user+" via GM4SLV ("+snr+")\n\n"+message+"\n\n\n"+target+" de "+user+" via GM4SLV kn \n  ^r")
 
    timenow = time.strftime("*** Time Stamp : %Y-%m-%d %H:%M:%S :  ", time.gmtime(time.time()))
    timemsg = time.strftime("%H:%M:%S ", time.gmtime(time.time()))
 
    modem = s.modem.get_name()
    car = s.modem.get_carrier()
    f = s.main.get_frequency()
    rfc = (f + car) / 1000
 
    write_file("\n%s\n%s (%s)  Message Relayed on %0.1f for : %s\n%s\n====================\n" % (timenow, modem, snr, rfc, user, text))
    #subprocess.call("./log.sh")
 
    return
 
 
def watchdog():
    #print "In Watchdog ", qsy_flag
    if qsy_flag == 1:
        print "We were QSY'd"
        delta_t = time.time() - qsy_time
        print delta_t
        if delta_t > 300:
            print "Timeout"
            qsy_end = "GM4SLV GM4SLV QSY? HOME"
            parse_message(qsy_end)
            timenow = time.strftime("*** Timeout : %Y-%m-%d %H:%M:%S :  ", time.gmtime(time.time()))
            write_file("\n%s : Returning to HOME channel\n" % (timenow))
    else:
        return
 
 
while True:
    try:
        rx_length = s.text.get_rx_length()
   #     print "rx_length ",rx_length
        for l in range(rx_length-2000, rx_length):
            rx = str(s.text.get_rx(l,1))
            rx_text.append(rx)
            for i in range(len(rx_text)):
                if rx_text[i] == "C" and rx_text[i-1] == "Z" and rx_text[i-2] == "C" and rx_text[i-3] == "Z":
 
                    if not zc_flag:
                        print "Found ZCZC...."
 
                        modem = s.modem.get_name()
                        if modem != "RTTY":
                            stat1 = s.main.get_status1()
                        else:
                            stat1 = s.main.get_status2()
 
                    zc_flag = 1
                    zc_index = i+2
 
                if rx_text[i] == "d" and rx_text[i-1] == "n" and rx_text[i-2] == "e" and rx_text[i-3] == " " and rx_text[i-4] == "." and rx_text[i-5] == "." and rx_text[i-6] == ".":
                    if not nn_flag and zc_flag:
                        print "Found end"
                    nn_flag = 1
                    nn_index = i-3
            text =  ''.join(rx_text)
 
        if zc_flag == 1:
 
            print "found start... waiting for end  ", message_time
            if message_time < 300:
                message_time += 1
            else:
                print "Timeout waiting"
                s.text.clear_rx()
                message_time = 0
                rx_text= []
                zc_flag = 0
                nn_flag = 0
 
        else:
            rx_text=[]
 
 
        if zc_flag == 1 and nn_flag == 1 : # message complete
            print "Message complete"
            #print "zc_index %d, nn_index %d" % (zc_index, nn_index)
            #print "Text  %s " % (rx_text[zc_index:nn_index])
            if zc_index < nn_index:
                message_time = 0
                print "Index correct"
                message = ''.join(rx_text[zc_index:nn_index+8])
                print "Raw Message ", message
                zc_flag = 0
                nn_flag = 0
 
                message_asc = "".join(x for x in message if (ord(x) > 31 and ord(x) < 128) or ord(x) == 13 or ord(x) == 10 or ord(x) == 9)
                rx_text = []
 
                qsp(message_asc, stat1)
 
 
            else:
                rx_text = []
                zc_flag = 0
                nn_flag = 0
 
    except:
        rx_text = []
 
 
    watchdog()
    time.sleep(2)

flfn.py

flfn.py is a helper module of functions to communicate with fldigi using xml-rpc.

flfn.py

import xmlrpclib
import time
 
s = xmlrpclib.ServerProxy("http://shack:7362")
 
 
def do_qsy_tune(ttime):
    while s.main.get_trx_status() != "rx":
        trx = s.main.get_trx_status()
        print "starting while ",trx
        #s.main.rx()
        time.sleep(1)
 
    s.main.tune()
    time.sleep(ttime)
    trx = s.main.get_trx_status()
    print "tune? ",trx
    while s.main.get_trx_status() != "rx":
        trx = s.main.get_trx_status()
        print "ending while ",trx
        s.main.rx()
        time.sleep(1)
    trx = s.main.get_trx_status()
    print "final status ",trx
    return
 
def fld_qsy():
    cur_modem_carrier = s.modem.get_carrier()
    cur_dial_freq = s.main.get_frequency()
    new_dial_freq = (cur_dial_freq + cur_modem_carrier - 1500)
    s.modem.set_carrier(1500)
    s.main.set_frequency(new_dial_freq)
    return
 
def do_qsy(freq):
    if freq == "HOME":
        print "in do_qsy with HOME"
        do_home()
        time.sleep(2)
        do_qsy_tune(3)
        do_home()
        return freq
    else:
        print "in do_qsy with ", freq
        s.main.set_frequency(float(freq)*1000)
        s.modem.set_carrier(1500)
 
        do_qsy_tune(3)
        return freq
 
def do_reverse():
    s.main.toggle_reverse()
    return
 
def do_rxid():
    s.main.toggle_rsid()
    return
 
def do_txid():
    s.main.toggle_txid()
    return
 
def do_home():
    s.main.run_macro(14)
    return
 
def do_pwr(pwr):
    if pwr == "1":
 
        s.main.run_macro(20)
    elif pwr == "2":
        s.main.run_macro(21)
    elif pwr == "3":
        s.main.run_macro(22)
    elif pwr == "4":
        s.main.run_macro(23)
    else:
        pass
    return

Parrot Operation

Basic overview

To trigger a message relay you need to send the following format of text:

ZCZC GM4SLV <YOURCALL> (replacing <YOURCALL> with your actual callsign)

This is the start of message trigger.

Then type/paste/otherwise send your message-to-be-relayed.

To end the message send:

… end

If you are using flmsg to to create and send the message it will send the correct end of message string … end itself, otherwise you need to add it manually.

After a short delay, if successful, you should hear/see your message being relayed.

Further examples of operation

add screenshots of relaying in operation

A simple “ECHO” relay

Page Updated: 30/12/25 09:55 GMT

radio, fldigi, python

GM4SLV Allstar

anonymous@undisclosed.example.com (Anonymous) — Tue, 30 Dec 2025 09:55:07 +0000

←Older Topics

GM4SLV Allstar

June 3 2025

I'm working on this project again….

First try… A new start 2025

And then more, much more… Explorations

UHF Allstar Gateway

Hardware

Platform	Rapsberry Pi
Interface	CM108 Soundcard
Radio	FT-8900
Frequency	430.050MHz
Monitor	Allmon2 Supermon
AllStar	http://stats.allstarlink.org/stats/48148

Config

Config files

Commands

* DTMF Commands

Please send * 7 3 to ensure all links are disconnected before making any new links

Command	DTMF Sequence
Disconect from Node xxxx	* 1 xxxx
Connect RX Only to xxxx	* 2 xxxx
Connect Transceive to xxxx	* 3 xxxx
Speak the Node Status	* 7 0
Disconnect ALL nodes	* 7 3
Reconnect ALL nodes	* 7 4
Send Node ID	* 8 0
Speak the Local Time	* 8 1
Parrot ON	* 9 1
Parrot OFF	* 9 2
Parrot ONCE	* 9 3

Name	* 5 Macro shortcut to…	DTMF Sequence	Node No.
Hubnet	Disconnect from Hubnet	* 5 1 1	41223
Hubnet	Connect RX Only to Hubnet	* 5 2 1	41223
Hubnet	Connect Transceive to Hubnet	* 5 3 1	41223

Courtesy Tones

Can give information about the node status.

After a local Transmission on the “input” frequency the reponse will be one of:

Morse Letter I (di-dit) = node is not connected to any other nodes
Morse Letter R (di-dah-dit) = node is connected in “Monitor/RX only” mode to one or more nodes
Morse Letter K (dah-di-dah) = node is connected in “Transceive” mode to one or more nodes

There are other tones, e.g. when a station on a linked node unkeys there's a low-pitched “bloop”

When a local RF station sends a command there's a “bip bip” (not to be confused with the Morse letter I)

Echolink

AllStar nodes can also connect to Echolink

The node is occasionally connected to Echolink as GM4SLV-L

~~(UPDATE — John Pumford-Green 24/04/23 14:47 ) I have disabled the Echolink connection by editing /etc/asterisk/modules.conf to change the channel driver for Echolink to noload →~~

To turn Echolink ON or OFF edit /etc/asterisk/modules.conf

OFF

noload => chan_echolink.so ;

load => chan_echolink.so ;

an Asterisk reload is necessary:

gm4slv@mb7aze:/etc/asterisk$ sudo astres.sh
Restarting Asterisk
systemctl restart asterisk.service

— John Pumford-Green 24/04/23 14:44

Further Information

radio, allstar, echolink

HF APRS Base Station

anonymous@undisclosed.example.com (Anonymous) — Tue, 30 Dec 2025 09:55:07 +0000

←Older Topics

HF APRS Base Station

Direwolf TNC iGate on 30m

Using Direwolf on HF

30m APRS frequency = 10.1476MHz USB / 10.151MHz LSB (using 1.7kHz modem frequency)
RF centre frequency = 10.1493MHz, tones ±100Hz
Direwolf acts as
- TNC/Modem to send and receive packets via HF transceiver
- Internet I-Gate
- Tracker, when configured to use gpsd to provide real time GPS position
- Network (AGWPE) TNC for other APRS client software

Direwolf config

~/direwolf.conf

#############################################################
#                                                           #
#               FIRST AUDIO DEVICE PROPERTIES               #
#               (Channel 0 + 1 if in stereo)                #
#                                                           #
#############################################################
 
ADEVICE  plughw:1,0
 
ACHANNELS 1
 
#############################################################
#                                                           #
#               CHANNEL 0 PROPERTIES                        #
#                                                           #
#############################################################
 
CHANNEL 0
 
MYCALL GM4SLV-10
 
MODEM 300 1600:1800 7@30 /4
 
TXDELAY 30
 
TXTAIL 10
 
#############################################################
#                                                           #
#               VIRTUAL TNC SERVER PROPERTIES               #
#                                                           #
#############################################################
 
AGWPORT 8000
KISSPORT 8001
 
FIX_BITS 1
 
#############################################################
#                                                           #
#               BEACONING PROPERTIES                        #
#                                                           #
#############################################################
 
PBEACON  every=15  symbol="\-" lat=60^17.31N long=001^25.49W comment="30m HF" via=WIDE1-1
 
#############################################################
#                                                           #
#               DIGIPEATER PROPERTIES                       #
#                                                           #
#############################################################
 
#DIGIPEAT 0 0 ^WIDE[3-7]-[1-7]$|^TEST$ ^WIDE[12]-[12]$ TRACE
 
#############################################################
#                                                           #
#               INTERNET GATEWAY                            #
#                                                           #
#############################################################
 
IGSERVER euro.aprs2.net
 
IGLOGIN GM4SLV-10 19626
 
PBEACON  sendto=IG every=60  symbol="\-" lat=60^17.31N long=001^25.49W comment="30m HF"
 
#IGTXVIA 0 WIDE1-1
 
IGTXLIMIT 6 10

Direwolf running (in a Tmux session)

Xastir using Direwolf as TNC

Direwolf can act as a network TNC for other clients
- Uses “AGWPE” protocol

Set Xastir on another PC to use Direwolf as TNC. This gives user access to APRS - map, messaging etc.

APRS.FI

GM4SLV-10 info at APRS.FI

List of stations who heard me, and stations I heard, after running overnight.

Further Information

radio, aprs

— John Pumford-Green 26/04/23 06:30

HF Weather FAX

anonymous@undisclosed.example.com (Anonymous) — Tue, 30 Dec 2025 09:55:07 +0000

HF Weather FAX

— John Pumford-Green 22/10/22 08:25

I thought I'd have a look at some other HF signals and found that Fldigi will decode Weather FAX.

I found a big list of active FAX stations:

https://www.weather.gov/media/marine/rfax.pdf

and set up Fldigi and my Icom IC-R75.

PT. REYES, CALIFORNIA, U.S.A.

I'd like to receive FAX from NMC/Point Reyes in California…. and perhaps I'll leave fldigi monitoring one of their frequencies for a period

CALL SIGN	FREQUENCIES	TIMES (UTC)	EMISSION	POWER
NMC	4346 kHz	0140-1608	J3C	4 kW
	8682 kHz	ALL BROADCAST TIMES	J3C	4 kW
	12786 kHz	ALL BROADCAST TIMES	J3C	4 kW
	17151.2 kHz	ALL BROADCAST TIMES	J3C	4 kW
	22527 kHz	1840-2356	J3C	4 kW

Java JRE and Echolink Proxy

anonymous@undisclosed.example.com (Anonymous) — Tue, 30 Dec 2025 09:55:07 +0000

←Older Topics

Java JRE and Echolink Proxy

Setting up Echolink Proxy on VPS

sudo apt-get install default-jre-headless
 
wget http://echolink.org/downloads/EchoLinkProxy_1_2_3.zip
 
sudo apt-get install unzip
 
unzip EchoLinkProxy_1_2_3.zip
 
chmod 755 EcholinkProxy.jar
 
vi ELProxy.conf

and set new password

VPS Firewall

on fasthost control panel open

TCP/8100

UDP/5198

UDP/5199

Start Proxy

java -jar EcholinkProxy.jar

gm4slv@gm4slv:~$ java -jar EchoLinkProxy.jar
EchoLink Proxy version 1.2.3
Listening for connections on port 8100
Ready for new client connection.
Client connected: 80.229.223.86
Client authenticated (call=GM4SLV).

This runs and works okay.

Start in tmux

start_proxy.sh

#!/bin/bash
 
session="proxy"
 
tmux start-server
 
tmux new-session -d -s $session
 
tmux rename-window "echolink"
 
tmux selectp -t 0
tmux send-keys "java -jar /home/gm4slv/EchoLinkProxy.jar" C-m

add crontab to start @reboot

@reboot sleep 30 && sudo -u gm4slv /home/gm4slv/start_proxy.sh > /dev/null 2>&1

Page Info

— John Pumford-Green 04/06/22 07:26

Page last updated: 30/12/25 09:55 GMT

svxlink, echolink, linux, radio

MB7AZE SvxLink Config

anonymous@undisclosed.example.com (Anonymous) — Tue, 30 Dec 2025 09:55:07 +0000

←Older Topics

MB7AZE is now QRT and the NoV has expired.

The following is for historical interest only….

MB7AZE SvxLink Config

Main config file

svxlink.conf

svxlink.conf

###############################################################################
#                                                                             #
#                Configuration file for the SvxLink server                    #
#                                                                             #
###############################################################################
 
[GLOBAL]
#MODULE_PATH=/usr/lib/arm-linux-gnueabihf/svxlink
LOGICS=SimplexLogic,ReflectorLogic
CFG_DIR=svxlink.d
TIMESTAMP_FORMAT="%c"
CARD_SAMPLE_RATE=48000
#CARD_CHANNELS=1
LOCATION_INFO=LocationInfo
LINKS=LinkToReflector
 
[SimplexLogic]
TYPE=Simplex
RX=Rx1
TX=Tx1
DEFAULT_LANG=en_US
MODULES=ModuleHelp,ModuleEchoLink,ModuleParrot
CALLSIGN=MB7AZE
SHORT_IDENT_INTERVAL=15
SHORT_CW_ID_ENABLE=1
SHORT_VOICE_ID_ENABLE=0
LONG_VOICE_ID_ENABLE=1
CW_AMP=-20
CW_PITCH=1000
CW_WPM=20
LONG_IDENT_INTERVAL=60
#IDENT_ONLY_AFTER_TX=4
#EXEC_CMD_ON_SQL_CLOSE=500
EVENT_HANDLER=/usr/local/share/svxlink/events.tcl
RGR_SOUND_DELAY=0
#REPORT_CTCSS=77.0
TX_CTCSS=ALWAYS
MACROS=Macros
FX_GAIN_NORMAL=0
FX_GAIN_LOW=-12
#ACTIVATE_MODULE_ON_LONG_CMD=4:EchoLink
#QSO_RECORDER=8:QsoRecorder
ONLINE_CMD=998877
#MUTE_RX_ON_TX=1
#MUTE_TX_ON_RX=1
#STATE_PTY=/var/run/svxlink/state
#DTMF_CTRL_PTY=/dev/shm/simplex_dtmf_ctrl
TIME_FORMAT=24
RGR_SOUND_ALWAYS=1
 
[RepeaterLogic]
TYPE=Repeater
RX=Rx1
TX=Tx1
MODULES=ModuleHelp,ModuleParrot,ModuleEchoLink,ModuleTclVoiceMail
CALLSIGN=MYCALL
SHORT_IDENT_INTERVAL=10
LONG_IDENT_INTERVAL=60
#IDENT_ONLY_AFTER_TX=4
#EXEC_CMD_ON_SQL_CLOSE=500
EVENT_HANDLER=/usr/local/share/svxlink/events.tcl
DEFAULT_LANG=en_US
RGR_SOUND_DELAY=0
REPORT_CTCSS=136.5
#TX_CTCSS=SQL_OPEN
MACROS=Macros
#SEL5_MACRO_RANGE=03400,03499
FX_GAIN_NORMAL=0
FX_GAIN_LOW=-12
#QSO_RECORDER=8:QsoRecorder
#NO_REPEAT=1
IDLE_TIMEOUT=30
OPEN_ON_1750=1000
#OPEN_ON_CTCSS=136:2000
#OPEN_ON_DTMF=*
#OPEN_ON_SQL=5000
#OPEN_ON_SEL5=01234
#OPEN_SQL_FLANK=OPEN
#OPEN_ON_SQL_AFTER_RPT_CLOSE=10
IDLE_SOUND_INTERVAL=3000
#SQL_FLAP_SUP_MIN_TIME=1000
#SQL_FLAP_SUP_MAX_COUNT=10
#ACTIVATE_MODULE_ON_LONG_CMD=4:EchoLink
#IDENT_NAG_TIMEOUT=15
#IDENT_NAG_MIN_TIME=2000
#ONLINE_CMD=998877
#STATE_PTY=/var/run/svxlink/state
#DTMF_CTRL_PTY=/dev/shm/repeater_dtmf_ctrl
 
[ReflectorLogic]
TYPE=Reflector
DEFAULT_LANG=en_US
HOSTS="put the right server address in here"
HOST_PORT=5300
CALLSIGN=MB7AZE
AUTH_KEY="put the right password in here"
JITTER_BUFFER_DELAY=0
DEFAULT_TG=0
MONITOR_TGS=8,91,235,2350,2351,23520,23590,23561
TG_SELECT_TIMEOUT=60
ANNOUNCE_REMOTE_MIN_INTERVAL=300
MUTE_FIRST_TX_LOC=0
MUTE_FIRST_TX_REM=0
TMP_MONITOR_TIMEOUT=3600
EVENT_HANDLER=/usr/local/share/svxlink/events.tcl
NODE_INFO_FILE=/usr/local/etc/svxlink/node_info.json
 
[LinkToReflector]
CONNECT_LOGICS=SimplexLogic:9:,ReflectorLogic
DEFAULT_ACTIVE=1
#TIMEOUT=300
#AUTOACTIVATE_ON_SQL=RepeaterLogic
OPTIONS=DEFAULT_CONNECT,NO_DISCONNECT
 
[QsoRecorder]
REC_DIR=/var/spool/svxlink/qso_recorder
#MIN_TIME=1000
MAX_TIME=3600
SOFT_TIME=300
MAX_DIRSIZE=1024
#DEFAULT_ACTIVE=1
#TIMEOUT=300
#QSO_TIMEOUT=300
#ENCODER_CMD=/usr/bin/oggenc -Q \"%f\" && rm \"%f\"
 
[Voter]
TYPE=Voter
RECEIVERS=Rx1,Rx2,Rx3
VOTING_DELAY=200
BUFFER_LENGTH=0
#REVOTE_INTERVAL=1000
#HYSTERESIS=50
#SQL_CLOSE_REVOTE_DELAY=500
#RX_SWITCH_DELAY=500
#COMMAND_PTY=/dev/shm/voter_ctrl
 
[MultiTx]
TYPE=Multi
TRANSMITTERS=Tx1,Tx2,Tx3
 
[NetRx]
TYPE=Net
HOST=remote.rx.host
TCP_PORT=5210
#LOG_DISCONNECTS_ONCE=0
AUTH_KEY="Change this key now!"
CODEC=S16
#SPEEX_ENC_FRAMES_PER_PACKET=4
#SPEEX_ENC_QUALITY=4
#SPEEX_ENC_BITRATE=15000
#SPEEX_ENC_COMPLEXITY=2
#SPEEX_ENC_VBR=0
#SPEEX_ENC_VBR_QUALITY=4
#SPEEX_ENC_ABR=15000
#SPEEX_DEC_ENHANCER=1
#OPUS_ENC_FRAME_SIZE=20
#OPUS_ENC_COMPLEXITY=10
#OPUS_ENC_BITRATE=20000
#OPUS_ENC_VBR=1
 
[NetTx]
TYPE=Net
HOST=remote.tx.host
TCP_PORT=5210
#LOG_DISCONNECTS_ONCE=0
AUTH_KEY="Change this key now!"
CODEC=S16
#SPEEX_ENC_FRAMES_PER_PACKET=4
#SPEEX_ENC_QUALITY=4
#SPEEX_ENC_BITRATE=15000
#SPEEX_ENC_COMPLEXITY=2
#SPEEX_ENC_VBR=0
#SPEEX_ENC_VBR_QUALITY=4
#SPEEX_ENC_ABR=15000
#SPEEX_DEC_ENHANCER=1
#OPUS_ENC_FRAME_SIZE=20
#OPUS_ENC_COMPLEXITY=10
#OPUS_ENC_BITRATE=20000
#OPUS_ENC_VBR=1
 
[Rx1]
TYPE=Local
AUDIO_DEV=alsa:plughw:1,0
AUDIO_CHANNEL=0
SQL_DET=CTCSS
SQL_START_DELAY=0
SQL_DELAY=0
SQL_HANGTIME=200
#SQL_EXTENDED_HANGTIME=1000
#SQL_EXTENDED_HANGTIME_THRESH=15
#SQL_TIMEOUT=600
VOX_FILTER_DEPTH=20
VOX_THRESH=1000
#CTCSS_MODE=2
CTCSS_FQ=77.0
#CTCSS_SNR_OFFSET=0
#CTCSS_OPEN_THRESH=15
#CTCSS_CLOSE_THRESH=9
#CTCSS_BPF_LOW=60
#CTCSS_BPF_HIGH=270
#SERIAL_PORT=/dev/ttyUSB0
#SERIAL_PIN=CTS
#SERIAL_SET_PINS=
#EVDEV_DEVNAME=/dev/input/by-id/usb-SYNIC_SYNIC_Wireless_Audio-event-if03
#EVDEV_OPEN=1,163,1
#EVDEV_CLOSE=1,163,0
#GPIO_PATH=/sys/class/gpio
#GPIO_SQL_PIN=gpio25
#PTY_PATH=/tmp/rx1_sql
HID_DEVICE=/dev/hidraw0
HID_SQL_PIN=!VOL_DN
#SIGLEV_DET=NOISE
SIGLEV_SLOPE=1
SIGLEV_OFFSET=0
#SIGLEV_BOGUS_THRESH=120
#TONE_SIGLEV_MAP=100,84,60,50,37,32,28,23,19,8
SIGLEV_OPEN_THRESH=30
SIGLEV_CLOSE_THRESH=10
DEEMPHASIS=1
#SQL_TAIL_ELIM=300
PREAMP=-0.5
#PEAK_METER=1
DTMF_DEC_TYPE=INTERNAL
DTMF_MUTING=1
DTMF_HANGTIME=40
DTMF_SERIAL=/dev/ttyS0
#DTMF_PTY=/tmp/rx1_dtmf
#DTMF_MAX_FWD_TWIST=8
#DTMF_MAX_REV_TWIST=4
#1750_MUTING=1
#SEL5_DEC_TYPE=INTERNAL
#SEL5_TYPE=ZVEI1
#FQ=433475000
#MODULATION=FM
#WBRX=WbRx1
 
[WbRx1]
#TYPE=RtlUsb
#DEV_MATCH=0
#HOST=localhost
#PORT=1234
#CENTER_FQ=435075000
#FQ_CORR=0
#GAIN=0
#PEAK_METER=1
#SAMPLE_RATE=960000
 
[Tx1]
TYPE=Local
AUDIO_DEV=alsa:plughw:1,0
AUDIO_CHANNEL=0
PTT_TYPE=Hidraw
#PTT_PORT=/dev/ttyS0
#PTT_PIN=HIDRAW
HID_DEVICE=/dev/hidraw0
HID_PTT_PIN=GPIO3
#SERIAL_SET_PINS=DTR!RTS
#GPIO_PATH=/sys/class/gpio
#PTT_HANGTIME=1000
TIMEOUT=300
TX_DELAY=500
CTCSS_FQ=77.0
CTCSS_LEVEL=20
PREEMPHASIS=1
DTMF_TONE_LENGTH=100
DTMF_TONE_SPACING=50
DTMF_DIGIT_PWR=-15
MASTER_GAIN=-3.5
 
[LocationInfo]
APRS_SERVER_LIST=euro.aprs2.net:14580
STATUS_SERVER_LIST=aprs.echolink.org:5199
LON_POSITION=1.25.30W
LAT_POSITION=60.17.18N
CALLSIGN=EL-MB7AZE
FREQUENCY=430.050
TX_POWER=1
ANTENNA_GAIN=0
ANTENNA_HEIGHT=1m
ANTENNA_DIR=-1
#PATH=WIDE1-1
BEACON_INTERVAL=60
TONE=77
COMMENT=Connected to UK Svx Reflector
 
[Macros]
1=EchoLink:9999#
2=EchoLink:973498#
3=EchoLink:662666#
4=:91235#
5=:9123561#
9=:910#

Audio levels

Devcal

Use the devcal program to set RX and TX audio levels.

This allows adjustment of alsamixer settings and then for fine tuning adjustment of PRE-AMP (for RX) and MASTER GAIN (for TX) config options to set the correct audio level INPUT on RX and deviation on TX.

Once the correct PRE-AMP or MASTER GAIN values have been determined in DEVCAL they are added to the relevant sections in svxlink.conf

To use DEVCAL first sudo killall svxlink

For Receive audio input:

sudo devcal -r -m=3000 -d=3000 /usr/local/etc/svxlink/svxlink.conf Rx1

Inject a signal to the radio @ ±3kHz deviation Adjust audio input level via

radio volume control
alsamixer Mic Capture level
devcal +/- to adjust PRE-AMP setting

until the displayed deviation agrees with the input signal's deviation.

Quit devcal

Transfer the displayed PRE-AMP value to the conf file.

For Transmit audio output

Monitor TX deviation

sudo devcal -t -m=3000 -d=3000 /usr/local/etc/svxlink/svxlink.conf Tx1

Toggle TX with T

Adjust

Alsamixer output
devcal +/-

to achieve ±3kHz TX deviation.

Turn off TX with T

Quit devcal

Copy the displayed MASTER GAIN value to the conf file.

sudo alsactl store

to save current mixer levels.

To prevent Echolink incoming connections while a Talkgroup is active

Uncomment :

proc tg_selected {new_tg old_tg} {
  puts "### tg_selected #$new_tg (old #$old_tg)"
  # Reject incoming Echolink connections while a talkgroup is active
  if {$new_tg != 0} {
    setConfigValue "ModuleEchoLink" "REJECT_INCOMING" "^.*$"
  } else {
    setConfigValue "ModuleEchoLink" "REJECT_INCOMING" "^$"
  }
}

in /usr/local/share/svxlink/events.d/local/ReflectorLogic.tcl

<svxinstall>/events.d/local/

Here are the 3 files containing tweaks to the standard behaviour.

Editing the original files (in events.d/) would work, but would get overwritten if the software is upgraded/re-installed. Putting local copies in events.d/local means the changes survive upgrades etc.

The actual path is:

/usr/local/share/svxlink/events.d/local/

I'll try to document what is different once I refresh my memory.

ReflectorLogic.tcl

###############################################################################
#
# ReflectorLogic event handlers
#
###############################################################################

#
# This is the namespace in which all functions below will exist. The name
# must match the corresponding section "[ReflectorLogic]" in the configuration
# file. The name may be changed but it must be changed in both places.
#
namespace eval ReflectorLogic {
 
# The currently selected TG. Variable set from application.
variable selected_tg 0

# The previously selected TG. Variable set from application.
variable previous_tg 0

# Timestamp for previous TG announcement
variable prev_announce_time 0

# The previously announced TG
variable prev_announce_tg 0

# The minimum time between announcements of the same TG.
# Change through ANNOUNCE_REMOTE_MIN_INTERVAL config variable.
variable announce_remote_min_interval 0

# This variable will be set to 1 if the QSY pending feature ("QSY on squelch
# activity") is active. See configuration variable QSY_PENDING_TIMEOUT.
variable qsy_pending_active 0

#
# Checking to see if this is the correct logic core
#
if {$logic_name != [namespace tail [namespace current]]} {
  return;
}

 
#
# Executed when an unknown command is received
#   cmd - The command string
#
proc unknown_command {cmd} {
  Logic::unknown_command $cmd;
}

 
#
# Executed when a received command fails
#
proc command_failed {cmd} {
  Logic::command_failed $cmd;
}

 
#
# Executed when manual TG announcement is triggered
#
proc report_tg_status {} {
  variable selected_tg
  variable previous_tg
  variable prev_announce_time
  variable prev_announce_tg
  playSilence 100
  if {$selected_tg > 0} {
    set prev_announce_time [clock seconds]
    set prev_announce_tg $selected_tg
    playMsg "Core" "talk_group"
    spellNumber $selected_tg
  } else {
    playMsg "Core" "previous"
    playMsg "Core" "talk_group"
    spellNumber $previous_tg
  }
}

 
#
# Executed when a TG has been selected
# This function is called immediately when a change in talkgroup selection
# occurs. In constrast, the other more specific talkgroup selection event
# functions below is called with a delay in order to make announcement ordering
# more logical.
#
#   new_tg -- The talk group that has been activated
#   old_tg -- The talk group that was active
#
proc tg_selected {new_tg old_tg} {
  puts "### tg_selected #$new_tg (old #$old_tg)"
  # Reject incoming Echolink connections while a talkgroup is active
  if {$new_tg != 0} {
    setConfigValue "ModuleEchoLink" "REJECT_INCOMING" "^.*$"
  } else {
    setConfigValue "ModuleEchoLink" "REJECT_INCOMING" "^$"
  }
}

 
#
# Executed when a TG has been selected due to local activity
#
#   new_tg -- The talk group that has been activated
#   old_tg -- The talk group that was active
#
proc tg_local_activation {new_tg old_tg} {
  variable prev_announce_time
  variable prev_announce_tg
  variable selected_tg
 
  puts "### tg_local_activation"
  if {$new_tg != $old_tg} {
    set prev_announce_time [clock seconds]
    set prev_announce_tg $new_tg
    playSilence 100
    playMsg "Core" "talk_group"
    spellNumber $new_tg
  }
}

 
#
# Executed when a TG has been selected due to remote activity
#
#   new_tg -- The talk group that has been activated
#   old_tg -- The talk group that was active
#
proc tg_remote_activation {new_tg old_tg} {
  variable prev_announce_time
  variable prev_announce_tg
  variable announce_remote_min_interval
 
  puts "### tg_remote_activation"
  set now [clock seconds];
  if {($new_tg == $prev_announce_tg) && \
      ($now - $prev_announce_time < $announce_remote_min_interval)} {
    return;
  }
  if {$new_tg != $old_tg} {
    set prev_announce_time $now
    set prev_announce_tg $new_tg
    playSilence 100
    playMsg "Core" "talk_group"
    spellNumber $new_tg
  }
}

 
#
# Executed when a TG has been selected due to remote activity on a prioritized
# monitored talk group while a lower prio talk group is selected
#
#   new_tg -- The talk group that has been activated
#   old_tg -- The talk group that was active
#
proc tg_remote_prio_activation {new_tg old_tg} {
  tg_remote_activation $new_tg $old_tg
}

 
#
# Executed when a TG has been selected by DTMF command
#
#   new_tg -- The talk group that has been activated
#   old_tg -- The talk group that was active
#
proc tg_command_activation {new_tg old_tg} {
  variable prev_announce_time
  variable prev_announce_tg
 
  puts "### tg_command_activation"
  set prev_announce_time [clock seconds]
  set prev_announce_tg $new_tg
  playSilence 100
  playMsg "Core" "talk_group"
  spellNumber $new_tg
}

 
#
# Executed when a TG has been selected due to DEFAULT_TG configuration
#
#   new_tg -- The talk group that has been activated
#   old_tg -- The talk group that was active
#
proc tg_default_activation {new_tg old_tg} {
  #variable prev_announce_time
  #variable prev_announce_tg
  #variable selected_tg
  puts "### tg_default_activation"
  #if {$new_tg != $old_tg} {
  #  set prev_announce_time [clock seconds]
  #  set prev_announce_tg $new_tg
  #  playSilence 100
  #  playMsg "Core" "talk_group"
  # spellNumber $new_tg
  #}
}

 
#
# Executed when a TG QSY request have been acted upon
#
#   new_tg -- The talk group that has been activated
#   old_tg -- The talk group that was active
#
proc tg_qsy {new_tg old_tg} {
  variable prev_announce_time
  variable prev_announce_tg
 
  puts "### tg_qsy"
  set prev_announce_time [clock seconds]
  set prev_announce_tg $new_tg
  playSilence 100
  playMsg "Core" "qsy"
  #playMsg "Core" "talk_group"
  spellNumber $new_tg
}

 
#
# Executed when a QSY is followed due to squelch open (see QSY_PENDING_TIMEOUT)
#
#   tg -- The talk group that has been activated
#
proc tg_qsy_on_sql {tg} {
  playSilence 100
  playMsg "Core" "qsy"
}

 
#
# Executed when a TG QSY request fails
#
# A TG QSY may fail for primarily two reasons, either no talk group is
# currently active or there is no connection to the reflector server.
#
proc tg_qsy_failed {} {
  puts "### tg_qsy_failed"
  playSilence 100
  playMsg "Core" "qsy"
  playSilence 200
  playMsg "Core" "operation_failed"
}

 
#
# Executed when a TG QSY request is pending
#
# tg -- The talk group requested in the QSY
#
proc tg_qsy_pending {tg} {
  playSilence 100
  playMsg "Core" "qsy"
  spellNumber $tg
  playMsg "Core" "pending"
}

 
#
# Executed when a TG QSY request is ignored
#
# tg -- The talk group requested in the QSY
#
proc tg_qsy_ignored {tg} {
  variable qsy_pending_active
  playSilence 100
  if {!$qsy_pending_active} {
    playMsg "Core" "qsy"
    spellNumber $tg
  }
  playMsg "Core" "ignored"
  playSilence 500
  playTone 880 200 50
  playTone 659 200 50
  playTone 440 200 50
  playSilence 100
}

 
#
# Executed when a TG selection has timed out
#
#   new_tg -- Always 0
#   old_tg -- The talk group that was active
#
proc tg_selection_timeout {new_tg old_tg} {
  puts "### tg_selection_timeout"
  if {$old_tg != 0} {
    playSilence 50
    playTone 880 200 50
    playTone 659 200 50
    playTone 440 200 50
    playSilence 50
#  } else {
#    playSilence 50
#    playTone 440 200 150
#    playSilence 50
 
}
}

#
# Executed on talker start
#
#   tg        -- The talk group
#   callsign  -- The callsign of the talker node
#
proc talker_start {tg callsign} {
  #puts "### Talker DID start on TG #$tg: $callsign"
}

 
#
# Executed on talker stop
#
#   tg        -- The talk group
#   callsign  -- The callsign of the talker node
#
proc talker_stop {tg callsign} {
  variable selected_tg
  variable ::Logic::CFG_CALLSIGN
  #puts "### Talker DID stop on TG #$tg: $callsign"
  if {($tg == $selected_tg) && ($callsign != $::Logic::CFG_CALLSIGN)} {
    playSilence 100
    playTone 440 200 50
    playTone 659 200 50
    playTone 880 200 50
    playSilence 100
  }
}

 
#
# A talk group was added for temporary monitoring
#
#   tg -- The added talk group
#
proc tmp_monitor_add {tg} {
  puts "### tmp_monitor_add: $tg"
  playSilence 50
  playMsg "Default" "activating"
  playMsg "Core" "monitor"
  spellNumber $tg
}

 
#
# A talk group was removed from temporary monitoring
#
#   tg -- The removed talk group
#
proc tmp_monitor_remove {tg} {
  puts "### tmp_monitor_remove: $tg"
  playSilence 50
  playMsg "Default" "deactivating"
  playMsg "Core" "monitor"
  spellNumber $tg
}
 
 
if [info exists ::Logic::CFG_ANNOUNCE_REMOTE_MIN_INTERVAL] {
  set announce_remote_min_interval $::Logic::CFG_ANNOUNCE_REMOTE_MIN_INTERVAL
}
 
if [info exists ::Logic::CFG_QSY_PENDING_TIMEOUT] {
  if {$::Logic::CFG_QSY_PENDING_TIMEOUT > 0} {
    set qsy_pending_active 1
  }
}

 
# end of namespace
}

 
#
# This file has not been truncated
#

Logic.tcl

###############################################################################
#
# Generic Logic event handlers
#
###############################################################################

#
# This is the namespace in which all functions and variables below will exist.
#
namespace eval Logic {
 
 
#
# A variable used to store a timestamp for the last identification.
#
variable prev_ident 0;
 
#
# A constant that indicates the minimum time in seconds to wait between two
# identifications. Manual and long identifications is not affected.
#
variable min_time_between_ident 120;
 
#
# Short and long identification intervals. They are setup from config
# variables below.
#
variable short_ident_interval 0;
variable long_ident_interval 0;
 
variable short_voice_id_enable  1
variable short_cw_id_enable     0
variable short_announce_enable  0
variable short_announce_file    ""
 
variable long_voice_id_enable   1
variable long_cw_id_enable      0
variable long_announce_enable   0
variable long_announce_file     ""

#
# The ident_only_after_tx variable indicates if identification is only to
# occur after the node has transmitted. The variable is setup below from the
# configuration variable with the same name.
# The need_ident variable indicates if identification is needed.
#
variable ident_only_after_tx 0;
variable need_ident 0;
 
#
# List of functions that should be called periodically. Use the
# addMinuteTickSubscriber and addSecondTickSubscriber functions to
# add subscribers.
#
variable minute_tick_subscribers [list];
variable second_tick_subscribers [list];
 
#
# Contains the ID of the last receiver that indicated squelch activity
#
variable sql_rx_id "?";
 
#
# Executed when the SvxLink software is started
#
proc startup {} {
  #playMsg "Core" "online"
  #send_short_ident
}

 
#
# Executed when a specified module could not be found
#   module_id - The numeric ID of the module
#
proc no_such_module {module_id} {
  playMsg "Core" "no_such_module";
  playNumber $module_id;
}

 
#
# Executed when a manual identification is initiated with the * DTMF code
#
proc manual_identification {} {
  global mycall;
  global report_ctcss;
  global active_module;
  global loaded_modules;
  variable CFG_TYPE;
  variable prev_ident;
 
  set epoch [clock seconds];
  set hour [clock format $epoch -format "%k"];
  regexp {([1-5]?\d)$} [clock format $epoch -format "%M"] -> minute;
  set prev_ident $epoch;
 
  playMsg "Core" "online";
  spellWord $mycall;
  if {$CFG_TYPE == "Repeater"} {
    playMsg "Core" "repeater";
  }
  playSilence 250;
  playMsg "Core" "the_time_is";
  playTime $hour $minute;
  playSilence 250;
  if {$report_ctcss > 0} {
    playMsg "Core" "pl_is";
    playFrequency $report_ctcss
    playSilence 300;
  }
  if {$active_module != ""} {
    playMsg "Core" "active_module";
    playMsg $active_module "name";
    playSilence 250;
    set func "::";
    append func $active_module "::status_report";
    if {"[info procs $func]" ne ""} {
      $func;
    }
  } else {
    foreach module [split $loaded_modules " "] {
      set func "::";
      append func $module "::status_report";
      if {"[info procs $func]" ne ""} {
	$func;
      }
    }
  }
  #playMsg "Default" "press_0_for_help"
  #playSilence 250;
}

 
#
# Executed when a short identification should be sent
#   hour    - The hour on which this identification occur
#   minute  - The minute on which this identification occur
#
proc send_short_ident {{hour -1} {minute -1}} {
  global mycall;
  variable CFG_TYPE;
  variable short_announce_file
  variable short_announce_enable
  variable short_voice_id_enable
  variable short_cw_id_enable

  # Play voice id if enabled
  if {$short_voice_id_enable} {
    puts "Playing short voice ID"
    spellWord $mycall;
    if {$CFG_TYPE == "Repeater"} {
      playMsg "Core" "repeater";
    }
    playSilence 500;
  }

  # Play announcement file if enabled
  if {$short_announce_enable} {
    puts "Playing short announce"
    if [file exist "$short_announce_file"] {
      playFile "$short_announce_file"
      playSilence 500
    }
  }

  # Play CW id if enabled
  if {$short_cw_id_enable} {
    puts "Playing short CW ID"
    if {$CFG_TYPE == "Repeater"} {
      set call "$mycall/R"
      CW::play $call
    } else {
      CW::play $mycall
    }
    playSilence 500;
  }
}

 
#
# Executed when a long identification (e.g. hourly) should be sent
#   hour    - The hour on which this identification occur
#   minute  - The minute on which this identification occur
#
proc send_long_ident {hour minute} {
  global mycall;
  global loaded_modules;
  global active_module;
  variable CFG_TYPE;
  variable long_announce_file
  variable long_announce_enable
  variable long_voice_id_enable
  variable long_cw_id_enable

  # Play the voice ID if enabled
  if {$long_voice_id_enable} {
    puts "Playing Long voice ID"
    spellWord $mycall;
    if {$CFG_TYPE == "Repeater"} {
      playMsg "Core" "repeater";
    }
    playSilence 500;
    playMsg "Core" "the_time_is";
    playSilence 100;
    playTime $hour $minute;
    playSilence 500;
 
    # Call the "status_report" function in all modules if no module is active
    if {$active_module == ""} {
      foreach module [split $loaded_modules " "] {
        set func "::";
        append func $module "::status_report";
        if {"[info procs $func]" ne ""} {
          $func;
        }
      }
    }
 
    playSilence 500;
  }

  # Play announcement file if enabled
  if {$long_announce_enable} {
    puts "Playing long announce"
    if [file exist "$long_announce_file"] {
      playFile "$long_announce_file"
      playSilence 500
    }
  }

  # Play CW id if enabled
  if {$long_cw_id_enable} {
    puts "Playing long CW ID"
    if {$CFG_TYPE == "Repeater"} {
      set call "$mycall/R"
      CW::play $call
    } else {
      CW::play $mycall
    }
    playSilence 100
  }
}

 
#
# Executed when the squelch have just closed and the RGR_SOUND_DELAY timer has
# expired.
#
proc send_rgr_sound {} {
  variable sql_rx_id
 
  if {$sql_rx_id != "?"} {
    # 150 CPM, 1000 Hz, -4 dBFS
    CW::play $sql_rx_id 150 1000 -4
    set sql_rx_id "?"
  } else {
    playTone 440 500 100
  }
  playSilence 100
}

 
#
# Executed when an empty macro command (i.e. D#) has been entered.
#
proc macro_empty {} {
  playMsg "Core" "operation_failed";
}

 
#
# Executed when an entered macro command could not be found
#
proc macro_not_found {} {
  playMsg "Core" "operation_failed";
}

 
#
# Executed when a macro syntax error occurs (configuration error).
#
proc macro_syntax_error {} {
  playMsg "Core" "operation_failed";
}

 
#
# Executed when the specified module in a macro command is not found
# (configuration error).
#
proc macro_module_not_found {} {
  playMsg "Core" "operation_failed";
}

 
#
# Executed when the activation of the module specified in the macro command
# failed.
#
proc macro_module_activation_failed {} {
  playMsg "Core" "operation_failed";
}

 
#
# Executed when a macro command is executed that requires a module to
# be activated but another module is already active.
#
proc macro_another_active_module {} {
  global active_module;
 
  playMsg "Core" "operation_failed";
  playMsg "Core" "active_module";
  playMsg $active_module "name";
}

 
#
# Executed when an unknown DTMF command is entered
#   cmd - The command string
#
proc unknown_command {cmd} {
  spellWord $cmd;
  playMsg "Core" "unknown_command";
}

 
#
# Executed when an entered DTMF command failed
#   cmd - The command string
#
proc command_failed {cmd} {
  spellWord $cmd;
  playMsg "Core" "operation_failed";
}

 
#
# Executed when a link to another logic core is activated.
#   name  - The name of the link
#
proc activating_link {name} {
  if {[string length $name] > 0} {
    playMsg "Core" "activating_link_to";
    spellWord $name;
  }
}

 
#
# Executed when a link to another logic core is deactivated.
#   name  - The name of the link
#
proc deactivating_link {name} {
  if {[string length $name] > 0} {
    playMsg "Core" "deactivating_link_to";
    spellWord $name;
  }
}

 
#
# Executed when trying to deactivate a link to another logic core but the
# link is not currently active.
#   name  - The name of the link
#
proc link_not_active {name} {
  if {[string length $name] > 0} {
    playMsg "Core" "link_not_active_to";
    spellWord $name;
  }
}

 
#
# Executed when trying to activate a link to another logic core but the
# link is already active.
#   name  - The name of the link
#
proc link_already_active {name} {
  if {[string length $name] > 0} {
    playMsg "Core" "link_already_active_to";
    spellWord $name;
  }
}

 
#
# Executed each time the transmitter is turned on or off
#   is_on - Set to 1 if the transmitter is on or 0 if it's off
#
proc transmit {is_on} {
  #puts "Turning the transmitter $is_on";
  variable prev_ident;
  variable need_ident;
  if {$is_on && ([clock seconds] - $prev_ident > 5)} {
    set need_ident 1;
  }
}

 
#
# Executed each time the squelch is opened or closed
#   rx_id   - The ID of the RX that the squelch opened/closed on
#   is_open - Set to 1 if the squelch is open or 0 if it's closed
#
proc squelch_open {rx_id is_open} {
  variable sql_rx_id;
  #puts "The squelch is $is_open on RX $rx_id";
  set sql_rx_id $rx_id;
}

 
#
# Executed when a DTMF digit has been received
#   digit     - The detected DTMF digit
#   duration  - The duration, in milliseconds, of the digit
#
# Return 1 to hide the digit from further processing in SvxLink or
# return 0 to make SvxLink continue processing as normal.
#
proc dtmf_digit_received {digit duration} {
  #puts "DTMF digit \"$digit\" detected with duration $duration ms";
  return 0;
}

 
#
# Executed when a DTMF command has been received
#   cmd - The command
#
# Return 1 to hide the command from further processing is SvxLink or
# return 0 to make SvxLink continue processing as normal.
#
# This function can be used to implement your own custom commands or to disable
# DTMF commands that you do not want users to execute.
proc dtmf_cmd_received {cmd} {
  #global active_module

  # Example: Ignore all commands starting with 3 in the EchoLink module.
  #          Allow commands that have four or more digits.
  #if {$active_module == "EchoLink"} {
  #  if {[string length $cmd] < 4 && [string index $cmd 0] == "3"} {
  #    puts "Ignoring random connect command for module EchoLink: $cmd"
  #    return 1
  #  }
  #}

  # Handle the "force core command" mode where a command is forced to be
  # executed by the core command processor instead of by an active module.
  # The "force core command" mode is entered by prefixing a command by a star.
  #if {$active_module != "" && [string index $cmd 0] != "*"} {
  #  return 0
  #}
  #if {[string index $cmd 0] == "*"} {
  #  set cmd [string range $cmd 1 end]
  #}

  # Example: Custom command executed when DTMF 99 is received
  #if {$cmd == "99"} {
  #  puts "Executing external command"
  #  playMsg "Core" "online"
  #  exec ls &
  #  return 1
  #}
 
  return 0
}

 
#
# Executed once every whole minute. Don't put any code here directly
# Create a new function and add it to the timer tick subscriber list
# by using the function addMinuteTickSubscriber.
#
proc every_minute {} {
  variable minute_tick_subscribers;
  #puts [clock format [clock seconds] -format "%Y-%m-%d %H:%M:%S"];
  foreach subscriber $minute_tick_subscribers {
    $subscriber;
  }
}

 
#
# Executed once every whole minute. Don't put any code here directly
# Create a new function and add it to the timer tick subscriber list
# by using the function addSecondTickSubscriber.
#
proc every_second {} {
  variable second_tick_subscribers;
  #puts [clock format [clock seconds] -format "%Y-%m-%d %H:%M:%S"];
  foreach subscriber $second_tick_subscribers {
    $subscriber;
  }
}

 
#
# Deprecated: Use the addMinuteTickSubscriber function instead
#
proc addTimerTickSubscriber {func} {
  puts "*** WARNING: Calling deprecated TCL event handler addTimerTickSubcriber."
  puts "             Use addMinuteTickSubscriber instead"
  addMinuteTickSubscriber $func;
}

 
#
# Use this function to add a function to the list of functions that
# should be executed once every whole minute. This is not an event
# function but rather a management function.
#
proc addMinuteTickSubscriber {func} {
  variable minute_tick_subscribers;
  lappend minute_tick_subscribers $func;
}

 
#
# Use this function to add a function to the list of functions that
# should be executed once every second. This is not an event
# function but rather a management function.
#
proc addSecondTickSubscriber {func} {
  variable second_tick_subscribers;
  lappend second_tick_subscribers $func;
}

 
#
# Should be executed once every whole minute to check if it is time to
# identify. Not exactly an event function. This function handle the
# identification logic and call the send_short_ident or send_long_ident
# functions when it is time to identify.
#
proc checkPeriodicIdentify {} {
  variable prev_ident;
  variable short_ident_interval;
  variable long_ident_interval;
  variable min_time_between_ident;
  variable ident_only_after_tx;
  variable need_ident;
  global logic_name;
 
  if {$short_ident_interval == 0} {
    return;
  }
 
  set now [clock seconds];
  set hour [clock format $now -format "%k"];
  regexp {([1-5]?\d)$} [clock format $now -format "%M"] -> minute;
 
  set short_ident_now \
      	    [expr {($hour * 60 + $minute) % $short_ident_interval == 0}];
  set long_ident_now 0;
  if {$long_ident_interval != 0} {
    set long_ident_now \
      	    [expr {($hour * 60 + $minute) % $long_ident_interval == 0}];
  }
 
  if {$long_ident_now} {
    puts "$logic_name: Sending long identification...";
    send_long_ident $hour $minute;
    set prev_ident $now;
    set need_ident 0;
  } else {
    if {$now - $prev_ident < $min_time_between_ident} {
      return;
    }
    if {$ident_only_after_tx && !$need_ident} {
      return;
    }
 
    if {$short_ident_now} {
      puts "$logic_name: Sending short identification...";
      send_short_ident $hour $minute;
      set prev_ident $now;
      set need_ident 0;
    }
  }
}

 
#
# Executed when the QSO recorder is being activated
#
proc activating_qso_recorder {} {
  playMsg "Core" "activating";
  playMsg "Core" "qso_recorder";
}

 
#
# Executed when the QSO recorder is being deactivated
#
proc deactivating_qso_recorder {} {
  playMsg "Core" "deactivating";
  playMsg "Core" "qso_recorder";
}

 
#
# Executed when trying to deactivate the QSO recorder even though it's
# not active
#
proc qso_recorder_not_active {} {
  playMsg "Core" "qso_recorder";
  playMsg "Core" "not_active";
}

 
#
# Executed when trying to activate the QSO recorder even though it's
# already active
#
proc qso_recorder_already_active {} {
  playMsg "Core" "qso_recorder";
  playMsg "Core" "already_active";
}

 
#
# Executed when the timeout kicks in to activate the QSO recorder
#
proc qso_recorder_timeout_activate {} {
  playMsg "Core" "timeout"
  playMsg "Core" "activating";
  playMsg "Core" "qso_recorder";
}

 
#
# Executed when the timeout kicks in to deactivate the QSO recorder
#
proc qso_recorder_timeout_deactivate {} {
  playMsg "Core" "timeout"
  playMsg "Core" "deactivating";
  playMsg "Core" "qso_recorder";
}

 
#
# Executed when the user is requesting a language change
#
proc set_language {lang_code} {
  global logic_name;
  puts "$logic_name: Setting language $lang_code (NOT IMPLEMENTED)";
 
}

 
#
# Executed when the user requests a list of available languages
#
proc list_languages {} {
  global logic_name;
  puts "$logic_name: Available languages: (NOT IMPLEMENTED)";
 
}

 
#
# Executed when the node is being brought online or offline
#
proc logic_online {online} {
  global mycall
  variable CFG_TYPE
 
  if {$online} {
    playMsg "Core" "online";
    spellWord $mycall;
    if {$CFG_TYPE == "Repeater"} {
      playMsg "Core" "repeater";
    }
  }
}

 
#
# Executed when a configuration variable is updated at runtime in the logic
# core
#
proc config_updated {tag value} {
  #puts "Configuration variable updated: $tag=$value"
}

 
#
# Executed when a DTMF command is received from another linked logic core
#
#   logic -- The name of the logic core
#   cmd   -- The received command
#
proc remote_cmd_received {logic cmd} {
  #puts "Remote command received from logic $logic: $cmd"
  #playDtmf "$cmd" "500" "50"
}

 
#
# Executed when a talkgroup is received from another linked logic core
#
#   logic -- The name of the logic core
#   tg    -- The received talkgroup
#
proc remote_received_tg_updated {logic tg} {
  #puts "Remote TG received from logic $logic: $tg"
  #if {$tg > 0} {
  #  playDtmf "1$tg" "500" "50"
  #}
}

 
##############################################################################
#
# Main program
#
##############################################################################
 
if [info exists CFG_SHORT_IDENT_INTERVAL] {
  if {$CFG_SHORT_IDENT_INTERVAL > 0} {
    set short_ident_interval $CFG_SHORT_IDENT_INTERVAL;
  }
}
 
if [info exists CFG_LONG_IDENT_INTERVAL] {
  if {$CFG_LONG_IDENT_INTERVAL > 0} {
    set long_ident_interval $CFG_LONG_IDENT_INTERVAL;
    if {$short_ident_interval == 0} {
      set short_ident_interval $long_ident_interval;
    }
  }
}
 
if [info exists CFG_IDENT_ONLY_AFTER_TX] {
  if {$CFG_IDENT_ONLY_AFTER_TX > 0} {
    set ident_only_after_tx $CFG_IDENT_ONLY_AFTER_TX;
  }
}
 
if [info exists CFG_SHORT_ANNOUNCE_ENABLE] {
  set short_announce_enable $CFG_SHORT_ANNOUNCE_ENABLE
}
 
if [info exists CFG_SHORT_ANNOUNCE_FILE] {
  set short_announce_file $CFG_SHORT_ANNOUNCE_FILE
}
 
if [info exists CFG_SHORT_VOICE_ID_ENABLE] {
  set short_voice_id_enable $CFG_SHORT_VOICE_ID_ENABLE
}
 
if [info exists CFG_SHORT_CW_ID_ENABLE] {
  set short_cw_id_enable $CFG_SHORT_CW_ID_ENABLE
}
 
if [info exists CFG_LONG_ANNOUNCE_ENABLE] {
  set long_announce_enable $CFG_LONG_ANNOUNCE_ENABLE
}
 
if [info exists CFG_LONG_ANNOUNCE_FILE] {
  set long_announce_file $CFG_LONG_ANNOUNCE_FILE
}
 
if [info exists CFG_LONG_VOICE_ID_ENABLE] {
  set long_voice_id_enable $CFG_LONG_VOICE_ID_ENABLE
}
 
if [info exists CFG_LONG_CW_ID_ENABLE] {
  set long_cw_id_enable $CFG_LONG_CW_ID_ENABLE
}

 
# end of namespace
}

#
# This file has not been truncated
#

EchoLink.tcl

###############################################################################
#
# EchoLink module event handlers
#
###############################################################################

#
# This is the namespace in which all functions and variables below will exist.
# The name must match the configuration variable "NAME" in the
# [ModuleEchoLink] section in the configuration file. The name may be changed
# but it must be changed in both places.
#
namespace eval EchoLink {
 
#
# Check if this module is loaded in the current logic core
#
if {![info exists CFG_ID]} {
  return;
}

#
# Extract the module name from the current namespace
#
set module_name [namespace tail [namespace current]];
 
#
# An "overloaded" playMsg that eliminates the need to write the module name
# as the first argument.
#
proc playMsg {msg} {
  variable module_name;
  ::playMsg $module_name $msg;
}

 
#
# A convenience function for printing out information prefixed by the
# module name
#
proc printInfo {msg} {
  variable module_name;
  puts "$module_name: $msg";
}

 
#
# This variable is updated by the EchoLink module when a station connects or
# disconnects. It contains the number of currently connected stations.
#
variable num_connected_stations 0;
 
 
#
# Executed when this module is being activated
#
proc activating_module {} {
  variable module_name;
  Module::activating_module $module_name;
}

 
#
# Executed when this module is being deactivated.
#
proc deactivating_module {} {
  variable module_name;
  Module::deactivating_module $module_name;
}

 
#
# Executed when the inactivity timeout for this module has expired.
#
proc timeout {} {
  variable module_name;
  Module::timeout $module_name;
}

 
#
# Executed when playing of the help message for this module has been requested.
#
proc play_help {} {
  variable module_name;
  Module::play_help $module_name;
}

 
#
# Spell an EchoLink callsign
#
proc spellEchoLinkCallsign {call} {
  global langdir
  if [regexp {^(\w+)-L$} $call ignored callsign] {
    spellWord $callsign
    playSilence 50
    playMsg "link"
  } elseif [regexp {^(\w+)-R$} $call ignored callsign] {
    spellWord $callsign
    playSilence 50
    playMsg "repeater"
  } elseif [regexp {^\*(.+)\*$} $call ignored name] {
    playMsg "conference"
    playSilence 50
    set lc_name [string tolower $name]
    if [file exists "$langdir/EchoLink/conf-$lc_name.wav"] {
      playFile "$langdir/EchoLink/conf-$lc_name.wav"
    } else {
      spellEchoLinkCallsign $name
    }
  } else {
    spellWord $call
  }
}

 
#
# Executed when a request to list all connected stations is received.
# That is, someone press DTMF "1#" when the EchoLink module is active.
#
proc list_connected_stations {connected_stations} {
  playNumber [llength $connected_stations];
  playSilence 50;
  playMsg "connected_stations";
  foreach {call} "$connected_stations" {
    spellEchoLinkCallsign $call;
    playSilence 250;
  }
}

 
#
# Executed when someone tries to setup an outgoing EchoLink connection but
# the directory server is offline due to communications failure.
#
proc directory_server_offline {} {
  playMsg "directory_server_offline";
}

 
#
# Executed when the limit for maximum number of QSOs has been reached and
# an outgoing connection request is received.
#
proc no_more_connections_allowed {} {
  # FIXME: Change the message to something that makes more sense...
  playMsg "link_busy";
}

 
#
# Executed when a status report is requested. This usually happens at
# manual identification when the user press DTMF "*".
#
proc status_report {} {
  variable num_connected_stations;
  variable module_name;
  global active_module;
 
  if {$active_module == $module_name} {
    playNumber $num_connected_stations;
    playMsg "connected_stations";
  }
}

 
#
# Executed when an EchoLink id cannot be found in an outgoing connect request.
#
proc station_id_not_found {station_id} {
  playNumber $station_id;
  playMsg "not_found";
}

 
#
# Executed when the lookup of an EchoLink callsign fail in an outgoing connect
# request.
#
proc lookup_failed {station_id} {
  playMsg "operation_failed";
}

 
#
# Executed when a local user tries to connect to the local node.
#
proc self_connect {} {
  playMsg "operation_failed";
}

 
#
# Executed when a local user tries to connect to a node that is already
# connected.
#
proc already_connected_to {call} {
  playMsg "already_connected_to";
  playSilence 50;
  spellEchoLinkCallsign $call;
}

 
#
# Executed when an internal error occurs.
#
proc internal_error {} {
  playMsg "operation_failed";
}

 
#
# Executed when an outgoing connection has been requested.
#
proc connecting_to {call} {
  playMsg "connecting_to";
  spellEchoLinkCallsign $call;
  playSilence 500;
}

 
#
# Executed when an EchoLink connection has been terminated
#
proc disconnected {call} {
  spellEchoLinkCallsign $call;
  playMsg "disconnected";
  playSilence 500;
}

 
#
# Executed when an incoming EchoLink connection has been accepted.
#
proc remote_connected {call} {
  playMsg "connected";
  spellEchoLinkCallsign $call;
  playSilence 500;
}

 
#
# Executed when an outgoing connection has been established.
#   call - The callsign of the remote station
#
proc connected {call} {
  #puts "Outgoing Echolink connection to $call established"
  playMsg "connected";
  playSilence 500;
}

 
#
# Executed when the list of connected remote EchoLink clients changes
#   client_list - List of connected clients
#
proc client_list_changed {client_list} {
  #foreach {call} $client_list {
  #  puts $call
  #}
}

 
#
# Executed when the EchoLink connection has been idle for too long. The
# connection will be terminated.
#
proc link_inactivity_timeout {} {
  playMsg "timeout";
}

 
#
# Executed when a too short connect by callsign command is received
#
proc cbc_too_short_cmd {cmd} {
  spellWord $cmd;
  playSilence 50;
  playMsg "operation_failed";
}

 
#
# Executed when the connect by callsign function cannot find a match
#
proc cbc_no_match {code} {
  playNumber $code;
  playSilence 50;
  playMsg "no_match";
}

 
#
# Executed when the connect by callsign list has been retrieved
#
proc cbc_list {call_list} {
  playMsg "choose_station";
  set idx 0;
  foreach {call} $call_list {
    incr idx;
    playSilence 500;
    playNumber $idx;
    playSilence 200;
    spellEchoLinkCallsign $call;
  }
}

 
#
# Executed when the connect by callsign function is manually aborted
#
proc cbc_aborted {} {
  playMsg "aborted";
}

 
#
# Executed when an out of range index is entered in the connect by callsign
# list
#
proc cbc_index_out_of_range {idx} {
  playNumber $idx;
  playSilence 50;
  playMsg "idx_out_of_range";
}

 
#
# Executed when there are more than nine matches in the connect by
# callsign function
#
proc cbc_too_many_matches {} {
  playMsg "too_many_matches";
}

 
#
# Executed when no station have been chosen in 60 seconds in the connect
# by callsign function
#
proc cbc_timeout {} {
  playMsg "aborted";
}

 
#
# Executed when the disconnect by callsign list has been retrieved
#
proc dbc_list {call_list} {
  playMsg "disconnect_by_callsign";
  playSilence 200
  playMsg "choose_station";
  set idx 0;
  foreach {call} $call_list {
    incr idx;
    playSilence 500;
    playNumber $idx;
    playSilence 200;
    spellEchoLinkCallsign $call;
  }
}

 
#
# Executed when the disconnect by callsign function is manually aborted
#
proc dbc_aborted {} {
  playMsg "disconnect_by_callsign";
  playMsg "aborted";
}

 
#
# Executed when an out of range index is entered in the disconnect by callsign
# list
#
proc dbc_index_out_of_range {idx} {
  playNumber $idx;
  playSilence 50;
  playMsg "idx_out_of_range";
}

 
#
# Executed when no station have been chosen in 60 seconds in the disconnect
# by callsign function
#
proc dbc_timeout {} {
  playMsg "disconnect_by_callsign";
  playMsg "timeout";
}

 
#
# Executed when a local user enter the DTMF code for playing back the
# local node ID.
#
proc play_node_id {my_node_id} {
  playMsg "node_id_is";
  playSilence 200;
  if { $my_node_id != 0} {
    playNumber $my_node_id;
  } else {
    playMsg "unknown";
  }
}

 
#
# Executed when an entered command failed or have bad syntax.
#
proc command_failed {cmd} {
  spellWord $cmd;
  playMsg "operation_failed";
}

 
#
# Executed when an unrecognized command has been received.
#
proc unknown_command {cmd} {
  spellWord $cmd;
  playMsg "unknown_command";
}

 
#
# Executed when the listen only feature is activated or deactivated
#   status    - The current status of the feature (0=deactivated, 1=activated)
#   activate  - The requested new status of the feature
#               (0=deactivate, 1=activate)
#
proc listen_only {status activate} {
  variable module_name;
 
  if {$status == $activate} {
    playMsg "listen_only";
    playMsg [expr {$status ? "already_active" : "not_active"}];
  } else {
    puts "$module_name: [expr {$activate ? "Activating" : "Deactivating"}]\
          listen only mode.";
    playMsg [expr {$activate ? "activating" : "deactivating"}];
    playMsg "listen_only";
  }
}

 
#
# Executed when an outgoing connection is rejected. This can happen if
# REJECT_OUTGOING and/or ACCEPT_OUTGOING has been setup.
#
proc reject_outgoing_connection {call} {
  spellEchoLinkCallsign $call;
  playSilence 50;
  playMsg "reject_connection";
}

 
#
# Executed when a transmission from an EchoLink station is starting
# or stopping
#   rx   - 1 if receiving or 0 if not
#   call - The callsign of the remote station
#
#
proc is_receiving {rx call} {
  if {$rx == 0} {
    playTone 1000 100 100;
  }
}

 
#
# Executed when a chat message is received from a remote station
#
#   msg -- The message text
#
# WARNING: This is a slightly dangerous function since unexepected input
# may open up a security flaw. Make sure that the message string is handled
# as unknown data that can contain anything. Check it thoroughly before
# using it. Do not run SvxLink as user root.
proc chat_received {msg} {
  #puts $msg
}

 
#
# Executed when an info message is received from a remote station
#
#   call -- The callsign of the sending station
#   msg  -- The message text
#
# WARNING: This is a slightly dangerous function since unexepected input
# may open up a security flaw. Make sure that the message string is handled
# as unknown data that can contain anything. Check it thoroughly before
# using it. Do not run SvxLink as user root.
proc info_received {call msg} {
  #puts "$call: $msg"
}

 
#
# Executed when a configuration variable is updated at runtime
#
proc config_updated {tag value} {
  #puts "Configuration variable updated: $tag=$value"
}

 
#-----------------------------------------------------------------------------
# The events below are for remote EchoLink announcements. Sounds are not
# played over the local transmitter but are sent to the remote station.
#-----------------------------------------------------------------------------

#
# Executed when an incoming connection is accepted
#
proc remote_greeting {call} {
#  playSilence 1000;
#  playMsg "greeting";
}

 
#
# Executed when an incoming connection is rejected
#
proc reject_remote_connection {perm} {
  playSilence 1000;
  if {$perm} {
    playMsg "reject_connection";
  } else {
    playMsg "reject_connection";
    playMsg "please_try_again_later"
  }
  playSilence 1000;
}

 
#
# Executed when the inactivity timer times out
#
proc remote_timeout {} {
  playMsg "timeout";
  playSilence 1000;
}

 
#
# Executed when the squelch state changes
#
proc squelch_open {is_open} {
  # The listen_only_active and CFG_REMOTE_RGR_SOUND global variables are set by
  # the C++ code
  variable listen_only_active
  variable CFG_REMOTE_RGR_SOUND
  if {$CFG_REMOTE_RGR_SOUND && !$is_open && !$listen_only_active} {
    playSilence 200
    playTone 1000 100 100
  }
}

 
# end of namespace
}

#
# This file has not been truncated
#

John Pumford-Green Tue May 3 20:58:10 2022

Page Updated : 30/12/25 09:55 GMT

svxlink, mb7aze, radio

MB7AZE AllStar

anonymous@undisclosed.example.com (Anonymous) — Sun, 04 Jan 2026 07:40:57 +0000

←Older Topics

— John Pumford-Green 24/04/23 15:05

MB7AZE is now QRT and the NoV has expired.

I may run AllStar at times from a personal node/gateway GM4SLV Allstar

The following is for historical interest only….

MB7AZE AllStar

Platform	Rapsberry Pi
Connectivity	All Star Node 481481
Interface	CM108 Soundcard
Radio	FT-8900
Frequency	430.050MHz
Monitor	Allmon2

NoV issued April 2022

Commands

DTMF Commands
Please send * 7 3 to ensure all links are disconnected before making any new links

Command	DTMF Sequence
Disconect from Node xxxx	* 1 xxxx
Connect RX Only to xxxx	* 2 xxxx
Connect Transceive to xxxx	* 3 xxxx
Speak the Node Status	* 7 0
Disconnect ALL nodes	* 7 3
Reconnect ALL nodes	* 7 4
Send Node ID	* 8 0
Speak the Local Time	* 8 1
Parrot ON	* 9 1
Parrot OFF	* 9 2
Parrot ONCE	* 9 3

Number	Name	* 5 Macro shortcut to…	DTMF Sequence	Node No.
1	Fedihams	Connect RX Only to Fedihams	* 5 2 1	57881
1	Fedihams	Connect Transceive to Fedihams	* 5 3 1	57881
1	Fedihams	Disconnect from Fedihams	* 5 1 1	57881
2	Hubnet	Connect RX Only to Hubnet	* 5 2 2	41223
2	Hubnet	Connect Transceive to Hubnet	* 5 3 2	41223
2	Hubnet	Disconnect from Hubnet	* 5 1 2	41223

Courtesy Tones

Can give information about the node status.

After a local Transmission on the “input” frequency the reponse will be one of:

Morse Letter I (di-dit) = node is not connected to any other nodes
Morse Letter R (di-dah-dit) = node is connected in “Monitor/RX only” mode to one or more nodes
Morse Letter K (dah-di-dah) = node is connected in “Transceive” mode to one or more nodes

There are other tones, e.g. when a station on a linked node unkeys there's a low-pitched “bloop”

When a local RF station sends a command there's a “bip bip” (not to be confused with the Morse letter I)

Echolink

AllStar nodes can also connect to Echolink

The node is connected to Echolink as MB7AZE-L #879598

Page created Sun May 29 12:18:09 2022 by John Pumford-Green

Page last updated: 04/01/26 07:40 GMT

pi, radio, allstar, mb7aze

Mini Igate

anonymous@undisclosed.example.com (Anonymous) — Tue, 30 Dec 2025 09:55:07 +0000

←Older Topics

Mini Igate

A small portable fill-in iGate

Deployed to improve APRS coverage in Lerwick.

Hardware

Raspberry Pi
- Raspberry Pi 3 Model B Rev 1.2g
CM108 Sound card, modified for GPIO in/out
IC-2E
TP-Link MiFi router

Software

direwolf
autossh
tmux

Config & scripts

direwolf.conf

ADEVICE  plughw:1,0
 
#GPSD
 
 
CHANNEL 0
 
MYCALL GM4SLV-11
 
MODEM 1200
 
FIX_BITS 1
 
PTT GPIO 25
 
AGWPORT 8000
KISSPORT 8001
 
#TBEACON EVERY=15 SYMBOL="igate" overlay="T" comment="Mini IGate
#TBEACON sendto=IG EVERY=30 SYMBOL="igate" overlay="T" comment="Mini IGate
 
IBEACON every=30 via=WIDE1-1
IBEACON sendto=IG every=60
 
PBEACON every=10 overlay=T symbol="igate" lat=60^09.33N long=001^08.76W comment="Mini IGate" via=WIDE1-1,WIDE2-1
 
DIGIPEAT 0 0 ^WIDE[3-7]-[1-7]$|^TEST$ ^WIDE[12]-[12]$ TRACE
 
FILTER IG 0 r/60.2/-1.4/150 | ( ! t/t )
 
IGSERVER euro.aprs2.net
 
IGLOGIN GM4SLV-11 19626
 
IGFILTER m/150
 
PBEACON sendto=IG every=15:00 symbol="igate" overlay=T lat=60^09.33N long=001^08.76W comment="Mini IGate"
 
IGTXVIA 0 WIDE1-1,WIDE2-1
 
IGMSP 10
IGTXLIMIT 12 20

start_direwolf.sh

#!/bin/bash
 
session="Igate"
 
tmux start-server
 
tmux new-session -d -s $session
 
tmux rename-window "direwolf"
 
tmux selectp -t 0
tmux send-keys "direwolf -t 1 -T "%c" -c /home/gm4slv/direwolf.conf" C-m

crontab entry @reboot sleep 60 && sudo -u gm4slv /home/gm4slv/start_direwolf.sh >/dev/null 2>&1

autossh tunnel

see svxlink hotspot for details

#!/bin/bash
 
autossh -M 20000 -N -T gm4slv_tunnel

ssh config

Host gm4slv_tunnel
        HostName gm4slv.plus.com
        User xxxxx
        Port xxxxx
        RemoteForward 4446 localhost:22
        RemoteForward 8080 192.168.0.1:80

crontab entry : @reboot sleep 60 && sudo -u gm4slv /home/gm4slv/tunnel.sh 2>&1

Page created Thu May 26 12:41:10 2022 by John Pumford-Green

Page last updated: 30/12/25 09:55 GMT

aprs, pi, radio

HF APRS Mobile/Portable

anonymous@undisclosed.example.com (Anonymous) — Sun, 04 Jan 2026 07:32:46 +0000

←Older Topics

HF APRS Mobile/Portable

Initial Thoughts

My plan is to use either of

TinyTrak3 + serial GPS as a one-way tracker
Netbook with direwolf and a USB GPS
1. a tracker
2. xastir for maps etc

Either of these will interface with a Xiegu G90 and some form of mobile whip.

I may use 30m hoping to get packets directly to other iGates in Europe or use 10m and run an iGate on 10m at home. It's all on the drawing board at the moment. It will be interesting to compare local coverage between 30m and 10m as well as seeing how well 30m mobile with a short whip can perform.

Tiny Trak 3

Uses serial GPS to provide position data
Only transmits, no receive/decode
Can transmit VHF (1200bd) or HF (300bd) APRS

HF APRS configuration settings

Date	Config.
April 2023	xxxx

Firmware/Docs

Firmware	tinytrak3_v1.42.zip
User Guide	tinytrak3plus_v1.03.pdf
Configuration Utility	tinytrak3_config_v1.4.6.zip

Test and Setup

First Reception

From aprs.fi - packets being received in Germany at DK4XI

https://aprs.fi/?c=raw&call=GM4SLV-11

2023-04-29 07:47:49 BST: GM4SLV-11>APT311,qAR,DK4XI-30:>John on HF
2023-04-29 07:47:52 BST: GM4SLV-11>V0QWRY,qAR,DK4XI-30:`w5Nl  j/"3x}
2023-04-29 07:52:50 BST: GM4SLV-11>V0QWSP,qAR,DK4XI-30:`w5Nl ^j/"4+}

Mobile Journey #1 on 30m

02/05/23:

using 10m “stinger” mobile whip and G90's internal ATU / 20W
not very encouraging local coverage between mobile and home QTH
large gap in coverage - journey actually went to Lerwick and back….
next experiment will be to use 10m - hopefully antenna is more efficient on that band

03/05/12

found that the antenna used yesterday was tuned to 31MHz… short whip
swapped for 2nd whip and this is tuned to 28.2MHz…. longer whip. More efficient?

— John Pumford-Green 26/04/23 15:02

Further Information

TinyTrak3 website : https://www.byonics.com/tinytrak3

radio, aprs

Netradio Control

anonymous@undisclosed.example.com (Anonymous) — Tue, 30 Dec 2025 09:55:07 +0000

←Older Topics

Netradio Control

Python code for TCP/IP control of multiple radios

Server

This provides TCP/IP access to one or more radios, allowing control of Frequency, Mode, Pre-amp and Attenuator. It also gives remote access to S-meter readings.

There are separate rig-dependant command modules that then provide a standard interface for commands sent by a client, regardless of the particular radio connected.

There are modules for

Icom C-IV radios such as IC-R75, IC-718, IC-7200 etc.
AOR AR7030
Icom IC-M710 marine

Server

server.py

server.py

from aor import *
from icom import *
from conf import *
from m710 import *
import SocketServer
import time
 
try:
    import readline
except:
    pass
 
lock = threading.Lock()
 
radios = []
 
 
 
r1 = Icom(n1, a1, cal1)
radios.append(n1)
 
r2 = m710(n4)
radios.append(n4)
 
#r2 = Icom(n2, a2, cal2)
#radios.append(n2)
 
r3 = Ar7030(n3)
radios.append(n3)
 
print radios
#print r1.digi_off()
 
#print r2.remote_on()
 
def count_radios():
    count = len(radios)
    return count
 
 
def list_radios():
    radiolist = ""
    for n in range(0, len(radios)):
        r = radios[n]
        radiolist += (r + " ")
    return radiolist
 
 
def write_file(text):
    filename = 'commandlog.txt'
    f = open(filename, 'a+')  # a+ is "append to file, create it if it doesn't exist"
    timenow = time.strftime("%d/%m/%Y %H:%M:%S", time.gmtime(time.time()))
    log = " ".join((timenow, text))  # make an entry for the log by joining the timestamp with the text passed in
    f.write(log)
    f.close()
 
 
def write_con(text):
    filename = 'conlog.txt'
    f = open(filename, 'a+')  # a+ is "append to file, create it if it doesn't exist"
    timenow = time.strftime("%d/%m/%Y %H:%M:%S", time.gmtime(time.time()))
    log = " ".join((timenow, text))  # make an entry for the log by joining the timestamp with the text passed in
    f.write(log)
    f.close()
 
 
# The Server
class ThreadedRequestHandler(SocketServer.StreamRequestHandler):
    def handle(self):
        # we find the current thread for the client connection just set up, to
        # use in the log file
        cur_thread = threading.currentThread()
        # log the new connection details
        write_con("Connect from %s using %s \n" % ((self.client_address[0]), cur_thread.getName()))
        # print to the server's console the new connection IP address/port
        print self.client_address
        # loop to handle client requests....
        while True:
            # using StreamRequestHandler means our input from the client
            # is  "file-like" and can be read with "file-like" commands
            # we read a line at a time, using readline()
            cmd = self.rfile.readline().lower()
            # to keep things clean, we remove any characters that aren't
            # "printable" simple ASCII
            # these are between 32 and 127 in the ASCII table
            # we look at each character, and then make a new word by
            # .join()ing each accepted character with no space in between
            asccmd = "".join(x for x in cmd if ord(x) < 128 and ord(x) > 31)
            # we make a list called "words" holding the received words which
            # will be inspected by various functions
            words = asccmd.split()
            # If a client uses sock.close() itself, to disconnect, it appears that
            # we read a continuous stream of "" on the dead
            # socket, which puts CPU to 100%.
            #
            # The "While" loop is probably responsible, but I can't see another
            # way to keep the connection up for multiple commands.
            #
            # Further connection are accepted due to the Threaded nature of the server.
            # The CPU load is unacceptable though
            # HACK ?>>>>>
            # Looking for "" and then breaking
            # the connection from the server end (even though the client has
            # gone) cures this.
            if cmd == "":
                break
            else:
                pass
            # if the words list is empty, go back and get more input
            if not words:
                continue
            # we have input....
            # filter based on the first word - these are the
            # pre-set commands the server will accept
            # the client wants to know the currently available
            # radio names - held in the variable "rnames"
            elif words[0] == "getnames":
                self.wfile.write(rnames)
            # words[-1] (the last word in the list) will always be the
            # radio name. We give the variable "my_radio" this value, for
            # identifying which radio object to apply the method to
            elif words[0] == "count":
                count = count_radios()
                self.wfile.write(count)
            elif words[0] == "ident":
                ident_text = "GM4SLV Radio Server"
                radio_list = list_radios()
                self.wfile.write(ident_text + "\rAvailable : \n" + radio_list + "\r\n")
 
            elif words[0] == "getmode":
                my_radio = eval(words[-1])
                mode = my_radio.get_mode()
                self.wfile.write(mode)
            elif words[0] == "getfreq":
                my_radio = eval(words[-1])
                freq = words[1]
                freq = my_radio.get_freq()
                self.wfile.write(freq)
            elif words[0] == "setmode":
                my_radio = eval(words[-1])
                mode = words[1]
                newmode = my_radio.set_mode(mode)
                self.wfile.write(newmode)
            elif words[0] == "setfreq":
                my_radio = eval(words[-1])
                try:
                    freq = float(words[1])
                    newfreq = my_radio.set_freq(freq)
                    self.wfile.write(newfreq)
                except ValueError:
                    #freq = float(my_radio.get_freq())
                    self.wfile.write("Error in freq. %s No change\r\n" % words[1])
 
            elif words[0] == "getsmeter":
                my_radio = eval(words[-1])
                smeter = round(float(my_radio.get_smeter()), 1)
                self.wfile.write(smeter)
            elif words[0] == "gets":
                my_radio = eval(words[-1])
                s = my_radio.get_s()
                self.wfile.write(s)
            elif words[0] == "listradios":
                radios = list_radios()
                self.wfile.write(radios)
            elif words[0] == "getpreamp":
                my_radio = eval(words[-1])
                preamp = my_radio.get_pre()
                self.wfile.write(preamp)
            elif words[0] == "preampon":
                my_radio = eval(words[-1])
                preamp = my_radio.pre_on()
                self.wfile.write(preamp)
            elif words[0] == "preamp2on":
                my_radio = eval(words[-1])
                preamp = my_radio.pre_2_on()
                self.wfile.write(preamp)
            elif words[0] == "preampoff":
                my_radio = eval(words[-1])
                preamp = my_radio.pre_off()
                self.wfile.write(preamp)
            elif words[0] == "getatt":
                my_radio = eval(words[-1])
                att = my_radio.get_att()
                self.wfile.write(att)
            elif words[0] == "atton":
                my_radio = eval(words[-1])
                att = my_radio.att_on()
                self.wfile.write(att)
            elif words[0] == "attoff":
                my_radio = eval(words[-1])
                att = my_radio.att_off()
                self.wfile.write(att)
            elif words[0] == "tune":
                my_radio = eval(words[-1])
                tune = my_radio.tune()
                self.wfile.write(tune)
            elif words[0] == "getpwr":
                my_radio = eval(words[-1])
                pwr = my_radio.get_pwr()
                self.wfile.write(pwr)
            elif words[0] == "setpwr":
                my_radio = eval(words[-1])
                spwr = words[1]
                pwr = my_radio.set_pwr(spwr)
                self.wfile.write(pwr)
            elif words[0] == "quit":
                write_con("Got quit from {}\n".format(self.client_address[0]))  # log it
                self.wfile.write("Goodbye! \r\n")  # say Goodbye
                break
            else:  # nothing in words[0] matches a pre-set command....
                write_file("Received %s\n" % words)  # log it, it's unusual
                self.wfile.write("Command not recognized\r\n")  # inform the client
 
 
class ThreadedIcomServer(SocketServer.ThreadingMixIn, SocketServer.TCPServer):
    pass
 
 
if __name__ == '__main__':
    # define the lock to be used on the serial port access
    lock = threading.Lock()
 
    # address ('' = all available interfaces) to listen on, and port number
    address = ('', 9999)
    server = ThreadedIcomServer(address, ThreadedRequestHandler)
    server.allow_reuse_address = True
 
    # define that the server will be threaded, and will serve "forever" ie. not quit after the client disconnects
    t = threading.Thread(target=server.serve_forever)
    # start the server thread
    t.start()
 
    write_con(
        "Server loop running in thread: %s\n" % "".join(t.getName()))

Configurtion Module

conf.py

Icom C-IV module

icom.py

icom.py

import serial
import threading
from conf import *
import time
#sport = "COM1"
sport = "/dev/ttyS0"
sbaud = 9600
 
lock = threading.Lock()
 
 
class Icom(object):
    def __init__(self, model, radio_address, cal):
        self.ser = serial.Serial(sport, sbaud, timeout=0.1)
        self.model = model
        self.radio_address = radio_address
        self.cal = cal
 
    def digi_off(self):
        sendStr = preamble + preamble + self.radio_address + controller + digi_off_cmd + eom
        result = self.tx_rx(sendStr)
        if result[4] == ack:
            return "Success"
        elif result[4] == nak:
            return "NAK received"
 
    def get_pre(self):
        sendStr = preamble + preamble + self.radio_address + controller + set_pre_cmd + eom
 
        result = self.tx_rx(sendStr)
        if not result:
            return "0"
        if result[6] == "\x00":
            return 0
        elif result[6] == "\x01":
            return 1
        elif result[6] == "\x02":
            return 2
 
    def get_pwr(self):
        sendStr = preamble + preamble + self.radio_address + controller + pwr_cmd + eom
        result = self.tx_rx(sendStr)
        if not result:
            return "0"
        p1 = ord(result[7]) / 16
        p2 = ord(result[7]) % 16
        p3 = ord(result[6]) / 16
        p4 = ord(result[6]) % 16
        pwr = float(100 * (10 * p3 + p4) + (10 * p1 + p2))
        return int(pwr*100/255)
 
    def set_pwr(self, pwr):
        #if pwr == "25":
        #    spwr = "\x00" + "\x63"
        #elif pwr == "50":
        #    spwr = "\x01" + "\x27"
        #elif pwr == "75":
        #    spwr = "\x01" + "\x91"
        #elif pwr == "100":
        #    spwr = "\x02" + "\x55"
        rigpwr = int(pwr) * 255 / 100
        print "rigpwr ", rigpwr
        pwr1 = rigpwr / 100
        pwr2 = rigpwr % 100
        spwr1 = (pwr1 / 10 * 16)
        spwr2 = (pwr1 % 10)
        spwr3 =  (pwr2 / 10 * 16)
        spwr4 =  (pwr2 % 10)
        spwr = chr(spwr1+spwr2) + chr(spwr3+spwr4)
        #print "spwr ", spwr
        sendStr = preamble + preamble + self.radio_address + controller + pwr_cmd + spwr + eom
        result = self.tx_rx(sendStr)
        if result[4] == ack:
            return self.get_pwr()
        elif result[4] == nak:
            return "NAK received"
 
    def pre_on(self):
        sendStr = preamble + preamble + self.radio_address + controller + set_pre_cmd + set_pre_on + eom
        result = self.tx_rx(sendStr)
        if result[4] == ack:
            return "Success"
        elif result[4] == nak:
            return "NAK received"
 
    def pre_2_on(self):
        sendStr = preamble + preamble + self.radio_address + controller + set_pre_cmd + set_pre_2_on + eom
        result = self.tx_rx(sendStr)
        if result[4] == ack:
            return "Success"
        elif result[4] == nak:
            return "NAK received"
 
 
    def pre_off(self):
        sendStr = preamble + preamble + self.radio_address + controller + set_pre_cmd + set_pre_off + eom
        result = self.tx_rx(sendStr)
        if result[4] == ack:
            return "Success"
        elif result[4] == nak:
            return "NAK received"
 
    def ptt_on(self):
        sendStr = preamble + preamble + self.radio_address + controller + ptt_on_cmd + eom
        result = self.tx_rx(sendStr)
        #print result[5]
        if not result[4] == ack:
            return "ptt on"
        elif result[4] == nak:
            return "Error"
 
    def ptt_off(self):
        sendStr = preamble + preamble + self.radio_address + controller + ptt_off_cmd + eom
        result = self.tx_rx(sendStr)
        #print result[5]
        if not result[4] == ack:
            return "ptt off"
        elif result[4] == nak:
            return "Error"
 
    def get_att(self):
        sendStr = preamble + preamble + self.radio_address + controller + set_att_cmd + eom
        result = self.tx_rx(sendStr)
        if not result:
            return "0"
        if result[5] == "\x00":
            return 0
        elif result[5] == "\x20":
            return 1
 
    def att_on(self):
        sendStr = preamble + preamble + self.radio_address + controller + set_att_cmd + set_att_on + eom
        result = self.tx_rx(sendStr)
        if result[4] == ack:
            return "Success"
        elif result[4] == nak:
            return "NAK received"
 
    def att_off(self):
        sendStr = preamble + preamble + self.radio_address + controller + set_att_cmd + set_att_off + eom
        result = self.tx_rx(sendStr)
        if result[4] == ack:
            return "Success"
        elif result[4] == nak:
            return "NAK received"
 
    def set_freq(self, freq):
        fdig = "%010d" % int(freq * 1000)
        bcd = ()
        for i in (8, 6, 4, 2, 0):
            bcd += self.freq_bcd(int(fdig[i]), int(fdig[i + 1]))
        set_freq_val = ""
        for byte in bcd:
            set_freq_val += chr(byte)
        sendStr = preamble + preamble + self.radio_address + controller + set_freq_cmd + set_freq_val + eom
        result = self.tx_rx(sendStr)
        if result[4] == ack:
            return "Set Freq success"
        elif result[4] == nak:
            return "NAK received / Freq not supported"
 
    def get_freq(self):
        sendStr = preamble + preamble + self.radio_address + controller + get_freq_cmd + eom
        result = self.tx_rx(sendStr)
        if not result:
            return "0"
        if len(result) > 0:
            f = 0
        for k in [18, 19, 16, 17, 14, 15, 12, 13, 10, 11]:
            f = 10 * f + self.nib(result, k)
        self.freq = (float(f) / 1000)
        return "%.3f" % self.freq
 
    def set_mode(self, mode):
        print "in set_mode() with ", mode
        if mode == "data":
            mode = "rtty"
 
        if mode == "lsb":
            set_mode_val = "\x00"
        elif mode == "usb":
            set_mode_val = "\x01"
        elif mode == "am":
            set_mode_val = "\x02"
        elif mode == "cw":
            set_mode_val = "\x03"
        elif mode == "rtty":
            set_mode_val = "\x04"
        elif mode == "fm":
            set_mode_val = "\x05"
        elif mode == "cw-r":
            set_mode_val = "\x07"
        elif mode == "rtty-r":
            set_mode_val = "\x08"
        elif mode == "s-am":
            set_mode_val = "\x11"
        else:
            return "Mode not recognized"
        sendStr = preamble + preamble + self.radio_address + controller + set_mode_cmd + set_mode_val + eom
        result = self.tx_rx(sendStr)
        if result[4] == ack:
            return "Set Mode Success"
        elif result[4] == nak:
            return "NAK received / Mode not supported"
 
    def get_mode(self):
        sendStr = preamble + preamble + self.radio_address + controller + get_mode_cmd + eom
        result = self.tx_rx(sendStr)
        if not result:
            return "0"
        mode = ""
        if result[5] == "\x00":
            mode = "lsb"
        elif result[5] == "\x01":
            mode = "usb"
        elif result[5] == "\x02":
            mode = "am"
        elif result[5] == "\x03":
            mode = "cw"
        elif result[5] == "\x04":
            mode = "rtty"
        elif result[5] == "\x05":
            mode = "fm"
        elif result[5] == "\x08":
            mode = "rtty-r"
        elif result[5] == "\x07":
            mode = "cw-r"
        elif result[5] == "\x11":
            mode = "s-am"
 
        if mode == "rtty":
            mode = "data"
 
        self.mode = mode
        return self.mode.upper()
 
    def get_s(self):
        sendStr = preamble + preamble + self.radio_address + controller + get_smeter_cmd + eom
        result = self.tx_rx(sendStr)
        if not result:
            return "0"
        sm1 = ord(result[7]) / 16
        sm2 = ord(result[7]) % 16
        sm3 = ord(result[6]) / 16
        sm4 = ord(result[6]) % 16
        s = float(100 * (10 * sm3 + sm4) + (10 * sm1 + sm2))
        return s
 
    def get_swr(self):
        sendStr = preamble + preamble + self.radio_address + controller + get_swr_cmd + eom
        result = self.tx_rx(sendStr)
        if not result:
            return "0"
        sm1 = ord(result[7]) / 16
        sm2 = ord(result[7]) % 16
        sm3 = ord(result[6]) / 16
        sm4 = ord(result[6]) % 16
        swr = float(100 * (10 * sm3 + sm4) + (10 * sm1 + sm2))
        return swr
 
    def get_smeter(self):
        s = float(self.get_s())
        cal = self.cal
        s1 = s - cal[0]
        s2 = s1 - cal[1]
        s3 = s2 - cal[2]
        s4 = s3 - cal[3]
        s5 = s4 - cal[4]
        s6 = s5 - cal[5]
        s7 = s6 - cal[6]
        if s1 <= 0:
            dbm = -123
            adj = s / cal[0] * 10
            return str(dbm + adj)
        elif s2 <= 0:
            dbm = -113
            adj = s1 / cal[1] * 10
            return str(dbm + adj)
        elif s3 <= 0:
            dbm = -103
            adj = s2 / cal[2] * 10
            return str(dbm + adj)
        elif s4 <= 0:
            dbm = -93
            adj = s3 / cal[3] * 10
            return str(dbm + adj)
        elif s5 <= 0:
            dbm = -83
            adj = s4 / cal[4] * 10
            return str(dbm + adj)
        elif s6 <= 0:
            dbm = -73
            adj = s5 / cal[5] * 10
            return str(dbm + adj)
        elif s7 <= 0:
            dbm = -63
            adj = s6 / cal[6] * 20
            return str(dbm + adj)
        else:
            dbm = -43
            adj = s7 / cal[7] * 20
            return str(dbm + adj)
 
    def get_name(self):
        return self.model
 
    def tune(self):
        print "tuning"
        curmode = self.get_mode().lower()
        #print "Current Mode ",curmode
 
        curpwr = self.get_pwr()
        if curpwr < 98:
            curpwr = curpwr + 1
 
        #print "Current Power ", curpwr
 
        #print "Current percent power ", curpwr
        self.set_mode("rtty")
        self.set_pwr(25)
        #print "Tuning power ", self.get_pwr()
        #print "PTT On"
        self.ptt_on()
        time.sleep(2)
        swr =  self.get_swr()
        #print "SWR :", swr
        time.sleep(1)
        self.ptt_off()
        #print "PTT Off"
        self.set_mode(curmode)
        #print "Mode reset ",self.get_mode()
        self.set_pwr(curpwr)
        print "Tuned : (ref pwr : %s)" % swr
        return "Tuned : (ref pwr : %s)" % swr
 
    def tx_rx(self, sendStr):
        lock.acquire()
        self.ser.write(sendStr)
        echo = self.ser.read(len(sendStr))
        if len(echo) != len(sendStr):
            return "0"
        byte = "0"
        result = ""
        count = 0
        while byte != eom:
            byte = self.ser.read()
            #print "%#02x" % ord(byte)
            result += byte
            count += 1
            if count > 10:
                break
        lock.release()
        #print ""
        return result
 
 
    def nib(self, s, i):
        k = ord(s[i / 2])
        if i % 2 == 0:
            k = k >> 4
        return k & 0xf
 
 
    def freq_bcd(self, d1, d2):
        return (16 * d1 + d2),

AOR AR7030 module

aor.py

aor.py

import serial
import threading
 
 
#sport = "/dev/ttyS0"
sport = "/dev/ttyUSB1"
sbaud = 1200
 
lock = threading.Lock()
fract = float(2 ** 24) / 44545
 
 
class Ar7030(object):
    def __init__(self, model):
        self.ser = serial.Serial(sport, sbaud, timeout=10)
        self.model = model
 
 
    def check_bit(self, byte, bit):
        mask = 1 << bit
        result = (ord(byte) & mask)
        if result:
            return 1
        else:
            return 0
 
    def set_bit(self, byte, bit):
        mask = 1 << bit
        result = ord(byte) | mask
        return result
 
    def clear_bit(self, byte, bit):
        mask = ~(1 << bit)
        result = (ord(byte) & mask)
        return result
 
    def get_ident(self):
        sendStr = '\x5f' + '\x40'
        ident = self.tx_rx(sendStr, False, 8)
        return ident
 
    def get_pre(self):
        sendStr = '\x50' + '\x32' + '\x48'
        byte = self.tx_rx(sendStr, False, 1)
        p = self.check_bit(byte, 4)
        if p:
            return 1
        else:
            return 0
        return
 
 
    def pre_on(self):
        #get current 8-bit rxcon byte :
        # bit0 = filter FS3
        # bit1 = filter FS2
        # bit2 = filter FS1
        # bit3 = filter FS4
        # bit4 = preamp enabled
        # bit5 = atten 0 = 20dB / 1 = 40dB
        # bit6 = input filter 0 = HF / 1 = LF
        # bit7 = attenuator enabled
 
        sendStr = '\x50' + '\x32' + '\x48'
 
        byte = self.tx_rx(sendStr, False, 1)
 
        # set bit 4 ON = preamp ON and get the new 8-bit rxcon byte
        pon = self.set_bit(byte, 4)
 
        # split new rxcon byte into two 4-bit nibbles, add 48/96 (\x30 and \x60)
        high = 48 + (pon >> 4)
        low = 96 + (pon & 15)
 
        sendStr = '\x81' + '\x50' + '\x32' + '\x48' + chr(high) + chr(low) + '\x29' + '\x80'
 
        self.tx_rx(sendStr, False, 0)
 
        return "Command sent"
 
 
    def pre_off(self):
        #get current 8-bit rxcon byte
        sendStr = '\x50' + '\x32' + '\x48'
        byte = self.tx_rx(sendStr, False, 1)
 
        # set bit 4 OFF = preamp OFF and get the new 8-bit rxcon byte
        pon = self.clear_bit(byte, 4)
 
 
        # split new rxcon byte into two 4-bit nibbles, add 48/96 (\x30 and \x60)
        high = 48 + (pon >> 4)
        low = 96 + (pon & 15)
 
        sendStr = '\x81' + '\x50' + '\x32' + '\x48' + chr(high) + chr(low) + '\x29' + '\x80'
 
        self.tx_rx(sendStr, False, 0)
        return "Command sent"
 
 
    def get_att(self):
        sendStr = '\x50' + '\x32' + '\x48'
 
        byte = self.tx_rx(sendStr, False, 1)
 
        a = self.check_bit(byte, 7)
 
        if a:
            return 1
        else:
            return 0
 
 
    def att_on(self):
        #get current 8-bit rxcon byte
        sendStr = '\x50' + '\x32' + '\x48'
        byte = self.tx_rx(sendStr, False, 1)
 
        # set bit 7 ON = ATT ON and get the new 8-bit rxcon byte
        pon = self.set_bit(byte, 7)
 
 
        # split new rxcon byte into two 4-bit nibbles, add 48/96 (\x30 and \x60)
        high = 48 + (pon >> 4)
        low = 96 + (pon & 15)
 
        sendStr = '\x81' + '\x50' + '\x32' + '\x48' + chr(high) + chr(low) + '\x29' + '\x80'
 
        self.tx_rx(sendStr, False, 0)
        return "Command sent"
 
 
    def att_off(self):
        #get current 8-bit rxcon byte
        sendStr = '\x50' + '\x32' + '\x48'
        byte = self.tx_rx(sendStr, False, 1)
 
        # set bit 7 OFF = att OFF and get the new 8-bit rxcon byte
        pon = self.clear_bit(byte, 7)
 
 
        # split new rxcon byte into two 4-bit nibbles, add 48/96 (\x30 and \x60)
        high = 48 + (pon >> 4)
        low = 96 + (pon & 15)
 
        sendStr = '\x81' + '\x50' + '\x32' + '\x48' + chr(high) + chr(low) + '\x29' + '\x80'
 
        self.tx_rx(sendStr, False, 0)
        return "Command sent"
 
 
    def set_freq(self, freq):
        fval = freq * fract
        #print fval
        b1 = 48 + int(fval / 1048576)
        fval = fval % 1048576
        b2 = 96 + int(fval / 65536)
        fval = fval % 65536
        b3 = 48 + int(fval / 4096)
        fval = fval % 4096
        b4 = 96 + int(fval / 256)
        fval = fval % 256
        b5 = 48 + int(fval / 16)
        b6 = 96 + int(fval % 16)
 
        f_tuple = ( b1, b2, b3, b4, b5, b6 )
 
        freqStr = ""
        for byte in f_tuple:
            freqStr += chr(byte)
 
        sendStr = '\x81' + '\x50' + '\x31' + '\x4a' + freqStr + '\x24' + '\x80'
 
        self.tx_rx(sendStr, False, 0)
        return "Freq Set"
 
    def get_freq(self):
 
        sendStr = '\x50' + '\x31' + '\x4a'
 
        freqStr = self.tx_rx(sendStr, False, 3)
 
        f_val = 0
        for k in freqStr:
            f_val = f_val * 256 + ord(k)
 
        return "%.3f" % round(float(f_val / fract),2 )
 
 
 
    def set_mode(self, mode):
 
        if mode == "lsb":
            set_mode_val = "\x66"
        elif mode == "usb":
            set_mode_val = "\x67"
        elif mode == "am":
            set_mode_val = "\x61"
        elif mode == "cw":
            set_mode_val = "\x65"
        elif mode == "data":
            set_mode_val = "\x64"
        elif mode == "fm":
            set_mode_val = "\x63"
        elif mode == "s-am":
            set_mode_val = "\x62"
        else:
            return "Mode not recognized"
 
        sendStr = '\x81' + '\x50' + '\x31' + '\x4d' + set_mode_val + '\x22' + '\x80'
 
        self.tx_rx(sendStr, False, 0)
 
        return "Mode sent"
 
    def get_mode(self):
 
        sendStr = "\x50" + "\x31" + "\x4d"
        m = self.tx_rx(sendStr, False, 1)
 
        mode = ""
        if m == "\x01":
            mode = "am"
        elif m == "\x02":
            mode = "s-am"
        elif m == "\x03":
            mode = "fm"
        elif m == "\x04":
            mode = "data"
        elif m == "\x05":
            mode = "cw"
        elif m == "\x06":
            mode = "lsb"
        elif m == "\x07":
            mode = "usb"
 
        return mode.upper()
 
 
    def get_s(self):
        sendStr = '\x2e'
        sraw = self.tx_rx(sendStr, True, 0)
 
        return ord(sraw)
 
    def get_cal(self):
 
        sendStr = '\x52' + '\x3f' + '\x44' + '\x11'
        #print "sending getcal"
        cbytes = self.tx_rx(sendStr, False, 8)
 
        cal = []
 
        for c in cbytes:
            cal.append(ord(c))
 
        return cal
 
    def get_smeter(self):
        s = float(self.get_s())
        cal = self.get_cal()
 
        s1 = s - cal[0]
        s2 = s1 - cal[1]
        s3 = s2 - cal[2]
        s4 = s3 - cal[3]
        s5 = s4 - cal[4]
        s6 = s5 - cal[5]
        s7 = s6 - cal[6]
 
        if s1 <= 0:
            dbm = -123
            adj = s / cal[0] * 10
            return str(dbm + adj)
 
        elif s2 <= 0:
            dbm = -113
            adj = s1 / cal[1] * 10
            return str(dbm + adj)
 
        elif s3 <= 0:
            dbm = -103
            adj = s2 / cal[2] * 10
            return str(dbm + adj)
 
        elif s4 <= 0:
            dbm = -93
            adj = s3 / cal[3] * 10
            return str(dbm + adj)
 
        elif s5 <= 0:
            dbm = -83
            adj = s4 / cal[4] * 10
            return str(dbm + adj)
 
        elif s6 <= 0:
            dbm = -73
            adj = s5 / cal[5] * 10
            return str(dbm + adj)
 
        elif s7 <= 0:
            dbm = -63
            adj = s6 / cal[6] * 20
            return str(dbm + adj)
 
        else:
            dbm = -43
            adj = s7 / cal[7] * 20
            return str(dbm + adj)
 
 
    def tx_rx(self, sendStr, reply, n):
        # apply thread lock
        lock.acquire()
        self.ser.write(sendStr)
 
        if reply:  # for reading S-meter
            result = ""
            while not result:
                result = self.ser.read(1)
            lock.release()
            return result
        else:
 
            result = ""
            byte = ""
            while n != 0:
                self.ser.write('\x71')
                #byte = ""
 
                while not byte:
                    byte = self.ser.read(1)
 
                result += byte
 
                byte = ""
                n -= 1
            lock.release()
            return result

Icom IC-M710 module

m710.py

m710.0y

'''
Python NMEA Radio Functions module for Icom IC-M710 Marine HF SSB Transceiver
 
    Copyright (C) 2015  John Pumford-Green
 
    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/>.
'''
 
# serial port for Icom IC-M710 Rig Control
 
import serial
import threading
import time
version = "v0.1"
 
sport = '/dev/ttyUSB0'
sbaud = 4800
 
#ser = serial.Serial(sport, 4800, timeout=1)
lock = threading.Lock()
 
# NMEA Codes
preamble = "$PICOA,"
controller = "90"
radio = "01" 
cr = "\x0d"
lf = "\x0a"
 
 
# Commands are sent as NMEA private sentences:
#
# $PICOA,controller_id,radio_id,command,<parameter>,*HH<CR><LF>
#
# where HH is the 2 digit ECC value below:
#
# The protocol document states that for messages FROM the controller TO the radio
# the ECC bytes are optional, and may be omitted. This appears to be false information, and
# the ECC bytes seem to be necessary.
#
# The ECC checksum, is a two-digit hex value found by XORing the hex values of the characters 
# between "$" and "*" (but not including the $ or *)
#
# The first part of the message is always:
# "PICOA,90,01," and this has an XOR value of (decimal) 112
# we then XOR this with each character's decimal ASCII value, in the required command
# and convert the result to a 2-digit hex value
#
 
class m710(object):
    def __init__(self, model):
        self.ser = serial.Serial(sport, sbaud, timeout=0.1)
        self.model = model
 
 
    def get_ecc(self,command):
        ecc = 112
        for c in command:
            ecc = ord(c) ^ ecc
        hecc = '{0:02x}'.format(int(ecc))
 
        return hecc
 
# we must force the radio into "Remote" mode before sending any other commands.    
    def remote_on(self):
        command = "REMOTE,ON"
        ecc = self.get_ecc(command)
        sendStr = preamble+controller+","+radio+","+command+"*"+ecc+cr+lf
        result = self.tx_rx(sendStr)
        if result:
            return
        else:
            return self.remote_on()
 
 
 
# we can leave the radio in "Remote" mode for as long as we want to control it remotely
# but we must close the "Remote" mode when finished. The previous radio settings (channel/power etc) are
# restored after Remote mode is closed.
    def remote_off(self):
        command = "REMOTE,OFF"
        ecc = self.get_ecc(command)
        sendStr = preamble+controller+","+radio+","+command+"*"+ecc+cr+lf
        result = self.tx_rx(sendStr) 
        if result:
            #ser.close()
            return
        else:
            return self.remote_off()
 
 
    def ptt_on():
        command = "TRX,TX"
        ecc = get_ecc(command)
        sendStr = preamble+controller+","+radio+","+command+"*"+ecc+cr+lf
        result = tx_rx(sendStr)
        if result:
            return
        else:
            return ptt_on()
 
    def ptt_off():
        command = "TRX,RX"
        ecc = get_ecc(command)
        sendStr = preamble+controller+","+radio+","+command+"*"+ecc+cr+lf
        result = tx_rx(sendStr)
        if result:
            return
        else:
            return ptt_off()
 
 
 
    def get_freq(self):
        fkhz = self.get_rxfreq()
        #fkhz = "%.3f" % (float(f) * 1000)
        return fkhz
 
    def set_freq(self,freq):
 
        self.set_rxfreq(freq)
        self.set_txfreq(freq)
        return "Set freq success"
 
    def get_rxfreq(self):
        command = "RXF"
        ecc = self.get_ecc(command)
        sendStr = preamble+controller+","+radio+","+command+"*"+ecc+cr+lf
        result = self.tx_rx(sendStr)
        if result:
            list = result.split(",")
            f = list[4].split("*")[0]
            fkhz = "%.3f" % (float(f) * 1000)
            return fkhz
        else:
            return self.get_rxfreq()
 
 
    def get_txfreq(self):
        command = "TXF"
        ecc = get_ecc(command)
        sendStr = preamble+controller+","+radio+","+command+"*"+ecc+cr+lf
        result = self.tx_rx(sendStr)
        if result:
            list = result.split(",")
            f = list[4].split("*")[0]
            fkhz = "%.3f" % (float(f) * 1000)
            return fkhz
        else:
            return self.get_txfreq()
 
 
    def get_mode(self):
        command = "MODE"
        ecc = self.get_ecc(command)
        sendStr = preamble+controller+","+radio+","+command+"*"+ecc+cr+lf
        result = self.tx_rx(sendStr)
        if result:
            list = result.split(",")
            mode = list[4].split("*")[0]
            if mode == "J2B":
                mode = "DATA"
            return mode
        else:
            return self.get_mode()
 
 
 
    def set_mode(self,mode):
        mode = mode.upper()
        if mode == "DATA":
            mode = "J2B"
 
        command = "MODE,"+mode
        ecc = self.get_ecc(command)
 
        sendStr = preamble +controller+","+radio+"," + command + "*"+ecc+cr+lf
        #print "in set_mode with ", sendStr
        result = self.tx_rx(sendStr)
        if result:
            return result
        else:
            return self.set_mode(mode)
 
 
    def set_rxfreq(self,freq):
 
        fmhz = float(freq) / 1000
        f = str(fmhz)
 
        command = "RXF,"+f
        ecc = self.get_ecc(command)
        sendStr = preamble +controller+","+radio+"," + command + "*"+ecc+cr+lf
        result = self.tx_rx(sendStr)
        if result:
            return result
        else:
            return self.set_rxfreq(freq)
 
 
    def set_txfreq(self,freq):
 
        fmhz = float(freq) / 1000
        f = str(fmhz)
 
        command = "TXF,"+f
        ecc = self.get_ecc(command)
        sendStr = preamble +controller+","+radio+"," + command + "*"+ecc+cr+lf
        result = self.tx_rx(sendStr)
        if result:
            return result
        else:
            return self.set_txfreq(freq)
 
    def get_txpower():
        command = "TXP"
        ecc = get_ecc(command)
        sendStr = preamble +controller+","+radio+"," + command + "*"+ecc+cr+lf
        result = tx_rx(sendStr)
        if result:
            list = result.split(",")
            power = list[4].split("*")[0]
            return power
        else:
            return get_txpower()
 
    def set_txpower(p):
        command = "TXP,"+p
        ecc = get_ecc(command)
        sendStr = preamble +controller+","+radio+"," + command + "*"+ecc+cr+lf
        result = tx_rx(sendStr)
        if result:
            return result
        else:
            return set_txpower(p)
 
    def get_smeter(self):
        command = "SIGM"
        ecc = self.get_ecc(command)
        sendStr = preamble+controller+","+radio+","+command+"*"+ecc+cr+lf
        result = self.tx_rx(sendStr)
        if result:
            list = result.split(",")
            smeter = (float(list[4].split("*")[0]) * 20) - 120 
            return smeter
        else:
            return self.get_smeter()
 
    def speaker_on():
        command = "SP,ON"
        ecc = get_ecc(command)
        sendStr = preamble +controller+","+radio+"," + command + "*"+ecc+cr+lf
        result = tx_rx(sendStr)
        if result:
            return result
        else:
            return speaker_on()
 
 
    def speaker_off():
        command = "SP,OFF"
        ecc = get_ecc(command)
        sendStr = preamble +controller+","+radio+"," + command + "*"+ecc+cr+lf
        result = tx_rx(sendStr)
        if result:
            return result
        else:
            return speaker_off()
 
    def sql_on():
        command = "SQLC,ON"
        ecc = get_ecc(command)
        sendStr = preamble +controller+","+radio+"," + command + "*"+ecc+cr+lf
        result = tx_rx(sendStr)
        if result:
            return result
        else:
            return sql_on()
 
    def sql_off():
        command = "SQLC,OFF"
        ecc = get_ecc(command)
        sendStr = preamble +controller+","+radio+"," + command + "*"+ecc+cr+lf
        result = tx_rx(sendStr)
        if result:
            return result
        else:
            return sql_off()
 
    def nb_on():
        command = "NB,ON"
        ecc = get_ecc(command)
        sendStr = preamble +controller+","+radio+"," + command + "*"+ecc+cr+lf
        result = tx_rx(sendStr)
        if result:
            return result
        else:
            return nb_on()
 
    def nb_off():
        command = "NB,OFF"
        ecc = get_ecc(command)
        sendStr = preamble +controller+","+radio+"," + command + "*"+ecc+cr+lf
        result = tx_rx(sendStr)
        if result:
            return result
        else:
            return nb_off()
 
    def dim_on():
        command = "DIM,ON"
        ecc = get_ecc(command)
        sendStr = preamble +controller+","+radio+"," + command + "*"+ecc+cr+lf
        result = tx_rx(sendStr)
        if result:
            return result
        else:
            return dim_on()
 
    def dim_off():
        command = "DIM,OFF"
        ecc = get_ecc(command)
        sendStr = preamble +controller+","+radio+"," + command + "*"+ecc+cr+lf
        result = tx_rx(sendStr)
        if result:
            return result
        else:
            return dim_off()
 
    def agc_on():
        command = "AGC,ON"
        ecc = get_ecc(command)
        sendStr = preamble +controller+","+radio+"," + command + "*"+ecc+cr+lf
        result = tx_rx(sendStr)
        if result:
            return result
        else:
            return agc_on()
 
    def agc_off():
        command = "AGC,OFF"
        ecc = get_ecc(command)
        sendStr = preamble +controller+","+radio+"," + command + "*"+ecc+cr+lf
        result = tx_rx(sendStr)
        if result:
            return result
        else:
            return agc_off()
 
    def get_vol():
        command = "AFG"
        ecc = get_ecc(command)
        sendStr = preamble+controller+","+radio+","+command+"*"+ecc+cr+lf
        result = tx_rx(sendStr)
        if result:
            list = result.split(",")
            vol = list[4].split("*")[0]
            return vol
        else:
            return get_vol()
 
 
 
    def set_vol(v):
        command = "AFG,"+v
        ecc = get_ecc(command)
        sendStr = preamble +controller+","+radio+"," + command + "*"+ecc+cr+lf
        result = tx_rx(sendStr)
        if result:
            return result
        else:
            return set_vol(v)
 
    def get_rfg():
        command = "RFG"
        ecc = get_ecc(command)
        sendStr = preamble+controller+","+radio+","+command+"*"+ecc+cr+lf
        result = tx_rx(sendStr)
        if result:
            list = result.split(",")
            rf = list[4].split("*")[0]
            return rf
        else:
            return get_rfg()
 
    def get_att(self):
        return
    def att_on(self):
        return
    def att_off(self):
        return
 
    def pre_on(self):
        return
    def pre_off(self):
        return
 
    def get_pre(self):
        return
 
    def set_rfg(v):
        command = "RFG,"+v
        ecc = get_ecc(command)
        sendStr = preamble +controller+","+radio+"," + command + "*"+ecc+cr+lf
        result = tx_rx(sendStr)
        if result:
            return result
        else:
            return set_rfg(v)
 
    # The message FROM the radio may be corrupted so we do a check on the received ECC versus our calculated cECC
    # from the received characters - which are everything AFTER the "$" and BEFORE the "*"
    #
    # starting the ECC calculation at message[1] ignores the "$" and we iterate through the message XORing each 
    # character's ASCII (decimal) value until we have the final cECC which is converted by formatting it
    # into a two-digit hex value. This is then compared to the received (rECC) value from the radio's message. 
    # If they match the message is acceptable and check_ecc() returns True to tx_rx(), 
    # otherwise check_ecc() function returns "False" to tx_rx()
    # the True/False value is tested in tx_rx(). 
    # If True then tx_rx() returns the incoming string to the calling function
    # otherwise it returns "False". 
    # The calling function then checkS the boolean state of the returned value. 
    # If True (ie it has the radio's message and the ECC was good) the message 
    # is sent back to the client. 
    # If False the function calls itself again, and attempts to get an error-free reply from the radio, via tx_rx()
 
    def check_ecc(self,message, recc):
        i = 1
        cecc = 0
 
        while i < len(message):
            cecc = ord(message[i]) ^ cecc
            i += 1  
 
        cecc = '{0:02x}'.format(int(cecc))  
 
        if cecc == recc:   
            return True
        else: 
            return False
 
    def tx_rx(self,sendStr):
        #print "in tx_rx, sendStr =  " , sendStr
        lock.acquire()
 
        self.ser.write(sendStr)
        time.sleep(0.1)
        result = self.ser.readline()
 
        #print result
        reply = result.split("*")
        ecc = reply[1][0:2].lower()
        message = reply[0]
        lock.release()
 
        if self.check_ecc(message, ecc):
            return result
        else:
            return False
 
 
 
 
 
#

Text-mode client

client.py

client.py

__author__ = 'gm4slv'
# client to work with server_oo.py
# 
 
# # v0.1
 
import socket
 
try:
    import readline
except ImportError:
    pass
 
import threading
import time
 
 
HOST, PORT = "localhost", 9999
 
smlog = "pymon.txt"
log_active = []
 
 
def make_con():
    global sock
    sock = socket.socket(socket.AF_INET, socket.SOCK_STREAM)
    sock.connect((HOST, PORT))
 
 
def get_rnum():
    global num
    global radios
 
    names = connect("listradios")
 
    radios = names.split()
    num = len(radios)
    return num
 
 
def get_rname(i):
    r = radios[i]
    return r
 
 
def list_radios():
    num = get_rnum()
    global radio
    print "\r\nThere are currently %d radios connected." % num
    for i in range(0, num):
        r = get_rname(i)
        print "Radio %d is %s" % (i + 1, r)
 
 
def get_lradio():
    num = get_rnum()
 
    lradio = raw_input("Select radio to log: ").strip()
 
    if not lradio:
        print "Please select a radio"
        return False
    elif int(lradio) > num:
        print "Selected radio not recognized"
        return False
 
    else:
 
        return lradio
 
 
def set_radio():
    num = get_rnum()
    # global radio
    global radio_num
    global rname
    print "There are currently %d radios connected." % num
    for i in range(0, num):
        r = get_rname(i)
        print "Radio %d is %s" % (i + 1, r)
 
    radio = raw_input("Choose a radio number from the list : ").strip()
    try:
        if not radio:
            print "Please select a radio"
            return False, False
 
        elif int(radio) > num:
            print "Selected radio not recognized"
            return False, False
    except ValueError:
        print "Please enter a number"
        return False, False
 
    else:
        radio_num = "".join(("r", radio))
        rname = get_rname(int(radio) - 1)
        return radio_num, rname
 
 
def prompt():
    print ""
    print "The available commands are:"
    print "lr   : List Radios"
    print "sr   : Select the Radio to control"
    print "gr   : Get currently selected Radio name"
    print "gm   : Get Mode"
    print "sm   : Set Mode"
    print "gf   : Get Freq"
    print "sf   : Set Freq"
    print "gs   : Get S-meter"
    print "gp   : Get Pre-amp"
    print "pon  : Set Pre-amp On"
    print "p2on : Set Pre-amp 2 On"
    print "poff : Set Pre-amp Off"
    print "gatt : Get Attn"
    print "aton : Set Attn On"
    print "atoff: Set Attn Off"
    print "ga   : Get All (status of all radios)"
    print "sync : Sync freq/mode on two radios"
    print "log  : Setup background logging to file"
    print "h    : Help (show this command list)"
    print "q    : quit"
    print ""
 
 
def start():
    global radio_num
    global rname
    global sock
    pfreq = connect("getfreq" + " " + radio_num)
    pmode = connect("getmode" + " " + radio_num)
 
    data = raw_input(rname + " (" + pfreq + " " + pmode + ") " + " > ").lower().strip()
    if len(data.split()) > 1:
        if (data.split())[0] == "sf":
            sfreq = (data.split())[1]
            freq = connect("setfreq" + " " + sfreq + " " + radio_num)
            print "%s replied: %s" % (rname, freq)
            start()
        elif (data.split())[0] == "sm":
            smode = (data.split())[1]
            mode = connect("setmode" + " " + smode + " " + radio_num)
            print "%s replied: %s" % (rname, mode)
            start()
        else:
 
            print "only one command at a time please"
            start()
    elif data == "u":
        oldf = connect("getfreq" + " " + radio_num)
        newf = str(float(oldf) + 1)
        freq = connect("setfreq" + " " + newf + " " + radio_num)
        print "%s replied: %s" % (rname, freq)
        start()
 
    elif data == "d":
        oldf = connect("getfreq" + " " + radio_num)
        newf = str(float(oldf) - 1)
        freq = connect("setfreq" + " " + newf + " " + radio_num)
        print "%s replied: %s" % (rname, freq)
        start()
 
    elif data == "lr":
        list_radios()
        start()
    elif data == "sr":
 
        radio_num, rname = set_radio()
 
        while not radio_num:
            radio_num, rname = set_radio()
 
        start()
 
    elif data == "gr":
        print "Radio selected is %s" % rname
        start()
 
    elif data == "gm":
        mode = connect("getmode" + " " + radio_num)
        print "%s replied: %s" % (rname, mode)
        start()
 
    elif data == "sm":
        smode = raw_input("Enter mode: ")
        mode = connect("setmode" + " " + smode + " " + radio_num)
        print "%s replied: %s" % (rname, mode)
        start()
 
    elif data == "gf":
        freq = connect("getfreq" + " " + radio_num)
        print "%s replied: %s kHz" % (rname, freq)
        start()
 
    elif data == "sf":
        sfreq = raw_input("Enter freq (kHz): ")
        freq = connect("setfreq" + " " + sfreq + " " + radio_num)
        print "%s replied: %s" % (rname, freq)
        start()
 
    elif data == "gs":
        smeter = connect("getsmeter" + " " + radio_num)
        print "%s replied: %sdBm" % (rname, smeter)
        start()
 
    elif data == "gp":
        preamp = connect("getpreamp" + " " + radio_num)
        print "%s replied: %s" % (rname, preamp)
        start()
 
    elif data == "pon":
        preamp = connect("preampon" + " " + radio_num)
        print "%s replied: %s" % (rname, preamp)
        start()
 
    elif data == "p2on":
        preamp = connect("preamp2on" + " " + radio_num)
        print "%s replied: %s" % (rname, preamp)
        start()
 
    elif data == "poff":
        preamp = connect("preampoff" + " " + radio_num)
        print "%s replied: %s" % (rname, preamp)
        start()
 
    elif data == "gatt":
        preamp = connect("getatt" + " " + radio_num)
        print "%s replied: %s" % (rname, preamp)
        start()
 
    elif data == "aton":
        att = connect("atton" + " " + radio_num)
        print "%s replied: %s" % (rname, att)
        start()
 
    elif data == "atoff":
        att = connect("attoff" + " " + radio_num)
        print "%s replied: %s" % (rname, att)
        start()
 
    elif data == "ga":
        get_all()
        start()
 
 
    elif data == "log":
        fname = raw_input("Enter a filename (or \"Return\" for default) :")
        if fname == "":
            fname = smlog
        # check file is valid
        try:
            f = open(fname, 'a+')
            f.close()
        except IOError:
            print "File/path not valid"
            start()
 
        list_radios()
 
        lradio = get_lradio()
 
        while not lradio:
            lradio = get_lradio()
 
        rname = get_rname(int(lradio) - 1)
        if lradio in log_active:
            print "Logging already active on " + rname
        else:
            tlog = int(raw_input("Enter a polling interval (seconds) :"))
            p = threading.Thread(target=log, args=(lradio, tlog, fname))
            p.setDaemon(True)
            p.start()
            log_active.append(lradio)
        start()
 
    elif data == "sync":
        sync_result = sync()
        print sync_result
        start()
 
 
    elif data == "h" or data == "help":
        prompt()
        start()
 
 
    elif data == "q" or data == "quit":
        rx = connect("quit")
        print "Server says: %s " % rx
 
    else:
        #prompt()
        start()
 
 
def get_all():
    num = get_rnum()
    global radio
    print "There are currently %d radios connected." % num
    print "=" * 33
    for i in range(0, num):
        r = get_rname(i)
        n = "".join(("r", str(i + 1)))
        freq = connect("getfreq" + " " + n)
        mode = connect("getmode" + " " + str(n))
        smeter = connect("getsmeter" + " " + str(n))
        preamp = connect("getpreamp" + " " + str(n))
        att = connect("getatt" + " " + str(n))
 
        print "Status of Radio %d (%s) \r\n" % (i + 1, r)
        print "Frequency : %s kHz" % freq
        print "Mode: %s" % mode
        print "S-Meter: %sdBm" % smeter
        print "Preamp = %s" % preamp
        print "Attenuator = %s " % att
        print "=" * 33
 
    print ""
 
 
def log(p, t, f):
    print "\n\n"
    tlog = t
    sradio = get_rname(int(p) - 1)
 
    sr = "".join(("r", str(p)))
    while True:
        try:
            frequency = connect("getfreq" + " " + sr + "\n")
            smeter = connect("getsmeter" + " " + sr + "\n")
            mode = connect("getmode" + " " + sr + "\n")
            write_file(f, sradio, mode, frequency, smeter)
            time.sleep(tlog)
        finally:
            pass
 
 
def get_mradio():
    num = get_rnum()
 
    mradio = raw_input("Choose Master radio number from the list: ").strip()
 
    if not mradio:
        print "Please select a radio"
        return False
    elif int(mradio) > num:
        print "Selected radio not recognized"
        return False
 
    else:
 
        return mradio
 
 
def get_sradio():
    num = get_rnum()
    sradio = raw_input("Choose Slave radio number from the list: ").strip()
 
    if not sradio:
        print "Please select a radio"
        return False
    elif int(sradio) > num:
        print "Selected radio not recognized"
        return False
 
    else:
 
        return sradio
 
 
def sync():
    num = get_rnum()
    print ""
    print "Set SLAVE to the same Frequency and Mode as MASTER.\r\n"
    print "Currently connected radios are:"
    for i in range(0, num):
        r = get_rname(i)
        print "%d is %s" % (i + 1, r)
 
    mradio = get_mradio()
    while not mradio:
        mradio = get_mradio()
 
    sradio = get_sradio()
    while not sradio:
        sradio = get_sradio()
    sr = "".join(("r", sradio))
    mr = "".join(("r", mradio))
    mfreq = connect("getfreq" + " " + mr)
    mmode = connect("getmode" + " " + mr)
 
    sfreq = connect("setfreq" + " " + mfreq + " " + sr)
    smode = connect("setmode" + " " + mmode + " " + sr)
 
    return (sfreq + "\r\n" + smode + "\r\n")
 
 
# Try to send and receive in one-go, to prevent the logging thread and the main prog
# getting the wrong receive data
 
def connect(data):
    try:
        lock.acquire()
        global sock
        sock.sendall(data + "\n")
        received = sock.recv(2048)
    finally:
        lock.release()
 
    return received
 
 
def write_file(fname, rname, mode, freq, smeter):
    filename = fname
    f = open(filename, 'a+')
    timenow = time.strftime("%d/%m/%Y %H:%M:%S", time.gmtime(time.time()))
    log = " ".join((timenow, rname, mode, freq, smeter, "\r\n"))
    f.write(log)
    f.close()
 
 
make_con()
 
lock = threading.Lock()
get_all()
print "Please choose a radio\r\n"
radio_num, rname = set_radio()
while not radio_num:
    radio_num, rname = set_radio()
 
prompt()
start()

Example session

There are currently 3 radios connected.
=================================
Status of Radio 1 (IC-R75) 
 
Frequency : 2187.500 kHz
Mode: DATA
S-Meter: -114.2dBm
Preamp = 0
Attenuator = 0 
=================================
Status of Radio 2 (IC-M710) 
 
Frequency : 16804.500 kHz
Mode: DATA
S-Meter: -120.0dBm
Preamp = None
Attenuator = None 
=================================
Status of Radio 3 (AR7030) 
 
Frequency : 2182.000 kHz
Mode: USB
S-Meter: -110.3dBm
Preamp = 0
Attenuator = 0 
=================================
 
Please choose a radio
 
There are currently 3 radios connected.
Radio 1 is IC-R75
Radio 2 is IC-M710
Radio 3 is AR7030
Choose a radio number from the list : 3
 
The available commands are:
lr   : List Radios
sr   : Select the Radio to control
gr   : Get currently selected Radio name
gm   : Get Mode
sm   : Set Mode
gf   : Get Freq
sf   : Set Freq
gs   : Get S-meter
gp   : Get Pre-amp
pon  : Set Pre-amp On
p2on : Set Pre-amp 2 On
poff : Set Pre-amp Off
gatt : Get Attn
aton : Set Attn On
atoff: Set Attn Off
ga   : Get All (status of all radios)
sync : Sync freq/mode on two radios
log  : Setup background logging to file
h    : Help (show this command list)
q    : quit
 
AR7030 (2182.000 USB)  > sf 5680
AR7030 replied: Freq Set
AR7030 (5680.000 USB)  >

GUI Client

No S-meter version

gui_nosmeter.py

gui_nosmeter.py

# # new class-based gui
 
from Tkinter import *
import socket
import threading
import time
 
 
 
class Network(object):
    def __init__(self):
        self.sock = self.make_con()
 
    def make_con(self):
        self.sock = socket.socket(socket.AF_INET, socket.SOCK_STREAM)
        self.sock.connect(("192.168.21.107", 9999))
        return self.sock
 
    def connect(self, data):
        try:
            lock.acquire()
            self.sock.sendall(data + "\n")
            self.received = self.sock.recv(2048)
        finally:
            lock.release()
            return self.received
 
class Dash(object):
    def __init__(self, master):
        self.master = master
 
        self.s = (n1.sock.getsockname())
        self.p = (n1.sock.getpeername())
 
 
 
        dash_frame = Toplevel(master, borderwidth = 2, relief = GROOVE, bg = 'black')
        dash_frame.title("Server")
        dash_frame.protocol("WM_DELETE_WINDOW", self.handler)
        dash_frame.resizable(0, 0)
        dash_frame.geometry("300x150+10-10")
        dash_frame.grid()
 
        #self.utc_time = StringVar()
        #Label(dash_frame, textvariable = self.utc_time, fg = 'green', bg = 'black').grid(row = 0, column = 0, sticky = W)
 
        Label(dash_frame, text = self.s, bg = 'black', fg = 'white').grid(row = 1, column = 0, sticky = W)
 
        Label(dash_frame, text = " < --- > ", bg = 'black', fg = 'white').grid(row = 1, column = 1)
 
        Label(dash_frame, text = self.p, bg = 'black', fg = 'white').grid(row = 1, column = 2, sticky = E)
 
        self.server_msg_l = StringVar()
        Label(dash_frame, textvariable = self.server_msg_l, fg = 'yellow', bg = 'black').grid(row = 2, column = 0, columnspan = 3, sticky = W)
 
        q_button = Button(dash_frame, text = "Quit", command = lambda: close())
        q_button.grid(row = 3, column = 0, sticky = W)
 
    def handler(self):
        pass
 
    def up_dash(self):
        self.server_msg = n1.connect("ident")
        self.server_msg_l.set(self.server_msg)
        #self.utc_time.set(time.strftime("%d/%m/%Y %H:%M", time.gmtime(time.time())))
        return
 
class nRadio(object):
    def __init__(self, master, radio):
        self.master = master
 
        self.radio = radio
        self.num = "".join(("r", self.radio))
 
 
        radio_frame = Frame(master, borderwidth=2, relief=GROOVE)
 
        radio_frame.grid()
        self.smeter_list = []
 
        Label(radio_frame, text="Name", width=10).grid(row=0, column=0)
        Label(radio_frame, text="Freq/kHz", width=10).grid(row=0, column=1)
        Label(radio_frame, text="Mode", width=10).grid(row=0, column=2)
        #Label(radio_frame, text="Signal/dBm", width=10).grid(row=0, column=3)
        #Label(radio_frame, text="Max/dBm", width=10, fg='red').grid(row=0, column=4)
        #Label(radio_frame, text="Ave/dBm", width=10, fg='green').grid(row=0, column=5)
        #Label(radio_frame, text="Min/dBm", width=10, fg='blue').grid(row=0, column=6)
 
        self.name_l = StringVar()
        self.l_name = Label(radio_frame, textvariable=self.name_l, width=10)
        self.l_name.grid(row=1, column=0, sticky=W)
 
        self.freq_l = StringVar()
        self.l_freq = Label(radio_frame, fg='red', textvariable=self.freq_l, width=10)
        self.l_freq.grid(row=1, column=1, sticky=E)
 
        self.mode_l = StringVar()
        self.l_mode = Label(radio_frame, textvariable=self.mode_l, width=10)
        self.l_mode.grid(row=1, column=2, sticky=E)
        '''
        self.e_mode = Entry(radio_frame, width=10, bg = 'white', fg = 'black', insertbackground = 'blue')
        self.e_mode.grid(row=2, column=2)
        self.e_mode.bind('<Return>', (lambda event: self.set_mode(self.num)))
        '''
        #self.e_mode = StringVar()
        self.b_mode_usb = Button(radio_frame, text = "USB", width = 4, command = lambda: self.set_mode("usb", self.num))
        self.b_mode_usb.grid(row = 3, column = 0)
 
        self.b_mode_lsb = Button(radio_frame, text = "LSB", width = 4, command = lambda: self.set_mode("lsb", self.num))
        self.b_mode_lsb.grid(row = 3, column = 1)
 
        self.b_mode_cw = Button(radio_frame, text = "CW", width = 4, command = lambda: self.set_mode("cw", self.num))
        self.b_mode_cw.grid(row = 4, column = 0)
 
        self.b_mode_am = Button(radio_frame, text = "AM", width = 4, command = lambda: self.set_mode("am", self.num))
        self.b_mode_am.grid(row = 4, column = 1)
 
        self.b_mode_data = Button(radio_frame, text = "Data", width = 4, command = lambda: self.set_mode("data", self.num))
        self.b_mode_data.grid(row = 3, column = 2)
 
        self.b_qsy_up = Button(radio_frame, text = "+1kHz", width = 6, command = lambda: self.qsy_up( self.num))
        self.b_qsy_up.grid(row = 3, column = 3)
 
        self.b_qsy_down = Button(radio_frame, text = "-1kHz", width = 6, command = lambda: self.qsy_down( self.num))
        self.b_qsy_down.grid(row = 4, column = 3)
 
        self.b_update = Button(radio_frame, text = "Get", width = 6, command = lambda:self.get_all())
        self.b_update.grid(row = 0, column = 3)
 
 
        self.smeter_l = StringVar()
        self.l_smeter = Label(radio_frame, textvariable=self.smeter_l, width=10)
        #self.l_smeter.grid(row=1, column=3, sticky=E)
 
        self.max_var = StringVar()
        self.l_max = Label(radio_frame, textvariable=self.max_var, width=10)
        #self.l_max.grid(row=1, column=4)
 
        self.ave_var = StringVar()
        self.l_average = Label(radio_frame, textvariable=self.ave_var, width=10)
        #self.l_average.grid(row=1, column=5)
 
        self.min_var = StringVar()
        self.l_min = Label(radio_frame, textvariable=self.min_var, width=10)
        #self.l_min.grid(row=1, column=6)
 
        self.e_freq = Entry(radio_frame, width=10, bg = 'white', fg = 'black', insertbackground = 'blue')
        self.e_freq.grid(row=2, column=1)
        self.e_freq.focus()
        self.e_freq.bind('<Return>', (lambda event: self.set_freq(self.num)))
 
 
 
        self.pre = IntVar()
        self.cb_pre = Checkbutton(radio_frame, variable=self.pre, command=lambda: self.preamp_onoff(self.num))
        self.cb_pre.grid(row=5, column=3, sticky=E)
 
        self.l_pre = Label(radio_frame, width=10, text="Preamp")
        self.l_pre.grid(row=5, column=2, sticky=W)
 
        self.att = IntVar()
        self.cb_att = Checkbutton(radio_frame, variable=self.att, command=lambda: self.att_onoff(self.num))
        self.cb_att.grid(row=6, column=3, sticky=E)
 
        self.l_att = Label(radio_frame, width=10, text="Att")
        self.l_att.grid(row=6, column=2, sticky=W)
 
        self.set_log = IntVar()
        self.cb_log = Checkbutton(radio_frame, variable = self.set_log)
        #self.cb_log.grid(row = 6, column = 1, sticky = W)
 
        self.l_log = Label(radio_frame, width = 10, text = "Log to file...")
        #self.l_log.grid(row = 6, column = 0, sticky = E)
 
        self.c1 = Canvas(radio_frame, width=260, height=100, bg='black')
        #self.c1.grid(row=2, column=3, columnspan=4, rowspan=3)
 
        name = self.get_name(radio)
 
 
    def get_all(self):
 
        self.get_freq(self.num)
        self.get_mode(self.num)
        #self.get_smeter(self.num)
        self.get_preamp(self.num)
        self.get_atten(self.num)
        #self.graph_points()       
        #self.avg()
        #self.max()
        #self.min()
 
        if self.set_log.get() == 1:
            if int(time.time()) % 10.0 == 0:
                self.write_file()
        return
 
    def get_freq(self, radio):
 
        self.freq = n1.connect("getfreq" + " " + radio)
        self.freq_l.set(self.freq)
        return
 
    def set_freq(self, radio):
        self.freq = str(self.e_freq.get())
        self.newfreq = n1.connect("setfreq" + " " + self.freq + " " + radio)
        self.e_freq.delete(0, END)
        self.get_all()
        return
 
    def qsy_up(self,radio):
 
        oldf = n1.connect("getfreq" + " " + radio)
        newf = str(float(oldf) + 1)
        freq = n1.connect("setfreq" + " " + newf + " " + radio)
        self.get_all()
        return
 
    def qsy_down(self,radio):
        oldf = n1.connect("getfreq" + " " + radio)
        newf = str(float(oldf) - 1)
        freq = n1.connect("setfreq" + " " + newf + " " + radio)
        self.get_all()
        return
 
    def get_mode(self, radio):
        self.mode = n1.connect("getmode" + " " + radio)
        self.mode_l.set(self.mode)
        return
 
    def set_mode(self, mode, radio):
        #self.mode = str(self.e_mode.get())
        self.newmode = n1.connect("setmode" + " " + mode + " " + radio)
        #self.e_mode.delete(0, END)
        self.get_all()
        return
 
    def get_smeter(self, radio):
        self.smeter = n1.connect("getsmeter" + " " + radio)
        self.smeter_l.set(self.smeter)
        self.smeter_list.append(float(self.smeter))
        if len(self.smeter_list) > 120:
            self.smeter_list.pop(0)
        return
 
    def avg(self):
        s = self.smeter_list
        total = 0
        for i in s:
            total += i
        self.av = round((total / len(s)), 1)
        self.ave_var.set(str(self.av))
        self.c1.create_line(0, 100 - (self.av + 123 + 5), 310, 100 - (self.av + 123 + 5), fill="green")
        return self.av
 
    def min(self):
        s = self.smeter_list
        self.mn = s[0]
        for i in s:
            if i < self.mn:
                self.mn = i
        self.min_var.set(str(self.mn))
        self.c1.create_line(0, 100 - (self.mn + 123 + 5), 310, 100 - (self.mn + 123 + 5), fill="blue")
        return self.mn
 
    def max(self):
        s = self.smeter_list
        self.mx = s[0]
        for i in s:
            if i > self.mx:
                self.mx = i
        self.max_var.set(str(self.mx))
        self.c1.create_line(0, 100 - (self.mx + 123 + 5), 310, 100 - (self.mx + 123 + 5), fill="red")
        return self.mx
 
    def get_preamp(self, radio):
        self.preamp = n1.connect("getpreamp" + " " + radio)
        if self.preamp == "1":
            self.cb_pre.select()
        elif self.preamp == "0":
            self.cb_pre.deselect()
        return
 
    def preamp_onoff(self, radio):
        self.prestate = self.pre.get()
        if self.prestate:
            n1.connect("preampon" + " " + radio)
        else:
            n1.connect("preampoff" + " " + radio)
        self.get_all()
        return
 
    def att_onoff(self, radio):
        self.attstate = self.att.get()
        if self.attstate:
            n1.connect("atton" + " " + radio)
        else:
            n1.connect("attoff" + " " + radio)
        self.get_all()
        return
 
 
    def get_atten(self, radio):
        self.atten = n1.connect("getatt" + " " + radio)
        if self.atten == "1":
            self.cb_att.select()
        elif self.atten == "0":
            self.cb_att.deselect()
        return
 
    def get_name(self, radio):
        print radio
        self.all_names = n1.connect("listradios")
        self.radios = self.all_names.split()
        print self.radios
        self.name = self.radios[int(radio) - 1]
        self.name_l.set(self.name)
        return
 
    def graph_points(self):
        seq = self.smeter_list
        y_stretch = 1
        y_gap = 5
        x_stretch = 0
        x_width = 2
        x_gap = 2
        height = 100
        self.c1.delete(ALL)
        self.c1.create_line(0, 100 - (-73 + 123 + 5), 310, 100 - (-73 + 123 + 5), fill='white')
        for x, y in enumerate(seq):
            yd = y + 123
            x0 = x * x_stretch + x * x_width + x_gap
            y0 = height - (yd * y_stretch + y_gap)
            x1 = x * x_stretch + x * x_width + x_width + x_gap
            y1 = height - y_gap
            self.c1.create_rectangle(x0, y0, x1, y1, fill="yellow")
 
    def write_file(self):
        self.filename = self.name+".txt"
        self.f = open(self.filename, 'a+')
        timenow = time.strftime("%d/%m/%Y %H:%M:%S", time.gmtime(time.time()))
        log = " ".join((timenow, self.name, self.mode, self.freq, self.smeter, self.preamp, self.atten, "\r\n"))
        self.f.write(log)
        self.f.close()
 
def update():
    #loops = 0
 
    try:
        nRadio1.get_all()
    except:
        pass
    try:
        nRadio2.get_all()
    except:
        pass
    try:
        nRadio3.get_all()
    except:
        pass
    try:
        nRadio4.get_all()
    except:
        pass
    d1.up_dash()
    return
 
def main():
    #loops = 0
    while True:
        try:
            nRadio1.get_all()
        except:
            pass
        try:
            nRadio2.get_all()
        except:
            pass
        try:
            nRadio3.get_all()
        except:
            pass
        try:
            nRadio4.get_all()
        except:
            pass
        d1.up_dash()
        #loops += 1
        #print threading.currentThread().name, loops
        time.sleep(5)
 
def close():
    n1.connect("quit")
    root.destroy()
 
 
if __name__ == "__main__":
    version = "v0.4"
    lock = threading.Lock()
    root = Tk()
    #w, h = root.winfo_screenwidth(), root.winfo_screenheight()
    #root.geometry("%dx%d+0+0" % (w, h))
    #root.geometry("300x520+0+0")
    root.title("Netradio " + version)
    #root.withdraw()
    n1 = Network()
    #radio_count = (n1.connect("count"))
    #radio_count = 3
 
    radio_count = int(n1.connect("count"))
    if radio_count > 0:
        nRadio1 = nRadio(root, "1")
    if radio_count > 1:
        nRadio2 = nRadio(root, "2")
    if radio_count > 2:
        nRadio3 = nRadio(root, "3")
    if radio_count > 3:
        nRadio4 = nRadio(root, "4")
 
    d1 = Dash(root)
 
    #print threading.currentThread().name
    #m1 = threading.Thread(target = main)
    #m1.setDaemon(True)
    #m1.start()
 
    update()
 
    root.mainloop()

S-meter display version

gui.py

gui.py

# # new class-based gui
 
from Tkinter import *
import socket
import threading
import time
 
 
 
class Network(object):
    def __init__(self):
        self.sock = self.make_con()
 
    def make_con(self):
        self.sock = socket.socket(socket.AF_INET, socket.SOCK_STREAM)
        self.sock.connect(("192.168.21.107", 9999))
        return self.sock
 
    def connect(self, data):
        try:
            lock.acquire()
            self.sock.sendall(data + "\n")
            self.received = self.sock.recv(2048)
        finally:
            lock.release()
            return self.received
 
class Dash(object):
    def __init__(self, master):
        self.master = master
 
        self.s = (n1.sock.getsockname())
        self.p = (n1.sock.getpeername())
 
 
 
        dash_frame = Toplevel(master, borderwidth = 2, relief = GROOVE, bg = 'black')
        dash_frame.title("Server")
        dash_frame.protocol("WM_DELETE_WINDOW", self.handler)
        dash_frame.resizable(0, 0)
        dash_frame.geometry("300x150-10+10")
        dash_frame.grid()
 
        self.utc_time = StringVar()
        Label(dash_frame, textvariable = self.utc_time, fg = 'green', bg = 'black').grid(row = 0, column = 0, sticky = W)
 
        Label(dash_frame, text = self.s, bg = 'black', fg = 'white').grid(row = 1, column = 0, sticky = W)
 
        Label(dash_frame, text = " < --- > ", bg = 'black', fg = 'white').grid(row = 1, column = 1)
 
        Label(dash_frame, text = self.p, bg = 'black', fg = 'white').grid(row = 1, column = 2, sticky = E)
 
        self.server_msg_l = StringVar()
        Label(dash_frame, textvariable = self.server_msg_l, fg = 'yellow', bg = 'black').grid(row = 2, column = 0, columnspan = 3, sticky = W)
 
        q_button = Button(dash_frame, text = "Quit", command = lambda: close())
        q_button.grid(row = 3, column = 0, sticky = W)
 
    def handler(self):
        pass
 
    def up_dash(self):
        self.server_msg = n1.connect("ident")
        self.server_msg_l.set(self.server_msg)
        self.utc_time.set(time.strftime("%d/%m/%Y %H:%M", time.gmtime(time.time())))
        return
 
class nRadio(object):
    def __init__(self, master, radio):
        self.master = master
 
        self.radio = radio
        self.num = "".join(("r", self.radio))
 
 
        radio_frame = Frame(master, borderwidth=2, relief=GROOVE)
 
        radio_frame.grid()
        self.smeter_list = []
 
        Label(radio_frame, text="Name", width=10).grid(row=0, column=0)
        Label(radio_frame, text="Freq/kHz", width=10).grid(row=0, column=1)
        Label(radio_frame, text="Mode", width=10).grid(row=0, column=2)
        Label(radio_frame, text="Signal/dBm", width=10).grid(row=0, column=3)
        Label(radio_frame, text="Max/dBm", width=10, fg='red').grid(row=0, column=4)
        Label(radio_frame, text="Ave/dBm", width=10, fg='green').grid(row=0, column=5)
        Label(radio_frame, text="Min/dBm", width=10, fg='blue').grid(row=0, column=6)
 
        self.name_l = StringVar()
        self.l_name = Label(radio_frame, textvariable=self.name_l, width=10)
        self.l_name.grid(row=1, column=0, sticky=W)
 
        self.freq_l = StringVar()
        self.l_freq = Label(radio_frame, fg='red', textvariable=self.freq_l, width=10)
        self.l_freq.grid(row=1, column=1, sticky=E)
 
        self.mode_l = StringVar()
        self.l_mode = Label(radio_frame, textvariable=self.mode_l, width=10)
        self.l_mode.grid(row=1, column=2, sticky=E)
        '''
        self.e_mode = Entry(radio_frame, width=10, bg = 'white', fg = 'black', insertbackground = 'blue')
        self.e_mode.grid(row=2, column=2)
        self.e_mode.bind('<Return>', (lambda event: self.set_mode(self.num)))
        '''
        #self.e_mode = StringVar()
        self.b_mode_usb = Button(radio_frame, text = "USB", width = 4, command = lambda: self.set_mode("usb", self.num))
        self.b_mode_usb.grid(row = 3, column = 0)
 
        self.b_mode_lsb = Button(radio_frame, text = "LSB", width = 4, command = lambda: self.set_mode("lsb", self.num))
        self.b_mode_lsb.grid(row = 3, column = 1)
 
        self.b_mode_cw = Button(radio_frame, text = "CW", width = 4, command = lambda: self.set_mode("cw", self.num))
        self.b_mode_cw.grid(row = 4, column = 0)
 
        self.b_mode_am = Button(radio_frame, text = "AM", width = 4, command = lambda: self.set_mode("am", self.num))
        self.b_mode_am.grid(row = 4, column = 1)
 
        self.b_mode_data = Button(radio_frame, text = "Data", width = 4, command = lambda: self.set_mode("data", self.num))
        self.b_mode_data.grid(row = 3, column = 2)
 
        self.smeter_l = StringVar()
        self.l_smeter = Label(radio_frame, textvariable=self.smeter_l, width=10)
        self.l_smeter.grid(row=1, column=3, sticky=E)
 
        self.max_var = StringVar()
        self.l_max = Label(radio_frame, textvariable=self.max_var, width=10)
        self.l_max.grid(row=1, column=4)
 
        self.ave_var = StringVar()
        self.l_average = Label(radio_frame, textvariable=self.ave_var, width=10)
        self.l_average.grid(row=1, column=5)
 
        self.min_var = StringVar()
        self.l_min = Label(radio_frame, textvariable=self.min_var, width=10)
        self.l_min.grid(row=1, column=6)
 
        self.e_freq = Entry(radio_frame, width=10, bg = 'white', fg = 'black', insertbackground = 'blue')
        self.e_freq.grid(row=2, column=1)
        self.e_freq.focus()
        self.e_freq.bind('<Return>', (lambda event: self.set_freq(self.num)))
 
 
 
        self.pre = IntVar()
        self.cb_pre = Checkbutton(radio_frame, variable=self.pre, command=lambda: self.preamp_onoff(self.num))
        self.cb_pre.grid(row=5, column=4, sticky=E)
 
        self.l_pre = Label(radio_frame, width=10, text="Preamp")
        self.l_pre.grid(row=5, column=3, sticky=W)
 
        self.att = IntVar()
        self.cb_att = Checkbutton(radio_frame, variable=self.att, command=lambda: self.att_onoff(self.num))
        self.cb_att.grid(row=6, column=4, sticky=E)
 
        self.l_att = Label(radio_frame, width=10, text="Att")
        self.l_att.grid(row=6, column=3, sticky=W)
 
        self.set_log = IntVar()
        self.cb_log = Checkbutton(radio_frame, variable = self.set_log)
        self.cb_log.grid(row = 6, column = 1, sticky = W)
 
        self.l_log = Label(radio_frame, width = 10, text = "Log to file...")
        self.l_log.grid(row = 6, column = 0, sticky = E)
 
        self.c1 = Canvas(radio_frame, width=260, height=100, bg='black')
        self.c1.grid(row=2, column=3, columnspan=4, rowspan=3)
 
        name = self.get_name(radio)
 
 
    def get_all(self):
 
        self.get_freq(self.num)
        self.get_mode(self.num)
        self.get_smeter(self.num)
        self.get_preamp(self.num)
        self.get_atten(self.num)
        self.graph_points()       
        self.avg()
        self.max()
        self.min()
 
        if self.set_log.get() == 1:
            if int(time.time()) % 10.0 == 0:
                self.write_file()
        return
 
    def get_freq(self, radio):
 
        self.freq = n1.connect("getfreq" + " " + radio)
        self.freq_l.set(self.freq)
        return
 
    def set_freq(self, radio):
        self.freq = str(self.e_freq.get())
        self.newfreq = n1.connect("setfreq" + " " + self.freq + " " + radio)
        self.e_freq.delete(0, END)
 
        return
 
    def get_mode(self, radio):
        self.mode = n1.connect("getmode" + " " + radio)
        self.mode_l.set(self.mode)
        return
 
    def set_mode(self, mode, radio):
        #self.mode = str(self.e_mode.get())
        self.newmode = n1.connect("setmode" + " " + mode + " " + radio)
        #self.e_mode.delete(0, END)
        return
 
    def get_smeter(self, radio):
        self.smeter = n1.connect("getsmeter" + " " + radio)
        self.smeter_l.set(self.smeter)
        self.smeter_list.append(float(self.smeter))
        if len(self.smeter_list) > 120:
            self.smeter_list.pop(0)
        return
 
    def avg(self):
        s = self.smeter_list
        total = 0
        for i in s:
            total += i
        self.av = round((total / len(s)), 1)
        self.ave_var.set(str(self.av))
        self.c1.create_line(0, 100 - (self.av + 123 + 5), 310, 100 - (self.av + 123 + 5), fill="green")
        return self.av
 
    def min(self):
        s = self.smeter_list
        self.mn = s[0]
        for i in s:
            if i < self.mn:
                self.mn = i
        self.min_var.set(str(self.mn))
        self.c1.create_line(0, 100 - (self.mn + 123 + 5), 310, 100 - (self.mn + 123 + 5), fill="blue")
        return self.mn
 
    def max(self):
        s = self.smeter_list
        self.mx = s[0]
        for i in s:
            if i > self.mx:
                self.mx = i
        self.max_var.set(str(self.mx))
        self.c1.create_line(0, 100 - (self.mx + 123 + 5), 310, 100 - (self.mx + 123 + 5), fill="red")
        return self.mx
 
    def get_preamp(self, radio):
        self.preamp = n1.connect("getpreamp" + " " + radio)
        if self.preamp == "1":
            self.cb_pre.select()
        elif self.preamp == "0":
            self.cb_pre.deselect()
        return
 
    def preamp_onoff(self, radio):
        self.prestate = self.pre.get()
        if self.prestate:
            n1.connect("preampon" + " " + radio)
        else:
            n1.connect("preampoff" + " " + radio)
        return
 
    def att_onoff(self, radio):
        self.attstate = self.att.get()
        if self.attstate:
            n1.connect("atton" + " " + radio)
        else:
            n1.connect("attoff" + " " + radio)
        return
 
 
    def get_atten(self, radio):
        self.atten = n1.connect("getatt" + " " + radio)
        if self.atten == "1":
            self.cb_att.select()
        elif self.atten == "0":
            self.cb_att.deselect()
        return
 
    def get_name(self, radio):
        print radio
        self.all_names = n1.connect("listradios")
        self.radios = self.all_names.split()
        print self.radios
        self.name = self.radios[int(radio) - 1]
        self.name_l.set(self.name)
        return
 
    def graph_points(self):
        seq = self.smeter_list
        y_stretch = 1
        y_gap = 5
        x_stretch = 0
        x_width = 2
        x_gap = 2
        height = 100
        self.c1.delete(ALL)
        self.c1.create_line(0, 100 - (-73 + 123 + 5), 310, 100 - (-73 + 123 + 5), fill='white')
        for x, y in enumerate(seq):
            yd = y + 123
            x0 = x * x_stretch + x * x_width + x_gap
            y0 = height - (yd * y_stretch + y_gap)
            x1 = x * x_stretch + x * x_width + x_width + x_gap
            y1 = height - y_gap
            self.c1.create_rectangle(x0, y0, x1, y1, fill="yellow")
 
    def write_file(self):
        self.filename = self.name+".txt"
        self.f = open(self.filename, 'a+')
        timenow = time.strftime("%d/%m/%Y %H:%M:%S", time.gmtime(time.time()))
        log = " ".join((timenow, self.name, self.mode, self.freq, self.smeter, self.preamp, self.atten, "\r\n"))
        self.f.write(log)
        self.f.close()
 
 
 
def main():
    #loops = 0
    while True:
        try:
            nRadio1.get_all()
        except:
            pass
        try:
            nRadio2.get_all()
        except:
            pass
        try:
            nRadio3.get_all()
        except:
            pass
        try:
            nRadio4.get_all()
        except:
            pass
        d1.up_dash()
        #loops += 1
        #print threading.currentThread().name, loops
        time.sleep(1)
 
def close():
    n1.connect("quit")
    root.destroy()
 
 
if __name__ == "__main__":
    version = "v0.3"
    lock = threading.Lock()
    root = Tk()
    #w, h = root.winfo_screenwidth(), root.winfo_screenheight()
    #root.geometry("%dx%d+0+0" % (w, h))
    root.geometry("550x600+0+0")
    root.title("GM4SLV Radio Controller " + version)
    #root.withdraw()
    n1 = Network()
    #radio_count = (n1.connect("count"))
    #radio_count = 3
 
    radio_count = int(n1.connect("count"))
    if radio_count > 0:
        nRadio1 = nRadio(root, "1")
    if radio_count > 1:
        nRadio2 = nRadio(root, "2")
    if radio_count > 2:
        nRadio3 = nRadio(root, "3")
    if radio_count > 3:
        nRadio4 = nRadio(root, "4")
 
    d1 = Dash(root)
 
    #print threading.currentThread().name
    m1 = threading.Thread(target = main)
    m1.setDaemon(True)
    m1.start()
 
 
 
    root.mainloop()

Further Information

OFCOM

anonymous@undisclosed.example.com (Anonymous) — Tue, 30 Dec 2025 10:04:50 +0000

←Older Topics

OFCOM

Login to OFCOM online

https://ofcom.force.com/licensingcomlogin

Licence Details

GM4SLV Amateur Radio

Issued as G4SLV : March 1983

OFCOM Validation Details

Date	Licence Number	Validation Document	Next Due
01/07/2023	1-8513-93392/3	GM4SLV	July 2028

Business Radio Simple

OFCOM Licence Details

Surrendered 1 July 2023. Renewal was due and I couldn't justify the cost as the licence has not been used often enough in the 5 years since issue.

Date	Licence Number	Validation Document	Renewal Due
11/07/18	BR0005251	BRS Licence	31/07/23

Frequencies

Low Band	Mid Band	High Band	UHF 1
77.6875 MHz	164.0500 MHz	169.0875 MHz	449.3125 MHz
86.3375 MHz	164.0625 MHz	169.3125 MHz	449.4000 MHz
86.3500 MHz		173.0500 MHz	449.4750 MHz
86.3625 MHz		173.0625 MHz	458.7875 MHz
86.3750 MHz		173.0875 MHz	458.8000 MHz
			458.8125 MHz
			458.8250 MHz

— John Pumford-Green 01/06/22 13:13

Page last updated: 30/12/25 10:04 GMT

radio

Raspberry Pi Farm

anonymous@undisclosed.example.com (Anonymous) — Sun, 04 Jan 2026 07:37:01 +0000

←Older Topics

Raspberry Pi Farm

I seem to collect Raspberry Pis - not sure if they breed when you put them away in a box while waiting for a new project….

Gone but not forgotten

Pi number	Main Use	Callsign	Hardware interface	Main software	Frequency
VHF / HF X-Gate Project	X-Gate		Homebrew X-gate	Python xgate	HF ⇔ VHF (QRT at present)
DMR HotSpots	Pi-Star DMR Hotspot	235442901	DVMega	Pi-Star	438.800MHz
GM4SLV Allstar	AllStar Gateway	GM4SLV	CM108 soundcard FT-8900	Asterisk	430.050MHz
VHF APRS iGate	APRS iGate	GM4SLV-2	TNC-Pi	aprx or dixprs	144.800MHz
svxlink hotspot	SVXLink Gateway	GM4SLV	CM108 soundcard IC-2E	SVXLink	144.600MHz
Openweb SDR	Web SDR		Funcube Dongle Pro+	Openwebrx	HF Bands

—- John Pumford-Green Wed May 4 10:23:56 2022

Page Updated : 04/01/26 07:37 GMT

radio, pi, linux

Openweb SDR

anonymous@undisclosed.example.com (Anonymous) — Sun, 04 Jan 2026 07:50:09 +0000

←Older Topics

Openweb SDR

Hardware

Platform	Raspberry Pi
SDR	Funcube Dongle Pro+
Antenna	Wellbrook ALA1530 Loop

Network Access

Accessible as http://gm4slv.plus.com:8073

and listed at Receiverbook too….

Older Topics

anonymous@undisclosed.example.com (Anonymous) — Tue, 30 Dec 2025 09:55:07 +0000

←Radio

Older Topics

Old Projects

Things listed here have been shelved, for the time being, and are no longer in use or being worked on. The pages here are for information and to help should I want to re-visit any of the subjects/projects. Several links to other pages and images may no longer work….

— John Pumford-Green 26/04/23 13:41

Further Information

svxlink hotspot

anonymous@undisclosed.example.com (Anonymous) — Tue, 30 Dec 2025 09:55:07 +0000

←Older Topics

svxlink hotspot

Hardware

Platform	Raspberry Pi
Software	SVXLink
Interface	CM108 soundcard
Radio	IC-2E

Background

Remote/portable personal node.

Similar setup to MB7AZE but without the connection to Echolink and monitoring fewer TalkGroups. I use TG 8 as a testing ground to keep my traffic off the rest of the system.

UPDATE — John Pumford-Green 03/06/22 17:57

Making it into a mobile hotspot/echolink node/SVXreflector/parrot….

Svx Mobile

Networking

Usual method of deployment is to use a small MiFi 4G router as an access point to let the Raspberry Pi reach the internet. When this MiFi router is in use the node is on an inaccessible network and I can't reach it to make changes or shut it down.

The answer is SSH Tunnels

I use a “Remote SSH Tunnel” to get access to it from my home LAN.

The idea is that the remote node makes an outgoing SSH connection, to a machine on my LAN. I have an open port in the router forwarded to an internal machine for SSH access when I'm away from home. This is straightforward, and the remote Pi can easily create a SSH session on to my PC in the shack.

ssh -p xxxxx my.external.host.name

Along with this incoming SSH connection from the remote node is also a request to set up a “Remote Tunnel” which makes the internal Shack PC set up a listening SSH port. After this is done, any connection to this new listening port will be sent backwards to the remote node, tunnelling within the existing SSH connection.

This tunnel will now accept incoming connections from machines inside my LAN and forward them to the remote node. I can now effectively SSH to the remote SVXLink node as if it were on my LAN in the shack.

The magic is all done in SSH, but to make it more robust I use a package called autossh which is a wrapper around SSH that monitors for loss of the tunnel connection and initiates a new connection automatically if it should fail for any reason.

Here is the script that fires it all off:

tunnel.sh

#!/bin/bash
 
autossh -M 20000 -N -T gm4slv_tunnel

Simple enough, but effective.

The gm4slv_tunnel is connection defined in .ssh/config as:

Host gm4slv_tunnel
	HostName gm4slv.plus.com
	User gm4slv
	Port xxxxx
	RemoteForward 4446 localhost:22
	RemoteForward 8080 192.168.0.1:80

This sets up a remote tunnel, listening on port 4446 of my shack PC that will be forwarded back up the SSH connection to the SVXLink Raspberry Pi. It also sets up a listening port 8080 which gives me http access to the 4G MiFi router at the remote site in case I want to shut it down or reboot it or whatever. I just browse to http://my_shack_pc:8080 and I'm actually logged into the MiFi router. Magic!

etc/ssh/sshd_conf needs to have Gateway Ports yes to allow the Shack PC to accept connections to its new remote listening ports (4446 for SSH and 8080 for HTTP) from other LAN machines, otherwise these ports would only be accessible to the Shack PC itself (on “localhost:4446” or “localhost:8080”)

To allow an unattended/automatic login from the remote Raspberry Pi to the Shack PC it's necessary to set up public_key authentication and to have a passphrase-less key on the Raspberry Pi.

Generate a public/private key pair on the Raspberry Pi with ssh-keygen and don't enter a passphrase before saving it in .ssh/id_rsa and .ssh/id_rsa.pub. Then transfer a copy of .ssh/id_rsa.pub from the Raspberry Pi to the Shack PC and put it in the authorized_keys2 file:

(on Raspberry Pi):

$ scp .ssh/id_rsa.pub user@shack_pc:

enter password etc. to do the initial scp transfer

(on Shack PC)

$ cat id_rsa.pub » .ssh/authorized_keys2

then any further SSH or SCP sessions from the Rasperry Pi to the Shack PC should occur without any need for passwords.

The Pi is now set up for automatic SSH Remote Tunnel - as long as the script is run at boot time:

Crontab is used to fire off the tunnel and start SVXLink @reboot

@reboot sleep 60 && sudo -u gm4slv /home/gm4slv/tunnel.sh 2>&1
@reboot sleep 30 && sudo -u gm4slv /home/gm4slv/svx_ref.sh >/dev/null 2>&1

To check the Tunnel is up you look at netstat -ntl on the Shack PC:

gm4slv@laptop:~ $ sudo netstat -ntlp
Active Internet connections (only servers)
Proto Recv-Q Send-Q Local Address           Foreign Address         State       PID/Program name
tcp        0      0 0.0.0.0:22              0.0.0.0:*               LISTEN      854/sshd: /usr/sbin
tcp        0      0 0.0.0.0:631             0.0.0.0:*               LISTEN      167630/cupsd
tcp        0      0 0.0.0.0:23              0.0.0.0:*               LISTEN      761/inetd
tcp        0      0 0.0.0.0:17500           0.0.0.0:*               LISTEN      62324/dropbox
tcp        0      0 0.0.0.0:445             0.0.0.0:*               LISTEN      1134/smbd
tcp        0      0 0.0.0.0:4446            0.0.0.0:*               LISTEN      2537/sshd: gm4slv
tcp        0      0 127.0.0.1:17600         0.0.0.0:*               LISTEN      62324/dropbox
tcp        0      0 0.0.0.0:20000           0.0.0.0:*               LISTEN      2537/sshd: gm4slv
tcp        0      0 0.0.0.0:514             0.0.0.0:*               LISTEN      647/rsyslogd
tcp        0      0 127.0.0.1:17603         0.0.0.0:*               LISTEN      62324/dropbox
tcp        0      0 127.0.0.1:2947          0.0.0.0:*               LISTEN      1/init
tcp        0      0 0.0.0.0:139             0.0.0.0:*               LISTEN      1134/smbd
tcp        0      0 0.0.0.0:27659           0.0.0.0:*               LISTEN      854/sshd: /usr/sbin
tcp        0      0 0.0.0.0:111             0.0.0.0:*               LISTEN      1/init
tcp        0      0 0.0.0.0:8080            0.0.0.0:*               LISTEN      2537/sshd: gm4slv

SSH is listening on ports 4446, 20000 and 8080 which proves it's up and running.

Port 20000 (and 20001) is used by autossh to handle its “is the tunnel still up” packets.

From the Shack PC I can ssh localhost -p 4446 and reach the remove Pi, hostname svx

gm4slv@laptop:~ $ ssh localhost -p 4446
Linux svx 5.15.32-v7+ #1538 SMP Thu Mar 31 19:38:48 BST 2022 armv7l
 
The programs included with the Debian GNU/Linux system are free software;
the exact distribution terms for each program are described in the
individual files in /usr/share/doc/*/copyright.
 
Debian GNU/Linux comes with ABSOLUTELY NO WARRANTY, to the extent
permitted by applicable law.
Last login: Wed May  4 14:28:06 2022 from 127.0.0.1
gm4slv@svx:~ $ who
gm4slv   pts/0        2022-05-04 14:35 (127.0.0.1)
gm4slv@svx:~ $ whoami
gm4slv
gm4slv@svx:~ $ ls
backup         greeting.wav   id_rsa.pub    id_svx.pub  node_info.json      svxlink          svxlink.log        svxlink-sounds-en_US-heather      svx_ref.sh
backup.tar     hosts          id_sdr.pub    log1.log    ReflectorLogic.tcl  svxlink.conf     svxlink_noel.conf  svxlink-sounds-en_US-heather.tar  tunnel.sh
git_backup.sh  id_laptop.pub  id_shack.pub  Logic.tcl   svx_el.sh           svxlink_el.conf  svxlink_ref.conf   svx_noel.sh
gm4slv@svx:~ $

John Pumford-Green Wed May 4 11:25:01 2022

Page Updated : 30/12/25 09:55 GMT

radio, pi, svxlink, linux, ssh

SVXLink : Install from source

anonymous@undisclosed.example.com (Anonymous) — Tue, 30 Dec 2025 09:55:07 +0000

←Older Topics

SVXLink : Install from source

70cm Simplex Gateway MB7AZE

SVXLink installed on Raspberry Pi - compiled from author's Git repository.

VOIP networking is achieved using the SVXReflector protocol connecting to a reflector server run by Chris G4NAB. This connects SVXLink systems together and provides “Talkgroups” in a similar manner to DMR. There is a web portal to observe the network in real time here:

http://svxportal-uk.ddns.net:81/index.php

install a current version of SVXLink

Get current Git version

git clone https://github.com/sm0svx/svxlink.git

Install Dependencies

A lot of dependencies are required, and not all of them are obvious from the INSTALL doc in the source, needing a few iterations of running cmake -DUSE_QT=no .. and then installing whatever package is highlighted as missing. This might need repeating several times to grab everything required, and to successfully complete the cmake phase.

Eventually everything is installed allowing the SVXlink package to be configured and built.

Configure

When configuring with cmake I used a command line switch -DUSE_QT=no to avoid QT dependencies and building QTel client :

cd svxlink/src
mkdir build
cd build
cmake -DUSE_QT=no ..
make
sudo make install
ldconfig

Update to latest version from GIT

cd svxlink
git pull
cd src/build
make
sudo make install
sudo ldconfig

Running Svlink

Start SVXLINK from script in home directory

svx_ref.sh

#!/bin/bash
 
CFG=/usr/local/etc/svxlink/svxlink.conf
LOG=/home/gm4slv/svxlink.log
 
sudo killall svxlink
sudo killall svxlink
sudo killall svxlink
 
sudo svxlink --daemon --logfile=$LOG --config=$CFG
exit 0

Probably need up to date sound files, with the additional items needed for reflector use:

https://github.com/sm0svx/svxlink-sounds-en_US-heather/releases

Configuration file

svxlink.conf

Crontab

to start at reboot

@reboot sleep 30 && sudo -u gm4slv /home/gm4slv/svx_ref.sh >/dev/null 2>&1

John Pumford-Green Tue May 3 20:56:09 2022#

Page Updated : 30/12/25 09:55 GMT

svxlink, mb7aze, radio

Svxlink Update (Dual Gateway)

anonymous@undisclosed.example.com (Anonymous) — Sun, 04 Jan 2026 07:51:37 +0000

←Older Topics

Svxlink Update (Dual Gateway)

— John Pumford-Green 02/06/22 19:56

To allow testing and comparison between 2m and 70cm I've got two SVXLink gateways running.

MB7AZE : 70cm : 430.050MHz @ 3W using FT-60
GM4SLV : 2m : 144.625MHz @ ??W using FT-8900

Both feed the same dual band colinear via a duplexer.

Both are connected to G4NAB's SVXReflector http://svxportal-uk.ddns.net:81/index.php

(UPDATE — John Pumford-Green 03/06/22 09:05)

I now realize that the DTMF problems were due to setting de-emphasis ON while actually using the audio feed from the FT-8900 for 1200 packet, which already has de-emphasis applied. So I was doing double-de-emphasis.

No wonder the tones were being mangled.

The ~~deleted~~ section below shows what steps I took to restore the tone detection in this situation, but this isn't actually necessary if the correct audio feed is used. The quick-fix is to turn SVXLink's de-emphasis OFF and restore the DTMF twist to its normal value. The better fix will be to re-wire the interface to use the flat 9600 baud audio and restore SVXLink's de-emphasis.

Set up audio levels MB7AZE SvxLink Config

Some tweaks were necessary to get GM4SLV to work - DTMF detection was flaky on certain digits when RX de-emphasis was enabled - which is necessary when using the 9600 packet flat-audio feed from the FT-8900. The issue seems to be the roll-off of the de-emphasis affecting the DTMF digits that use the widest spaced tone-pairs. There's are configuration items that can fix the problem: DTMF_MAX_FWD_TWIST and DTMF_MAX_REV_TWIST in the [Local Receiver] section. I had to set DTMF_MAX_FWD_TWIST to 15 to fix the problem.

The GM4SLV gateway now uses the FT-8900 via an unmodified CM108 sound dongle.

The PTT is from GPIO25 and SQL is from CTCSS.

I've swapped the Echolink service from MB7AZE-L to GM4SLV-L.

For the next period of testing MB7AZE will be lower profile, and the FT-60 handheld can not handle long periods of transmitting (e.g. when set on HUBNET or similar).

The start-up script that also sets up GPIO (for PTT):

#!/bin/bash
 
CFG=/usr/local/etc/svxlink/svxlink.conf
LOG=/home/gm4slv/svxlink.log
 
sudo killall svxlink
sudo killall svxlink
sudo killall svxlink
 
echo "25" > /sys/class/gpio/export
 
sleep 2
 
echo "out" > /sys/class/gpio/gpio25/direction
 
sudo svxlink --daemon --logfile=$LOG --config=$CFG
exit 0

crontab to start it at reboot

@reboot sleep 30 && sudo -u gm4slv /home/gm4slv/svx_ref.sh >/dev/null 2>&1

Here is the current ''svxlink.conf'' for GM4SLV :

 
 
[GLOBAL]
LOGICS=SimplexLogic,ReflectorLogic
CFG_DIR=svxlink.d
TIMESTAMP_FORMAT="%c"
CARD_SAMPLE_RATE=48000
LOCATION_INFO=LocationInfo
LINKS=LinkToReflector
 
[SimplexLogic]
TYPE=Simplex
RX=Rx1
TX=Tx1
MODULES=ModuleHelp,ModuleParrot,ModuleEchoLink	
CALLSIGN=GM4SLV
SHORT_IDENT_INTERVAL=0
SHORT_CW_ID_ENABLE=0
SHORT_VOICE_ID_ENABLE=0
CW_AMP=-20
CW_PITCH=1000
CW_WPM=20
LONG_IDENT_INTERVAL=0
LONG_VOICE_ID_ENABLE=0
LONG_CW_ID_ENABLE=0
EVENT_HANDLER=/usr/local/share/svxlink/events.tcl
DEFAULT_LANG=en_GB
RGR_SOUND_DELAY=0
TX_CTCSS=ALWAYS
MACROS=Macros
FX_GAIN_NORMAL=0
FX_GAIN_LOW=-12
ONLINE_CMD=998877
TIME_FORMAT=24
RGR_SOUND_ALWAYS=1
 
[RepeaterLogic]
 
[ReflectorLogic]
TYPE=Reflector
HOSTS=svxportal-uk.ddns.net
HOST_PORT=5300
CALLSIGN="change this"
AUTH_KEY="change this too"
JITTER_BUFFER_DELAY=0
DEFAULT_LANG=en_GB
DEFAULT_TG=0
MONITOR_TGS=8,91,235,2350,2351,23561
TG_SELECT_TIMEOUT=60
ANNOUNCE_REMOTE_MIN_INTERVAL=300
MUTE_FIRST_TX_LOC=0
MUTE_FIRST_TX_REM=0
TMP_MONITOR_TIMEOUT=3600
EVENT_HANDLER=/usr/local/share/svxlink/events.tcl
NODE_INFO_FILE=/usr/local/etc/svxlink/node_info.json
 
[LinkToReflector]
CONNECT_LOGICS=SimplexLogic:9:,ReflectorLogic
DEFAULT_ACTIVE=1
OPTIONS=DEFAULT_CONNECT,NO_DISCONNECT
 
[QsoRecorder]
REC_DIR=/var/spool/svxlink/qso_recorder
MAX_TIME=3600
SOFT_TIME=300
MAX_DIRSIZE=1024
 
[Voter]
 
[MultiTx]
 
[NetRx]
 
[NetTx]
 
[Rx1]
TYPE=Local
AUDIO_DEV=alsa:plughw:1,0
AUDIO_CHANNEL=0
SQL_DET=CTCSS
SQL_START_DELAY=0
SQL_DELAY=0
SQL_HANGTIME=200
VOX_FILTER_DEPTH=20
VOX_THRESH=1000
CTCSS_FQ=77.0
HID_DEVICE=/dev/hidraw0
HID_SQL_PIN=!VOL_DN
SIGLEV_SLOPE=1
SIGLEV_OFFSET=0
SIGLEV_OPEN_THRESH=30
SIGLEV_CLOSE_THRESH=10
DEEMPHASIS=0
PREAMP=0.0
DTMF_DEC_TYPE=INTERNAL
DTMF_MUTING=1
DTMF_HANGTIME=40
DTMF_SERIAL=/dev/ttyS0
#DTMF_MAX_FWD_TWIST=8
#DTMF_MAX_REV_TWIST=4
 
[WbRx1]
 
[Tx1]
TYPE=Local
AUDIO_DEV=alsa:plughw:1,0
AUDIO_CHANNEL=0
PTT_TYPE=GPIO
PTT_PIN=gpio25
HID_DEVICE=/dev/hidraw0
HID_PTT_PIN=GPIO3
PTT_HANGTIME=500
TIMEOUT=300
TX_DELAY=500
CTCSS_FQ=77.0
CTCSS_LEVEL=20
PREEMPHASIS=1
DTMF_TONE_LENGTH=100
DTMF_TONE_SPACING=50
DTMF_DIGIT_PWR=-15
MASTER_GAIN=0
 
[LocationInfo]
APRS_SERVER_LIST=euro.aprs2.net:14580
STATUS_SERVER_LIST=aprs.echolink.org:5199
LON_POSITION=1.25.30W
LAT_POSITION=60.17.18N
CALLSIGN=EL-GM4SLV
FREQUENCY=144.625
TX_POWER=2
ANTENNA_GAIN=3
ANTENNA_HEIGHT=5m
ANTENNA_DIR=-1
BEACON_INTERVAL=60
TONE=77
COMMENT=Connected to UK Svx Reflector
 
[Macros]
1=EchoLink:9999#
2=EchoLink:973498#
3=EchoLink:662666#
4=:91235#
5=:9123561#
9=:910#

overview of config

See MB7AZE SvxLink Config

Page Info

— John Pumford-Green 02/06/22 19:56

Page last updated: 04/01/26 07:51 GMT

echolink, svxlink, radio

SVXLink : DTMF commands

anonymous@undisclosed.example.com (Anonymous) — Tue, 30 Dec 2025 09:55:07 +0000

←Older Topics

SVXLink : DTMF commands

https://github.com/sm0svx/svxlink/wiki/SvxLinkServerUserDocs

`*#`	System Status
`0#`	Help Module
`1#`	Parrot Module
`2#`	Echolink Module

`#`	De-activate module

Echolink Module

`<node number>#`	Connect to `<node number>`
`0#`	Play the help message
`1#`	List all connected stations
`2#`	Play local EchoLink node id
`31#`	Connect to a random link or repeater
`32#`	Connect to a random conference
`4#`	Reconnect to the last disconnected station
`50#`	Deactivate listen only mode
`51#`	Activate listen only mode
`6*#`	Use the connect by callsign feature
`#`	If connected = Disconnect, otherwise = Deactivate Echolink module

https://github.com/sm0svx/svxlink/wiki/ModuleEchoLink

Macros

`D1#`	Echolink	9999	Echotest
`D2#`	Echolink	973498	M0HOY-L	Hubnet
`D3#`	Echolink	662666	M0JKT-L	FreeStar
`D4#`	SVX	TG 235	UK Call
`D5#`	SVX	TG 23561	NE Chat
`D9#`	SVX	TG 0	Disconnect

SVXReflector Commands

`9*#`	Talk group status
`90#`	Not implemented yet. Reserved for help.
`91#`	Select previous talk group
`91<TG>#`	Select talk group <TG>
`92#`	QSY all active nodes to a talk group assigned by the reflector server
`92<TG>#`	QSY all active nodes to <TG>
`93#`	Follow last QSY
`94<TG>#`	Temporarily monitor <TG> (60 minutes)

svxlink@groups.io

Page Updated: 30/12/25 09:55 GMT

radio, svxlink

Svx Mobile

anonymous@undisclosed.example.com (Anonymous) — Sun, 04 Jan 2026 07:40:23 +0000

←Older Topics

Svx Mobile

Plan…

To make a mobile hotspot that will provide access to SVXReflector and Echolink as well as a handy single-frequency parrot repeater.

Hardware

Remains the same as the previous portable hotspot

Raspberry Pi
CM108 soundcard
IC-2E
MiFi router

It will be installed in my vehicle, which also has a TM-D710 for APRS and voice comms.

Add 5V regulator to power R.Pi from 12VDC
Put everything in a grab-box for portability

SVXLink Config

Echolink Module enabled (switchable via DTMF commands)
Echolink using a Java JRE and Echolink Proxy running on my VPS machine to enable incoming connections.

Logic.tcl additions for switching EL on/off

Added to <…>/events.d/local/Logic.tcl

 # Example: Custom command executed when DTMF 97 is received
  if {$cmd == "97"} {
    puts "Executing external command"
    playMsg "Core" "online"
    exec /home/gm4slv/svx_ref_el.sh &
    return 1
  }

  # Example: Custom command executed when DTMF 98 is received
  if {$cmd == "98"} {
    puts "Executing external command"
    playMsg "Core" "online"
    exec /home/gm4slv/svx_ref_noel.sh &
    return 1
  }
  # Example: Custom command executed when DTMF 99 is received
  if {$cmd == "99"} {
    puts "Executing external command"
    playMsg "Core" "online"
    exec /home/gm4slv/svx_noref_el.sh &
    return 1
  }

DTMF command 97# will cause svxlink to restart with Reflector connected, Echolink connected.
DTMF command 98# will cause svxlink to restart with Reflector connected, Echolink disabled.
DTMF command 99# will cause svxlink to restart with Reflector disabled, Echolink connected.

Start with Reflector ON and Echolink ON

97#

#!/bin/bash
 
CFG=/usr/local/etc/svxlink/svxlink_ref_el.conf
LOG=/home/gm4slv/svxlink.log
 
sudo killall svxlink
sudo killall svxlink
sudo killall svxlink
 
echo "25" > /sys/class/gpio/export
 
sleep 2
 
echo "out" > /sys/class/gpio/gpio25/direction
 
sudo svxlink --daemon --logfile=$LOG --config=$CFG
exit 0

Start with Reflector ON, Echolink Disabled

98#

#!/bin/bash
 
CFG=/usr/local/etc/svxlink/svxlink_ref_noel.conf
LOG=/home/gm4slv/svxlink.log
 
sudo killall svxlink
sudo killall svxlink
sudo killall svxlink
 
echo "25" > /sys/class/gpio/export
 
sleep 2
 
echo "out" > /sys/class/gpio/gpio25/direction
 
sudo svxlink --daemon --logfile=$LOG --config=$CFG
exit 0

Start with Reflector disabled, Echolink ON

99#

#!/bin/bash
 
CFG=/usr/local/etc/svxlink/svxlink_noref_el.conf
LOG=/home/gm4slv/svxlink.log
 
sudo killall svxlink
sudo killall svxlink
sudo killall svxlink
 
echo "25" > /sys/class/gpio/export
 
sleep 2
 
echo "out" > /sys/class/gpio/gpio25/direction
 
sudo svxlink --daemon --logfile=$LOG --config=$CFG
exit 0

It's probable that I'll configure the initial start @reboot to be with Reflector and Echolink

crontab → @reboot sleep 30 && sudo -u gm4slv /home/gm4slv/svx_ref_el.sh >/dev/null 2>&1

Using a PROXY server for connecting to Echolink, and be able to accept incoming Echolink connections, is necessary because it's not possible to control external firewall/port forwarding when using the MiFi 4G router for internet access.

Connecting direct to Echolink, without the proxy still allows outgoing Echolink connections to be made

Rather than relying on other PUBLIC Echolink proxies I though it would be wise to install and run a proxy server myself, on the VPS machine. It turned out to be easier than I thought and the basic steps are here

Parrot

I imagine being able to use the Parrot feature as a temporary single-frequency repeater perhaps for emergency use?

I'll experiment….

Page Info

— John Pumford-Green 03/06/22 17:59

Page last updated: 04/01/26 07:40 GMT

VHF / HF X-Gate Project

anonymous@undisclosed.example.com (Anonymous) — Sun, 04 Jan 2026 07:41:15 +0000

←Older Topics

VHF / HF X-Gate Project

my interpretation of the Barrett Radio 2062 Crossgate
HF port has syllabic squelch for better detection of SSB speech signals
VHF port has DTMF decoder for control commands
Raspberry Pi running a Python application handles control of HF radio via NMEA and of talkthrough functions etc. via GPIO
DTMF commands for control of Icom IC-M710 : Frequency, Mode (USB/LSB/AM), Power (20W/50W/100W), ATU Tune cycle
DTMF control of talk-through (HF transceive) or monitor (HF Receive) functions
Morse Code (CW) revertives over VHF port to read back parameters such as HF radio frequency, mode, power etc.
Built in Webserver for status display http://gm4slv.plus.com:42109/
Python code is ~~here on GitHub~~
X-Gate will run in dumb talkthrough mode if Raspberry Pi controller is removed
Operation of uplink port in full duplex on VHF and UHF is possible, to enable access regardless of state of talkthrough.

DTMF Commands

Function	Command	Comment
Log on	0#
Log off	99#
Set Frequency	*1fffff#	ffff.f kHz
Set Channel	*1xxxx#	mem chan xxxx
Set Mode USB	*21#
Set Mode LSB	*22#
Set Mode AM	*23#
Set TX Power Low	*41#	15W
Set TX Power Medium	*42#	50W
Set TX Power High	*43#	100W
QSY Down 0.5kHz	*5#
QSY Up 0.5kHz	*6#
Monitor HF	*7#	5 seconds
Monitor HF	*7xx#	xx seconds
Monitor HF	71#	(Duplex Mode) Continuous Monitor ON
Monitor HF	70#	(Duplex Mode) Continuous Monitor OFF
ATU Tune	*8#
Status	*9#
S-Meter	*91#
Full Status	*93#
Talkthrough ON	*01#
Talkthrough OFF	*00#

Further Information

Barrett 2062 Brochure	2062_cross_gate_brochure_english.pdf
Barrett 2062 Manual	barrett-2062-hf-vhf-uhf-crossgate-operation-manual-12.pdf

new developments…. HF-VHF Xgate 2024

—- John Pumford-Green Wed May 4 17:22:37 2022

Page Updated : 04/01/26 07:41 GMT

radio, hf, vhf, python, pi, xgate

Yaddnet Migration

anonymous@undisclosed.example.com (Anonymous) — Tue, 30 Dec 2025 09:55:07 +0000

←Older Topics

Yaddnet Migration

My http://www.yaddnet.org DSC database originally ran on various machines in my shack at home. It was migrated to a server donated for the purpose - located in Las Vegas, in 2019. This document records the steps needed to transfer everything and get it running on the new Virtual Private Server. In case it ever needs doing again in future this will help jog my memory of what's involved.

Moving YaddNet to a Virtual Server in the Clouds

Created Thursday 24 October 2019

Server IP: 64.235.39.127

Create SQL database

UPDATE 13/04/24

MIGRATING TO A NEW UBUNTU 20.4 VPS REQUIRED THE FOLLOWING

https://ostechnix.com/how-to-reset-root-password-in-mysql-8-on-ubuntu-linux/

The original Process

1) sort out passwordless root access to MySQL

add skip-grant-tables to end of config file:

(such as….)

/etc/mysql/mysql.conf.d/mysqld.cnf

restart mysqld

$ mysql -u root
mysql>FLUSH PRIVILEGES;
mysql>ALTER USER 'root'@'localhost' IDENTIFIED WITH mysql_native_password BY '';
mysql>quit;

remove skip-grant-tables from /etc/mysql/mysql.conf.d/mysqld.cnf

restart mysqld

2) create blank/empty yadd database

$ mysql -u root

mysql> create database yadd;
mysql> quit;

2a) scp migrate tarfile to remote server

and wait….

2b) untar migrate tarfile

3) use saved schema file to create the tables:

$ mysql -u root yadd < schema.sql

4) import the full database backup:

$ mysql -u root yadd < yadd_xxxxx.sql

and wait……. and wait……

5) test all the data is there…!

Create Web site

6) extract yaddnet files from tarball

7) extract html files into /var/www/

8) permissions/ownership of /var/www/html ? Not Needed

9) apache “sites-enabled” - change virtual server's port? Not needed

Configure auto-start of Input servers

10) /etc/rc.local command to start tmux session

sleep 60; su USER -c /home/USER/yaddnet/tmux_yadd.sh &

11) start tmux session and see if it's working…

12) fire some test packets at it from uCoastTester.py

13) crontab entries

15 */4 * * * /home/USER/yaddnet/purge_err.sh > /dev/null 
* * * * * /home/USER/yaddnet/purge_tmp.sh > /dev/null

Tweaks

14) Character encoding for pages

edit /etc/php/7.2/apache2/php.ini

change default_charset from UTF-8 to ISO-8859-1:

default_charset = "ISO-8859-1"

This renders “degree” signs etc. on web pages correctly.

15) mysql config

add to /etc/mysql/mysql.conf.d/mysqld.conf

sql_mode = "STRICT_TRANS_TABLES,ERROR_FOR_DIVISION_BY_ZERO,NO_AUTO_CREATE_USER,NO_ENGINE_SUBSTITUTION"

restart mysql

This (among other things) allows the group-by queries to work.

16) Open firewalld UDP port 4530 for DSCDecoder (and close unneeded port 9999)

firewall-cmd --permanent --service=yadd --add-port=4530/udp

firewall-cmd --permanent --service=yadd --remove-port=9999/udp

firewall-cmd --complete-reload

Firewall Config - note 21/5/22

While creating this Wiki page, from a previous note in ZimWiki, I wondered about the firewall config, as it appears I didn't explicitly open UDP/50666 for YaDD's traffic, but I added udp/4530 for DSCDecoder.

Looking at /etc/firewalld/services/yadd.xml I see:

<?xml version="1.0" encoding="utf-8"?>
<service>
  <short>yadd</short>
  <description>YaDD Service</description>
  <port port="50666" protocol="udp"/>
  <port port="4530" protocol="udp"/>
</service>

so 50666 must have been added when the VPS was built (not my me). I guess I asked for it when the offer to provide the VPS was made, but forgot about DSCDecoder until later.

Get Domain Name

16) Buy domain yaddnet.org from “fasthosts.co.uk” and set DNS record to point host www.yaddnet.org to the new server IP address

£10.79 per year, auto-renew via PayPal.

UPDATE 18/11/19

Received an email from kb7ypf@yahoo.com:

“I have been using yaDD 1.7.1 monitoring and logging GMDSS signals. I have been using it for about two weeks. This morning when I started yaDD it worked great, as usual, however, when I went to the web and accessed the message logging page, I got this message: “Failed to connect to MySQL: Access denied for user 'root'@localhost' …….”

Unattended-Upgrade breaks MySQL

I confirmed the same symptoms…

but it was working this morning?!

SSH'd into the server and couldn't access mysql from the commandline, either, same error.

This reminded me of the behaviour of a “stock” mysql server before doing the steps in 1) above.

Found an entry in /var/log/apt/history.log from 06:25 PST (14:25 UTC)

Start-Date: 2019-11-18  06:25:08
Commandline: /usr/bin/unattended-upgrade
Upgrade: mysql-server-5.7:amd64 (5.7.27-0ubuntu0.18.04.1, 5.7.28-0ubuntu0.18.04.4), mysql-server-core-5.7:amd64 (5.7.27-0ubuntu0.18.04.1, 5.7.28-0ubuntu0.18.04.4)
End-Date: 2019-11-18  06:25:29

Looks like “unattended-upgrade” has upgraded mysql, and also reset the normal permissions/privileges. Bloody Hell!

stop mysql
edit mysqld.cnf to add “skip-grant-tables”
start mysql
log in to mysql “mysql -u root”

$ mysql -u root
mysql>FLUSH PRIVILEGES;
mysql>ALTER USER 'root'@'localhost' IDENTIFIED WITH mysql_native_password BY '';
mysql>quit;

stop mysql
remove “skip-grant-tables” from mysqd.cnf
start mysql
test…

looks like we lost about 1 hour of DSC loggings while the SQL server refused to talk to us, from 14:25 UTC until ~15:30 UTC when I got it running normally again.

…..and relax!

going forward

Have 2 choices - remove unattended-upgrades package and lose all automatic security upgrades OR configure unattended-upgrades to blacklist mysql-server from upgrades.

https://wiki.debian.org/UnattendedUpgrades and https://help.ubuntu.com/community/AutomaticSecurityUpdates

has some helpful info… found where to blacklist individual packages….

service unattended-upgrades stop

edit /etc/apt/apt.conf.d/50unattended-upgrades to blacklist mysql

	// List of packages to not update (regexp are supported)
	Unattended-Upgrade::Package-Blacklist {
			"mysql-server";
			"mysql-server-5.7";
			"mysql-server-core-5.7";
	};

service unattended-upgrades start

check it's running:

gm4slv@lasvegas-nv-datacenter:~$ apt-config dump APT::Periodic::Unattended-Upgrade

APT::Periodic::Unattended-Upgrade "1";

hopefully that will sort it?

Page Updated: 30/12/25 09:55 GMT

yaddnet, mysql, apache, linux

John's Vademecum - public:miscellany:radio:dormant

4m FM

4m FM

Background

Frequencies

SIC Roads PMR

4m Amateur Band

Business Radio Simple Light

Further Information

10m/12m

10m/12m

Equipment

Antenna

Propagation Data

10m WSPR Spots vs SFI & K indices

Further Information

MB7AZE AllStar Config

MB7AZE AllStar Config

all /etc/asterisk files

Main Config files

echolink.conf

manager.conf

rpt.conf

simpleusb.conf

simpleusb_tune_usb_48148.conf

crontab

allmon2 and supermon web files

allmon2

supermon

VHF APRS iGate

VHF APRS iGate

Hardware

Software

Update May 2025

Additional info

Hardware

See Also

MB7AZE SvxLink

MB7AZE SvxLink

Hardware

Network

Further Reading

See Also

CCIR493 Selcall

CCIR493 Selcall

Background

Basic details

Jenal SC2 Mic

Scanning

Previous Selcall Activity

Selcall Activity 2023

Further Information

Code snippets

DMR HotSpots

DMR HotSpots

Update 3/10/22

See Also

Fldigi Parrot

Fldigi Parrot

Experimental HF Digi-mode message-relay system using Fldigi and Python

Work in progress

Monitoring

Software

tmux script

rx_buf.py

parrot_flmsg.py

flfn.py

Parrot Operation

Basic overview

Further examples of operation

GM4SLV Allstar

GM4SLV Allstar

Hardware

Config

Commands

Courtesy Tones

Echolink

Further Information

HF APRS Base Station

HF APRS Base Station