72 lines
2.5 KiB
Plaintext
72 lines
2.5 KiB
Plaintext
|
Auto-Sequencing algorithm for DXpedition station:
|
|||
|
|
|
|||
|
|
Start:
|
|||
|
|
CQMsg = "CQ KH1DX" (or "CQ UP KH1DX", "CQ 116 KH1DX", etc.)
|
|||
|
|
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
|
|||
|
|
J = index of a reply from current QCALL # RxMsg[J] = "KH1DX QCALL R<rpt>"
|
|||
|
|
|
|||
|
|
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:
|
|||
|
|
TxMsg = "KH1DX MyCall"
|
|||
|
|
InQSO = false
|
|||
|
|
|
|||
|
|
Transmit:
|
|||
|
|
TX # (... takes 13.6 s)
|
|||
|
|
go to Receive
|
|||
|
|
|
|||
|
|
Receive:
|
|||
|
|
RX # (... takes ~14 s)
|
|||
|
|
if(RxMsg[i] contains "MyCall <rpt>")
|
|||
|
|
InQSO = true
|
|||
|
|
TxMsg = "KH1DX MyCall R<rpt>"
|
|||
|
|
go to Transmit
|
|||
|
|
|
|||
|
|
if(RxMsg[i] contains "<rpt>")
|
|||
|
|
TxEnable = false
|
|||
|
|
go to Receive
|
|||
|
|
|
|||
|
|
if(RxMsg[i] contains "CQ KH1DX")
|
|||
|
|
TxEnable = true
|
|||
|
|
go to Transmit
|