$regfile = "m8def.dat"
$crystal = 3686400

Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Config Lcd = 16 * 2
Config Portd = Output
Cls
Cursor Off Noblink


Config Timer1 = Timer , Prescale = 64
On Timer1 Timer_irq
Enable Timer1
Const Timervorgabe = 7935
Enable Interrupts

Config Clock = Soft

Dim Strtime As String * 8
Dim Sekunde As Byte , Minute As Byte , Stunde As Byte
Sekunde = 20
Minute = 1
Stunde = 2

Timer1 = Timervorgabe

Do

Loop
Timer_irq:
   Timer1 = Timervorgabe
   Sekunde = Sekunde - 1
   If Sekunde = 0 Then
      Sekunde = 59
      Minute = Minute - 1
      If Minute = 0 Then
         Minute = 59
         Stunde = Stunde - 1

      End If
   End If
   Cls
   Lcd Time(sekunde)
Return