Danke schonmal!

Habs grad mal auf die Schnelle eingebaut, jetzt misst er -975 Grad

Ich werd nachher nochmal alles kontrollieren, muss jetzt erstmal weg...

edit:
Ich dreh langsam am Rad... hier mal der komplette Code, der mir -975 zurückliefert...


Code:
$regfile = "m32def.dat"
$crystal = 16000000

'Config Scl = Portc.0                                        'Ports fuer IIC-Bus MEGA32
'Config Sda = Portc.1                                        'Ports fuer IIC-Bus MEGA32
Config I2cdelay = 5
CONFIG TWI = 100000

$LIB "I2C_TWI.LBX"


Print "Let's go!"

Do
Dim Ival As Integer
Dim Msb As Byte
Dim Lsb As Byte
        I2cstart
        I2cwbyte &H9E                                       ' Lese-adresse !
        If Err = 1 Then
           I2cstop                                          ' kein ACK vom LM75 --> irgendein Fehler
           Ival = 9999                                      ' Zeichen, daß der Wert ungültig ist !
        Else
           I2crbyte Msb , Ack
           I2crbyte Lsb , Nack
           I2cstop
           If Msb.7 = 1 Then
              Ival = Makeint(msb , &HFF)                    ' auffüllen mit den Vorzeichen bits
           Else
              Ival = Makeint(msb , &H00)                    ' positiv, also bleibt es so
           End If
           Ival = Ival * 10                                 ' erweitern
           If Lsb.7 = 1 Then
             Ival = Ival + 5                                ' fünf Zehntel Grad dazu
           End If
        End If
        Print Ival
        Wait 2
Loop
Ist da irgendwo ein Fehler den ich nicht finde, oder ist etwa der LM75 defekt?!