/*
Copyright (C) Magna Carta Software, Inc. 1990.  All Rights Reserved.
C COMMUNICATIONS TOOLKIT v1.0
TELEBIT.C -- ROUTINES FOR TELEBIT MODEMS.
*/

#include <comm.h>
#include <modem.h>
#include <ctype.h>

char *a_telebit_rc[][3] = {
        { "\r\nCONNECT FAST/UUCP/COMP\r\n",    "\r73\r",   "73\r"},
        { "\r\nCONNECT FAST/XMDM/COMP\r\n",    "\r72\r",   "72\r"},
        { "\r\nCONNECT FAST/KERM/COMP\r\n",    "\r71\r",   "71\r"},
        { "\r\nCONNECT FAST/COMP\r\n",         "\r70\r",   "70\r"},
        { "\r\nCONNECT FAST/UUCP\r\n",         "\r63\r",   "63\r"},
        { "\r\nCONNECT FAST/XMDM\r\n",         "\r62\r",   "62\r"},
        { "\r\nCONNECT FAST/KERM\r\n",         "\r61\r",   "61\r"},
        { "\r\nRRING\r\n",                     "\r52\r",   "52\r"},
        { "\r\nCONNECT FAST\r\n",              "\r50\r",   "50\r"},
        { "\r\nCONNECT 2400/REL\r\n",          "\r23\r",   "23\r"},
        { "\r\nCONNECT 1200/REL\r\n",          "\r22\r",   "22\r"},
        { "\r\nCONNECT 300/REL\r\n",           "\r20\r",   "20\r"},
        { NULL,                                NULL,       NULL  },
};




/*
ISATELEBIT -- Recognize the Telebit (R) "Trailblazer Plus PC" models
RA12C, RA12E, T18PC and T18SA.
*/
short isatelebit(COMM_PORT *p)
{
    char *s;
    short save_dtr;
    short ret = 0;

    if ((save_dtr = get_dtr(p)) == LOW) set_dtr(p, HIGH);
    modem_set(p, "S49=1");
    if ((s = modem_scmd(p, "I0", MODEM_REPLY_LEN)) == NULL) ret = 0;
    while (*s) {
        if (isdigit(*s)) ret = ret*10 + (*s & 0XF);
        ++s;
    }
    if (ret == 123) {
        modem_set(p, "S49=0");
        if ((s = modem_scmd(p, "I0", MODEM_REPLY_LEN)) == NULL) ret = 0;
        ret = 0;
        while (*s) {
            if (isdigit(*s)) ret = ret*10 + (*s & 0XF);
            ++s;
        }
    }
    else ret = 0;
    if (save_dtr == LOW) set_dtr(p, LOW);

    return (ret);
}