/*****************************************************************************
 *  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 relay input are read and the data displayed.  This  *
 *  demonstrates how to read and write to a port, and to use the read back   *
 *  function of the board.                                                   *
 *****************************************************************************/
#include <stdio.h>
#include <stdlib.h>

unsigned int Address;

/* this typedef allow use to duplicate the boolean type as used in pascal */

typedef enum {FALSE,TRUE} boolean;


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 */

/*****************************************************************************
 *  FUNCTION: signon -- local routine                                        *
 *  PURPOSE: To display an initial sign on message on the screen.           *
 *****************************************************************************/
void signon()
{
   #define L1 " I I R O - 8  C A R D  S A M P L E  P R O G R A M "
   #define L2 "This sample program will sequentially turn on all bits of the relay input"
   #define L3 "and sequentially turns them off.  Each time it sets a new bit, both the "
   #define L4 "relay output and the relay input are read and the data displayed.  This"
   #define L5 "demonstrates how to read and write to a port, and to use the read back"
   #define L6 "function of the board."
   #define L7 " RELAY  OUTPUT    RELAY READBACK      OPTO INPUT "
   #define L8 " -------------    --------------      ---------- "
   #define L9 " PRESS ANY KEY TO EXIT PROGRAM "

   int	index;

   /* print the string display */
   clrscr();

   gotoxy(9,1);
   printf("%s",L1);
   gotoxy(1,3);
   printf("%s\n",L2);
   printf("%s\n",L3);
   printf("%s\n",L4);
   printf("%s\n",L5);
   printf("%s\n\n\n",L6);
   Address=AskForBaseAddress(0x354);
   clrscr();
   puts("\n\n\nBoard Configuration:\n");
   printf(" -- Base Address is %X hex\n",Address);
   puts(" -- The IRQ5 jumper should be installed    (required)");
   puts(" -- All remaining jumper settings are irrelevant.\n\n\n");
   puts("Press a key to continue");
   getch();
   clrscr();
   gotoxy(12,6);
   printf("%s",L7);
   gotoxy(12,7);
   printf("%s",L8);
   gotoxy(22,17);
   printf("%s",L9);
} /* end signon */

/*****************************************************************************
 *  FUNCTION: write_port_data -- local routine                               *
 *  PURPOSE: Displays the current port values on the screen.                *
 *****************************************************************************/
void write_port_data(unsigned char current[3])
{
unsigned      x,y,index1,index;
unsigned char value;

x = 15;    /* x coordinate to write value to screen */
y = 8;
for (index = 0;index <= 2;index++)       /* for each array member */
   {
   value = current[index];
   for (index1 = 0;index1 <= 7;index1++) /* for each bit in array member */
      {
      gotoxy(x,y);
      if (value % 2) putchar('1');
      else putchar('0');
      value = value >> 1;                /* roll next diaplay bit */
      x++;
      }
   x+= 10;
   }
}  /* end write_port_data */

/*****************************************************************************
 *  FUNCTION: main -- external routine                                       *
 *****************************************************************************/
void main()
{
unsigned char           current[3];
boolean			shift_left;

signon();                          /* print the start up message         */
current[0] = 0;
shift_left = TRUE;
while(!kbhit())                    /* loop until key pressed             */
   {
   outportb(Address,current[0]);  /* write value to relay output        */
   delay(10);
   current[1] = inportb(Address); /* read back what we wrote to relays  */
   current[2] = inportb(Address+1);   /* read the data on OPTO INPUTS       */
   write_port_data(current);       /* write new data to screen           */
   delay(700);

   /* compute value to turn on/off nesxt bit in line */
   if (current[0] == 0) shift_left = TRUE;
   if (current[0] == 255) shift_left = FALSE;
   if (shift_left) current[0] = (current[0] << 1) + 1;
   else current[0] = (current[0] - 1) >> 1;
   };
clrscr();
} /* end main program */