$regfile = "m8def.dat"
$crystal = 1000000
$hwstack = 64
$swstack = 32
$framesize = 24
'----------------------------
Dim Chastota9850 As Dword
Dim Chastotar As Single
Dim Fddsclk As Single
Dim Ftw As Dword                                           '4 байта засылаемые в dds
Dim Z As Byte                                                 'пятый байт
Z = &B00000000                                              'для AD9850
'Z = &B00000001                                             'бит умножения х6 такта для AD9851
'
Declare Sub Send_ad9850
'***** Настройка портов *****
Config Portd.0 = Output                                    'dds
Config Portd.1 = Output                                    'dds
Config Portd.2 = Output                                    'dds
D7 Alias Portd.0 : Fq Alias Portd.1 : Clk Alias Portd.2
'D0-data  D1-Fq  D2-clk
'сброс dds  и перевод в последовательную загрузку
Clk = 0
Fq = 0
Waitus 1
Clk = 1
Waitus 1
Clk = 0
Waitus 1
Fq = 1
Waitus 1
Fq = 0
Waitus 1
'
Fddsclk = 4294967296 / 125000000
Chastota9850 = 5000000                                 '5MHz на выходе
'
'*****************************
'**** Отправка DDS AD9850 ****
'*****************************
Sub Send_ad9850
 Chastotar = Chastota9850 * Fddsclk
 Ftw = Chastotar                                           'перевод в целочисленный формат
 Reset Fq
  Shiftout D7 , Clk , Ftw , 3
  Shiftout D7 , Clk , Z , 3
 Set Fq
End Sub

End