/*
Copyright (C) Magna Carta Software, Inc. 1990.  All Rights Reserved.
C COMMUNICATIONS TOOLKIT v1.0
RACAL00.C -- Example to test for the presence of a Racal-Vadic Modem.
*/


#include <stdio.h>
#include <conio.h>
#include <comm.h>
#include <modem.h>

COMM_PORT   port1;
BYTE        rxbuf[2048];                /* RECEIVE BUFFER */
int         vers = 6;


void main(void)
{
    short ret;

    init_port(&port1, COM1, 2400L, DATABITS8, PARITY_NONE, STOPBITS1);
    install_ipr(&port1, RECEIVE, NULL, rxbuf, sizeof(rxbuf));
    install_isr(&port1, 4, NULL);

    set_rx_xlat(&port1, LOCAL_ECHO, ON);
    ret = isaracalvadic(&port1);
	if (!ret) {
        printf("\nRacal-Vadic Modem Found");
        ret = racal_icmd(&port1, 1, 2);
    }
    printf("\nRet=%d", ret);

    mspause(1000);
    deinit_port(&port1);
}