/**************************************************************************

	master.c
   Z-World, 2004

	This sample program is for the BL2600 series controllers.

	Connect circuitry as	described in the User Manual in the main
	hardware chapter under Serial Communication.

	This program demonstrates a simple RS485 transmission
	of lower case letters to a slave controller.  The slave
	will send back converted upper case letters back to the
	master controller and displayed in STDIO window.

	Use slave.c to program the slave controller.

	Make the following connections:

		Master to  Slave
		485+ <---> 485+
		485- <---> 485-
		GND  <---> GND

**************************************************************************/
//  Set a default of declaring all local variables "auto" (on stack)
#class auto

// serial E buffer size
#define EINBUFSIZE  255
#define EOUTBUFSIZE 255

nodebug
void msDelay(unsigned int delay)
{
	auto unsigned long done_time;

	done_time = MS_TIMER + delay;
   while( (long) (MS_TIMER - done_time) < 0 );
}

///////////////////////////////////////////////////////////////////////////

void main()
{
	auto int nIn1;
	auto char cOut;
	auto int sync;

   // Initialize the controller
	brdInit();

	serEopen(19200);	// Set baud rate first
	serEwrFlush();		// Clear Rx and Tx data buffers
	serErdFlush();

   // Must use serial mode 1 0r 3 depending on the RS232 option you select
	serMode(1);

	printf ("Waiting to sync up to the other controller\r");
	// Sync up to the slave controller
	sync = FALSE;
	while(!sync)
	{
		cOut = 0x55;
		ser485Tx();							//	enable transmitter
		serEputc ( cOut );				//	send lowercase byte
		while (serEgetc() == -1);		//	wait for echo
		ser485Rx();							// disable transmitter
		msDelay(5);
		if((nIn1 = serEgetc ()) == -1)	//	check for reply
		{
			printf ("Waiting to sync up to the other controller\r");
		}
		else
		{
			if(nIn1 == cOut)
			{
				sync = TRUE;
			}
		}
	}

	while (1)
	{
		for (cOut='a';cOut<='z';++cOut)
		{
			ser485Tx();										//	enable transmitter
			serEputc ( cOut );							//	send lowercase byte
			while (serEgetc() == -1);					//	wait for echo
			ser485Rx();										// disable transmitter

			while ((nIn1 = serEgetc ()) == -1);		//	wait for reply
			if (nIn1 == (toupper(cOut)))
				printf ("\n\rUpper case %c is %c", cOut, nIn1 );
		}
	}
}
///////////////////////////////////////////////////////////////////////////