Atmel I2C Problem

Hallo!

Ich wollte meinen Eeprom beschreiben mit diesem Code:
Das schaltbild ist im Abhang.
$regfile = "8515def.dat"                                    ' specify 
the used micro

$crystal = 4000000                                          ' used 
crystal frequency

$baud = 19200                                               ' use baud 
rate

$hwstack = 32                                               ' default 
use 32 for the hardware stack

$swstack = 10                                               ' default 
use 10 for the SW stack

$framesize = 40                                             ' default 
use 40 for the frame space

Config Sda = Portb.1

Config Scl = Portb.0


'first dimension a variable

Dim B As Byte
Dim A As Byte
For A = 0 To 128
I2csend A , A
Next A                                                      'prints 101

End


Was mache ich falsch?Bin purer Anfänger!