mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-03-21 11:38:34 -04:00
Do the NQU1RKS patch for SF message type i3=3, the CQ message.
This commit is contained in:
parent
f01239c000
commit
9f7a6a4988
@ -8,7 +8,7 @@ subroutine sfox_pack(line,ckey,bMoreCQs,bSendMsg,freeTextMsg,xin)
|
||||
integer*8 n47,n58,now
|
||||
integer*1 xin(0:49) !Packed message as 7-bit symbols
|
||||
logical*1 bMoreCQs,bSendMsg
|
||||
logical text
|
||||
logical text,allz
|
||||
character*120 line !SuperFox message pieces
|
||||
character*10 ckey
|
||||
character*26 freeTextMsg
|
||||
@ -146,6 +146,19 @@ subroutine sfox_pack(line,ckey,bMoreCQs,bSendMsg,freeTextMsg,xin)
|
||||
read(msgbits(i0:i0+27),'(b28)') n28
|
||||
if(n28.eq.0) write(msgbits(i0:i0+27),'(b28.28)') NQU1RKS
|
||||
enddo
|
||||
else if(i3.eq.3) then
|
||||
allz=.true.
|
||||
do i=0,6
|
||||
i0=i*32 + 74
|
||||
read(msgbits(i0:i0+31),'(b32)') n32
|
||||
if(n32.ne.0) allz=.false.
|
||||
enddo
|
||||
if(allz) then
|
||||
do i=0,6
|
||||
i0=i*32 + 74
|
||||
write(msgbits(i0:i0+31),'(b32.32)') NQU1RKS
|
||||
enddo
|
||||
endif
|
||||
endif
|
||||
|
||||
read(msgbits,1004) xin(0:46)
|
||||
|
@ -54,6 +54,8 @@ subroutine sfox_unpack(nutc,x,nsnr,f0,dt0,foxcall,notp)
|
||||
call unpackgrid(n15,grid4)
|
||||
msg(1)='CQ '//trim(foxcall)//' '//grid4
|
||||
write(*,1100) nutc,nsnr,dt0,nint(f0),trim(msg(1))
|
||||
read(msgbits(74:105),'(b32)') n32
|
||||
if(n32.eq.NQU1RKS) go to 100
|
||||
call unpacktext77(msgbits(74:144),freeTextMsg(1:13))
|
||||
call unpacktext77(msgbits(145:215),freeTextMsg(14:26))
|
||||
do i=26,1,-1
|
||||
|
Loading…
Reference in New Issue
Block a user