Отправлено =AK= 10 ноября 2003 г. 15:39 В ответ на: i2c отправлено radmur 10 ноября 2003 г. 15:03

  rcall i2c_init          ; хрен знает зачем, может, и правда надо
  rcall i2c_start         ; Send start condition
                          ; --слать адрес до старта - бессмысленно
  ldi   i2cadr,$A0+i2cwr  ; Set device address and write
  rcall i2c_do_transfer   ; Execute transfer (write) 
                          ; --еще Ack проверить было бы хорошо
  ldi   i2cdata,$00       ; Write word address (0x00)
  rcall i2c_do_transfer   ; Execute transfer (write)
                          ; --а можно и не только Ack
  ldi   i2cdata,$51       ; Set write data to 01010001b - тщательнЕее
  rcall i2c_do_transfer   ; Execute transfer (write)
                          ; --можно и данные на совпадение проверить
  ldi   i2cdata,$52       ; Set write data to 01010010b
  rcall i2c_do_transfer   ; Execute transfer (write)
                          ; --хоть это и рюшечки
  ldi   i2cdata,$53       ; Set write data to 01010011b
  rcall i2c_do_transfer   ; Execute transfer (write)
                          ; --понятия (read/write) в данном случае
                          ; --весьма относительны
  rcall i2c_stop          ; Send stop condition