Никак не получается получить данные с АЦП. По моему не проходит инициализация. Кто может работал с ним. Мой код не робит.

$regfile = "m168def.dat"
$crystal = 16000000
$hwstack = 40
$swstack = 16
$framesize = 32
$baud = 115200

Declare Sub Priem_adc2
Dim Ch1 As Word
Dim Ch2 As Word
Dim Podatki_out As Byte
Dim Байт_настройки As Byte
Dim Byte1 As Byte
Dim Byte2 As Byte
Dim Byte3 As Byte

Config Pind.5 = Input
Drdy2 Alias Pind.5
  Config Portd.6 = Output
  Buffer Alias Portd.6
  Set Buffer
      Config Portd.7 = Output
      Standby Alias Portd.7
      Set Standby
           Config Portb.0 = Output
           Reset_s Alias Portb.0
           Set Reset_s
               Config Portb.1 = Output
               Pol Alias Portb.1
               Set Pol
                 Config Portd.6 = Output
                 Cs2 Alias Portd.6
                 Reset Cs2
                     Config Portb.3 = Output
                     Dout Alias Portb.3                     'podatki AD7714 OUT
                          Config Pinb.4 = Input
                          Din Alias Pinb.4                  'podatki AD7714 IN
                              Config Portb.5 = Output
                              Sclk Alias Portb.5            'clockAD7714 CLK

'Config Pind.2 = Input
        Config Portc.3 = Output
        Klapan Alias Portc.3
'Drdy1 Alias Pind.2
'Config Portc.1 = Output
'Cs1 Alias Portc.1

  Config Spi = Soft , Din = Pinb.4 , Dout = Portb.3 , Clock = Portb.5 , Ss = None , Mode = 0
'Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low  , Phase = 0 , Clockrate = 128 , Noss = 1
Spiinit
Print "Na4alo "
Set Klapan
'Set Drdy1
'Waitus 10
'Reset Drdy1
Waitus 10
'------------------------------------------------------------------------------
'Reset Cs2
Байт_настройки = &H20                                       '20
'Spiout Байт_настройки , 1
Shiftout Dout , Sclk , Байт_настройки , 0 , 8               ', 8
  Waitus 10
Байт_настройки = &H60                                       '41
'Spiout Байт_настройки , 1
Shiftout Dout , Sclk , Байт_настройки , 0 , 8               ', 8
  Waitus 10
Байт_настройки = &H30                                       '30
'Spiout Байт_настройки , 1
Shiftout Dout , Sclk , Байт_настройки , 0 , 8               ', 8
  Waitus 10
Байт_настройки = &H14                                       '38
'Spiout Байт_настройки , 1
Shiftout Dout , Sclk , Байт_настройки , 0 , 8               ', 8
  Waitus 10
Байт_настройки = &H10                                       '10
'Spiout Байт_настройки , 1
Shiftout Dout , Sclk , Байт_настройки , 0 , 8               ', 8
  Waitus 10
Байт_настройки = &H20                                       '20
'Spiout Байт_настройки , 1
Shiftout Dout , Sclk , Байт_настройки , 0 , 8               ', 8
'Set Cs2

Print "Konec inicializacii ADC"

'Wait 1
'-------------------------------------------------------------------------------
'Reset Cs1
'Podatki_out = &B00100100
'Shiftout Dout , Sclk , Podatki_out , 1 , 8
'Waitus 10
'Podatki_out = &B10100000                                    '01100000  'HI filter vrednost nastavljen na 50Hz 24bit unipolarno
'Shiftout Dout , Sclk , Podatki_out , 1 , 8
'Waitus 10
'Podatki_out = &B00110100                                    'comun register nastavi za vpis LO filtra
'Shiftout Dout , Sclk , Podatki_out , 1 , 8
'Waitus 10
'Podatki_out = &B00010100                                    '00010100  'LO filter vrednost nastavljen na 50Hz (384 110000000)
'Shiftout Dout , Sclk , Podatki_out , 1 , 8
'Waitus 10
'Podatki_out = &B00010100                                    '00010100 comun register nastavi za vpis LO filtra
'Shiftout Dout , Sclk , Podatki_out , 1 , 8
'Waitus 10
'Podatki_out = &B00100000                                    '00000100 'LO filter vrednost
'Shiftout Dout , Sclk , Podatki_out , 1 , 8
'Print "konec2"
'Set Cs1
'-------------------------------------------------------------------------------
'Config Int1 = Falling                                       'Rising
'Config Int0 = Falling                                       'Falling
'Enable Interrupts
'On Int1 Priem_adc2
'On Int0 Priem_adc
'Enable Int1
'Enable Int0
Wait 1
Config Int0 = Falling
On Int0 Priem_adc2
Enable Interrupts
Enable Int0
'Reset Klapan

Do
'Priem_adc2
'If Drdy2 = 0 Then
'Waitus 5
'Priem_adc2
' Else
' Print "Ne robit kozel"
' End If
'Set Drdy2
'Waitus 10
'Reset Drdy2
'Waitus 10

'Set Drdy2
'Waitus 10
'Reset Drdy2
'Waitus 10
'Reset Cs2
'Set Cs2

'Print "Ne robit kozel"

'Ch2 = 0 : Ch3 = 0
'Waitms 200

Loop

End                                                         'end program

Sub Priem_adc2:
'Disable Int0
'Set Klapan
'Reset Cs2
Байт_настройки = &H58                                       'Байт_настройки = &B00100000                                 '  24 LO filter vrednost
'Spiout Байт_настройки , 1                                   'comun register nastavi za vpis LO filtra
Shiftout Dout , Sclk , Байт_настройки , 0 , 8
Waitus 5
Байт_настройки = &HFF
Shiftout Dout , Sclk , Байт_настройки , 0 , 8
Shiftout Dout , Sclk , Байт_настройки , 0 , 8
Shiftout Dout , Sclk , Байт_настройки , 0 , 8               ', 8
Waitus 5
Байт_настройки = &H58
Shiftout Dout , Sclk , Байт_настройки , 0 , 8
Waitus 5

Shiftin Din , Sclk , Byte1 , 0 , 8                          ', 1 , 8
'Spiin Byte1 , 1
Waitus 5
Shiftin Din , Sclk , Byte2 , 0 , 8                          ', 1 , 8
'Spiin Byte2 , 1
Waitus 5
Shiftin Din , Sclk , Byte3 , 0 , 8                          ' , 1 , 8
'Spiin Byte3 , 1
Waitus 5
'Set Cs2
Print Byte1 ; "  " ; Byte2 ; "  " ; Byte3
'Enable Int0
'Reset Klapan
End Sub