#include <stdio.h>
#include <conio.h>
#include <stdlib.h>
#include <dos.h>

int	serinit(int port,long baud);
int	ticktime(long ticks,char *s);

typedef	unsigned char	byte;
typedef	unsigned int	word;


char	file[40];
word	deltatime[2048];
byte	xdata[2048],adata[2048];

FILE	*text;

int	main(int acount,char *args[])
{
int	i,port;
word	data,points;
char	dstr[20],ttstr[20],dtstr[20];
long	totaltime;

	totaltime=0;
	strcpy(file,"spy.txt");
	port=1;
	serinit(port,9600);
	printf("\nSPYDAR Vers 1.1 ");
next:   delay(1000);
	while(serstat(port))
	  serin(port);
	serout(port,'R');
	printf(".");
	delay(100);
	if(!serstat(port))
	  goto next;
	data=serin(port);
	if(data=='>')
	  goto ok;
	if(data==-1)
	  return(1);
	goto next;
ok:     printf("\n");
	for(i=0;i<2048;i++) {
	  printf("\r%4d DataPoints",i);
	  serout(port,'N');
	  data=serin(port);
	  deltatime[i]=(data<<8)+serin(port);
	  xdata[i]=serin(port);
	  adata[i]=serin(port);
	  data=serin(port);
	  if(xdata[i]&0x80)
	    break;
	}
	points=i;
	printf("\nWriting file: %s",file);
	text=fopen(file,"w+t");
	fprintf(text,"\n               S-P-Y-D-A-R Black Box Diagnostic Device");
	fprintf(text,"\n\n      Total time   Delta Time  Analog   Digital");
	fprintf(text,"\n\n  Nr  Hr Mn Sec    Hr Mn Sec          1 2 3 4 5 6\n");
	for(i=0;i<points;i++) {
	  totaltime+=deltatime[i];
	  dtos(xdata[i],6,dstr);
	  ticktime(deltatime[i],dtstr);
	  ticktime(totaltime,ttstr);
	  fprintf(text,"%4d  %s  %s:  %3d  %s\n",i,ttstr,dtstr,adata[i],dstr);
	}
	fclose(text);
}

int	ticktime(long ticks,char *s)
{
int	hrs,mins,secs,hdth;

	hrs=ticks/360000L;
	ticks-=hrs*360000L;
	mins=ticks/6000;
	ticks-=(long)mins*6000;
	secs=(long)ticks/100;
	ticks-=secs*100;
	hdth=ticks;
	sprintf(s,"%02d:%02d:%02d.%02d",hrs,mins,secs,hdth);
}

int	dtos(int data,int bits,char s[])
{
int	i,j;

	j=0;
	for(i=0;i<bits;i++) {
	  if(data&(1<<i))
	    s[j++]='*';
	  else
	    s[j++]='.';
	  s[j++]=' ';
	}
	s[j]=0;
}



int	serinit(int port,long baud)
{
int	base,devisor;
int	bases[4]={0x3f8,0x2f8,0x3e8,0x2e8};
ldiv_t	ans;

	devisor=(115000+baud/2)/baud;
	base=bases[port-1];
	outportb(base+3,0x83);
	outportb(base,devisor&0xff);
	outportb(base+1,devisor/256);
	outportb(base+3,0x07);	/* 8 data 2 stop */
	outportb(base+4,0x0f);
	outportb(base+1,1);
	outportb(base+4,0x2);	/* DTR low / RTS hi */
	ans=ldiv(115000,devisor);
	return(ans.quot);
}


int	serin(int port)
{
int	status,base;
byte	data;
int	bases[4]={0x3f8,0x2f8,0x3e8,0x2e8};
long	timer;

	base=bases[port-1];
	while(!serstat(port))
	  if(kbhit())
	    return(-1);
	data=inportb(base);
	return(data);
}


int	serout(int port,byte data)
{
int	status,base;
int	bases[4]={0x3f8,0x2f8,0x3e8,0x2e8};

	base=bases[port-1];
	while(!(inportb(base+5)&0x20))
	  ;
	outportb(base,data);
}

int	serstat(int port)
{
int	bases[4]={0x3f8,0x2f8,0x3e8,0x2e8};
int	status;

	status=(inportb(bases[port-1]+5)&1);
	return(status);
}