Jak skonfigurować zegarek RTC i termometr na LCD w Bascom na Atmega8?

$regfile = "m8def.DAT"

Config 1wire = Portd.2
Config Pind.1 = Input
Config Pind.4 = Input
                                                         
Config Lcdpin = Pin , Db7 = Portb.0 , Db6 = Portb.1 , Db5 = Portb.2 , Db4 = Portb.3 , E = Portb.4 , Rs = Portb.5
Config Lcd = 20 * 2
Cursor Off                                                
Deflcdchar 1 , 4 , 10 , 4 , 32 , 32 , 32 , 32 , 32 

Config Clock = Soft
Enable Interrupts
Time$ = "00:00:01"

Dim T1 As Single
Dim T2 As Single
Dim B1 As Byte , B2 As Byte , R As Byte
Dim Tmp As String * 6
Dim Znak As String * 1
R = &HFF
Declare Sub 1wr                                             'podprogram resetujacy magistrale 1w
Cursor Off
Cls

Do
1wr                                                         'podprogram 1wr
1wwrite &HCC                                                'komenda skip ROM
1wwrite &H44                                                'komenda convert T
Waitms 250
Waitms 250
1wr                                                         'podprogram 1wr
1wwrite &HCC                                                'komenda skip ROM
1wwrite &HBE                                                'komenda read

B1 = 1wread()                                               'odczyt z termometru
B2 = 1wread()

1wr                                                         'podprogram 1wr

If B2 >= 248 Then                                           'w przypadku temperatur ujemnych
B1 = R - B1                                                 'Od 255 Odejmujemy B1
B2 = R - B2                                                 'od 255 odejmujemy B2
Znak = "-"
Else
Znak = "+"
End If
T1 = B1 / 16                                                'Przesuniecie w pawo o 4 bajty
T2 = B2 * 16                                                'przesuniecie w lewo o 4 bajty
T1 = T1 + T2

Tmp = Fusing(t1 , "###.#")

Cls
Lcd Time$
Lowerline
Lcd Znak ; Tmp ; Chr(1) ; "C "

If Pind.1 = 1 Then
Incr _min
If _min = 60 Then
_min = 0
End If
End If

If Pind.4 = 1 Then
Incr _hour
If _hour = 24 Then
_hour = 0
End If
End If

Waitms 500

Loop

Sub 1wr                                                     'podprogram resetujacy magistrale
1wreset
End Sub

1)Ustaw kursor na dziesiątki godzin
2) Jeśli _hour jest mniejszy od 10 , to wyświetl "0";
3) Wyświetl _hour; Wyświetl dwukropek;
Powtórz kroki 2 i 3 dla minut , ale bez dwukropka

Const Formatuj = 0 
'dla 0 z If-ami , dla 1 z Format i sprawdź zajętość flash-a ;)

Cls
#if Formatuj = 0

Dim I As Byte , J As Byte , S_time As String * 5
For I = 0 To 23
   For J = 0 To 59
      Locate 1 , 1
      S_time = ""
      If I < 10 Then S_time = "0"
      S_time = S_time + Str(i) + ":"
      If J < 10 Then S_time = S_time + "0"
      S_time = S_time + Str(j)
      Lcd S_time;
   Next
Next

#else

Dim I As Byte , J As Byte
Dim S_format As String * 2 , S_time As String * 5
For I = 0 To 23
   For J = 0 To 59
      Locate 1 , 1
      S_format = Str(i)
      S_format = Format(s_format , "00")
      S_time = S_format + ":"
      S_format = Str(j)
      S_format = Format(s_format , "00")
      S_time = S_time + S_format
      Lcd S_time
   Next
Next

#endif

$crystal = 12000000