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
|