DS1820 will nicht an Atmega32

$regfile = "m32def.dat"

$crystal = 16000000

Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.2 , Rs = Portc.0

Config Lcd = 16 * 2

Config 1wire = Portd.0

Const Parasitpower = 1

Const Ds1820 = &H10

Const Skiprom = &HCC

Const Read_rom = &H33

Const Convertt = &H44

Const Read_ram = &HBE

Const Write_ram = &H4E

Const Copy_ram = &H48

Const Recall_ee = &HB8

Const Read_power = &HB4

Dim Family_code As Byte

Dim Serial_number(6) As Byte

Dim Crc As Byte

Dim Scratch(9) As Byte

Dim I As Byte

Dim Temp As Word

Dim Temp1 As Integer

Dim Stemp As Single

Do

   1wreset

   If Err = 1 Then Lcd "Ibutton Error"

   1wwrite Read_rom

   Family_code = 1wread()

   For I = 1 To 6

      Serial_number(i) = 1wread()

   Next

   Crc = 1wread()

   If Family_code <> Ds1820 Then Exit Do

   1wwrite Convertt

   #if Parasitpower

      Wait 2

   #else

      Do

         Temp = 1wread()

      Loop Until Temp = &HFF

   #endif

   1wreset

   If Err = 1 Then Lcd "Ibutton Error"

   1wwrite Skiprom

   1wwrite Read_ram

   For I = 1 To 9

      Scratch(i) = 1wread()

   Next

   Temp = Scratch(2)

   Shift Temp , Left , 8

   Temp = Temp + Scratch(1)

   Temp1 = Temp

   Temp1 = Temp1 / 2

   Lcd Temp1

   Stemp = Scratch(8) - Scratch(7)

   Stemp = Stemp / Scratch(8)

   Stemp = Stemp + Temp1

   Stemp = Stemp - 0.25

   Lowerline

   Lcd Fusing(stemp , "#.##")

   Wait 2

Loop

 Lcd "Kein Sensor"

End