Analog/Digitale Wanduhr 1 - Homepage von Stefan Buchgeher

4.5.5. INNEREUHR
Analog/Digitale Wanduhr 1
Aufgabe:
Für den Fall dass kein gültiges DCF-Telegramm empfangen werden kann sorgt dieses
Unterprogramm dafür, dass die Uhrzeit trotzdem jede Sekunde aktualisiert wird. Ist für
eine längere Zeit kein korrekter DCF-Empfang möglich, so würden die Minuten,
Stunden, Tage usw. stehen bleiben, da ja im Unterprogramm DCFUPMINUTE nur
gültige DCF-Telegramme übernommen werden.
Dieses Unterprogramm wird also parallel zu den Unterprogrammen für die DCF-
Dekodierung aufgerufen.
Vorgehensweise:
Die Sekunden (Register UHRSEKUNDE) um 1 erhöhen. Beinhalte dieses Register nun
den Wert 60, so beginnt eine neue Minute. Daher die Sekunden löschen und die
Minuten (Register UHRMINUTE) um 1 erhöhen. Beinhaltet dieses Register nun den
Wert 60, so beginnt eine neue Stunde. Daher die Minuten löschen und die Stunden
(Register UHRSTUNDE) um 1 erhöhen. Beinhaltet dieses Register nun den Wert 24, so
beginnt ein neuer Tag. Daher die Stunden löschen. Ist das Mitzählen des Datums
notwendig, so muss nun ein Register für den Tag (z.B. DATUMTAG) um 1 erhöht
werden und dieses Überprüft werden, wobei diese Prüfung nun nicht mehr so einfach
ist, da ja jeder Monat unterschiedlich viele Tage besitzt. Erschwerend kommt auch noch
hinzu, dass auch die Schaltjahre miteinbezogen werden müssen!
Achtung:
Dieses Unterprogramm muss daher jede Sekunde aufgerufen werden
Hier das Unterprogramm:
INNEREUHR incf UHRSEKUNDE,f ;Sekundenzähler um 1 erhöhen
movf UHRSEKUNDE,w
sublw .60
btfss STAT,Z ;Pruefen, ob Sekunde=60
goto INNERERUHRFERTIG
clrf UHRSEKUNDE ;Wenn Sekunde=60, Sekunde loeschen
incf UHRMINUTE,f ; und Minute um 1 erhöhen
movf UHRMINUTE,w
sublw .60
btfss STAT,Z ;Pruefen, ob Minute=60
goto INNERERUHRFERTIG
clrf UHRMINUTE ;Wenn Minute=60, Minute loeschen
incf UHRSTUNDE,f ; und Stunde erhoehen
movf UHRSTUNDE,w
sublw .24
btfsc STAT,Z ;Pruefen, ob Stunde=24
clrf UHRSTUNDE ;Wenn Stunde=24, Stunden loeschen
INNERERUHRFERTIG
return
Seite 28