#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include "port.h"

void send(int);
long filelength(FILE *);

int main(int argc, char *argv[])
{
   int i;
   long length;
   FILE *f;
   char name[255];
   long start, end;
   
   unsigned char *buffer;

   if (argc < 3)
     {
	printf ("Usage: %s <binary file> <address>\n\n", argv[0]);
	exit (EXIT_FAILURE);
     }
   
   ioperm (0x378, 3, 1);
   port_out (0x379, 255);
   
   /* Clear data */
   port_out (0x378, 0);
 
   strcpy (name, argv[1]);
   sscanf (argv[2], "%lx", &start);
   
   if ((f = fopen(argv[1], "r")) != NULL)
     {
	length = filelength(f);
	end = start+length;
	printf ("Sending file:  %s\n", argv[1]);
	printf ("Length:        %.4lX\n", length);
	printf ("Start Address: %.4lX\n", start);
	printf ("End Address:   %.4lX\n", end);
	buffer = malloc(length);
	fread(buffer, 1, length, f);
	fclose (f);
	
	send (0);
	send (start & 0x00FF);
	send ((start & 0xFF00) >> 8);
	send (end & 0x00FF);
	send ((end & 0xFF00) >> 8);
	
	printf ("Connected...\n");
	
	for (i=0; i<length; i++)
	  {
	     send (*(buffer+i));
	  }
     }
   else
     {
	printf ("Unable to open file\n");
	exit (EXIT_FAILURE);
     }
   
   /* Reset strobe line */
   port_out (0x37A, port_in(0x37A) & 0xFE);

   return (EXIT_SUCCESS);
}

   
void send (int b)
{
   int i;
   
   /* put data on D0-D7 */
   port_out (0x378, b);
   
   /* set strobe high */
   port_out (0x37A, port_in(0x37A) & 0xFE);

   /* wait for busy to go high */
   while ((port_in(0x379) & 32)  == 0);
   
   /* set strobe low */
   port_out (0x37A, port_in(0x37A) | 1);
   
   /* wait for busy to go low */
   while ((port_in(0x379) & 32)  == 32);
   
   for(i=0; i<25000; i++);
}
   
long filelength (FILE *f)
{
   long oldpos = ftell(f);
   long length;
   
   if (fseek(f, 0L, SEEK_END) == -1)
     return -1;
   
   length = ftell(f);
   return (fseek(f, oldpos, SEEK_SET) == -1) ? -1 : length;
}