/*
 * 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);
}