Форум РадиоКот

Код: Выделить всё

Dim Ready As Bit
Dim Mute As Bit
Dim Search As Bit
Dim 1st As Byte
Dim 2nd As Byte
Dim 3rd As Byte
Dim 4th As Byte
Dim 5th As Byte
Dim I As Byte
Dim Buffer(5) As Byte

Const 5767_w = &HC0                                         ' Запись в TEA5767
Const 5767_r = &HC1                                         ' Чтение

Config Sda = Portc.4
Config Scl = Portc.5
Config I2cdelay = 5
I2cinit

Freq = 1042                                                 ' Частота 104,2 МГц
   Pll = Freq : Pll = Pll * 100
   Pll = Pll + 225
   Pll = Pll * 4000
   Pll = Pll / 32768
   Tmp_w = Pll
   1st = High(tmp_w)
   2nd = Low(tmp_w)
Mute = 1                               ' А здесь  записать Mute=0 чтобы сразу включить звук 
Search = 0
3rd = &B00010000
4th = &B00010010
5th = 0
Gosub 5767_write
' Если код выделеный *** убрать, то после подачи питания есть шипение, хотя в
' микросхему 5767 записывается известная частота
' *************************************************
Wait 1
Gosub 5767_ready
If Buffer(1).7 = 1 Then
   Mute = 0
   Gosub 5767_write
End If
' *************************************************

Do
' Основная программа
Loop

5767_write:
   If Search = 0 Then
      Reset 1st.6                                           ' SM=OFF (Search Mode)
   Elseif Search = 1 Then
      Set 1st.6                                             ' SM=ON (Search Mode)
   End If
   If Mute = 0 Then
      Reset 1st.7                                           ' Mute OFF
   Elseif Mute = 1 Then
      Set 1st.7                                             ' Mute ON
   End If
   I2cstart
   I2cwbyte 5767_w
   I2cwbyte 1st
   I2cwbyte 2nd
   I2cwbyte 3rd
   I2cwbyte 4th
   I2cwbyte 5th
   I2cstop
Return

5767_ready:
   I2cstart
   I2cwbyte 5767_r
   For I = 1 To 5
       I2crbyte Buffer(i) , Ack
   Next
   I2cstop
Return


End                                                         'end program