programming DDS core

Closed Thread
Results 1 to 10 of 10

Hybrid View

  1. - 19th October 2010, 23:31 #1
    mackrackit's Avatar
    mackrackit
    mackrackit is offline SuperMod
    Join Date
    Nov 2003
    Location
    Wellton, U.S.A.
    Posts
    5,924

    Did you find this post helpful? Yes | No

    Default

    PicBasic code will work with that part?
    Dave
    Always wear safety glasses while programming.
  2. - 20th October 2010, 03:48 #2
    Mike, K8LH's Avatar
    Mike, K8LH
    Mike, K8LH is offline Member
    Join Date
    Aug 2005
    Location
    Michigan, USA
    Posts
    224

    Did you find this post helpful? Yes | No

    Default

    Not sure if this will help but please consider;

    Fr (frequency resolution) = 360000000/2^32 = 0.08381903171539306640625 Hz

    FTW = INT(Fo / Fr)
    FTW = INT(10000000 / 0.08381903171539306640625) = 119304647

    or using reciprocal multiplication (with a constant 1 / Fr = 11.9304647);

    FTW = INT(Fo * (1 / Fr))
    FTW = INT(10000000 * (11.930464711111111111111111111111)) = 119304647

    Good luck on your project...

    Cheerful regards, Mike, K8LH
    Last edited by Mike, K8LH; - 20th October 2010 at 03:58.
  3. - 20th October 2010, 05:25 #3
    Darrel Taylor's Avatar
    Darrel Taylor
    Darrel Taylor is offline Fanatical Contributor
    Join Date
    Jul 2003
    Location
    Colorado Springs
    Posts
    4,959

    Did you find this post helpful? Yes | No

    Default

    PBP doesn't have decimals, and (2^32 * 10e6) takes more than 32-bit LONGs.

    But using some 64-bit math works out pretty good.
    With the N-Bit_Math module from ... http://www.picbasic.co.uk/forum/showthread.php?t=12433
    Code:
    <font color="#000000"><b>PRECISION  </b><font color="#008000"><b>CON </b></font><font color="#800000"><b>8 </b></font><b>SYSTEM         </b><font color="#0000FF"><b><i>' 8 bytes = 64-bit
</i></b></font><font color="#008000"><b>INCLUDE </b></font><font color="#FF0000">&quot;N-Bit_Math.pbp&quot;

</font><b>Base  </b><font color="#008000"><b>VAR BYTE</b></font>[<b>PRECISION</b>]
<b>Fo    </b><font color="#008000"><b>VAR BYTE</b></font>[<b>PRECISION</b>]
<b>Fs    </b><font color="#008000"><b>VAR BYTE</b></font>[<b>PRECISION</b>]
<b>FTW   </b><font color="#008000"><b>VAR BYTE</b></font>[<b>PRECISION</b>]

<font color="#008000"><b>ASM
   </b></font><font color="#000080">MOVE?CP  4294967295, _Base    </font><font color="#0000FF"><b><i>; 2^32 - 1
   </i></b></font><font color="#000080">MOVE?CP  10000000, _Fo        </font><font color="#0000FF"><b><i>; desired frequency out
   </i></b></font><font color="#000080">MOVE?CP  360000000, _Fs       </font><font color="#0000FF"><b><i>; DDS clock
   
   </i></b></font><font color="#000080">MATH_MUL _Base, _Fo, _FTW     </font><font color="#0000FF"><b><i>; 2^32 * Fo
   </i></b></font><font color="#000080">MATH_DIV _FTW, _Fs, _FTW      </font><font color="#0000FF"><b><i>; / Fs
</i></b></font><font color="#008000"><b>ENDASM

HSEROUT </b></font>[<font color="#FF0000">&quot; FTW=&quot;</font>,<font color="#008000"><b>HEX2 </b></font><b>FTW</b>(<font color="#800000"><b>3</b></font>),<font color="#008000"><b>HEX2 </b></font><b>FTW</b>(<font color="#800000"><b>2</b></font>),<font color="#008000"><b>HEX2 </b></font><b>FTW</b>(<font color="#800000"><b>1</b></font>),<font color="#008000"><b>HEX2 </b></font><b>FTW</b>(<font color="#800000"><b>0</b></font>),<font color="#800000"><b>13</b></font>,<font color="#800000"><b>10</b></font>]
<font color="#008000"><b>STOP
</b></font>
    Which shows a result of ...

    FTW=071C71C7

    Which is the hex value for 119,304,647

    The value is located in the lower 4 bytes of the FTW array and can be easily shifted out to the DDS.

    HTH,
    DT
  4. - 20th October 2010, 08:30 #4
    harryweb's Avatar
    harryweb
    harryweb is offline Junior Member
    Join Date
    Sep 2005
    Location
    France
    Posts
    50

    Did you find this post helpful? Yes | No

    Lightbulb

    WOW ! It works !

    Thank You Darrel
  5. - 20th October 2010, 10:06 #5
    harryweb's Avatar
    harryweb
    harryweb is offline Junior Member
    Join Date
    Sep 2005
    Location
    France
    Posts
    50

    Did you find this post helpful? Yes | No

    Default

    But... I have tried to use a variable for Frequency output and it doesn't work anymore...

    Code:
    PRECISION  CON 8 SYSTEM         ' 8 bytes = 64-bit
INCLUDE "N-Bit_Math.pbp"

define osc 4

FOUT    var LONG
Base  VAR BYTE[PRECISION]
Fo    VAR BYTE[PRECISION]
Fs    VAR BYTE[PRECISION]
FTW   VAR BYTE[PRECISION]

high portc.6

FOUT = 1000000

ASM
   MOVE?CP  4294967295, _Base    ; 2^32 - 1
   MOVE?CP  _FOUT, _Fo        ; desired frequency out
   MOVE?CP  360000000, _Fs       ; DDS clock
   
   MATH_MUL _Base, _Fo, _FTW     ; 2^32 * Fo
   MATH_DIV _FTW, _Fs, _FTW      ; / Fs
ENDASM

serout2 portc.6,84,[" FTW=",HEX2 FTW(3),HEX2 FTW(2),HEX2 FTW(1),HEX2 FTW(0),13,10]
STOP
  6. - 20th October 2010, 11:59 #6
    Darrel Taylor's Avatar
    Darrel Taylor
    Darrel Taylor is offline Fanatical Contributor
    Join Date
    Jul 2003
    Location
    Colorado Springs
    Posts
    4,959

    Did you find this post helpful? Yes | No

    Default

    MOVE?CP is for constants.

    Use MOVE?LP for LONG variables.
    DT
  7. - 20th October 2010, 12:06 #7
    harryweb's Avatar
    harryweb
    harryweb is offline Junior Member
    Join Date
    Sep 2005
    Location
    France
    Posts
    50

    Did you find this post helpful? Yes | No

    Default

    Darrel... you're wonderful !
« Previous Thread | Next Thread »

Members who have read this thread : 1

You do not have permission to view the list of names.

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Forum Rules