mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-05 00:41:19 -05:00
105aef292d
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@345 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
67 lines
1.8 KiB
Fortran
67 lines
1.8 KiB
Fortran
!------------------------------------------------ audio_init
|
|
subroutine audio_init(ndin,ndout)
|
|
|
|
#ifdef Win32
|
|
use dfmt
|
|
integer Thread1,Thread2
|
|
external a2d,decode1
|
|
#endif
|
|
|
|
include 'gcom1.f90'
|
|
include 'gcom2.f90'
|
|
|
|
nmode=2
|
|
if(mode(5:5).eq.'A') mode65=1
|
|
if(mode(5:5).eq.'B') mode65=2
|
|
if(mode(5:5).eq.'C') mode65=4
|
|
ndevout=ndout
|
|
TxOK=0
|
|
Transmitting=0
|
|
nfsample=11025
|
|
nspb=1024
|
|
nbufs=2048
|
|
nmax=nbufs*nspb
|
|
nwave=60*nfsample
|
|
ngo=1
|
|
f0=800.0
|
|
do i=1,nwave
|
|
iwave(i)=nint(32767.0*sin(6.283185307*i*f0/nfsample))
|
|
enddo
|
|
|
|
#ifdef Win32
|
|
! Priority classes (for processes):
|
|
! IDLE_PRIORITY_CLASS 64
|
|
! NORMAL_PRIORITY_CLASS 32
|
|
! HIGH_PRIORITY_CLASS 128
|
|
|
|
! Priority definitions (for threads):
|
|
! THREAD_PRIORITY_IDLE -15
|
|
! THREAD_PRIORITY_LOWEST -2
|
|
! THREAD_PRIORITY_BELOW_NORMAL -1
|
|
! THREAD_PRIORITY_NORMAL 0
|
|
! THREAD_PRIORITY_ABOVE_NORMAL 1
|
|
! THREAD_PRIORITY_HIGHEST 2
|
|
! THREAD_PRIORITY_TIME_CRITICAL 15
|
|
|
|
m0=SetPriorityClass(GetCurrentProcess(),NORMAL_PRIORITY_CLASS)
|
|
|
|
! Start a thread for doing A/D and D/A with sound card.
|
|
Thread1=CreateThread(0,0,a2d,0,CREATE_SUSPENDED,id1)
|
|
m1=SetThreadPriority(Thread1,THREAD_PRIORITY_ABOVE_NORMAL)
|
|
m2=ResumeThread(Thread1)
|
|
|
|
! Start a thread for background decoding.
|
|
Thread2=CreateThread(0,0,decode1,0,CREATE_SUSPENDED,id2)
|
|
m3=SetThreadPriority(Thread2,THREAD_PRIORITY_BELOW_NORMAL)
|
|
m4=ResumeThread(Thread2)
|
|
#else
|
|
! print*,'Audio INIT called.'
|
|
ierr=start_threads(ndevin,ndevout,y1,y2,nmax,iwrite,iwave,nwave, &
|
|
11025,NSPB,TRPeriod,TxOK,ndebug,Transmitting, &
|
|
Tsec,ngo,nmode,tbuf,ibuf,ndsec,PttPort,devin_name,devout_name)
|
|
|
|
#endif
|
|
|
|
return
|
|
end subroutine audio_init
|