Jak poprawić dokładność zegara na AT89C2051 [SE-CLOCK-MINI]?

If G1 = 2 And G2 = 3 Then
   S2 = S2 + 8
End if

Config Timer0 = Timer , Gate = Internal , Mode = 1

Dim A As Byte
Dim G1 As Byte
Dim G2 As Byte
Dim M1 As Byte
Dim M2 As Byte
Dim S1 As Byte
Dim S2 As Byte

On Timer0 Zegar
Enable Interrupts
Enable Timer0
Counter0 = 4150
Start Timer0

G1 = 0
G2 = 0
M1 = 0
M2 = 0
S1 = 0
S2 = 0

Do

Loop

Zegar:
Counter0 = 4150
Start Timer0
Incr A

   If A = 15 Then
      A = 0
      Cursor Off
      Cls
      Lcd G1 ; G2 ; ":" ; M1 ; M2 ; ":" ; S1 ; S2
      Incr S2
   End If

   If S2 = 10 Then
      S2 = 0
      Incr S1
   End If

   If S1 = 6 Then
      S1 = 0
      Incr M2
   End If

   If M2 = 10 Then
      M2 = 0
      Incr M1
   End If

   If M1 = 6 Then
      M1 = 0
      Incr G2
   End If

   If G2 = 10 Then
      G2 = 0
      Incr G1
   End If

   If G2 = 4 And G1 = 2 Then
      G1 = 0
      G2 = 0
   End If

   If G1 = 3 Then
      G1 = 0
   End If

Return

If Clock_cent > 99 Then
   Clock_cent = 0
   Incr Clock_second
End If

If Icount > 49 Then
   Icount = 0
   Incr Clock_cent
End If