Mega prosty zegarek. Weryfikacja kodu. Ustawienie czasu.

$regfile = "m8def.DAT"
$crystal = 1000000

Enable Interrupts
Config Clock = Soft , Gosub = Sectic

Time$ = "00:00:00"

Do
If _hour > 12 Then
_hour = 0
Loop


Sectic:
Toggle Pind.0
Portc = _hour
Portb = _min
Return

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

   Config Timer0 = Timer , Prescale = 1024
   Load Timer0 , 32
   On Timer0 1_sekunda

   Config Pind.7 = Input : Set_godz Alias Pind.7
   Config Pind.6 = Input : Set_min Alias Pind.6

   Dim Sekundy As Byte
   Dim Minuty As Byte
   Dim Godziny As Byte

   Enable Timer0
   Enable Interrupts

   Godziny = 0 : Minuty = 0 : Sekundy = 0

   Do
   Portc = Godziny
   Portb = Minuty

   If Set_godz = 0 Then
    Waitms 100 : Bitwait Set_godz , Set : Incr Godziny
     End If

   If Godziny > 12 Then Godziny = 1

   If Set_min = 0 Then
    Waitms 100 : Bitwait Set_min , Set : Incr Minuty : Sekundy = 0
     End If

   If Minuty > 59 Then Minuty = 0

   Loop

   End

   1_sekunda:
   Load Timer0 , 32
   Incr Sekundy

   If Sekundy > 59 Then
    Sekundy = 0 : Incr Minuty
     End If

   If Minuty > 59 Then
    Minuty = 0 : Incr Godziny
     End If

   If Godziny > 12 Then
    Godziny = 1
     End If

   Return