//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "acces32.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"

unsigned int BASE=0x300;
unsigned short jumpers;
unsigned char adrange;
unsigned char dacBrange;
unsigned char dacArange;


unsigned char sbitd(unsigned int data,unsigned char bit);
double DAC(unsigned char DACnum,double DACV);
void EEPROM_Enable(void);
void EEPROM_Disable(void);
void EEPROM_Write(unsigned int addr,unsigned int data);
unsigned int EEPROM_Read(unsigned int addr);
void CAL_ADC(unsigned char M,unsigned char B);
void CALWrite(unsigned zAM,unsigned zAB,unsigned zDAM,unsigned zDBM);
void doCAL(void);
void init(void);
double readAD();


TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
        dac0mult = dac1mult = 0.0;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
        addrEDIT->Text = "300";        
}
//---------------------------------------------------------------------------
//sbitd takes data and bit, then returns 0x81 or 0x01 based on data[bit]
unsigned char sbitd(unsigned int data,unsigned char bit)
{
  return (data & (1<<bit))?0x81:0x01;
}

//DAC will write to the selected DAC and returns the actual volts
//(as modified for 12-bit D/A)
//DACnum is 0 or 1
//DACV is volts
double DAC(unsigned char DACnum,double DACV)
{
  unsigned int count=DACV/((DACnum?dacBrange:dacArange)?5.0L:10.0L)*4096;
  count &= 0xFFF; //12-bit DAC
        //To the hardware, the DACs are 1-based
  OutPortB(BASE+9,0x81);//DAC load mode = software
  OutPortB(BASE+9,sbitd(DACnum + 1,1)|2);//DACnum bit 1
  OutPortB(BASE+9,sbitd(DACnum + 1,0)|2);//DACnum bit 0
  OutPortB(BASE+9,0x01);//unused bit
  OutPortB(BASE+9,sbitd(count,11));//data bit 11
  OutPortB(BASE+9,sbitd(count,10));//data bit 10
  OutPortB(BASE+9,sbitd(count,9));//data bit 9
  OutPortB(BASE+9,sbitd(count,8));//data bit 8
  OutPortB(BASE+9,sbitd(count,7));//data bit 7
  OutPortB(BASE+9,sbitd(count,6));//data bit 6
  OutPortB(BASE+9,sbitd(count,5));//data bit 5
  OutPortB(BASE+9,sbitd(count,4));//data bit 4
  OutPortB(BASE+9,sbitd(count,3));//data bit 3
  OutPortB(BASE+9,sbitd(count,2));//data bit 2
  OutPortB(BASE+9,sbitd(count,1));//data bit 1
  OutPortB(BASE+9,sbitd(count,0));//data bit 0
  OutPortB(BASE+9,0x00);//end trans
  OutPortB(BASE+9,0x02);//Load DACs

  return double(count)/4096.0L*((DACnum?dacBrange:dacArange)?5.0L:10.0L);//actual V}
}

void EEPROM_Enable(void)
{
  OutPortB(BASE+0x0a,0x81);//start bit
  OutPortB(BASE+0x0a,0x01);//Opcode bit 0 (00 = enable/disable)
  OutPortB(BASE+0x0a,0x01);//Opcode bit 1  ""
  OutPortB(BASE+0x0a,0x81);//a5 (must be 1 to enable)
  OutPortB(BASE+0x0a,0x81);//a4 (must be 1 to enable)
  OutPortB(BASE+0x0a,0x01);//a3 (don't care because enable/disable)
  OutPortB(BASE+0x0a,0x01);//a2 (don't care because enable/disable)
  OutPortB(BASE+0x0a,0x01);//a1 (don't care because enable/disable)
  OutPortB(BASE+0x0a,0x01);//a0 (don't care because enable/disable)
  OutPortB(BASE+0x0a,0x00);//end trans
}

void EEPROM_Disable(void)
{
  OutPortB(BASE+0x0a,0x81);//start bit
  OutPortB(BASE+0x0a,0x01);//Opcode bit 0 (00 = enable/disable)
  OutPortB(BASE+0x0a,0x01);//Opcode bit 1  ""
  OutPortB(BASE+0x0a,0x01);//a5 (must be 0 to disable)
  OutPortB(BASE+0x0a,0x01);//a4 (must be 0 to disable)
  OutPortB(BASE+0x0a,0x01);//a3 (don't care because enable/disable)
  OutPortB(BASE+0x0a,0x01);//a2 (don't care because enable/disable)
  OutPortB(BASE+0x0a,0x01);//a1 (don't care because enable/disable)
  OutPortB(BASE+0x0a,0x01);//a0 (don't care because enable/disable)
  OutPortB(BASE+0x0a,0x00);//end trans
}

void EEPROM_Write(unsigned int addr,unsigned int data)
{
  OutPortB(BASE+0x0a,0x81);//Start Bit
  OutPortB(BASE+0x0a,0x01);//Opcode Bit 0 (01=write)
  OutPortB(BASE+0x0a,0x81);//Opcode Bit 1  ""
  OutPortB(BASE+0x0a,sbitd(addr,5));//a5 (address to write to)
  OutPortB(BASE+0x0a,sbitd(addr,4));//a4
  OutPortB(BASE+0x0a,sbitd(addr,3));//a3
  OutPortB(BASE+0x0a,sbitd(addr,2));//a2
  OutPortB(BASE+0x0a,sbitd(addr,1));//a1
  OutPortB(BASE+0x0a,sbitd(addr,0));//a0
  OutPortB(BASE+0x0a,sbitd(data,15));//d15
  OutPortB(BASE+0x0a,sbitd(data,14));//d14
  OutPortB(BASE+0x0a,sbitd(data,13));//d13
  OutPortB(BASE+0x0a,sbitd(data,12));//d12
  OutPortB(BASE+0x0a,sbitd(data,11));//d11
  OutPortB(BASE+0x0a,sbitd(data,10));//d10
  OutPortB(BASE+0x0a,sbitd(data,9));//d9
  OutPortB(BASE+0x0a,sbitd(data,8));//d8
  OutPortB(BASE+0x0a,sbitd(data,7));//d7
  OutPortB(BASE+0x0a,sbitd(data,6));//d6
  OutPortB(BASE+0x0a,sbitd(data,5));//d5
  OutPortB(BASE+0x0a,sbitd(data,4));//d4
  OutPortB(BASE+0x0a,sbitd(data,3));//d3
  OutPortB(BASE+0x0a,sbitd(data,2));//d2
  OutPortB(BASE+0x0a,sbitd(data,1));//d1
  OutPortB(BASE+0x0a,sbitd(data,0));//d0
  OutPortB(BASE+0x0a,0x00);//end trans
  Sleep(20);
}

unsigned int EEPROM_Read(unsigned int addr)
{
  unsigned int data=0;
  OutPortB(BASE+0x0a,0x81);//Start Bit
  OutPortB(BASE+0x0a,0x81);//Opcode Bit 0 (10=Read)
  OutPortB(BASE+0x0a,0x01);//Opcode Bit 1  ""
  OutPortB(BASE+0x0a,sbitd(addr,5));//a5 (address to write to)
  OutPortB(BASE+0x0a,sbitd(addr,4));//a4
  OutPortB(BASE+0x0a,sbitd(addr,3));//a3
  OutPortB(BASE+0x0a,sbitd(addr,2));//a2
  OutPortB(BASE+0x0a,sbitd(addr,1));//a1
  OutPortB(BASE+0x0a,sbitd(addr,0));//a0
//  delay(10);
//  InPortB(BASE+0x0a);//dummy bit
  data=(data<<1) | ((InPortB(BASE+0x0a) & 0x80)?1:0);//d15
  data=(data<<1) | ((InPortB(BASE+0x0a) & 0x80)?1:0);//d14
  data=(data<<1) | ((InPortB(BASE+0x0a) & 0x80)?1:0);//d13
  data=(data<<1) | ((InPortB(BASE+0x0a) & 0x80)?1:0);//d12
  data=(data<<1) | ((InPortB(BASE+0x0a) & 0x80)?1:0);//d11
  data=(data<<1) | ((InPortB(BASE+0x0a) & 0x80)?1:0);//d10
  data=(data<<1) | ((InPortB(BASE+0x0a) & 0x80)?1:0);//d9
  data=(data<<1) | ((InPortB(BASE+0x0a) & 0x80)?1:0);//d8
  data=(data<<1) | ((InPortB(BASE+0x0a) & 0x80)?1:0);//d7
  data=(data<<1) | ((InPortB(BASE+0x0a) & 0x80)?1:0);//d6
  data=(data<<1) | ((InPortB(BASE+0x0a) & 0x80)?1:0);//d5
  data=(data<<1) | ((InPortB(BASE+0x0a) & 0x80)?1:0);//d4
  data=(data<<1) | ((InPortB(BASE+0x0a) & 0x80)?1:0);//d3
  data=(data<<1) | ((InPortB(BASE+0x0a) & 0x80)?1:0);//d2
  data=(data<<1) | ((InPortB(BASE+0x0a) & 0x80)?1:0);//d1
  data=(data<<1) | ((InPortB(BASE+0x0a) & 0x80)?1:0);//d0
  OutPortB(BASE+0x0a,0x00);//end com
  return data;
}

void CAL_ADC(unsigned char M,unsigned char B)
{ //write cal to A/D, offset first, then slope
  OutPortB(BASE+0x0b,0x01);//a1 pot 00 is offset
  OutPortB(BASE+0x0b,0x01);//a0 ""
  OutPortB(BASE+0x0b,sbitd(B,7));//data bit 7 of offset
  OutPortB(BASE+0x0b,sbitd(B,6));//data bit 6 of offset
  OutPortB(BASE+0x0b,sbitd(B,5));//data bit 5 of offset
  OutPortB(BASE+0x0b,sbitd(B,4));//data bit 4 of offset
  OutPortB(BASE+0x0b,sbitd(B,3));//data bit 3 of offset
  OutPortB(BASE+0x0b,sbitd(B,2));//data bit 2 of offset
  OutPortB(BASE+0x0b,sbitd(B,1));//data bit 1 of offset
  OutPortB(BASE+0x0b,sbitd(B,0));//data bit 0 of offset
  OutPortB(BASE+0x0b,0x00);//end trans
  //write slope now
  OutPortB(BASE+0x0b,0x01);//a1 pot 01 is slope of A/D
  OutPortB(BASE+0x0b,0x81);//a0 pot 01 is slope of A/D
  OutPortB(BASE+0x0b,sbitd(M,7));//data bit 7 of slope
  OutPortB(BASE+0x0b,sbitd(M,6));//data bit 6 of slope
  OutPortB(BASE+0x0b,sbitd(M,5));//data bit 5 of slope
  OutPortB(BASE+0x0b,sbitd(M,4));//data bit 4 of slope
  OutPortB(BASE+0x0b,sbitd(M,3));//data bit 3 of slope
  OutPortB(BASE+0x0b,sbitd(M,2));//data bit 2 of slope
  OutPortB(BASE+0x0b,sbitd(M,1));//data bit 1 of slope
  OutPortB(BASE+0x0b,sbitd(M,0));//data bit 0 of slope
  OutPortB(BASE+0x0b,0x00);//end trans
}

void CAL_DAC(unsigned char DACNum,unsigned char M)
{
  OutPortB(BASE+0x0b,0x81);//a1 pot 10 is slope of DAC0
  OutPortB(BASE+0x0b,sbitd(DACNum,0));//a0 pot 11 is slope of DAC1
  OutPortB(BASE+0x0b,sbitd(M,7));//data bit 7 of slope
  OutPortB(BASE+0x0b,sbitd(M,6));//data bit 6 of slope
  OutPortB(BASE+0x0b,sbitd(M,5));//data bit 5 of slope
  OutPortB(BASE+0x0b,sbitd(M,4));//data bit 4 of slope
  OutPortB(BASE+0x0b,sbitd(M,3));//data bit 3 of slope
  OutPortB(BASE+0x0b,sbitd(M,2));//data bit 2 of slope
  OutPortB(BASE+0x0b,sbitd(M,1));//data bit 1 of slope
  OutPortB(BASE+0x0b,sbitd(M,0));//data bit 0 of slope
  OutPortB(BASE+0x0b,0x00);//end trans
}

void CALWrite(unsigned zAM,unsigned zAB,unsigned zDAM,unsigned zDBM)
{
 EEPROM_Enable();
 EEPROM_Write((adrange+0),zAB);
 EEPROM_Write((adrange+8),zAM);
 EEPROM_Write((dacArange+0x10),zDAM);
 EEPROM_Write((dacBrange+0x12),zDBM);
 EEPROM_Disable();
}

void doCAL(void)
{
  unsigned char zDAM, zDBM, zAM, zAB;

  zAB=EEPROM_Read((adrange+0))&0xff;  //byte 0-7 in EEPROM holds "B" for ADC
  zAM=EEPROM_Read((adrange+8))&0xff;  //byte 8-f in EEPROM holds "M" for ADC
  zDAM=EEPROM_Read((dacArange+0x10))&0xff; //byte x10,x11 in EEPROM holds "M" for DAC0
  zDBM=EEPROM_Read((dacBrange+0x12))&0xff; //byte x12,x13 in EEPROM holds "M" for DAC1
  CAL_DAC(0,zDAM);//write the calibration value from EEPROM to CAL Pots
  CAL_DAC(1,zDBM);// ""
  CAL_ADC(zAM,zAB);// ""

}

void init(void)
{
  jumpers=InPortB(BASE+0x08);//jumper configuration readback
  adrange=jumpers & 0x07;//d2,d1,d0 are 5/10, uni/bip, 16/8
  dacBrange=(jumpers>>3) & 0x01;//d4,d3 are 5/10 for daca,b
  dacArange=(jumpers>>4) & 0x01;
//  CAL();
}


double readAD()
{
  //scale counts into AD Range Volts
	unsigned short data;

	data = InPort(BASE);

  return
	(double(data) / 65536.0
	- ((adrange&0x02)?0.5:0.0))   //Adjust for polarity jumper
	* ((adrange&0x04)?10.0:20.0) //Adjust for gain jumper
  ;
}
void __fastcall TForm1::beginBTNClick(TObject *Sender)
{
        BASE = StrToInt("0x" + addrEDIT->Text);

        init();
        doCAL();

        channels = jumpers & 0x01 ? 16 : 8;

        OutPortB(BASE + 0x02, (channels - 1) * 0x10);


	OutPortB(BASE + 0x01, 0); //reset FIFO
	OutPortB(BASE + 0x1A, 0x00); //enable software conversion start

       	if (dacArange)
		dac0LBL->Caption = "DAC 0 output Range is 0 to 5 volts";
	else
		dac0LBL->Caption = "DAC 0 output Range is 0 to 10 volts";

	if (dacBrange)
		dac1LBL->Caption = "DAC 1 output Range is 0 to 5 volts";
	else
		dac1LBL->Caption = "DAC 1 output Range is 0 to 10 volts";

        Timer1->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
        double temp; 

        Timer1->Enabled = false;

        for (int count = 0; count < channels; count++)
                OutPortB(BASE, 0);

        chnl0EDIT->Text = FloatToStr(readAD());
        chnl1EDIT->Text = FloatToStr(readAD());
        chnl2EDIT->Text = FloatToStr(readAD());
        chnl3EDIT->Text = FloatToStr(readAD());
        chnl4EDIT->Text = FloatToStr(readAD());
        chnl5EDIT->Text = FloatToStr(readAD());
        chnl6EDIT->Text = FloatToStr(readAD());
        chnl7EDIT->Text = FloatToStr(readAD());

        if (channels == 16)
        {
                chnl8EDIT->Text = FloatToStr(readAD());
                chnl9EDIT->Text = FloatToStr(readAD());
                chnl10EDIT->Text = FloatToStr(readAD());
                chnl11EDIT->Text = FloatToStr(readAD());
                chnl12EDIT->Text = FloatToStr(readAD());
                chnl13EDIT->Text = FloatToStr(readAD());
                chnl14EDIT->Text = FloatToStr(readAD());
                chnl15EDIT->Text = FloatToStr(readAD());
        }


        dac0EDIT->Text = FloatToStr(DAC(0, dac0mult * (dacArange ? .49 : .99)));
        dac1EDIT->Text = FloatToStr(DAC(1, dac1mult * (dacBrange ? .49 : .99)));

        Timer1->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::dac0SPINClick(TObject *Sender, TUDBtnType Button)
{
        if (Button == btNext)
                dac0mult += 1.0;
        else
                dac0mult -= 1.0;


        if (dac0mult > 10.0)
                dac0mult = 0.0;
        else if (dac0mult < 0.0)
                dac0mult = 10.0;

}
//---------------------------------------------------------------------------

void __fastcall TForm1::dac1SPINClick(TObject *Sender, TUDBtnType Button)
{
        if (Button == btNext)
                dac1mult += 1.0;
        else
                dac1mult -= 1.0;


        if (dac1mult > 10.0)
                dac1mult = 0.0;
        else if (dac1mult < 0.0)
                dac1mult = 10.0;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::StopClick(TObject *Sender)
{
        Timer1->Enabled = false;
}
//---------------------------------------------------------------------------