Experimental drawing of sync state

lib/js8/js8a_params.f90

@@ -2,11 +2,11 @@
 
 parameter (NCOSTAS=1)                 !Which JS8 Costas Arrays to use (1=original, 2=three symmetrical costas)
 
-parameter (NSPS=1920, NTXDUR=15, NDOWNSPS=32, NDD=100, JZ=62)  !  50 Hz  6.250 baud 16 wpm -25.0dB (1.0Eb/N0) 12.64s
+parameter (NSPS=1920, NTXDUR=15, NDOWNSPS=32, NDD=100, JZ=32)  !  50 Hz  6.250 baud 16 wpm -25.0dB (1.0Eb/N0) 12.64s
 
 parameter (AZ=12000.0/(1.0*NSPS)*0.64d0) !Dedupe overlap in Hz
 parameter (ASTART=0.5)                   !Start delay in seconds
-parameter (ASYNCMIN=1.5)                 !Minimum Sync
+parameter (ASYNCMIN=2)                   !Minimum Sync
 
 parameter (KK=87)                     !Information bits (75 + CRC12)
 parameter (ND=58)                     !Data symbols

lib/js8/js8dec.f90

@@ -1,4 +1,4 @@
-subroutine js8dec(dd0,icos,newdat,nQSOProgress,nfqso,nftx,ndepth,lapon,lapcqonly,   &
+subroutine js8dec(dd0,icos,newdat,synconly,nQSOProgress,nfqso,nftx,ndepth,lapon,lapcqonly,   &
      napwid,lsubtract,nagain,iaptype,mycall12,mygrid6,hiscall12,bcontest,    &
      sync0,f1,xdt,xbase,apsym,nharderrors,dmin,nbadcrc,ipass,iera,msg37,xsnr)  
 
@@ -14,7 +14,7 @@ subroutine js8dec(dd0,icos,newdat,nQSOProgress,nfqso,nftx,ndepth,lapon,lapcqonly
   character*12 mycall12,hiscall12
   character*6 mycall6,mygrid6,hiscall6,c1,c2
   character*87 cbits
-  logical bcontest
+  logical bcontest,synconly
   real a(5)
   real s1(0:7,ND),s2(0:7,NN),s1sort(8*ND)
   real ps(0:7),psl(0:7)
@@ -224,6 +224,11 @@ subroutine js8dec(dd0,icos,newdat,nQSOProgress,nfqso,nftx,ndepth,lapon,lapcqonly
     return
   endif
 
+  if(synconly) then
+    write(*,*) '<DecodeDebug> candidate X ', 'f', f1, 'sync', nsync, 'xdt', xdt
+    flush(6)
+  endif
+
   j=0
   do k=1,NN
      if(k.le.7) cycle
@@ -417,6 +422,13 @@ subroutine js8dec(dd0,icos,newdat,nQSOProgress,nfqso,nftx,ndepth,lapon,lapcqonly
      i3bit=4*decoded(73) + 2*decoded(74) + decoded(75)
 
      if(nbadcrc.eq.0) then
+
+        if(synconly) then
+            write(*,*) '<DecodeDebug> decode X ', 'f1', f1, 'sync', sync, 'xdt', xdt2
+            flush(6)
+            return
+        endif
+
         decoded0=decoded
         call extractmessage174(decoded,origmsg,ncrcflag)
         decoded=decoded0