From 8109155280842fa392ead46c1bec03c5c359b656 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Thu, 8 Feb 2018 21:33:41 +0000 Subject: [PATCH] Implement "CQ n MyCall", to be used by Fox to invite calls from selected call area. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8485 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- doc/user_guide/en/controls-functions-center.adoc | 3 ++- lib/packjt.f90 | 5 +++++ 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/doc/user_guide/en/controls-functions-center.adoc b/doc/user_guide/en/controls-functions-center.adoc index db437cb23..4c8c360e1 100644 --- a/doc/user_guide/en/controls-functions-center.adoc +++ b/doc/user_guide/en/controls-functions-center.adoc @@ -56,7 +56,8 @@ and reception in ISCAT, MSK144, and the fast JT9 modes. MSK144 and the fast JT9 submodes you can activate the spinner control *Tx CQ nnn* by checking the box to its right. The program will then generate something like `CQ nnn K1ABC FN42` for your CQ message, where -`nnn` is the kHz portion of your current operating frequency. Your CQ +`nnn` is the kHz portion of your current operating frequency, +in the range 010 to 999. Your CQ message *Tx6* will then be transmitted at the calling frequency selected in the *Tx CQ nnn* spinner control. All other messages will be transmitted at your current operating frequency. On reception, diff --git a/lib/packjt.f90 b/lib/packjt.f90 index d7d90fb46..ad05b573b 100644 --- a/lib/packjt.f90 +++ b/lib/packjt.f90 @@ -429,6 +429,8 @@ subroutine packbits(dbits,nsymd,m0,sym) end if call fmtmsg(msg,iz) + if(msg(1:3).eq.'CQ ' .and. msg(4:4).ge.'0' .and. msg(4:4).le.'9' & + .and. msg(5:5).eq.' ') msg='CQ 00'//msg(4:) if(msg(1:6).eq.'CQ DX ') msg(3:3)='9' if(msg(1:3).eq.'CQ ' .and. & @@ -658,6 +660,9 @@ subroutine packbits(dbits,nsymd,m0,sym) if(bcontest) call fix_contest_msg(mygrid,msg) + if(msg(1:5).eq.'CQ 00' .and. msg(6:6).ge.'0' .and. & + msg(6:6).le.'9') msg='CQ '//msg(6:) + return end subroutine unpackmsg