[BASCOM]Pomoc w napisaniu programu - Zegar LCD Attiny2313

$regfile = "attiny2313.dat"
$crystal = 4000000
Config Portd = &B1111100                                    'dwa najmłodsze bity portu D jako wejścia
Portd = &B1111111                                           'stan spoczynkowy portu D 1
Config Portb = &B11111111                                   'port B jako wyjścia
Portb = &B11111111

Config Lcd = 16 * 1a                                        'konfiguracja wyświetlacza
'piny ustawione w zakładce : Options-Compliler-LCD

Dim G As Byte                                               'konfiguracja zmiennych
Dim M As Byte
Dim S As Byte

G = 0
M = 0
S = 0

Cls
Cursor Off

Lcd "zegarek "                                              'tylko przy włączaniu
Lowerline
Lcd "by Krys "

Do                                                          'pętelka

Wait 1
Incr S
If S = 59 Then
S = 0
Incr M
End If

If M = 59 Then
M = 0
Incr G
End If

If Pind.1 = 0 Then                                          'ustawianie godzin
Incr G
End If

If Pind.0 = 0 Then                                          'ustawianie minut
Incr M
End If


Cls                                                         'wyświetlanie czasu
Cursor Off
Lcd "zegarek "
Lowerline
Lcd G ; ":" ; M ; ":" ; S


If G = 12 Then                                              'zerowanie
S = 0
M = 0
G = 0
End If
Loop

End

$regfile = "attiny2313.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.4 , Rs = Portb.5
Config Timer0 = Timer , Prescale = 256
Config Pind.0 = Input
Config Pind.1 = Input
Set Portd.0
Set Portd.1
Dim G As Byte                                               'konfiguracja zmiennych
Dim M As Byte
Dim S As Byte
Dim Licz_8ms As Byte

On Timer0 Odmierz_1s
Enable Interrupts
Enable Timer0
Load Timer0 = 250


G = 0
M = 0
S = 0

Cls
Cursor Off

Lcd "ZEGAREK "                                              'tylko przy włączaniu
Lowerline
Lcd "by Krys "
Wait 1

Do
If G < 10 Then
   If S < 10 Then
      If M < 10 Then
         Cls
         Locate 1 , 1
         Lcd "ZEGAREK"
         Locate 2 , 1
         Lcd "0" ; G ; ":" ; "0" ; M ; ":" ; "0" ; S
         Waitms 100
      End If
      If M > 9 Then
         Cls
         Locate 1 , 1
         Lcd "ZEGAREK"
         Locate 2 , 1
         Lcd "0" ; G ; ":" ; M ; ":" ; "0" ; S
         Waitms 100
      End If
   Else
      If M < 10 Then
         Cls
         Locate 1 , 1
         Lcd "ZEGAREK"
         Locate 2 , 1
         Lcd "0" ; G ; ":" ; "0" ; M ; ":" ; S
         Waitms 100
      End If
      If M > 9 Then
         Cls
         Locate 1 , 1
         Lcd "ZEGAREK"
         Locate 2 , 1
         Lcd "0" ; G ; ":" ; M ; ":" ; S
         Waitms 100
      End If
   End If
Else
   If S < 10 Then
      If M < 10 Then
         Cls
         Locate 1 , 1
         Lcd "ZEGAREK"
         Locate 2 , 1
         Lcd G ; ":" ; "0" ; M ; ":" ; "0" ; S
         Waitms 100
      End If
      If M > 9 Then
         Cls
         Locate 1 , 1
         Lcd "ZEGAREK"
         Locate 2 , 1
         Lcd G ; ":" ; M ; ":" ; "0" ; S
         Waitms 100
      End If
   Else
      If M < 10 Then
         Cls
         Locate 1 , 1
         Lcd "ZEGAREK"
         Locate 2 , 1
         Lcd G ; ":" ; "0" ; M ; ":" ; S
         Waitms 100
      End If
      If M > 9 Then
         Cls
         Locate 1 , 1
         Lcd "ZEGAREK"
         Locate 2 , 1
         Lcd G ; ":" ; M ; ":" ; S
         Waitms 100
      End If
   End If
End If

If Pind.1 = 0 Then                                          'ustawianie godzin
   Waitms 25
   If Pind.1 = 0 Then
      Incr G
   End If
End If

If Pind.0 = 0 Then                                          'ustawianie minut
   Waitms 25
   If Pind.0 = 0 Then
      Incr M
   End If
End If

If S = 60 Then
S = 0
Incr M
End If

If M = 60 Then
M = 0
Incr G
End If

If G = 24 Then                                              'zerowanie
S = 0
M = 0
G = 0
End If
Loop

End

Odmierz_1s:
   Load Timer0 = 250
   Incr Licz_8ms
   If Licz_8ms = 125 Then
      Licz_8ms = 0
      Incr S
   End If
Return

$regfile = "attiny2313.dat"
$crystal = 8000000
Config Pind.0 = Input
Config Pind.1 = Input
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.4 , Rs = Portb.5
Config Timer1 = Timer , Prescale = 256
Declare Sub Czas
On Timer1 Odmierz_1s
Dim Sekunda As Byte
Dim Minuta As Byte
Dim Godzina As Byte
Dim Nowa As Bit
Dim Wart As Byte
S2 Alias Pind.0
S1 Alias Pind.1
Enable Interrupts
Enable Timer1
Set Nowa
Set Portd.0
Set Portd.1

Do

Call Czas

If S1 = 0 Then
   Waitms 25
   If S1 = 0 Then
      Incr Minuta
      Sekunda = 0
      If Minuta = 60 Then
         Minuta = 0
      End If
      Set Nowa
      Call Czas
      Waitms 100
   End If
End If
If S2 = 0 Then
   Waitms 25
   If S2 = 0 Then
      Incr Godzina
      If Godzina = 24 Then
         Godzina = 0
      End If
      Set Nowa
      Call Czas
      Waitms 100
   End If
End If
Loop
End

Sub Czas
   If Nowa = 1 Then
   Cls
   Wart = Makebcd(godzina)
   Lcd Bcd(wart) ; ":"
   Wart = Makebcd(minuta)
   Lcd Bcd(wart) ; ":"
   Wart = Makebcd(sekunda)
   Lcd Bcd(wart);
   Reset Nowa
   End If
End Sub

Odmierz_1s:
   Counter1 = Counter1 + 34286
   Incr Sekunda
   Set Nowa
   If Sekunda = 60 Then
      Sekunda = 0
      Incr Minuta
         If Minuta = 60 Then
            Minuta = 0
            Incr Godzina
            If Godzina = 24 Then
               Godzina = 0
            End If
         End If
   End If
Return

 
$crystal = 11059200

 #if _xtal < 4000000
   Const Presc = 64
#else
   Const Presc = 256
#endif

Const Maxval = _xtal / Presc -1 

On Oc1a Sekunda
Enable Oc1a
Enable Interrupts 

Pwm1a = Maxval

#if Presc = 64
   Tccr1b = &B00001011
#else
   Tccr1b = &B00001100
#endif 

Sekunda:
Incr Sekunda
Return