Pullups sind da. Habs einmal mit 1,8K und einmal mit 10K ausprobiert.

Bin inswischen auch schon ein bißchen weiter:
Code:
$regfile = "m8515.dat"                                      'ATmega8515-Deklarationen
$crystal = 4000000                                          'Quarz: 4 MHz
$baud = 9600

Dim Wert As Byte
Dim I As Byte

Config Scl = Portb.2
Config Sda = Portb.3

I2cinit

I2cstart
I2cwbyte &B10010000
I2cwbyte &B00000000
I2cstop

Do
   I2cstart
   I2cwbyte &B10010001
   I2crbyte Wert , Nack
   I2cstop
   Print Wert;
Loop

End                                                         'end program
Funktioniert aber noch nicht.