mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-18 01:52:05 -05:00
06291ab964
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@334 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
83 lines
2.5 KiB
Fortran
83 lines
2.5 KiB
Fortran
subroutine gen65(message,mode65,samfac,iwave,nwave,sendingsh,
|
|
+ msgsent)
|
|
|
|
C Encodes a JT65 message into a wavefile.
|
|
|
|
parameter (NMAX=60*11025) !Max length of wave file
|
|
character*22 message !Message to be generated
|
|
character*22 msgsent !Message as it will be received
|
|
character*3 cok !' ' or 'OOO'
|
|
character*6 c1,c2
|
|
real*8 t,dt,phi,f,f0,dfgen,dphi,twopi,samfac,tsymbol
|
|
|
|
integer*2 iwave(NMAX) !Generated wave file
|
|
integer dgen(12)
|
|
integer sent(63)
|
|
integer sendingsh
|
|
common/c1c2/c1,c2
|
|
include 'prcom.h'
|
|
data twopi/6.283185307d0/
|
|
save
|
|
|
|
if(abs(pr(1)).ne.1.0) call setup65
|
|
|
|
call chkmsg(message,cok,nspecial,flip)
|
|
if(nspecial.eq.0) then
|
|
call packmsg(message,dgen) !Pack message into 72 bits
|
|
sendingsh=0
|
|
if(iand(dgen(10),8).ne.0) sendingsh=-1 !Plain text flag
|
|
call rs_encode(dgen,sent)
|
|
call interleave63(sent,1) !Apply interleaving
|
|
call graycode(sent,63,1) !Apply Gray code
|
|
tsymbol=4096.d0/11025.d0
|
|
nsym=126 !Symbols per transmission
|
|
else
|
|
tsymbol=16384.d0/11025.d0
|
|
nsym=32
|
|
sendingsh=1 !Flag for shorthand message
|
|
endif
|
|
|
|
C Set up necessary constants
|
|
dt=1.0/(samfac*11025.0)
|
|
f0=118*11025.d0/1024
|
|
dfgen=mode65*11025.0/4096.0
|
|
t=0.d0
|
|
phi=0.d0
|
|
k=0
|
|
j0=0
|
|
ndata=(nsym*11025.d0*samfac*tsymbol)/2
|
|
ndata=2*ndata
|
|
do i=1,ndata
|
|
t=t+dt
|
|
j=int(t/tsymbol) + 1 !Symbol number, 1-126
|
|
if(j.ne.j0) then
|
|
f=f0
|
|
if(nspecial.ne.0 .and. mod(j,2).eq.0) f=f0+10*nspecial*dfgen
|
|
if(nspecial.eq.0 .and. flip*pr(j).lt.0.0) then
|
|
k=k+1
|
|
f=f0+(sent(k)+2)*dfgen
|
|
endif
|
|
dphi=twopi*dt*f
|
|
j0=j
|
|
endif
|
|
phi=phi+dphi
|
|
iwave(i)=32767.0*sin(phi)
|
|
enddo
|
|
|
|
do j=1,5512 !Put another 0.5 sec of silence at end
|
|
i=i+1
|
|
iwave(i)=0
|
|
enddo
|
|
nwave=i
|
|
call unpackmsg(dgen,msgsent)
|
|
if(flip.lt.0.0) then
|
|
do i=22,1,-1
|
|
if(msgsent(i:i).ne.' ') goto 10
|
|
enddo
|
|
10 msgsent=msgsent(1:i)//' OOO'
|
|
endif
|
|
|
|
return
|
|
end
|
|
|