Jak obsłużyć dwa termometry DS1820 w Bascom AVR?

1wreset
1wwrite &H55                                                ' Będę wysyłał adres
1wwrite Adresy(1) , 8                                       ' Wysyłam adres
1wwrite &HBE                                                ' Komenda dla czujnika o wysłanym adresie
Wew(1) = 1wread(9)
1wreset
1wwrite &H55
1wwrite Adresy(9) , 8
1wwrite &HBE
Zew(1) = 1wread(9)
1wreset
1wwrite &HCC                                                ' Komenda skip ROM, czyli słuchajcie wszyscy
1wwrite &H44                                                ' Komenda convert T
Waitms 500
Cls
T = Makeint(wew(1) , Wew(2))
Gosub Temp

Locate 1 , 1
Lcd "Temp.wew." ; Temp_str ; Chr(0) ; "C  "
If W = 1 Then
  Locate 2 , 1
  Lcd "----------------"                                    'Err = 1 jeśli brak czujnika zew.
  Elseif Err = 0 Then
   T = Makeint(zew(1) , Zew(2))
   Gosub Temp
   Locate 2 , 1
   Lcd "Temp.zew." ; Temp_str ; Chr(0) ; "C  "
    End If

Temp:
T = T * 10
T = T / 16
Temp_str = Str(t)
Temp_str = Format(temp_str , "0.0")
Return