//Programma di Test per Sppboard
//Andrea Cipriani Ago 2004
//a71cip@tiscali.it

# include "binary.h"
# include "spp.h"
# include "board.h"
# include <stdio.h>
# include <conio.h>
# include <windows.h>

void main(void)
{
 unsigned char n,val;
 clrscr();
 for (n=1; n<5; n++)
 {
  SppBoard8BitOut(0x378,0x00,0xaa);   //output 10101010
  sleep(500);
  SppBoard8BitOut(0x378,0x00,0x55);   //output 01010101
  sleep(500);
 }
  sleep(500);

  DataOut(0x378,0x00);               //pronto in output 00000000
  ControlSetBit(0x37a,0); 		 //strobe/ a 1
  ControlClearBit(0x37a,0);		 //strobe/ a 0
  ControlSetBit(0x37a,0);		 //strobe/ a 1

  DataSetBit(0x378,0);	             //pronto in output 00000001
  ControlSetBit(0x37a,0);		 //strobe/ a 1	
  ControlClearBit(0x37a,0);          //strobe/ a 0
  ControlSetBit(0x37a,0);            //strobe/ a 1
  sleep(2000);

  DataClearBit(0x378,0);	       //pronto in output 00000000
  ControlSetBit(0x37a,0);            //strobe/ a 1
  ControlClearBit(0x37a,0);          //strobe/ a 0
  ControlSetBit(0x37a,0);            //strobe/ a 1
  sleep(500);



 for(;;)
 {
  val=SppBoard8BitIn(0x378,0x02);    //legge su dev2
  gotoxy(1,1);
  ShowBin(val);                      //mostra lettura in binario
 }
}