Вот мой кусочек на баском авр
Код: Выделить всё
I2cstart
I2cwbyte &H20 ' 20
'02
I2cwbyte &B11000010 'dhiz dmute mono bass rclk rclk seekup seek D2=11010010
I2cwbyte &b00001101 ' 85= 10000101
'03
dane = freg - 870
I2cwbyte dane / 4 '
dane = dane mod 4
dane = dane * 64
set dane.4
I2cwbyte dane '
'04
I2cwbyte &B00010000 ' 000000000
I2cwbyte &B00000000 '
'05
I2cwbyte &B10001000 ' 0000 4 бита-порог поиска
dane = &B10000000 + volume
I2cwbyte dane
'06
'I2cwbyte &B00010000 ' 000000000
'I2cwbyte &B00000000
'07
'I2cwbyte &B00000000 ' 000000000
'I2cwbyte &B00000000
I2cstop





