2016-12-17 21:18:47 +00:00
|
|
|
subroutine mskrtd(id2,nutc0,tsec,ntol,nrxfreq,ndepth,mycall,mygrid,hiscall, &
|
2017-02-21 02:13:13 +00:00
|
|
|
bshmsg,bcontest,btrain,pcoeffs,bswl,datadir,line)
|
2016-09-20 16:35:00 +00:00
|
|
|
|
|
|
|
|
! Real-time decoder for MSK144.
|
|
|
|
|
! Analysis block size = NZ = 7168 samples, t_block = 0.597333 s
|
|
|
|
|
! Called from hspec() at half-block increments, about 0.3 s
|
|
|
|
|
|
|
|
|
|
parameter (NZ=7168) !Block size
|
|
|
|
|
parameter (NSPM=864) !Number of samples per message frame
|
|
|
|
|
parameter (NFFT1=8192) !FFT size for making analytic signal
|
2016-09-22 19:42:05 +00:00
|
|
|
parameter (NPATTERNS=4) !Number of frame averaging patterns to try
|
2016-12-31 02:05:51 +00:00
|
|
|
parameter (NRECENT=10) !Number of recent calls to remember
|
2017-01-05 03:35:33 +00:00
|
|
|
parameter (NSHMEM=50) !Number of recent SWL messages to remember
|
2016-09-20 16:35:00 +00:00
|
|
|
|
2017-07-10 00:01:20 +00:00
|
|
|
character*4 decsym !"&" for mskspd or "^" for long averages
|
2016-09-20 16:35:00 +00:00
|
|
|
character*22 msgreceived !Decoded message
|
2017-01-05 02:26:55 +00:00
|
|
|
character*22 msglast,msglastswl !Used for dupechecking
|
2016-09-20 16:35:00 +00:00
|
|
|
character*80 line !Formatted line with UTC dB T Freq Msg
|
2016-10-04 14:01:02 +00:00
|
|
|
character*12 mycall,hiscall
|
2016-12-17 21:18:47 +00:00
|
|
|
character*6 mygrid
|
2016-12-31 02:05:51 +00:00
|
|
|
character*12 recent_calls(NRECENT)
|
2017-01-05 02:26:55 +00:00
|
|
|
character*22 recent_shmsgs(NSHMEM)
|
2017-01-22 03:20:46 +00:00
|
|
|
character*512 datadir
|
2016-09-20 16:35:00 +00:00
|
|
|
|
|
|
|
|
complex cdat(NFFT1) !Analytic signal
|
|
|
|
|
complex c(NSPM) !Coherently averaged complex data
|
|
|
|
|
complex ct(NSPM)
|
|
|
|
|
|
2016-09-22 00:03:44 +00:00
|
|
|
integer*2 id2(NZ) !Raw 16-bit data
|
|
|
|
|
integer iavmask(8)
|
2016-09-22 19:42:05 +00:00
|
|
|
integer iavpatterns(8,NPATTERNS)
|
|
|
|
|
integer npkloc(10)
|
2016-12-31 02:05:51 +00:00
|
|
|
integer nhasharray(NRECENT,NRECENT)
|
2017-01-05 02:26:55 +00:00
|
|
|
integer nsnrlast,nsnrlastswl
|
2016-09-20 16:35:00 +00:00
|
|
|
|
|
|
|
|
real d(NFFT1)
|
2016-09-25 00:16:29 +00:00
|
|
|
real pow(8)
|
2016-12-20 03:01:43 +00:00
|
|
|
real softbits(144)
|
2016-09-22 19:42:05 +00:00
|
|
|
real xmc(NPATTERNS)
|
2017-02-23 16:21:26 +00:00
|
|
|
real*8 pcoeffs(5)
|
2016-10-04 14:01:02 +00:00
|
|
|
|
2017-02-21 02:13:13 +00:00
|
|
|
logical*1 bshmsg,bcontest,btrain,bswl
|
2017-01-01 16:34:20 +00:00
|
|
|
logical*1 first
|
|
|
|
|
logical*1 bshdecode
|
2017-01-05 02:26:55 +00:00
|
|
|
logical*1 seenb4
|
|
|
|
|
logical*1 bflag
|
2017-01-15 21:43:40 +00:00
|
|
|
logical*1 bvar
|
2017-01-01 16:34:20 +00:00
|
|
|
|
2016-09-20 16:35:00 +00:00
|
|
|
data first/.true./
|
2016-09-22 00:03:44 +00:00
|
|
|
data iavpatterns/ &
|
2016-09-22 19:42:05 +00:00
|
|
|
1,1,1,1,0,0,0,0, &
|
|
|
|
|
0,0,1,1,1,1,0,0, &
|
2016-09-22 00:03:44 +00:00
|
|
|
1,1,1,1,1,0,0,0, &
|
|
|
|
|
1,1,1,1,1,1,1,0/
|
2016-10-04 14:01:02 +00:00
|
|
|
data xmc/2.0,4.5,2.5,3.5/ !Used to set time at center of averaging mask
|
2017-02-21 02:13:13 +00:00
|
|
|
save first,tsec0,nutc00,pnoise,cdat,msglast,msglastswl, &
|
2017-01-05 02:26:55 +00:00
|
|
|
nsnrlast,nsnrlastswl,recent_calls,nhasharray,recent_shmsgs
|
2016-09-20 16:35:00 +00:00
|
|
|
|
|
|
|
|
if(first) then
|
2016-09-29 14:46:12 +00:00
|
|
|
tsec0=tsec
|
2016-09-22 19:42:05 +00:00
|
|
|
nutc00=nutc0
|
|
|
|
|
pnoise=-1.0
|
2016-12-31 02:05:51 +00:00
|
|
|
do i=1,nrecent
|
|
|
|
|
recent_calls(i)(1:12)=' '
|
|
|
|
|
enddo
|
2017-01-05 02:26:55 +00:00
|
|
|
do i=1,nshmem
|
|
|
|
|
recent_shmsgs(i)(1:22)=' '
|
|
|
|
|
enddo
|
|
|
|
|
msglast=' '
|
|
|
|
|
msglastswl=' '
|
|
|
|
|
nsnrlast=-99
|
|
|
|
|
nsnrlastswl=-99
|
2016-09-25 00:16:29 +00:00
|
|
|
first=.false.
|
2016-09-20 16:35:00 +00:00
|
|
|
endif
|
|
|
|
|
|
2016-09-25 00:16:29 +00:00
|
|
|
fc=nrxfreq
|
2016-09-23 22:28:11 +00:00
|
|
|
|
2016-12-20 03:01:43 +00:00
|
|
|
! Dupe checking setup
|
2016-09-29 14:46:12 +00:00
|
|
|
if(nutc00.ne.nutc0 .or. tsec.lt.tsec0) then ! reset dupe checker
|
2016-09-22 19:42:05 +00:00
|
|
|
msglast=' '
|
2017-01-05 02:26:55 +00:00
|
|
|
msglastswl=' '
|
2016-09-22 19:42:05 +00:00
|
|
|
nsnrlast=-99
|
2017-01-05 02:26:55 +00:00
|
|
|
nsnrlastswl=-99
|
2016-09-22 19:42:05 +00:00
|
|
|
nutc00=nutc0
|
|
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
tframe=float(NSPM)/12000.0
|
|
|
|
|
line=char(0)
|
2016-09-20 16:35:00 +00:00
|
|
|
msgreceived=' '
|
|
|
|
|
max_iterations=10
|
|
|
|
|
niterations=0
|
|
|
|
|
d(1:NZ)=id2
|
|
|
|
|
rms=sqrt(sum(d(1:NZ)*d(1:NZ))/NZ)
|
2016-09-29 14:46:12 +00:00
|
|
|
if(rms.lt.1.0) go to 999
|
2016-09-20 16:35:00 +00:00
|
|
|
fac=1.0/rms
|
|
|
|
|
d(1:NZ)=fac*d(1:NZ)
|
|
|
|
|
d(NZ+1:NFFT1)=0.
|
2017-02-21 02:13:13 +00:00
|
|
|
bvar=.true.
|
2017-01-15 21:43:40 +00:00
|
|
|
if( btrain ) bvar=.false. ! if training, turn off rx eq
|
2017-02-21 20:13:36 +00:00
|
|
|
call analytic(d,NZ,NFFT1,cdat,pcoeffs,bvar)
|
2016-09-22 00:03:44 +00:00
|
|
|
|
2016-09-25 00:16:29 +00:00
|
|
|
! Calculate average power for each frame and for the entire block.
|
|
|
|
|
! If decode is successful, largest power will be taken as signal+noise.
|
|
|
|
|
! If no decode, entire-block average will be used to update noise estimate.
|
2016-09-22 19:42:05 +00:00
|
|
|
pmax=-99
|
2016-09-25 00:16:29 +00:00
|
|
|
do i=1,8
|
2016-10-12 17:33:49 +00:00
|
|
|
ib=(i-1)*NSPM+1
|
|
|
|
|
ie=ib+NSPM-1
|
|
|
|
|
pow(i)=real(dot_product(cdat(ib:ie),cdat(ib:ie)))*rms**2
|
|
|
|
|
pmax=max(pmax,pow(i))
|
2016-09-22 19:42:05 +00:00
|
|
|
enddo
|
2016-09-25 00:16:29 +00:00
|
|
|
pavg=sum(pow)/8.0
|
2016-09-28 22:13:07 +00:00
|
|
|
|
2016-09-25 00:16:29 +00:00
|
|
|
! Short ping decoder uses squared-signal spectrum to determine where to
|
|
|
|
|
! center a 3-frame analysis window and attempts to decode each of the
|
|
|
|
|
! 3 frames along with 2- and 3-frame averages.
|
2016-09-23 22:28:11 +00:00
|
|
|
np=8*NSPM
|
2017-01-05 02:26:55 +00:00
|
|
|
call msk144spd(cdat,np,ntol,ndecodesuccess,msgreceived,fc,fest,tdec,navg,ct, &
|
2017-01-01 16:34:20 +00:00
|
|
|
softbits,recent_calls,nrecent)
|
2017-01-06 19:01:29 +00:00
|
|
|
if(ndecodesuccess.eq.0 .and. (bshmsg.or.bswl)) then
|
2017-01-05 02:26:55 +00:00
|
|
|
call msk40spd(cdat,np,ntol,mycall(1:6),hiscall(1:6),bswl,nhasharray, &
|
|
|
|
|
recent_calls,nrecent,ndecodesuccess,msgreceived,fc,fest,tdec,navg)
|
2016-10-03 20:18:53 +00:00
|
|
|
endif
|
2017-01-05 02:26:55 +00:00
|
|
|
if( ndecodesuccess .ge. 1 ) then
|
2016-09-22 00:03:44 +00:00
|
|
|
tdec=tsec+tdec
|
2016-10-03 17:08:02 +00:00
|
|
|
ipk=0
|
|
|
|
|
is=0
|
2016-09-29 14:46:12 +00:00
|
|
|
goto 900
|
2016-09-22 00:03:44 +00:00
|
|
|
endif
|
2016-09-25 00:16:29 +00:00
|
|
|
|
2016-09-28 22:13:07 +00:00
|
|
|
! If short ping decoder doesn't find a decode,
|
2016-09-29 15:35:45 +00:00
|
|
|
! Fast - short ping decoder only.
|
|
|
|
|
! Normal - try 4-frame averages
|
2016-09-28 22:13:07 +00:00
|
|
|
! Deep - try 4-, 5- and 7-frame averages.
|
|
|
|
|
npat=NPATTERNS
|
2016-09-29 03:01:32 +00:00
|
|
|
if( ndepth .eq. 1 ) npat=0
|
|
|
|
|
if( ndepth .eq. 2 ) npat=2
|
2016-09-28 22:13:07 +00:00
|
|
|
do iavg=1,npat
|
2016-09-22 00:03:44 +00:00
|
|
|
iavmask=iavpatterns(1:8,iavg)
|
|
|
|
|
navg=sum(iavmask)
|
2016-10-03 17:08:02 +00:00
|
|
|
deltaf=10.0/real(navg) ! search increment for frequency sync
|
2016-09-22 00:03:44 +00:00
|
|
|
npeaks=2
|
2017-01-05 02:26:55 +00:00
|
|
|
call msk144sync(cdat(1:8*NSPM),8,ntol,deltaf,iavmask,npeaks,fc, &
|
2016-10-03 17:08:02 +00:00
|
|
|
fest,npkloc,nsyncsuccess,xmax,c)
|
2016-09-22 19:42:05 +00:00
|
|
|
if( nsyncsuccess .eq. 0 ) cycle
|
2016-09-20 16:35:00 +00:00
|
|
|
|
2016-09-22 19:42:05 +00:00
|
|
|
do ipk=1,npeaks
|
2016-12-22 17:21:23 +00:00
|
|
|
do is=1,3
|
2016-09-22 19:42:05 +00:00
|
|
|
ic0=npkloc(ipk)
|
2016-09-20 16:35:00 +00:00
|
|
|
if(is.eq.2) ic0=max(1,ic0-1)
|
|
|
|
|
if(is.eq.3) ic0=min(NSPM,ic0+1)
|
|
|
|
|
ct=cshift(c,ic0-1)
|
2017-01-01 16:34:20 +00:00
|
|
|
call msk144decodeframe(ct,softbits,msgreceived,ndecodesuccess, &
|
2016-12-31 02:05:51 +00:00
|
|
|
recent_calls,nrecent)
|
2016-09-22 19:42:05 +00:00
|
|
|
if(ndecodesuccess .gt. 0) then
|
2016-10-03 17:08:02 +00:00
|
|
|
tdec=tsec+xmc(iavg)*tframe
|
|
|
|
|
goto 900
|
2016-09-20 16:35:00 +00:00
|
|
|
endif
|
|
|
|
|
enddo !Slicer dither
|
|
|
|
|
enddo !Peak loop
|
|
|
|
|
enddo
|
|
|
|
|
|
2016-10-03 20:18:53 +00:00
|
|
|
|
2016-09-20 16:35:00 +00:00
|
|
|
msgreceived=' '
|
2016-09-22 19:42:05 +00:00
|
|
|
|
2016-09-23 22:28:11 +00:00
|
|
|
! no decode - update noise level used for calculating displayed snr.
|
2016-09-22 19:42:05 +00:00
|
|
|
if( pnoise .lt. 0 ) then ! initialize noise level
|
|
|
|
|
pnoise=pavg
|
|
|
|
|
elseif( pavg .gt. pnoise ) then ! noise level is slow to rise
|
|
|
|
|
pnoise=0.9*pnoise+0.1*pavg
|
|
|
|
|
elseif( pavg .lt. pnoise ) then ! and quick to fall
|
|
|
|
|
pnoise=pavg
|
|
|
|
|
endif
|
2016-09-29 14:46:12 +00:00
|
|
|
go to 999
|
2016-09-23 22:28:11 +00:00
|
|
|
|
2016-09-29 14:46:12 +00:00
|
|
|
900 continue
|
2016-12-20 03:01:43 +00:00
|
|
|
! Successful decode - estimate snr
|
2016-09-22 19:42:05 +00:00
|
|
|
if( pnoise .gt. 0.0 ) then
|
|
|
|
|
snr0=10.0*log10(pmax/pnoise-1.0)
|
|
|
|
|
else
|
|
|
|
|
snr0=0.0
|
|
|
|
|
endif
|
|
|
|
|
nsnr=nint(snr0)
|
|
|
|
|
|
2017-01-01 16:34:20 +00:00
|
|
|
bshdecode=.false.
|
|
|
|
|
if( msgreceived(1:1) .eq. '<' ) bshdecode=.true.
|
|
|
|
|
|
|
|
|
|
if(.not. bshdecode) then
|
|
|
|
|
call msk144signalquality(ct,snr0,fest,tdec,softbits,msgreceived,hiscall, &
|
2017-01-22 03:20:46 +00:00
|
|
|
btrain,datadir,ncorrected,eyeopening,pcoeffs)
|
2017-01-05 02:26:55 +00:00
|
|
|
endif
|
|
|
|
|
|
2017-07-10 00:01:20 +00:00
|
|
|
decsym=' & '
|
|
|
|
|
if( btrain ) decsym=' ^ '
|
2017-01-05 02:26:55 +00:00
|
|
|
if( msgreceived(1:1).eq.'<') then
|
|
|
|
|
ncorrected=0
|
|
|
|
|
eyeopening=0.0
|
2017-01-01 16:34:20 +00:00
|
|
|
endif
|
2016-12-20 03:01:43 +00:00
|
|
|
|
2017-01-05 02:26:55 +00:00
|
|
|
if( nsnr .lt. -8 ) nsnr=-8
|
|
|
|
|
if( nsnr .gt. 24 ) nsnr=24
|
|
|
|
|
|
|
|
|
|
! Dupe check.
|
|
|
|
|
bflag=ndecodesuccess.eq.1 .and. &
|
|
|
|
|
(msgreceived.ne.msglast .or. nsnr.gt.nsnrlast .or. tsec.lt.tsec0)
|
|
|
|
|
if(bflag) then
|
2016-09-29 14:46:12 +00:00
|
|
|
msglast=msgreceived
|
|
|
|
|
nsnrlast=nsnr
|
2017-01-01 16:34:20 +00:00
|
|
|
if(.not. bshdecode) then
|
2017-01-05 02:26:55 +00:00
|
|
|
call update_hasharray(recent_calls,nrecent,nhasharray)
|
2017-01-05 22:45:36 +00:00
|
|
|
! Should we call fix_contest_msg() only if bcontest is true?
|
Merged from trunk:
------------------------------------------------------------------------
r7861 | k9an | 2017-07-12 22:49:39 +0100 (Wed, 12 Jul 2017) | 1 line
Use quarter-symbol steps for time sync. Lower sync threshold. Implement subtraction and two pass decoding. Use osd2 only near nfqso.
------------------------------------------------------------------------
r7862 | k9an | 2017-07-13 01:28:57 +0100 (Thu, 13 Jul 2017) | 1 line
Fix NHSYM.
------------------------------------------------------------------------
r7863 | k9an | 2017-07-13 01:31:52 +0100 (Thu, 13 Jul 2017) | 1 line
Fix a comment. No code changes.
------------------------------------------------------------------------
r7864 | k9an | 2017-07-13 01:43:56 +0100 (Thu, 13 Jul 2017) | 1 line
Fix another bounds error.
------------------------------------------------------------------------
r7879 | k1jt | 2017-07-14 17:02:01 +0100 (Fri, 14 Jul 2017) | 1 line
Code cleanup and test ofFT8 decodes with erasures. Do not use on the air.
------------------------------------------------------------------------
r7881 | k1jt | 2017-07-14 19:19:48 +0100 (Fri, 14 Jul 2017) | 1 line
Fix nutc in jt9; alternative sync value for late-start FT8 signals.
------------------------------------------------------------------------
r7882 | k9an | 2017-07-14 20:22:53 +0100 (Fri, 14 Jul 2017) | 1 line
Move ft8apset to a separate file.
------------------------------------------------------------------------
r7884 | k9an | 2017-07-14 20:35:22 +0100 (Fri, 14 Jul 2017) | 1 line
Add ft8apset.f90.
------------------------------------------------------------------------
r7885 | k9an | 2017-07-14 20:46:04 +0100 (Fri, 14 Jul 2017) | 1 line
Update call to ft8b.
------------------------------------------------------------------------
r7886 | k9an | 2017-07-14 21:12:29 +0100 (Fri, 14 Jul 2017) | 1 line
More work on ap.
------------------------------------------------------------------------
r7887 | k9an | 2017-07-14 23:09:50 +0100 (Fri, 14 Jul 2017) | 1 line
More work on AP. Deep decode is unstable - not for use on the air.
------------------------------------------------------------------------
r7890 | k9an | 2017-07-15 01:33:25 +0100 (Sat, 15 Jul 2017) | 1 line
Turn off ap.
------------------------------------------------------------------------
r7891 | k9an | 2017-07-15 02:49:44 +0100 (Sat, 15 Jul 2017) | 1 line
Add some more items to the lun 81 diagnostics.
------------------------------------------------------------------------
r7892 | k9an | 2017-07-15 15:21:18 +0100 (Sat, 15 Jul 2017) | 1 line
Properly calculate metrics for non-ap bits that reside in symbols that contain ap bits.
------------------------------------------------------------------------
r7893 | k9an | 2017-07-15 16:43:41 +0100 (Sat, 15 Jul 2017) | 1 line
Use overlap and add to apply reference filter/amplitude equalization.
------------------------------------------------------------------------
r7894 | k9an | 2017-07-15 16:46:46 +0100 (Sat, 15 Jul 2017) | 1 line
Improve a comment.
------------------------------------------------------------------------
r7895 | k9an | 2017-07-16 01:10:37 +0100 (Sun, 16 Jul 2017) | 1 line
Make refspec filter causal for overlap and add.
------------------------------------------------------------------------
r7911 | k9an | 2017-07-16 16:56:06 +0100 (Sun, 16 Jul 2017) | 1 line
More work on Deep decoding.
------------------------------------------------------------------------
r7917 | k9an | 2017-07-16 18:08:09 +0100 (Sun, 16 Jul 2017) | 1 line
Properly round the printed snr.
------------------------------------------------------------------------
r7925 | k9an | 2017-07-18 02:12:11 +0100 (Tue, 18 Jul 2017) | 1 line
Work on ap decoding. Diagnostic write enabled.
------------------------------------------------------------------------
r7926 | k9an | 2017-07-18 16:22:20 +0100 (Tue, 18 Jul 2017) | 1 line
Fix a bug in AP decoding when iaptype=2. Decrease time-sync search range to +/- 1.5s. Fix a big with erasure decoding.
------------------------------------------------------------------------
r7927 | k1jt | 2017-07-20 00:23:20 +0100 (Thu, 20 Jul 2017) | 1 line
Remove slider next to audio level meter.
------------------------------------------------------------------------
r7928 | k1jt | 2017-07-20 16:15:00 +0100 (Thu, 20 Jul 2017) | 6 lines
1. Alt+F8 arms "Call 1st" as if a CQ had been sent.
2. "Call 1st" label turns red when armed to respond to a caller.
3. Suppress some recognizable false decodes, send them to cumulative file
"data_dir/false_decodes.txt".
4. Reduce sleep delay in decoder() to 10 ms.
------------------------------------------------------------------------
r7929 | k1jt | 2017-07-20 20:23:17 +0100 (Thu, 20 Jul 2017) | 1 line
Fix wording in list of keyboard shortcuts.
------------------------------------------------------------------------
r7930 | k1jt | 2017-07-20 20:25:08 +0100 (Thu, 20 Jul 2017) | 2 lines
Comment out diagnostic write.
------------------------------------------------------------------------
r7931 | k9an | 2017-07-20 22:08:36 +0100 (Thu, 20 Jul 2017) | 1 line
Only print dupes if SNR is higher than what has already been printed.
------------------------------------------------------------------------
r7932 | k9an | 2017-07-21 23:02:06 +0100 (Fri, 21 Jul 2017) | 1 line
Add to the list of allowed keywords in jtmsg.f90.
------------------------------------------------------------------------
r7933 | k9an | 2017-07-22 04:01:09 +0100 (Sat, 22 Jul 2017) | 1 line
Add variables lapon and napwid to control ap decoding. Reconfigure the logic for AP decoding and ordered-statistics decoding.
------------------------------------------------------------------------
r7934 | k9an | 2017-07-22 14:21:03 +0100 (Sat, 22 Jul 2017) | 1 line
Prevent a certain type of non-standard message from being flagged as a false decode.
------------------------------------------------------------------------
r7935 | k9an | 2017-07-22 18:12:48 +0100 (Sat, 22 Jul 2017) | 1 line
More informative end-of-line annotation for AP decodes.
------------------------------------------------------------------------
r7936 | k9an | 2017-07-24 15:23:22 +0100 (Mon, 24 Jul 2017) | 1 line
Bring msk144d2 more up to date. Runs now, but still needs more work.
------------------------------------------------------------------------
r7937 | k1jt | 2017-07-24 15:48:16 +0100 (Mon, 24 Jul 2017) | 2 lines
Correct the spacing between marked lowest and highest FT8 tones for RxFreq (green) and TxFreq (red).
------------------------------------------------------------------------
r7938 | bsomervi | 2017-07-24 20:27:14 +0100 (Mon, 24 Jul 2017) | 4 lines
Add double clickable push button and radio button widgets
These emit doubleClicked signal when double-clicked, otherwise they
are identical to their super-classes.
------------------------------------------------------------------------
r7939 | bsomervi | 2017-07-24 20:27:23 +0100 (Mon, 24 Jul 2017) | 42 lines
Add the option to ALT+click a decoded CQ or QRZ message which only
moves the Rx frequency to theirs, this facilitates calling a station
who is busy and may have many callers on their frequency. Updated the
corresponding mouse shortcuts help text.
Allow for times with seconds when parsing fast mode and FT8 decodes.
Exclude the RR73 grid square from and grid validation or matching, it
is not a grid square any more as far as WSJT-X is concerned, it is an
RRR substitute.
Add a simple state machine for QSO progress such that replies and
auto-sequencing can be better controlled.
Get compound callsign edge cases working again and allow QSOs from and
to compound callsign holders working in as many situations as possible
including auto-sequencing and FT8 auto-reply mode. This does mean
that a "DE W6/K1ABC DM93" type message close to a callers Tx or Rx
frequency will be taken as a reply to a CQ call despite it not being
explicitly addressed back to the CQ caller. Compound callsigns should
work in MSK144 contest mode also as well as in short code modes with
some minor restrictions (short codes will not be used where
configuration demands that a message be used to send a full compound
callsign).
Auto sequencing has been made generic such that it can be used for
more than one mode if desired.
Allow the use of free text messages to sign off in auto sequenced QSOs
without the message being overwritten by the sequencer. Double click
actions have been added to the Tx5 radio and push buttons to revert
back to the default standard 73 message.
Make DisplayText class interface more idiomatic C++ and simplify a
bit.
Fixed some displayed widget arrangements for different modes and
sub-modes so that they are consistent when starting up and when
switching mode or sub-mode.
This is a big change which has been extensively tested but no doubt
there will also be some new defects introduced.
------------------------------------------------------------------------
r7940 | bsomervi | 2017-07-25 17:51:19 +0100 (Tue, 25 Jul 2017) | 1 line
Fix issue with Tx5 not being generated with a new DX Call
------------------------------------------------------------------------
r7941 | bsomervi | 2017-07-25 17:51:27 +0100 (Tue, 25 Jul 2017) | 1 line
Fix country name display that broke in r7939
------------------------------------------------------------------------
r7942 | bsomervi | 2017-07-25 17:51:34 +0100 (Tue, 25 Jul 2017) | 1 line
Ensure JT9 lowest decode frequency spin box is disabled when not available
------------------------------------------------------------------------
r7943 | bsomervi | 2017-07-25 17:51:42 +0100 (Tue, 25 Jul 2017) | 4 lines
Pick up tail-enders when completing a call 1st QSO after re-enabling auto Tx
Allow any message to start a QSO so long as we are not in an
auto-reply QSO.
------------------------------------------------------------------------
r7944 | bsomervi | 2017-07-25 17:51:49 +0100 (Tue, 25 Jul 2017) | 1 line
Exclude all decode quality markers from internal decode parsing and matching
------------------------------------------------------------------------
r7945 | k9an | 2017-07-25 20:06:05 +0100 (Tue, 25 Jul 2017) | 1 line
Move '?' quality warning to message(22:22).
------------------------------------------------------------------------
r7946 | k9an | 2017-07-25 21:55:13 +0100 (Tue, 25 Jul 2017) | 1 line
Reject candiates with fewer than 7 correct hard-decoded sync symbols.
------------------------------------------------------------------------
r7947 | bsomervi | 2017-07-26 02:38:37 +0100 (Wed, 26 Jul 2017) | 1 line
Force Settings tab to Radio tab when navigating there from a rig error message
------------------------------------------------------------------------
r7948 | bsomervi | 2017-07-26 02:38:44 +0100 (Wed, 26 Jul 2017) | 1 line
Correct the highlighting of the Call 1st check box label
------------------------------------------------------------------------
r7949 | bsomervi | 2017-07-26 02:38:57 +0100 (Wed, 26 Jul 2017) | 5 lines
Option to skip using grid reply message
Enable and disable by double-clicking the Tx1 button or the adjacent
radio button. Tx1 message shows grayed out when the Tx1 message is
elided.
------------------------------------------------------------------------
r7950 | bsomervi | 2017-07-26 02:39:04 +0100 (Wed, 26 Jul 2017) | 6 lines
Option to use RR73 grid message as RRR message substitutes
Enable or disable by double-clicking the Tx4 button or the adjacent
radio button. Is auto disabled by a band change as it is expected that
the user reassess the conditions to see if message repetitions are
unlikely to be needed.
------------------------------------------------------------------------
r7951 | bsomervi | 2017-07-26 02:39:11 +0100 (Wed, 26 Jul 2017) | 1 line
Fix highlighting of the call first check box label
------------------------------------------------------------------------
r7952 | bsomervi | 2017-07-26 02:39:23 +0100 (Wed, 26 Jul 2017) | 1 line
Better behavior and tool tips for Txn buttons and radio buttons
------------------------------------------------------------------------
r7953 | bsomervi | 2017-07-26 02:39:30 +0100 (Wed, 26 Jul 2017) | 1 line
Auto Tx stop when calling a CQer who answers another station on your Tx frequency
------------------------------------------------------------------------
r7954 | bsomervi | 2017-07-26 11:56:12 +0100 (Wed, 26 Jul 2017) | 1 line
Add menu option to turn on AP decoding in FT8 mode
------------------------------------------------------------------------
r7955 | k9an | 2017-07-26 14:05:34 +0100 (Wed, 26 Jul 2017) | 1 line
Enable AP for any decoding level.
------------------------------------------------------------------------
r7956 | k1jt | 2017-07-26 14:44:31 +0100 (Wed, 26 Jul 2017) | 1 line
Remove obsolete test program.
------------------------------------------------------------------------
r7957 | bsomervi | 2017-07-26 22:18:59 +0100 (Wed, 26 Jul 2017) | 11 lines
Use the low confidence decode quality marker to elide spots and pass info via UDP
The UDP decode and reply message have been augmented with a boolean
flag denoting a low confidence decode when set. Existing clients can
safely use the reply message without passing the flag as the default
value will still action messages that have high confidence. If low
confidence decodes are to be passed back via the reply message then
the low confidence flag must be included and correctly set to match
the original decode.
See NetworkMessage.hpp for message fields and meanings.
------------------------------------------------------------------------
r7958 | bsomervi | 2017-07-26 22:19:21 +0100 (Wed, 26 Jul 2017) | 3 lines
Add QSO state machine state and tx audio offset to parameters passed to slow decoders
Required to pick best AP masks in FT8 decoder
------------------------------------------------------------------------
r7959 | bsomervi | 2017-07-26 23:03:02 +0100 (Wed, 26 Jul 2017) | 1 line
Extend grids looked up from CALL3.TXT from 4 to 6-digits if first 4 match
------------------------------------------------------------------------
r7960 | k9an | 2017-07-27 16:35:40 +0100 (Thu, 27 Jul 2017) | 1 line
nQSOProgress now controls AP decoding. Needs testing - may not be stable with AP enabled.
------------------------------------------------------------------------
r7961 | k9an | 2017-07-27 19:07:54 +0100 (Thu, 27 Jul 2017) | 1 line
Correct some logic so that AP is only on when selected and so that AP decodes of type 4 or greater are limited to the vicinity of nfqso or nftx.
------------------------------------------------------------------------
r7962 | k1jt | 2017-07-27 19:57:53 +0100 (Thu, 27 Jul 2017) | 2 lines
Remove unused arguments from the call to fix_contest_msg().
------------------------------------------------------------------------
r7963 | k1jt | 2017-07-27 21:17:30 +0100 (Thu, 27 Jul 2017) | 1 line
Working on some features for NA VHF contests. Not finished!
------------------------------------------------------------------------
r7964 | bsomervi | 2017-07-28 01:00:42 +0100 (Fri, 28 Jul 2017) | 1 line
Fix syntax error in statement function definition
------------------------------------------------------------------------
r7965 | bsomervi | 2017-07-28 02:20:22 +0100 (Fri, 28 Jul 2017) | 6 lines
Revert "Extend grids looked up from CALL3.TXT from 4 to 6-digits if first 4 match"
Bad idea, need to find a better way to extend grids to 6-digits from
CALL3.TXT.
This reverts commit r7959
------------------------------------------------------------------------
r7968 | k9an | 2017-07-28 16:35:17 +0100 (Fri, 28 Jul 2017) | 1 line
Comment out diagnostic write to lun 81.
------------------------------------------------------------------------
r7969 | k1jt | 2017-07-28 16:50:13 +0100 (Fri, 28 Jul 2017) | 2 lines
Make 72-bit "contest mode" available in FT8 as well as MSK144.
------------------------------------------------------------------------
r7970 | bsomervi | 2017-07-29 00:25:32 +0100 (Sat, 29 Jul 2017) | 7 lines
Change tolerances for auto stop and auto-sequence of some messages
FT8 auto-stop will only react to messages within +/- 50Hz of our Tx
frequency.
Auto-sequence on "DE ..." and free text 73 messages will respond if
they are within 25Hz of our Tx or Rx frequency.
------------------------------------------------------------------------
r7971 | bsomervi | 2017-07-31 02:28:25 +0100 (Mon, 31 Jul 2017) | 1 line
Add extra hidden string length argument to genft8 interface
------------------------------------------------------------------------
r7972 | bsomervi | 2017-07-31 02:28:33 +0100 (Mon, 31 Jul 2017) | 5 lines
Fix FT8 call first behaviour with "Lock Tx=Rx"
Call first combined with "Lock Tx=Rx" (why would anyone consider doing
that!) should continue on the Tx frequency of the station being
worked and not be switched another calling station's frequency.
------------------------------------------------------------------------
r7973 | k1jt | 2017-08-01 19:01:27 +0100 (Tue, 01 Aug 2017) | 1 line
Utility for generating figure for QST/RadCom article.
------------------------------------------------------------------------
r7974 | k1jt | 2017-08-01 19:16:01 +0100 (Tue, 01 Aug 2017) | 2 lines
Tidy up some details for 72-bit contest mode in FT8.
------------------------------------------------------------------------
r7975 | k1jt | 2017-08-01 19:46:12 +0100 (Tue, 01 Aug 2017) | 2 lines
Don't highlight FT8 contest-mode Tx3 message as a free-text message.
------------------------------------------------------------------------
r7976 | k1jt | 2017-08-01 20:32:54 +0100 (Tue, 01 Aug 2017) | 2 lines
Fix the "F4" shortcut description; add usage advuice to "Lock Tx=Rx" tool tip.
------------------------------------------------------------------------
r7980 | k1jt | 2017-08-02 15:05:37 +0100 (Wed, 02 Aug 2017) | 2 lines
Enable "nagain" for FT8, as in other modes.
------------------------------------------------------------------------
r7987 | k1jt | 2017-08-02 20:23:42 +0100 (Wed, 02 Aug 2017) | 2 lines
Updates to the WSJT-X User Guide for Version 1.8.
------------------------------------------------------------------------
r7988 | k1jt | 2017-08-02 20:27:43 +0100 (Wed, 02 Aug 2017) | 2 lines
Add several new screen shots.
------------------------------------------------------------------------
r7989 | k1jt | 2017-08-02 21:43:06 +0100 (Wed, 02 Aug 2017) | 2 lines
Allow auto-seq in QRA64 mode; updates to User Guide.
------------------------------------------------------------------------
r7992 | bsomervi | 2017-08-03 12:23:07 +0100 (Thu, 03 Aug 2017) | 7 lines
Fix an issue with VFO tuning while running Doppler correction
Holding down the SHIFT key while tuning the rig should update the
nominal sked frequency, not holding done the SHIFT key should not
update the sked frequency. This is not yet perfect and sometimes a
change to the nominal sked frequency can get through but it is a rare
as yet unfound race condition.
------------------------------------------------------------------------
r7993 | k9an | 2017-08-03 15:46:21 +0100 (Thu, 03 Aug 2017) | 1 line
1. Use norder=3 for nagain, 2. Renumber aptypes.
------------------------------------------------------------------------
r7994 | k1jt | 2017-08-03 15:48:59 +0100 (Thu, 03 Aug 2017) | 2 lines
Remove the "Weak" checkbox from GUI, it's not implemented.
------------------------------------------------------------------------
r7995 | k1jt | 2017-08-03 16:12:30 +0100 (Thu, 03 Aug 2017) | 2 lines
More updates to the WSJT-X User Guide.
------------------------------------------------------------------------
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx-1.8@7996 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2017-08-03 16:42:10 +00:00
|
|
|
call fix_contest_msg(mygrid,msgreceived)
|
2016-12-17 21:18:47 +00:00
|
|
|
endif
|
2017-01-05 02:26:55 +00:00
|
|
|
write(line,1020) nutc0,nsnr,tdec,nint(fest),decsym,msgreceived, &
|
|
|
|
|
navg,ncorrected,eyeopening,char(0)
|
2017-07-10 00:01:20 +00:00
|
|
|
1020 format(i6.6,i4,f5.1,i5,a4,a22,i2,i3,f5.1,a1)
|
2017-01-05 02:26:55 +00:00
|
|
|
elseif(bswl .and. ndecodesuccess.ge.2) then
|
|
|
|
|
seenb4=.false.
|
|
|
|
|
do i=1,nshmem
|
|
|
|
|
if( msgreceived .eq. recent_shmsgs(i) ) then
|
|
|
|
|
seenb4=.true.
|
|
|
|
|
endif
|
|
|
|
|
enddo
|
|
|
|
|
call update_recent_shmsgs(msgreceived,recent_shmsgs,nshmem)
|
|
|
|
|
bflag=seenb4 .and. &
|
|
|
|
|
(msgreceived.ne.msglastswl .or. nsnr.gt.nsnrlastswl .or. tsec.lt.tsec0) &
|
|
|
|
|
.and. nsnr.gt.-6
|
|
|
|
|
if(bflag) then
|
|
|
|
|
msglastswl=msgreceived
|
|
|
|
|
nsnrlastswl=nsnr
|
|
|
|
|
write(line,1020) nutc0,nsnr,tdec,nint(fest),decsym,msgreceived, &
|
|
|
|
|
navg,ncorrected,eyeopening,char(0)
|
|
|
|
|
endif
|
2016-09-29 14:46:12 +00:00
|
|
|
endif
|
|
|
|
|
999 tsec0=tsec
|
|
|
|
|
|
2016-09-20 16:35:00 +00:00
|
|
|
return
|
|
|
|
|
end subroutine mskrtd
|
2016-09-23 22:28:11 +00:00
|
|
|
|
2017-01-05 02:26:55 +00:00
|
|
|
subroutine update_recent_shmsgs(message,msgs,nsize)
|
|
|
|
|
character*22 msgs(nsize)
|
|
|
|
|
character*22 message
|
|
|
|
|
logical*1 seen
|
|
|
|
|
|
|
|
|
|
seen=.false.
|
|
|
|
|
do i=1,nsize
|
|
|
|
|
if( msgs(i) .eq. message ) seen=.true.
|
|
|
|
|
enddo
|
|
|
|
|
|
|
|
|
|
if( .not. seen ) then
|
|
|
|
|
do i=nsize,2,-1
|
|
|
|
|
msgs(i)=msgs(i-1)
|
|
|
|
|
enddo
|
|
|
|
|
msgs(1)=message
|
|
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
return
|
|
|
|
|
end subroutine update_recent_shmsgs
|
