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
This commit is contained in:
Joe Taylor 2018-02-08 21:33:41 +00:00
parent cef0ba16e5
commit 8109155280
2 changed files with 7 additions and 1 deletions

View File

@ -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 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 *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 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 message *Tx6* will then be transmitted at the calling frequency
selected in the *Tx CQ nnn* spinner control. All other messages will selected in the *Tx CQ nnn* spinner control. All other messages will
be transmitted at your current operating frequency. On reception, be transmitted at your current operating frequency. On reception,

View File

@ -429,6 +429,8 @@ subroutine packbits(dbits,nsymd,m0,sym)
end if end if
call fmtmsg(msg,iz) 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:6).eq.'CQ DX ') msg(3:3)='9'
if(msg(1:3).eq.'CQ ' .and. & 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(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 return
end subroutine unpackmsg end subroutine unpackmsg