/**************************************************************************/
/* This program is developed by Turbo C 2.0/Borland C++3.1                */
/**************************************************************************/
/* DEMO34: P1202_Card0 Function demo. 			                  */
/*         contiunous capture sacn all 32 channels with 33k.3k/sec        */
/*         sampling rate and save to disk                                 */
/*         The sampling rate is 8M/div, where 'div' is an inputed number. */
/**************************************************************************/

#define  MYLIB
#include "P1202DR.H"
#include <conio.h>

#define   DATACOUNT  200 /* how many data is scan for a A/D channel */

int main()
{
   int	        i,j,i1,i2,iBuf[80];
   
   WORD    wBoards,wRetVal;
   WORD    wDIOdata;
   WORD    wChannelStatus[32],wChannelConfig[32];
   DWORD   dwExact,dwOKs,dwErrors,dwScanCount,dwP1,dwP2,dwStatus;
   WORD    wDiv,wVal,dwT,p,Val;
   WORD    wAddrTimer,wAddrCtrl,wAddrDio,wAddrAdda;

   FILE *fp,*fp2;

   /* initiaing P1202 card and detect how many P1202 card in PC */
   wRetVal=P1202_DriverInit(&wBoards);
   printf("Threr are %d P1202 Cards in this PC.\n",wBoards);

   if( wBoards==0 )
   {
      putch(0x07);  putch(0x07);  putch(0x07);
      printf("There are no P1202 card in this PC !!!\n");
      exit(0);
   }

   /* dump every P1202 card's configuration address space */
   printf("The Configuration Space ->   Timer   Control   DIO    AD/DA\n");
   for(i=0; i<wBoards; i++)
   {
      P1202_GetConfigAddressSpace(i,&wAddrTimer,&wAddrCtrl,&wAddrDio,&wAddrAdda);
      printf("Card %02d:  Timer:%04xH  Ctrl:%04xH  Dio:%04xH  Adda:%04xH\n",
				     i,wAddrTimer,wAddrCtrl,wAddrDio,wAddrAdda);
   }

   /* The P1202_ActiveBoard() function must be used to active a board, */
   /* then all operation will take effect to the actived board.        */
   P1202_ActiveBoard( 0 );

   /* Enter divider, the A/D sampling rate is 8M/divider */

   /************** P1202_Card0 Function starting ***********************/
   //for(i=0; i<32; i++)
   //{
      /* the status for each channel, 1: to scan  0: no scan */
   //   wChannelStatus[i]=0;
      /* the config code for each channel */
   //   wChannelConfig[i]=0x00; /* input rang: +/-5V */
   //}

   //for(i=0; i<32; i++)	 /* add all channel to scan */
   //   wChannelStatus[i]=1;


  if( (fp2=fopen("demo34_d.dat","r") )==NULL )
       exit(1);

   for(i=0;i<65;++i)
	 {
	  fscanf(fp2,"%d",&j);
	  iBuf[i]=j;
	 }

   i1=0;
   i2=0;
   for(i=1;i<65;++i)
	     {

	      if(i&1==1)
		 {
		    wChannelStatus[i2]=iBuf[i];
		    ++i2;
		  }
	       else
		   {
		    wChannelConfig[i1]=iBuf[i];
		    ++i1;
		   }
	     }

   fclose(fp2);

   dwExact=0;
   dwScanCount=0;

   fp=fopen("1202.dat","w+b");
   P1202_ActiveBoard( 0 );
   /* prepare StartScan */
   wRetVal=P1202_Card0_StartScan(/* 8M/240=33.3K/s */iBuf[0],wChannelStatus,wChannelConfig,DATACOUNT);

   if( wRetVal==NoError )
    ;
    else
       {
	  putch(0x07);
	  printf("P1202_Card0_StartScan Function Error !!!, wRetVal -> %2d",wRetVal);
	  exit(0);
       }

   p=0; 
   for(;;)
    {
      wVal=inport(wAddrCtrl);	/* read FIFO status */
      if (!(wVal&0x40))		/* FIFO is overflow */
       {
	printf("Overflow\n");
	break;
       }
     else if ((wVal&0x20))	/* 1=data ready */
	  {
	   wBuf0[p++]=inport(wAddrAdda)&0x0fff;
	   if (p>127)
	    {
	     p=0;
	     fwrite(wBuf0,128,2,fp);
	    }
	  }
   } /* end of for loop */

  disable_timer0();
  P1202_Card0_Stop();
  P1202_DriverClose();
  fclose(fp);
  return 0;
}