Do the NQU1RKS patch for SF message type i3=3, the CQ message.

This commit is contained in:
Joe Taylor 2024-09-25 11:20:45 -04:00
parent f01239c000
commit 9f7a6a4988
2 changed files with 16 additions and 1 deletions

View File

@ -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)

View File

@ -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