/* ----------------------------------------------------------- */
/* Demo 4 : AdPolling            			       */
/* Compiler: Borland C++ 3.1, Mode Large		       */
/* Output Code: HEX code                                       */
/* ----------------------------------------------------------- */

#include "P1002.H"

WORD wBaseAddr,wIrq;
//=======================================================
WORD P1002_Delay(WORD wDownCount)
{
  WORD h,l;
  int count;

  wDownCount &= 0x7fff;
  if (wDownCount<1) wDownCount=1;
  /* Clock in=4M --> count 4000 = 1 ms ,count 1 = 0.25 us */

  l=wDownCount&0xff;
  wDownCount=wDownCount / 256;
  h=wDownCount&0xff;

  outp(wBaseAddr+3*4,0xB0);	     /* mode_0, counter_2 */
  outp(wBaseAddr+2*4,l);	     /* counter_2 low byte first */
  outp(wBaseAddr+2*4,h);	     /* counter_2 high byte ,0x07D0=2000 */

   outp(wBaseAddr+3*4,0x80);	     /* latch counter_2 */
  l=inp(wBaseAddr+2*4);	             /* delay starting two clks */
  h=inp(wBaseAddr+2*4);

  for (count=32767;count>0;count--){
	  outp(wBaseAddr+12,0x80);	 /* latch counter_2 */
	  l=inp(wBaseAddr+8);
	  h=inp(wBaseAddr+8);
	  if (h>=0x80) return NoError;
  }
  return TimeOut;
}
//==========================================
void AdPolling(UCHAR channel, UCHAR gain, WORD delay)
     {
      outp(wBaseAddr+0x18,0);
      outp(wBaseAddr+0x10,channel);
      outp(wBaseAddr+0x14,gain);
      P1002_Delay(delay);
     }

//====================================================
void Show_AdPolling(WORD count)
     {
      int i;
      WORD wAdData;
      for(i=1;i<=count;i++)
	 {
	 outp(wBaseAddr+0x1c,01);    // A/D software tirgger
	 while(1)
	      {
	       if( ((inpw(wBaseAddr+0x10))&0x01)==1) // check A/D busy?
	       break;
	      }
	       wAdData=((inpw(wBaseAddr+0x30))&0x0fff);
	       printf("%d ADC value: 0x%xH\n",i,wAdData);
	  }
     }
//===================================================
void SetupTimer(WORD wChannel, WORD wCoef)
{
   WORD   cmd;

   wChannel=wChannel&0x03;
   cmd=0x34+(wChannel<<6);
   outpw(wBaseAddr+3*4, cmd);
   outp(wBaseAddr+wChannel*4, (UCHAR)(wCoef&0xff));
   outp(wBaseAddr+wChannel*4, (UCHAR)(wCoef>>8));
}

void main()
{
int  i,j;
WORD wBoards,wRetVal,wPLX;
WORD Drdy,ConverOk,wAdData=0;
char c;

clrscr();
P1002_DriverInit(&wBoards);
printf("\n(1) Threr are %d PCI-1002 Cards in this PC",wBoards);
if ( wBoards==0 )
   {
   putch(0x07);  putch(0x07);  putch(0x07);
   printf("(1) There are no PCI-1002 card in this PC !!!\n"); exit(0);
   }

printf("\n(2) Show the Configuration Space of all PCI-1002:");
for(i=0; i<wBoards; i++)
   {
   P1002_GetConfigAddressSpace(i,&wBaseAddr,&wIrq,&wPLX);
   printf("\n    Card_%d: wBaseAddr=%x, wIrq=%x, wPLX=%x",i,wBaseAddr,wIrq,wPLX);
   }

P1002_GetConfigAddressSpace(0,&wBaseAddr,&wIrq,&wPLX); /* select card_0 */
printf("\n(3) *** Card_0, wBaseAddr=%x ***",wBaseAddr);

//------------------------------------
printf("\n\nScan channels 0,1,2,3");
SetupTimer(0,1);        // AdPolling have to Disable timer 0
AdPolling(0,0,23);      // channel=0, Rang:+/-10, delay=3us
printf("\n\n");
Show_AdPolling(2);
AdPolling(1,1,3);      // channel=1, Rang:+/-5.0, delay=3us
printf("\n\n");
Show_AdPolling(2);
AdPolling(2,2,23);      // channel=2, Rang:+/-2.5, delay=3us
printf("\n\n");
Show_AdPolling(2);
AdPolling(3,3,23);      // channel=3, Rang:+/-1.25, delay=3us
printf("\n\n");
Show_AdPolling(2);     // Show A/D  value

P1002_DriverClose();

}