w4kek
/
WSJT-X
mirror of https://github.com/saitohirga/WSJT-X.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Correct a flaw that caused some i3=4 messages to be encoded as free text.

This commit is contained in:
Joe Taylor 2021-08-02 13:24:33 -04:00
parent 5d78cb0c97
commit 11d874ec37
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/77bit/messages.txt
View File

@ -94,3 +94,7 @@ KA1ABC/VEX 37
<W3CCX/P> <K1JT> 590001 FN20QI
<W3CCX/P> <K1JT/P> 590001 FN20QI
<W3CCX/QRP> <K1JT/QRO> 590001 FN20QI
CQ OE21FTDMC
K9AN K1JT R-
K9AN K1JT R+
K1AN K1JT WXY

2
lib/77bit/packjt77.f90
View File

@ -1274,9 +1274,9 @@ subroutine pack77_4(nwords,w,i3,n3,c77)
if(call_1(1:1).eq.'<') call_1=w(1)(2:len(trim(w(1)))-1)
call_2=w(2)
if(call_2(1:1).eq.'<') call_2=w(2)(2:len(trim(w(2)))-1)
if(call_1(1:1).ne.'<' .and. call_2(1:1).ne.'<') goto 900
call chkcall(call_1,bcall_1,ok1)
call chkcall(call_2,bcall_2,ok2)
if(call_1.eq.bcall_1 .and. call_2.eq.bcall_2 .and. ok1 .and. ok2) go to 900
icq=0
if(trim(w(1)).eq.'CQ' .or. (ok1.and.ok2)) then
if(trim(w(1)).eq.'CQ' .and. len(trim(w(2))).le.4) go to 900