#include <stdio.h>			/* module dump9 */
#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 <constant.h>
#include <declare9.h>

unsigned char sum;

/*
	6 calendar bytes: hours, minutes, seconds, month, day, year
	nb status bytes
	(checksum if arg = 1)
	64 metering bytes (32 ints)
	checksum byte
*/

/**************************************************************************/
dump(void)			/* send database to com2 */

{
	int fail=1,i,n=0;

	if(parse[4]!=CR)
		{
		if(arg(1,2))
			goto abort;
		n=atoi(&parse[4]);
		}

		clkey();

		sum=0;

	if(n==2)
		goto dump2;

		calout(tyme);			/* 3 bytes */

		calout(dayt);			/* 3 bytes */

	for(i=0;i<nb;i++)
		if(fail=byteout(status[i]))	/* 32 bytes */
			goto abort;

	if(n==1)
		{
		fail=byteout(sum);		/* checksum */
		goto abort;
		}

dump2:	for(i=0;i<=31;i++)			/* analog data */
		if(fail=wordout(meter[i]))
			goto abort;

		fail=byteout(sum);		/* checksum */

abort:		return(fail);

}


/****************************************************************************/
statout(void)			/* send status byte n to COM2 or COM3 */

{
	int fail=1,n;

	if(arg(0,46))
		goto abort;

		n=atoi(&parse[4]);

	if(fail=byteout(status[n]))		/* data */
			goto abort;

		fail=byteout(status[n]);	/* checksum */

abort:		clkey();

		return(fail);

}


/****************************************************************************/
calout(char *str)		/* send ascii time or date to COM2 or COM3 */

{

		byteout(atoi(str));

		byteout(atoi(&str[3]));

		byteout(atoi(&str[6]));


}

		
/****************************************************************************/
byteout(byte)			/* send binary to COM2 or COM3 */

{
	int fail=0;

	long xofstart;

	if(remotbuf[0])
		{
		fail=com2out(byte);
		sum=sum+byte;
		if(com2in()==XOFF)
			{
			time(&xofstart);
			while(com2in()!=XON)
				{
				counter[34]=timer(xofstart);
				if(counter[34]>counter[33])
					{
					fail=1;
					status[26]|=0x08;
					break;
					}
				}
			}
		}
	else
		{
		fail=com3out(byte);
		sum=sum+byte;
		if(com3in()==XOFF)
			while(com3in()!=XON);
		}

		return(fail);

}


/****************************************************************************/
wordout(integer)			/* send 16-bit number to COM2 or COM3 */

{
	unsigned char lower,upper;

	int fail;

		lower=integer&0xFF;

		upper=(integer&0xFF00)/256;

	if(fail=byteout(lower))
		goto abort;

		fail=byteout(upper);

abort:		return(fail);

}