#include <stdio.h>			/* module rs2329 */
#include <conio.h>
#include <graph.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include <dos.h>
#include <fcntl.h>
#include <sys\types.h>
#include <sys\stat.h>
#include <io.h>
#include <gxlib.h>
#include <c:\async\comm.h>

ASYNC ports[3], *port[3];	/* COM1 = port[0], COM2 = port[1], COM3 = port[2] */


/*
	COM1 is rs232 at address 0x3f8, irq4.
	COM2 is rs232 at address 0x2f8, irq3.
	COM3 is rs422 at address 0x290, irq5 via the ICS Model RS422AT-P card.
*/
unsigned char get3(void);

int main(int argc,char **argv){
	char	inbuf[80];
	long     i,j;
	char    c;
	long    toLoop;

	if (comopen()!=0){
	   fprintf(stdout,"open error\n");
	   goto errout;

	}
	if (argc>1){
	   sscanf(argv[1],"%ld",&toLoop);
        }
        else {
           toLoop=1000000;
	}
	fprintf(stdout,"toLoop:%ld\n",toLoop);
	fflush(stdout);
	for (;;){
	    c=get3();
            if (c == '\r')c='\n';
            fprintf(stdout,"%c",c);
	    if (c == 'z')break;
	    for (i=0,j=0;i<toLoop;i++){
		j++;
	    }
	}
errout:	comclose();
	exit(0);
}
/****************************************************************************/
int comopen(void)				/* open COM1, COM2, COM3 */
{
	char string[30];

	int fail=0,rcode;

	port[2]=&ports[2];

		
	if(!AllocRingBuffer(port[2],1024,1024,1)){	/* far memory */
		fprintf(stdout,"NO mEMORY AVAIL FOR COM3\n");
		fflush(stdout);
		goto errout;
        }
	strcpy(string,"9600N81");

	rcode=async_open(port[2],0x290,0x20,13,string); 
	if(rcode!=R_OK)
	{
		fprintf(stdout,"COM3 FAILED TO OPEN\n");
       		goto errout;

	}
	async_msrflow(port[2],B_CTS|B_RTS);	/* enable hardware flow control */
	return(0);
errout: return(-1);
}


/****************************************************************************/
comclose(void)			/* close COM3, COM2, COM1 */

{
	async_close(port[2]);
	return(0);	

}

/***************************************************************************/
unsigned char get3(void)			/* get COM3 input and put in buffer */

{
	while (!(async_rxcnt(port[2])));   	/* is char avail? */
	return(async_rx(port[2])&0xFF);	/* get char */
}