mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-04 16:31:17 -05:00
f5b9756a9a
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/jtms3@2479 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
27 lines
873 B
Fortran
27 lines
873 B
Fortran
subroutine genjtms3(msg,msgsent,iwave,nwave)
|
|
|
|
character*22 msg,msgsent
|
|
integer*1 chansym(258)
|
|
integer*2 iwave(30*48000)
|
|
integer dgen(13)
|
|
integer*1 data0(13)
|
|
integer*1 datsym(215)
|
|
integer indx0(9) !Indices of duplicated data symbols
|
|
data indx0 /16,38,60,82,104,126,148,170,192/
|
|
|
|
call packmsg(msg,dgen) !Pack message into 12 six-bit symbols
|
|
call entail(dgen,data0) !Move from 6-bit to 8-bit symbols, add tail
|
|
ndat=(72+31)*2
|
|
call encode232(data0,ndat,datsym) !Convolutional encoding
|
|
|
|
do i=1,9 !Duplicate 9 symbols at end of datsym
|
|
datsym(206+i)=datsym(indx0(i))
|
|
enddo
|
|
|
|
call scr258(isync,datsym,1,chansym) !Insert sync and data into chansym(258)
|
|
call genjtms3a(chansym,258,iwave,nwave)
|
|
msgsent=msg
|
|
|
|
return
|
|
end subroutine genjtms3
|