home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
atarist.zip
/
astgcm.c
< prev
next >
Wrap
C/C++ Source or Header
|
1986-06-19
|
1KB
|
48 lines
/*
* astgcm.c generic commands for ATARI ST Kermit
*/
#include <stdio.h>
#include "astinc.h"
/*
* Kermit Quit to Host Server Function
*
* by W. G. Seaton NASA SC-LPS-32 11/15/84
*
* 07/01/85 ral add error handling
*/
gencmdsw(cmd)
char cmd;
{
int len, num;
int retries;
for (retries = 0; retries < MAXTRY; retries++) {
packet[0] = cmd; /* Generic command */
spack('G', 0, 1, packet); /* Send Generic command */
switch(state = rpack(&len, &num, packet)) { /* get response */
case 'Y':
if (num == 0) {
return(TRUE);
}
break; /* not the ack for this packet */
case 'N': /* remote NAKed packet */
case FALSE: /* timeout or bad packet */
nakcnt++;
break;
case 'A':
return(FALSE); /* user abort*/
case 'E':
prerrpkt(packet);
return(FALSE);
default:
nakcnt++;
break;
};
dt_packets(TRUE);
}
return(FALSE);
}