2017-08-24 13:38:47 +00:00
|
|
|
|
Auto-Sequencing algorithm for DXpedition station:
|
|
|
|
|
|
|
|
|
|
|
|
Start:
|
2017-09-25 19:21:25 +00:00
|
|
|
|
CQMsg = "CQ KH1DX" (or "CQ UP KH1DX", "CQ 116 KH1DX", etc.)
|
2017-08-24 13:38:47 +00:00
|
|
|
|
TxMsg = CQMsg
|
|
|
|
|
|
Ntry = 0
|
|
|
|
|
|
QCALL = "" # Callsign of current QSO partner
|
|
|
|
|
|
go to Transmit
|
|
|
|
|
|
|
|
|
|
|
|
Transmit:
|
|
|
|
|
|
TX # (... takes 13.6 s)
|
|
|
|
|
|
go to Receive
|
|
|
|
|
|
|
|
|
|
|
|
Receive:
|
|
|
|
|
|
RX # (... takes ~14 s)
|
|
|
|
|
|
N = number of decodes # RxMsg[i], i=1,N
|
|
|
|
|
|
if(N == 0)
|
|
|
|
|
|
go to Transmit
|
2017-09-25 19:21:25 +00:00
|
|
|
|
J = index of a reply from current QCALL # RxMsg[J] = "KH1DX QCALL R<rpt>"
|
2017-08-24 13:38:47 +00:00
|
|
|
|
|
|
|
|
|
|
if(QCALL == "") # No QSO in progress
|
|
|
|
|
|
Select new QCALL # Op chooses a caller
|
|
|
|
|
|
if(QCALL == "")
|
|
|
|
|
|
TxMsg = CQMsg # No callers, we'll CQ again
|
|
|
|
|
|
else # QSO in progress
|
|
|
|
|
|
if(J >= 1) # Expected message was received
|
|
|
|
|
|
log the QSO with QCALL
|
|
|
|
|
|
QCALL = ""
|
|
|
|
|
|
Select new QCALL # Op chooses a new caller
|
|
|
|
|
|
if(QCALL != "")
|
|
|
|
|
|
TxMsg = "73 NOW QCALL <rpt>" # Start a new QSO
|
|
|
|
|
|
else
|
|
|
|
|
|
TxMsg = "73 " + CQMsg # No callers, we'll CQ again
|
|
|
|
|
|
else
|
|
|
|
|
|
Ntry = Ntry + 1 # Expected msg not received
|
|
|
|
|
|
if(Ntry <= NtryMax)
|
|
|
|
|
|
go to Transmit # Ask for a repeat
|
|
|
|
|
|
else
|
|
|
|
|
|
QCALL = "" # Max tries exceeded, abort this QSO
|
|
|
|
|
|
Select new QCALL # Choose a new caller
|
|
|
|
|
|
if(QCALL != "")
|
|
|
|
|
|
TxMsg = "NIL NOW QCALL <rpt>" # Start a new QSO
|
|
|
|
|
|
else
|
|
|
|
|
|
TxMsg = "NIL " + CQMSG # No callers, we'll CQ again
|
|
|
|
|
|
go to Transmit
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Auto-Sequencing algorithm for those calling the DXpedition:
|
|
|
|
|
|
|
|
|
|
|
|
Start:
|
2017-09-25 19:21:25 +00:00
|
|
|
|
TxMsg = "KH1DX MyCall"
|
2017-08-24 13:38:47 +00:00
|
|
|
|
InQSO = false
|
|
|
|
|
|
|
|
|
|
|
|
Transmit:
|
|
|
|
|
|
TX # (... takes 13.6 s)
|
|
|
|
|
|
go to Receive
|
|
|
|
|
|
|
|
|
|
|
|
Receive:
|
|
|
|
|
|
RX # (... takes ~14 s)
|
|
|
|
|
|
if(RxMsg[i] contains "MyCall <rpt>")
|
|
|
|
|
|
InQSO = true
|
2017-09-25 19:21:25 +00:00
|
|
|
|
TxMsg = "KH1DX MyCall R<rpt>"
|
2017-08-24 13:38:47 +00:00
|
|
|
|
go to Transmit
|
|
|
|
|
|
|
|
|
|
|
|
if(RxMsg[i] contains "<rpt>")
|
|
|
|
|
|
TxEnable = false
|
|
|
|
|
|
go to Receive
|
|
|
|
|
|
|
2017-09-25 19:21:25 +00:00
|
|
|
|
if(RxMsg[i] contains "CQ KH1DX")
|
2017-08-24 13:38:47 +00:00
|
|
|
|
TxEnable = true
|
|
|
|
|
|
go to Transmit
|
