w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-07-30 20:52:28 -04:00
Code Issues Packages Projects Releases Wiki Activity

Correct the logic for PTT control through a Windows COM port.

Browse Source
This commit is contained in:
Joe Taylor 2019-01-15 19:21:58 -05:00
parent bbbe83ffe5
commit 4a4a83f021
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lib/ft2/ft2.f90
View File

@ -25,7 +25,8 @@ program ft2
idevout=ndevout idevout=ndevout
call padevsub(idevin,idevout) call padevsub(idevin,idevout)
if(idevin.ne.ndevin .or. idevout.ne.ndevout) allok=.false. if(idevin.ne.ndevin .or. idevout.ne.ndevout) allok=.false.
i1=ptt(nport,1,1,iptt) i1=0
! i1=ptt(nport,1,1,iptt)
if(i1.lt.0 .and. nport.ne.0) allok=.false. if(i1.lt.0 .and. nport.ne.0) allok=.false.
if(.not.allok) then if(.not.allok) then
write(*,"('Please fix setup error(s) and restart.')") write(*,"('Please fix setup error(s) and restart.')")
@ -77,7 +78,7 @@ subroutine update(total_time,ic1,ic2)
character cdate*8,ctime*10,cdatetime*17 character cdate*8,ctime*10,cdatetime*17
include 'gcom1.f90' include 'gcom1.f90'
data nt0/-1/,transmitted/.false./,snr/-99.0/,count00/-1/ data nt0/-1/,transmitted/.false./,snr/-99.0/,count00/-1/
save nt0,transmitted,snr,count00 save nt0,transmitted,snr,count00,iptt
if(ic1.ne.0 .or. ic2.ne.0) then if(ic1.ne.0 .or. ic2.ne.0) then
if(ic1.eq.27 .and. ic2.eq.0) ngo=0 !ESC if(ic1.eq.27 .and. ic2.eq.0) ngo=0 !ESC
@ -100,9 +101,11 @@ subroutine update(total_time,ic1,ic2)
endif endif
if(ntransmitting.eq.1) transmitted=.true. if(ntransmitting.eq.1) transmitted=.true.
if(ntransmitting.eq.0) then if(transmitted .and. ntransmitting.eq.0) then
i1=0
if(iptt.eq.1 .and. nport.gt.0) i1=ptt(nport,0,1,iptt) if(iptt.eq.1 .and. nport.gt.0) i1=ptt(nport,0,1,iptt)
if(tx_once .and. transmitted) stop if(tx_once .and. transmitted) stop
transmitted=.false.
endif endif
nt=2*total_time nt=2*total_time