DDS AD9835

[Userrr]

I found code for ad9850 at lpt port
Does anybody can help me write code for AD9835 for PIC or LPT.
(better PIC)/

[cbarberis]

Hi
I have written routines for the AD9834 DDS because these devices are very similar (but not the same), the AD9834 uses a 28 bit freq register versus the 32 bit for the AD9835 You will have to modify my routines to suit your needs.

+++++++++++++++++++++++++++++++++++++++++++++++

//**********************************************
//* Driver for AD9834 DDS Device
//*
//*
//*
//*
//* Carlos Barberis June, 2004
//**********************************************


#define CH0MASK 0X4000
#define CH1MASK 0X8000
#define NCORATIO 5.36870912
#define INITWORD 0X2000
#define TRIANGLE 0X2002
#bit FSYNC = 0xF81.4 // we have chosen RB4 for the enable pin
#bit RESET = 0xF81.5 // we have chosen RB5 for the reset pin, these
// maybe changed to any other I/O pin

// Make sure to init SPI port as below
// setup_spi(SPI_MASTER|SPI_H_TO_L|SPI_CLK_DIV_4|SPI_SS_DISABLED);


unsigned int32 Ftune;
int16 lsw;
int16 msw;

// Func prototypes
void InitDds(void);
void CalcTuneWords_F0(float Freq0);
void CalcTuneWords_F1(float Freq1);
void WriteToCtrlreg(unsigned int16 value);
void OutputSine(void);
void OutputTriangle(void);




void InitDds()
{
int8 i;

RESET = OFF;
for(i=0; i<4; i++)
{ WriteToCtrlreg(INITWORD);
delay_us(20); }
delay_us(100);
for(i=0; i<2; i++)
{ WriteToCtrlreg(INITWORD);
delay_us(20); }
delay_us(30);
RESET = ON;
delay_us(50);
RESET = OFF;
}





void CalcTuneWords_F0(float Freq0)
{

float tunning;

tunning = Freq0 * NCORATIO;
Ftune = (unsigned int32)tunning;
lsw = (int16)Ftune & 0X3FFF;
lsw = lsw | CH0MASK;
Ftune = Ftune & 0XFFFC000;
Ftune>>=6;
Ftune>>=8;
msw = (int16)Ftune | CH0MASK;
}



void CalcTuneWords_F1(float Freq1)
{
float tunning;

tunning = Freq1 * NCORATIO; // Calculate tunning word
Ftune = (unsigned int32)tunning; // into a 32 bit word
lsw = (int16)Ftune & 0X3FFF; // Extract lower 16 bit word
lsw = lsw | CH1MASK; // Mask b15 and b14 leaving 14 lsb's
Ftune = Ftune & 0XFFFC000; // Extract upper 16 bit word
Ftune>>=6; // Shift lower bits out to make 16 bit word
Ftune>>=8;
msw = (int16)Ftune | CH1MASK; // Mask b15 and b14 leaving 14 msb's
}


void WriteToFreg()
{
int8 lsb1, msb1,lsb2,msb2;

lsb1 = (int8)lsw; // convert 16bit word
msb1 = lsw >> 8; // into two bytes
lsb2 = (int8)msw;
msb2 = msw >> 8;
FSYNC = OFF; // Bring enable line low to start write of first word
delay_us(5);
spi_write(msb1); // load msb of low word
spi_write(lsb1); // load lsb of low word
delay_us(5);
FSYNC = ON; // Bring enable line high to end first word write
delay_us(5); // add some dead time between words
FSYNC = OFF; // Bring enable line low to start write of second word
spi_write(msb2); // load msb of high word
spi_write(lsb2); // load lsb of high word
delay_us(5);
FSYNC = ON; // Bring enable line high to end second word write
}


void WriteToCtrlreg(unsigned int16 value)
{
int8 clsb, cmsb;

clsb = (int8)value;
cmsb = value >> 8;
FSYNC = OFF;
delay_us(5);
spi_write(cmsb); // load low word
spi_write(clsb); // load low word // load control word
delay_us(5);
FSYNC = ON;
}


void OutputSine()
{ WriteToCtrlreg(INITWORD); }


void OutputTriangle()
{ WriteToCtrlreg(TRIANGLE); }

[Userrr]

Thanks for code!
I don't have Hardware SPI in my PIC .
Can I use software SPI ? How I can do it in this project?
Where is 28 bit freq register out to DDS in this code? How change for 32bit?

[Userrr]

Ok how about 9850 ? Is that is same codes?

[Userrr]

I talk to myself. please tell how about Init for ad9835 whithout SPI?

[Userrr]

Or tell me what is defer register and what I must to program in it.

[Userrr]

I found new program but on BASIC

this:

regfile = "8515def.dat"
$crystal = 8000000

Config Pind.7 = Output 'Sclk
Config Pind.6 = Output 'SData
Config Pind.5 = Output 'Fsync

Sclk Alias Portd.7
Sdata Alias Portd.6
Fsync Alias Portd.5

Set Sclk 'Set initial pin
state
Set Fsync 'Set initial pin
state


'#######################################################################
'End Hardware Configuration



Dim Fword0 As Long At &H60
Dim Low_byte0 As Byte At &H60 Overlay
Dim Low_mid_byte0 As Byte At &H61 Overlay
Dim High_mid_byte0 As Byte At &H62 Overlay
Dim High_byte0 As Byte At &H63 Overlay
Fword0 = &H346DC

Dim Setfreq As Long
Dim Freq As Single
Dim Count As Single



Setfreq = 400 'Change this
value
to the required Freq. in Hertz



Count = 536.870912 'This is count
for
1 Hz at 8 MHz MCLK input
Freq = Setfreq * Count
Fword0 = Freq




'Declare subroutines
'#######################################################################

Declare Sub Send_dds(byval Sw As Word)

'#######################################################################
'End Declare subroutines





'Start sending commands to the DDS
'#######################################################################

Call Send_dds(&Hf800) 'Resets DDS and
puts it into standby


Call Send_dds(&H3000 + Low_byte0) 'These 4 lines
sends the freq. to the DDS
Call Send_dds(&H2100 + Low_mid_byte0) 'These 4 lines
sends the freq. to the DDS
Call Send_dds(&H3200 + High_mid_byte0) 'These 4 lines
sends the freq. to the DDS
Call Send_dds(&H2300 + High_byte0) 'These 4 lines
sends the freq. to the DDS



Call Send_dds(&H8000) 'Sets SYNC and
SELSRC registers to 0
Call Send_dds(&H5000) 'Sets SELSRC
registers to 0
Call Send_dds(&Hc000) 'Brings DDS out
of
standby

'#######################################################################
'End sending commands to the DDS



Powerdown 'Put CPU in
Powerdown state for less noise
End 'End program


'########################################################################



'This is the subroutine that send the data to the DDS
'########################################################################
Sub Send_dds(byval Sw As Word)


Reset Fsync
Waitus 1
Shiftout Portd.6 , Portd.7 , Sw , 0 , 16 , 15
Set Fsync

End Sub

does exist a prof. man. that can do it on ccs

[PCM programmer]

There are some drivers available on the net for AD9832, which
is very similar to the AD9835.
Go to this page and download the file, lwex.zip, which is near the bottom.
http://home.swipnet.se/~w-41522/minidds/minidds.html
It's written for the CC5X compiler, so you would have to translate it
to CCS. It has a lot of ASM code within the C functions, so you might
have to make some changes there, to allow it to be compiled by CCS.

Here is a AD9835 driver. It's not in the public domain, and it's also
in ASM. But you could translate it to C, or at least use it as a guide
when writing your own C driver.
http://www.min.at/OE1RIB/DDS/AD9835.asm
http://www.min.at/OE1RIB/DDS/AD9835.h

But you keep saying this:

[Userrr]

Ok I admit my mistakes, no any question .









///(maybe)

[just4hoi]

Here is an ad9835 example:

[bkamen]

[SherpaDoug]

The original post was in 2004. I imagine the OP has either solved his problem or lost interest by now.
_________________
The search for better is endless. Instead simply find very good and get the job done.

[bkamen]