mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-08 18:16:02 -05:00
dd1362b69a
Generic message packing and unpacking routines now understand antipode grid contest messages. These messages are now recognized as standard messages in message response processing and dealt with appropriately when contest mode is selected and applicable (currently FT8 and MSK144 only). git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8062 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
90 lines
2.0 KiB
Fortran
90 lines
2.0 KiB
Fortran
program contest72
|
|
|
|
use packjt
|
|
integer dat(12)
|
|
logical text,bcontest,ok
|
|
character*22 msg,msg0,msg1
|
|
character*72 ct1,ct2
|
|
character*12 callsign1,callsign2
|
|
character*1 c0
|
|
character*42 c
|
|
character*6 mygrid
|
|
data c/'0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ +-./?'/
|
|
data bcontest/.true./
|
|
data mygrid/"EM48 "/
|
|
|
|
! itype Message Type
|
|
!--------------------
|
|
! 1 Standardd message
|
|
! 2 Type 1 prefix
|
|
! 3 Type 1 suffix
|
|
! 4 Type 2 prefix
|
|
! 5 Type 2 suffix
|
|
! 6 Free text
|
|
! -1 Does not decode correctly
|
|
|
|
nargs=iargc()
|
|
if(nargs.eq.0) open(10,file='contest_msgs.txt',status='old')
|
|
|
|
nn=0
|
|
do imsg=1,9999
|
|
if(nargs.eq.1) then
|
|
if(imsg.gt.1) exit
|
|
call getarg(1,msg0)
|
|
else
|
|
read(10,1001,end=999) msg0
|
|
1001 format(a22)
|
|
endif
|
|
msg=msg0
|
|
call packmsg(msg,dat,itype,bcontest)
|
|
call unpackmsg(dat,msg1,bcontest,mygrid)
|
|
ok=msg1.eq.msg0
|
|
if(msg0.eq.' ') then
|
|
write(*,1002)
|
|
else
|
|
if(jt_c2(1:1).eq.'W') msg0=' '//msg0(1:20)
|
|
nn=nn+1
|
|
write(*,1002) nn,msg0,ok,jt_itype,jt_nc1,jt_nc2,jt_ng,jt_k1,jt_k2
|
|
1002 format(i1,'. ',a22,L2,i2,2i10,i6,2i8)
|
|
if(index(msg1,' 73 ').gt.4) nn=0
|
|
endif
|
|
if(.not.ok) print*,msg0,msg1
|
|
if(itype.lt.0 .or. itype.eq.6) cycle
|
|
|
|
if(msg(1:3).eq.'CQ ') then
|
|
m=2
|
|
write(ct1,1010) dat
|
|
1010 format(12b6.6)
|
|
! write(*,1014) ct1
|
|
1014 format(a72)
|
|
cycle
|
|
endif
|
|
|
|
i1=index(msg,'<')
|
|
if(i1.eq.1) then
|
|
m=0
|
|
cycle
|
|
endif
|
|
|
|
if(i.ge.5) then
|
|
m=3
|
|
cycle
|
|
endif
|
|
|
|
if(msg(1:6).eq.'73 CQ ') then
|
|
m=4
|
|
cycle
|
|
endif
|
|
|
|
call packmsg(msg,dat,itype,.false.)
|
|
write(ct1,1010) dat
|
|
call packtext(msg,nc1,nc2,ng,.false.,'')
|
|
! write(ct2,1012) nc1,nc2,ng+32768
|
|
!1012 format(2b28.28,b16.16)
|
|
! write(*,1014) ct1
|
|
! write(*,1014) ct2
|
|
! write(*,1014)
|
|
enddo
|
|
|
|
999 end program contest72
|