/*****************************************************************************
 *  This sample program will sequentially turn on all bits of the relay input
 *  and sequentially turns them off.  Each time it sets a new bit, both the   *
 *  relay output and the iso input are read and the data displayed.  This
 *  demonstrates how to read and write to a port.
*/

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

#define TRUE  1
#define FALSE 0

unsigned int base;


unsigned AskForBaseAddress(unsigned int OldOne)
{
	char msg[7];
	int NewOne = 0, Success = 0, Dummy;
	int AddrInputPosX, AddrInputPosY;

	puts("\nPlease enter the Base Address for your card (in hex)");
	printf("or press ENTER for %X.\n>", OldOne);
	AddrInputPosX = wherex(); AddrInputPosY = wherey();
	do {
      gotoxy(AddrInputPosX, AddrInputPosY);
      clreol();
      msg[0] = 5; msg[1] = 0;
      cgets(msg);
      sscanf(msg + 2, "%x", &NewOne);
      Success = 1;
      Dummy = NewOne;
		if (msg[1] == 0) {
        gotoxy(AddrInputPosX, AddrInputPosY);
        printf("%X", OldOne);
        Success = 1;
        Dummy = OldOne;
      }
	} while(!Success);
	return (Dummy);
} /* end of AskForBaseAddress */

void printbits(char foo)
{ int i;
  for(i=7;i>=0;i--){
    if (foo & (1<<i))
      putch('1');
    else
      putch('0');
  }
}

void print4bits (char foo)
{ int i;
  for(i=3;i>=0;i--){
    if (foo & (1<<i))
      putch('1');
    else
      putch('0');
  }
}


void main()
{
   char output = 0;
   char inputs[4] = {0,0,0,0};
   int count;

   clrscr();
   puts(" 104-II32-4RO Sample Program.");
   puts("This sample program will walk a bit through the four relays");
   puts("Each time it sets a new bit, the inputs are read and the data");
   puts("is displayed.  This demonstrates how to write to the relays and");
   puts("read the inputs of the card");
   base=AskForBaseAddress(0x300);
   clrscr();
   puts("\n\n\nBoard Configuration:\n");
   printf(" -- Base Address is %X hex\n",base);
   gotoxy(1,10);
   puts("    RELAY  OUTPUT          OPTO INPUT ");
   puts(" ------------------    ------------------ ");

   do{
      outportb(base, output);

      for (count = 0; count < 4; count++)
          inputs[count] = inportb(base + count);

      gotoxy(4, 12);
      print4bits(output);

      gotoxy(19, 12);
      printbits(inputs[0]);

      gotoxy(27,12);
      printbits(inputs[1]);

      gotoxy(35,12);
      printbits(inputs[2]);

      gotoxy(43,12);
      printbits(inputs[3]);

      switch(output)
      {
        case 0:
             output = 1;
             break;

        case 8:
             output = 0;
             break;

        default:
                output <<= 1;
                break;
      }

      delay(1000);


   }while(!kbhit());
}