/*****************************************
  NAME: Adcts.c
  DESC: ADC & Touch screen test
  HISTORY:
 *****************************************/
#include <stdio.h>
#include <string.h>
#include "def.h"
#include "option.h"
#include "2413addr.h"
#include "Console.h"
#include "System.h" 
#include "adcts.h" 


#define PRSCVL 19
	// A/D converter freq.=50MHz/(PRSCVL+1)
	// Conversion Time = 1/(Freq./5cycle)
	// A/D's Max. clcok is 2.5MHz

#define REQCNT 30
#define LOOP 1

int ReadAdc(int ch);    //Return type is int, Declare Prototype function
void __irq AdcTsAuto(void);

int ADCcount=0;
volatile int xdata, ydata;

void * adc_function[][2]=
{	
	(void *)Test_Adc	,				"ADC Test			",
	(void *)Test_AdcTs,				"Touch Screen Test		",
	0,0
};

void AdcDisplayFunction(void)
{
	int i;

	i=0;	
	printf("\n\n");
	while(1)	{   //display menu
	    printf("%2d:%s",i,adc_function[i][1]);
	    i++;
	    if((int)(adc_function[i][0])==0) {
			printf("\n");
			break;
			
	    }
	    if((i%2)==0) printf("\n");
	}
}

void Ch15_ADC(void)
{
	int i;

	while(1) {
		AdcDisplayFunction();
		printf("\nSelect(-1 to exit): ");
		i = GetIntNum();
		//Uart_Printf("IN:%d.\n\n", i);
		if(i==-1) break;
		
		if(i>=0 && (i<(sizeof(adc_function)/8)) ) 
	    	( (void (*)(void)) (adc_function[i][0]) )();	// execute selected function.
	}

}

void Measure_ADC_current( void)
{
	int a;

    rADCCON=(1<<14)+(PRSCVL<<6)+(0<<3)+(1<<2);		//setup channel, PRSCVL
    rADCTSC = 0x58;							//Normal ADC conversion & No TS operation

	printf("Now ADC is in standby mode.\n");
	printf("Press any key to change the mode.\n");
	getchar();


    rADCCON=(1<<14)+(PRSCVL<<6)+(0<<3);		//setup channel, PRSCVL
    rADCTSC = 0x58;							//Normal ADC conversion & No TS operation
	
	printf("Press any key to run converting\n");
	getchar();
	
	while(1) {
	    rADCCON|=0x1;   						//start ADC
	    while(!(rADCCON & 0x8000));        //check if EC(End of Conversion) flag is high
	    a=rADCDAT0&0x3ff;
	
		printf("ADC result : %d\n",a);
	}
	
}

void Test_Adc(void)
{
    int a0=0,a1=0,a2=0,a3=0; //Initialize variables
    int a4=0,a5=0,a6=0,a7=0; //Initialize variables
    
    printf("The ADC_IN are adjusted to the following values.\n");        
    printf("Push any key to exit!!!\n");    
    printf("ADC conv. freq.=%d(Hz)\n",(int)(PCLK/(PRSCVL+1.))); // ADC Freq. = PCLK/(ADCPSR+1), ADC conversion time = 5CYCLES*(1/(ADC Freq.))
    
    while(Uart_GetKey()==0)
    {

#if 1
    a0=ReadAdc(0);
    a1=ReadAdc(1);
    a2=ReadAdc(2);
    a3=ReadAdc(3);
    a4=ReadAdc(4);    
    a5=ReadAdc(5);
    a6=ReadAdc(6);
    a7=ReadAdc(7);    


    printf("AIN0: %04d AIN1: %04d AIN2: %04d AIN3: %04d", a0,a1,a2,a3);
    printf("AIN4: %04d AIN5: %04d AIN6: %04d AIN7: %04d \n", a4,a5,a6,a7);
#else
    a6=ReadAdc(6);
    printf("AIN6 : %04d\n", a6);
#endif
   }
    
    rADCCON=(0<<14)+(19<<6)+(7<<3)+(1<<2);     //stand by mode to reduce power consumption 
    printf("rADCCON = 0x%x\n", rADCCON);
}

        
int ReadAdc(int ch)
{
    int i;
    static int prevCh=-1;

    if(prevCh!=ch)
        {
        rADCCON=(1<<14)+(PRSCVL<<6)+(ch<<3);   //setup channel, PRSCVL
        for(i=0;i<LOOP;i++);    //delay to set up the next channel
        prevCh=ch;
        }
    rADCCON=(1<<14)+(PRSCVL<<6)+(ch<<3);   //setup channel, PRSCVL
    rADCTSC = rADCTSC & 0xfb;     //Normal ADC conversion & No TS operation
    rADCCON|=0x1;   //start ADC

    while(rADCCON & 0x1);          //check if Enable_start is low
    while(!(rADCCON & 0x8000));        //check if EC(End of Conversion) flag is high
    return (rADCDAT0&0x3ff);
}

    
void Test_AdcTs(void)
{
   
    rADCDLY=50000;                  //Normal conversion mode delay about (1/3.6864M)*50000=13.56ms
    rADCCON=(1<<14)+(PRSCVL<<6);   //PRSCVL En, PRSCVL Value

    printf("[ADC touch screen test.]\n");

    rADCTSC=0xd3;  //Wfait,XP_PU,XP_Dis,XM_Dis,YP_Dis,YM_En

    pISR_ADC = (int)AdcTsAuto;
    rINTMSK=~BIT_ADC;       //ADC Touch Screen Mask bit clear
    rINTSUBMSK=~(BIT_SUB_TC);

    printf("\nType any key to exit!!!\n");
    printf("\nStylus Down, please...... \n");
    Uart_getc();

    rINTSUBMSK|=BIT_SUB_TC;
    rINTMSK|=BIT_ADC;
    printf("[Touch Screen Test.]\n");

}


void __irq AdcTsAuto(void)
{
	int i;
	unsigned int saveAdcdly;

    if(rADCDAT0&0x8000)
    {
	printf("\nStylus Up!!\n");
	rADCTSC&=0xff;	// Set stylus down interrupt bit
    }
    else 
	printf("\nStylus Down!!\n");

	rADCTSC=(1<<3)|(1<<2);         //Pull-up disable, Seq. X,Y postion measure.
	saveAdcdly=rADCDLY;
	rADCDLY=40000;                 //Normal conversion mode delay about (1/50M)*40000=0.8ms

	rADCCON|=0x1;                   //start ADC

		while(rADCCON & 0x1);		//check if Enable_start is low
		while(!(rADCCON & 0x8000));        //check if EC(End of Conversion) flag is high, This line is necessary~!!
		
            while(!(rSRCPND & (BIT_ADC)));  //check if ADC is finished with interrupt bit

            xdata=(rADCDAT0&0x3ff);
            ydata=(rADCDAT1&0x3ff);

	 //YH 0627, To check Stylus Up Interrupt.
	 rSUBSRCPND|=BIT_SUB_TC;
	 ClearPending(BIT_ADC);
	 rINTSUBMSK=~(BIT_SUB_TC);
	 rINTMSK=~(BIT_ADC);
			 
	 rADCTSC =0xd3;    //Waiting for interrupt
	 rADCTSC=rADCTSC|(1<<8); // Detect stylus up interrupt signal.

			while(1)		//to check Pen-up state
			{
			 if(rSUBSRCPND & (BIT_SUB_TC))	//check if ADC is finished with interrupt bit
				 {
					printf("Stylus Up Interrupt~!\n");
					break;	//if Stylus is up(1) state
				}
			}	

    printf("ADCcount=%d XP=%04d, YP=%04d\n", ADCcount++, xdata, ydata);    //X-position Conversion data            

	rADCDLY=saveAdcdly; 
	rADCTSC=rADCTSC&~(1<<8); // Detect stylus Down interrupt signal.
    rSUBSRCPND|=BIT_SUB_TC;
    rINTSUBMSK=~(BIT_SUB_TC);	// Unmask sub interrupt (TC)     
    ClearPending(BIT_ADC);
}