Make ptt() consistent with the one in WSPR.

Correct a gray-coding flaw in spec9.f90.


git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2748 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor
2012-11-19 16:45:42 +00:00
parent 793053e9aa
commit 91302a3575
4 changed files with 30 additions and 17 deletions
+3 -1
View File
@@ -135,7 +135,7 @@ int ptt(int nport, int ntx, int *iptt)
}
if(ntx && (!open)) {
sprintf(s,"COM%d",nport);
sprintf(s,"\\\\.\\COM%d",nport);
hFile=CreateFile(TEXT(s),GENERIC_WRITE,0,NULL,OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,NULL);
if(hFile==INVALID_HANDLE_VALUE) {
@@ -159,12 +159,14 @@ int ptt(int nport, int ntx, int *iptt)
*iptt=0;
open=0;
}
/*
if(i3==0) return -(SETRTS);
if(i4==0) return -(CLRRTS);
if(i5==0) return -(SETDTR);
if(i6==0) return -(CLRDTR);
if(i9==0) return -(CLRBREAK);
if(i00==0) return -10;
*/
return 0;
#endif
}