Druckbare Version
Da ich jetzt schon öfter in meine Projekte eine Funkuhr eingesetzt habe und nicht jedes mal ellenlange Codes einfügen wollte,
habe ich mich entschlossen, das ganze mit einer Library zu vereinfachen.
Das wichtigste dabei war, jeden beliebigen Pin benutzen zu können und auch jeden beliebigen Timer.
Falls es jemand gebrauchen kann, die Library liegt zusammen mit einem Beispielprogramm im Download.
Hallo,
da der Downloadbereich sicher weniger frequentiert wird, als dieses Forum auch an dieser Stelle meinen herzlichen Dank für die Library. Funktioniert bestens. Ein paar Anregungen/Anmerkungen habe ich in einem PDF zusammengefasst. Auch eine kleine Modifikation mit Beispielprogrammen ist enthalten (als ZIP). Siehe auch Kommentar im Downloadbereich.
Download der Anmerkungen:
Edit von radbruch (24.01.2018): Link führt zu agressiver Werbung:
www.henrik-reimers.de/control/Downloads/dcf77_anmerkungen.zip
Viele Grüße
Henrik
Hallo,
Was muss ich ändern um die Lib mit dem Mega128 zu verwenden?
MFG
Bertl
Habs im Datenblatt gerade gefunden.
Die entsprechenden I/O Adressen sind im Datenblatt immer ganz hinten.
MFG
Bertl
Bingo! :-). Ich habe in meine Tabelle nur bereits selbst getestete Controller aufgenommen, den Mega128 habe ich zwar da, aber noch nicht mit der Lib getestet.Zitat:
Zitat von bertl100
BTW: Beim Tiny45 geht natürlich nur SW-Uart bzw. I2C - es muss also auf der Emfangsseite auf Plausibilität geprüft werden.
Grüße
Henrik
Hallo Henrik,
schön, dass dir meine Lib gefällt. :D
Sie war in meinem speziellem Fall dafür gedacht, vorhandene Projekte mit einer Funkuhr nachzurüsten. (z.B. Jallousiesteuerung)
Wobei es natürlich nicht nötig ist, die Softuhr permanent mit der Funkuhr zu synchronisieren.
Ich lasse 1x pro Tag die Softuhr stellen, sodass der Timer IRQ die meiste Zeit nur ein paar µs für die Softuhr benötigt.
Die 25 ms Intervall habe ich gewählt, um auch einen ungenutzten 8 Bit Timer verwenden zu können.
Deine Modifikationen machen doch eigendlich nur Sinn, wenn die Hauptanwendung, das Anzeigen der aktuellen Uhrzeit ist.
Hallo Alle,
ich versuche die Lib mit einem Mega128 und einem DCF-Modul von Conrad zum Laufen zu bringen. Leider bisher ohne Erfolg. Der Pin für DCF sollte der richtige sein. Ich habe den Debug-mode eingestellt und kann die Impulse beobachten. Die Pausenzeiten sind ok. Der Zähler läuft auch im Sekundentakt bis 59. Allerdings ist die Impulslänge (bei 30) nicht im angegebenen Rahmen. Damit werden wohl auch Parity und Imp=OK nicht besser. Woran könnte das liegen?
Viele Grüße Thomas
Hallo Thomas,
es sieht so aus, als würdest du den falschen Ausgang benutzen ...
So sollte es angeschlossen werden. (ohne externen Pullupwiderstand)
Hallo Leute,
danke für die DCF-Library an W. Krüger, einfach Spitze!
@Henrik:
Eine Zusatzfrage zu deiner abgewandelten Library:
Gibt es auch eine Möglichkeit, die DCF-Zeit in TIME$ und DATE$ zu übernehmen (zu einem Zeitpunkt, den ich im Prog bestimme) OHNE einen Quarz an TOSC anzuschließen?
D.h. kriege ich die Softclock im M32 auch ohne Quarz z.B. mit einem 1Hz-Timerimpuls zum laufen und kann sie dann (z.B. jede halbe Stunde) mit der DCF-Zeit updaten?
Oder könnte man in der Interruptroutine einen Zähler bis 40 einbauen, der bei jedem 40. Aufruf die Sek. um 1 hochzählt?
Gruß Dirk
Das geht im Prinzip alles. Nur eine Fleißaufgabe, für die mir im Moment die Zeit etwas fehlt.Zitat:
Zitat von Dirk
Um Date$ und Time$, die man dann etwas anders nennen muss, mit der Originallib von Albundy zu realisieren habe ich auf die Schnelle folgendes zusammengeschustert (der gewünschte "Universaleinsekundenzähler" ist auch drin):
GrüßeCode:'*******************************************************************************
'* DEMO für DCF77 Library von W. Krueger *
'* leicht abgewandelt von H.Reimers 02.04.2006 *
'*******************************************************************************
$regfile = "m32def.dat"
$crystal = 7372800
$baud = 9600
$hwstack = 64
$swstack = 64
$framesize = 64
'Config Lcdpin = Pin , Db4 = Pd.4 , Db5 = Pd.5 , Db6 = Pd.6 , Db7 = Pd.7 , _
'E = Pd.3 , Rs = Pd.2
'Config Scl = Portc.0
'Config Sda = Portc.1
'Portc.0 = 1 'Pullup Widerstand ein
'Portc.1 = 1 'Pullup Widerstand ein
'I2cinit 'I2C Initialisierung
'-------------------- Für I2C LCD und M32 Modul --------------------------------
$lib "Lcd_i2c.lib" 'i2c Treiber für das LCD
Dim _lcd_e As Byte 'Nötig für die Enable Auswahl
Const Pcf8574_lcd = 112 'Adresse des LCD-PCF
Waitms 200
_lcd_e = 128 'Für LCDs mit 1 Controller
Config Scl = Portc.0
Config Sda = Portc.1
Portc.0 = 1 'Pullup Widerstand ein
Portc.1 = 1 'Pullup Widerstand ein
I2cinit 'I2C Initialisierung
'-------------------------------------------------------------------------------
Config Lcd = 16 * 4
Config Adc = Single , Prescaler = Auto 'Für Analogtastatur
Config Rc5 = Pinc.3 'Benutzt Timer0 und INT0
'Für IR-Tastatur
'-------------------------------------------------------------------------------
$lib "dcf77_m32_A6.lib"
$external Dcf77
Declare Sub Dcf77
Config Timer0 = Timer , Prescale = 1024 'Timer für 40Hz (25ms)
Const Startwert = 76
Timer0 = Startwert
On Timer0 Tim0_isr 'Überlauf alle 25ms
Enable Interrupts
Enable Timer0
'-------------------------------------------------------------------------------
'Config Pinc.2 = 1 'Ausgang
'Beep Alias Pinc.2 'für Summer
Config Pina.6 = Input 'DCF 77 Eingang
Set Porta.6 'Pullup einschalten
Declare Sub Get_funkzeit()
Declare Sub Make_clockstrings()
Dim Status As Byte , Zaehler As Byte , Buffer As Byte , Impuls As Byte
Dim H_sek As Byte , Sekunde As Byte , T_min As Byte , T_std As Byte
Dim Minute As Byte , Stunde As Byte , Wotag As Byte , Tag As Byte
Dim Monat As Byte , Jahr As Byte , Pari As Byte , Pau As Byte , Imp As Byte
Dim Bcd_stunde As Byte
Dim Bcd_minute As Byte
Dim Bcd_sekunde As Byte
Dim Time_s As String * 10
Dim Bcd_tag As Byte
Dim Bcd_monat As Byte
Dim Bcd_jahr As Byte
Dim Date_s As String * 15
Dim Convert_strg As String * 10
Dim Counter_25ms As Word
Dim Counter_1sec As Word
'******************** HAUPTPROGRAMM ********************************************
Main:
Cls
Cursor Off
Lcd " DCF77 TEST"
Wait 5
Cls
Do
'Cls
Call Get_funkzeit()
Loop
End
'*************** ENDE HAUPTPROGRAMM ********************************************
Sub Get_funkzeit()
Call Make_clockstrings()
'Cls
Locate 1 , 2
Lcd Time_s
Print Time_s
Locate 2 , 2
If Status.3 = 1 And Status.4 = 1 Then Lcd Date_s
Locate 4 , 2
Lcd Bin(status)
'Wait 1
End Sub
'-------------------------------------------------------------------------------
Sub Make_clockstrings()
Bcd_stunde = Makebcd(stunde)
Bcd_minute = Makebcd(minute)
Bcd_sekunde = Makebcd(sekunde)
Bcd_tag = Makebcd(tag)
Bcd_monat = Makebcd(monat)
Bcd_jahr = Makebcd(jahr)
Time_s = Bcd(bcd_stunde) + ":" + Bcd(bcd_minute) + ":" + Bcd(bcd_sekunde)
Date_s = Lookupstr(wotag , Wochentag) + " " + Bcd(bcd_tag) + "." + _
Bcd(bcd_monat) + ".20" + Bcd(bcd_jahr)
End Sub
'-------------------------------------------------------------------------------
'------------------------ Interrupt Routine ------------------------------------
Tim0_isr:
Timer0 = Startwert
Incr Counter_25ms
If Counter_25ms > 39 Then
Counter_25ms = 0
Incr Counter_1sec
End If
Call Dcf77
Return
'------------------------ Daten für Wochentag ----------------------------------
Wochentag:
Data " " , "Mo" , "Di" , "Mi" , "Do" , "Fr" , "Sa" , "So"
Henrik
Henrik, vielen Dank, da habe ich ja wieder was zum Ausprobieren!
Warum funktioniert eigentlich Albundys Lib nicht mit den internen Variablen der Softclock, also z.B. so:
Natürlich habe ich die Softclock im Prog konfiguriert.Code:copyright = W.Krueger, geändert D. Ottensmeyer
comment = DCF 77 Decoder
libversion = 1.00
date = 02.04.2006
statement = ----------------------------------
statement = muss alle 25ms ausgeführt werden !
statement = ----------------------------------
[Dcf77]
Dcf77:
.equ DCF_Port = $10 ;$10 = Pind
.equ DCF_Pin = 3 ;3 = Pin 3
.equ Imp0min = 70 ;minimale Länge des Minutenimpulses
.equ Imp1min = 6 ;minimale Länge des "1" Impulses
;alles darunter wird als "0" Impuls gewertet
.def Temp1 = r16
.def Temp2 = r17
.def Temp3 = r18
.def _min = r19
.def _hour = r20
.def Status = r21
;Bit0 = aktueller DCF Status
;Bit1 = vorheriger DCF Status
;Bit2 = Uhr synchronisieren
;Bit3 = 59 Impulse empfangen
;Bit4 = Parität OK
.def Impuls = r22
.def Zaehler = r23
.def Buffer = r24
.def Pari = r25
;------------------------------------
*lds Status,{Status} ;Status laden
rcall Softuhr ;Softuhr bearbeiten
*lds Impuls,{Impuls} ;Variablen laden
*lds Zaehler,{Zaehler}
*lds Buffer,{Buffer}
*lds Pari,{Pari}
in temp1,Dcf_Port ;DCF Port lesen
bst temp1,Dcf_Pin ;Status holen
bld Status,0 ;aktuellen Status speichern
inc Zaehler ;Impulslänge erhöhen
bst Status,0 ;akuellen Status prüfen
brts Puls20 ;Status Low -> weiter
bst Status,1 ;vorherigen Status prüfen
brtc Puls40 ;vorheriger Status Low -> Ende
ldi temp1,Imp0min ;Minutenimpuls Minimalwert laden
cp Zaehler,temp1 ;Impulslänge Minimalwert überschritten
brcs Puls10 ;nein -> weiter
*sts {Pau},Zaehler ;--------> Minutenimpulslänge speichern für Debug
clr Buffer ;Empfangspuffer löschen
clr Impuls ;Impulszähler löschen
bst Status,4 ;Parität OK ?
brtc Puls5 ;Nein -> weiter
bst Status,3 ;59 Impulse empfangen ?
brtc Puls5 ;Nein -> weiter
set
bld Status,2 ;Status Uhr synchronisieren setzen
Puls5:
clt
bld Status,3 ;Status 59 Impulse löschen
bld Status,4 ;Status Parität OK löschen
Puls10:
clr Zaehler ;Impulslänge löschen
rjmp Puls40 ;Ende
Puls20:
bst Status,1 ;vorherigen Status prüfen
brts Puls40 ;vorheriger Status Low -> Ende
ldi temp1,Imp1min ;Minimalwert für "1" Impuls laden
cp Zaehler,temp1 ;Minimalwert unterschritten ?
brcs Puls30 ;ja -> weiter
*sts {imp},Zaehler ;--------> Impulslänge Height speichern für Debug
cpi Impuls,28 ;beim Paritätsbit Min keine Negation
breq Puls25
cpi Impuls,35 ;beim Paritätsbit Std keine Negation
breq Puls25
ldi Temp1,1
eor Pari,Temp1 ;Paritätsbit Negation
Puls25:
sec ;Carry setzen ( "1" empfangen )
ror Buffer ;Carry in Empfangspuffer
inc Impuls ;Impulszähler erhöhen
rcall Auswerten ;Impulse auswerten
rjmp Puls40 ;Ende
Puls30:
*sts {imp},Zaehler ;--------> Impulslänge Low speichern für Debug
clc ;Carry löschen ( "0" empfangen )
ror Buffer ;Carry in Empfangspuffer
inc Impuls ;Impulszähler erhöhen
rcall Auswerten ;Impulse auswerten
Puls40:
bst Status,0 ;aktuellen Status holen
bld Status,1 ;Status speichern
*sts {Status},Status ;Variablen wieder speichern
*sts {Impuls},Impuls
*sts {Zaehler},Zaehler
*sts {Buffer},Buffer
*sts {Pari},Pari
ret
;-------------------------------------------------------------------------------
Softuhr:
*lds Temp1,{H_Sek}
*lds Temp2,{_sec}
*lds _min,{_min}
*lds _hour,{_hour}
bst Status,2 ;Status Uhr synchronisieren ?
brtc Soft10 ;nein -> weiter Softuhr
clt
bld Status,2 ;Status Synchron löschen ?
clr Temp1 ;Hundertstel löschen
clr Temp2 ;Sekunde löschen
*lds Temp3,{T_Min}
mov _min,Temp3 ;Minute auf empfangene Minute
*lds Temp3,{T_Std}
mov _hour,Temp3 ;Stunde auf empfangene Stunde
rjmp Soft20 ;empfangene Zeit übernehmem
Soft10:
inc Temp1 ;Hundertstel Sek erhöhen
cpi Temp1,40 ;1000ms erreicht ?
brne Soft20 ;nein -> Ende
clr Temp1 ;Hundertstel Sek löschen
inc Temp2 ;Sekunde erhöhen
cpi Temp2,60 ;60 Sekunden erreicht ?
brne Soft20 ;nein -> Ende
clr Temp2 ;Sekunde löschen
inc _min ;Minute erhöhen
cpi _min,60 ;60 Minuten erreicht ?
brne Soft20 ;nein -> Ende
clr _min ;Minute löschen
inc _hour ;Stunde erhöhen
cpi _hour,24 ;24 Stunden erreicht ?
brne Soft20 ;nein -> Ende
clr _hour ;Stunde löschen
Soft20:
*sts {H_Sek},Temp1 ;Basic Variablen mit empfangenen
*sts {_sec},Temp2 ;Werten laden
*sts {_min},_min
*sts {_hour},_hour
ret
;-------------------------------------------------------------------------------
Auswerten:
cpi Impuls, 21 ;21. Impuls
brne Aus10 ;nein -> weiter
clr Buffer
clr Pari
Aus10:
cpi Impuls, 28 ;28. Impuls
brne Aus15 ;nein -> weiter
lsr Buffer ;Buffer 1x schieben, da Minute nur 7 Bit
rcall Bcd2dez ;in Dezimal wandeln
*sts {T_Min},Buffer ;Temp Minute schreiben
clr Buffer
Aus15:
cpi Impuls, 29 ;Minuten Parität
brne Aus20
clr Temp3
bst Buffer,7 ;Paritätsbit selektieren
bld Temp3,0 ;Paritätsbit in Temp3 Bit0 kopieren
cp Temp3,Pari ;Parität überprüfen
brne Aus26 ;Fehler -> Ende
clr Pari
clr Buffer
Aus20:
cpi Impuls, 35 ;35. Impuls
brne Aus25 ;nein -> weiter
lsr Buffer ;Buffer 2x schieben, da Stunde nur 6 Bit
lsr Buffer
rcall Bcd2dez ;in Dezimal wandeln
*sts {T_Std},Buffer ;Temp Stunde schreiben
clr Buffer
Aus25:
cpi Impuls, 36 ;Stunden Parität
brne Aus30
clr Temp3
bst Buffer,7 ;Paritätsbit selektieren
bld Temp3,0 ;Paritätsbit in Temp3 Bit0 kopieren
cp Temp3,Pari ;Parität überprüfen
breq Aus27 ;Pari OK -> weiter
Aus26:
ret ;Fehler -> Ende
Aus27:
set ;T-Bit setzen
bld Status,4 ;Bit4 Status setzen (Parität)
clr Buffer
Aus30:
cpi Impuls,42 ;42. Impuls
brne Aus40
lsr Buffer ;Buffer 2x schieben, da Tag nur 6 Bit
lsr Buffer
rcall Bcd2dez ;in Dezimal wandeln
*sts {_day},Buffer ;Tag schreiben
clr Buffer
Aus40:
cpi Impuls,45 ;45. Impuls
brne Aus50
lsr Buffer ;Buffer 5x schieben, da Wochentag nur 3 Bit
lsr Buffer
lsr Buffer
lsr Buffer
lsr Buffer
rcall Bcd2dez ;in Dezimal wandeln
*sts {Wotag},Buffer ;Wochentag schreiben
clr Buffer
Aus50:
cpi Impuls,50 ;50. Impuls
brne Aus60
lsr Buffer ;Buffer 3x schieben, da Monat nur 5 Bit
lsr Buffer
lsr Buffer
rcall Bcd2dez ;in Dezimal wandeln
*sts {_month},Buffer ;Monat schreiben
clr Buffer
Aus60:
cpi Impuls,58 ;58. Impuls
brne Aus70
rcall Bcd2dez ;in Dezimal wandeln
*sts {_year},Buffer ;Jahr schreiben
clr Buffer
Aus70:
cpi Impuls,59 ;59. Impuls
brne Aus80
set ;T-Bit setzen
bld Status,3 ;Bit3 Status setzen (59 Impulse)
Aus80:
cpi Impuls,60 ;bei mehr als 59 Impulsen (Störimpulse)
brne Aus90
clt ;T-Bit löschen
bld Status,3 ;Bit3 Status löschen (59 Impulse)
bld Status,4 ;Bit4 Status löschen (Parität)
Aus90:
ret
;-------------------------------------------------------------------------------
Bcd2dez:
mov Temp1,Buffer
andi Temp1,$0F
Bcd10:
subi Buffer,$10
brcs Bcd20
subi Temp1,$F6
rjmp Bcd10
Bcd20:
mov Buffer,Temp1
ret
[end]
Funktioniert aber leider nicht so, wie ich mir das vorgestellt hatte (nämlich gar nicht!).
Alternativ hatte ich schon Versuche mit dem CONFIG Clock = User gemacht, aber auch noch nicht sehr erfolgreich.
Ich will ja eigentlich die BASCOM-Softclock mit DATE$ und TIME$ (ohne Uhrenquarz) nutzen und sie bei Bedarf (bestimme ich selbst, wann ich Bedarf habe!) mit der DCF-Zeit updaten.
Naja, ich muss halt 'mal weiter probieren. Vielleicht geht's ja irgendwie.
Vielen Dank nochmal!
Gruß Dirk
Hallo Dirk,
warum sollte die Lib nicht auch mit der Bascom Softclock funktionieren ?
Ich gehe mal davon aus, dass die Variablen _sec, _min u.s.w. dezimal vorliegen müssen und nicht BCD ???
Dann sollte diese Lib funktionieren.
Natürlich vorher in Bascom mit "Config Clock=Soft" die entsprechenden Variablen initialisieren.
Ich kann es leider nicht testen, da ich im Moment kein DCF-Modul zur Verfügung habe.
Hallo,
ohne Uhrenquarz kann Bascoms Softclock einfach nicht funktionieren. Alle Timings sind auf die 32,schlagmichtot KHz Frequenz zugeschnitten.
Mit Uhrenquarz habe ich das in der Variation ja schon vorgeführt. Zu beachten ist allerdings, daß der von Bascom benutzte asynchrone Timer2 mit seinem Interrupt während der DCF77-Synchronisation disabled werden muss, sonst kann es Kuddelmuddel geben.
Grüße
Henrik
Danke Albundy,
es funktioniert tadellos. Ich wäre nie auf invertiert gekommen!
Gruß Thomas!
Hallo Henrik,
Das ist genau mein Problem! Aber ich habe die Antwort noch nicht so klar wie du.Zitat:
ohne Uhrenquarz kann Bascoms Softclock einfach nicht funktionieren. Alle Timings sind auf die 32,schlagmichtot KHz Frequenz zugeschnitten.
Lt. BASCOM-Anleitung werden die Variablen _sec ... durch CONFIG CLOCK = ... dimensioniert und DATE$, TIME$ angelegt. Ich soll auch z.B. _sec ändern können, was in TIME$ berücksichtigt wird.
Dabei ist der asynchrone Timer doch erst mal unwichtig: Die Variablen gibt es dann ja und den Timer kann ich erstmal "disablen".
Und die Variablen möchte ich nutzen, damit ich normal in BASCOM auf DATE$ und TIME$ zugreifen kann. Zur Not auch in der Form, dass ich _sec selbst in einem Unterprogramm jede Sekunde hochzähle.
Geht das wirklich nicht? :-s
Gruß Dirk
Hallo albundy,
Leider klappt's (bei mir) nicht. :(Zitat:
warum sollte die Lib nicht auch mit der Bascom Softclock funktionieren ?
Ich versuch's weiter.
Gruß Dirk
Das ist korrekt ! Und genau so, habe ich dich auch verstanden.Zitat:
Lt. BASCOM-Anleitung werden die Variablen _sec ... durch CONFIG CLOCK = ... dimensioniert und DATE$, TIME$ angelegt. Ich soll auch z.B. _sec ändern können, was in TIME$ berücksichtigt wird.
Dabei ist der asynchrone Timer doch erst mal unwichtig: Die Variablen gibt es dann ja und den Timer kann ich erstmal "disablen".
Und die Variablen möchte ich nutzen, damit ich normal in BASCOM auf DATE$ und TIME$ zugreifen kann.
Das die Variablen der Softuhr in Bascom von der Lib versorgt werden müssen (da kein Uhrenquarz angeschlossen wird) ist ja klar.
Und dabei den OVF2 zu disablen ist auch eine gute Idee !!!
Ich verstehe aber nicht, das die geänderte Lib so nicht funktioniert ???
Alle Variablen werden doch durch die Lib entsprechend beschrieben.
Wenn es dir nur um die formatierte Ausgabe von Time$ und Date$ geht, kannst du dir doch auch eine eigene Funktion dafür schreiben.
Hallo albundy,
also... mit deiner Lib wird die Zeit (in DATE$ und TIME$) durch DCF einmal aktualisiert, soll dann aber ja selbst weiterlaufen.
Das passiert aber nicht, sondern die Zeit steht auf der aktualisierten DCF-Zeit fest.
Eine eigene Anzeige für DATE$ und TIME$ habe ich.
Übrigens: Ich meine ja nicht deine Original-Lib mit Demos, die bei mir super funktionieren!
Gruß Dirk
Ja, wie soll sie den auch weiterlaufen, ohne getaktet zu werden? Nimm doch einfach die Original-Library von Albundy, bastele date$ und time$ selbst (wie in meinem oben geposteten Beispiel die SUB "Makeclockstrings()" ) und gut isses. Ich schreibe nicht umsonst, daß sich Modifikationen eher für den fortgeschrittenen Anwender eignen.Zitat:
Zitat von Dirk
Grüße
Henrik
Hallo Henrik,
Das habe ich schon verstanden. Meine Frage ist eigentlich, wie ich sie wieder "takten" kann. Bei der Original-Lib von albundy wird ja auch seine Softclock (mit anderen Variablen) "getaktet" (bzw. in der Interruptroutine hochgezählt), das möchte ich mit der Softclock auch machen.Zitat:
Ja, wie soll sie den auch weiterlaufen, ohne getaktet zu werden?
Ich lerne gern und werde dann zum fortgeschrittenen Anwender.Zitat:
Ich schreibe nicht umsonst, daß sich Modifikationen eher für den fortgeschrittenen Anwender eignen.
Gruß Dirk
Ganz einfach, indem du endlich den Uhrenquarz an TOSC1 und TOSC" hängst. Nur und ausschließlich damit funktioniert Bascoms Softclock. Wie oft denn noch?Zitat:
Zitat von Dirk
Na die braucht und bekommt ja auch brav ihren 40Hz Takt via Interrupt. Das bedeutet gleichzeitig, daß bei Frequenzen über 8 Mhz zwingend der (wertvolle) 16bit Timer1 benutzt werden muss. Der Vorteil der Nutzung des langsamen Uhrenquarzes bei Bascoms Softclock im asynchronen Modus liegt darin, daß der Interrupt nur 1x pro Sekunde hereinplatzt, die Interruptroutine aber mit voller Prozessorgeschwindigkeit abgearbeitet wird.Zitat:
Bei der Original-Lib von albundy wird ja auch seine Softclock (mit anderen Variablen) "getaktet" (bzw. in der Interruptroutine hochgezählt), das möchte ich mit der Softclock auch machen.
Grüße
Henrik
Hallo Henrik,
verstanden! War sehr deutlich.
(Dabei will ich ja eigentlich nur die [highlight=red:fd757fffd3]Variablen[/highlight:fd757fffd3] der Softclock und eigentlich nicht den Takt (32768Hz Quarz an TOSC) nutzen. Aber ich will hier 'mal nicht weiter nerven und mache noch ein paar Versuche, bevor ich aufgebe.)
Also Henrik, keep cool und danke für die Hilfe!
Gruß Dirk
Hallo Dirk,
böse gemeint war das nicht, das Thema ist nur komplex und mir fehlt die Zeit das alles im einzelnen aufzudröseln :-).Zitat:
Zitat von Dirk
Na ja, alleine mit den Variablen wirst Du nicht glücklich. Mit den Variablen soll ja etwas passieren. Date$ und Time$ sollen berechnet werden, _min, _sec, _hour sollen weiterzählen usw. Sonst passiert genau das, was Du festgestellt hast: Es wird einmal auf den eingelesenen Stand gebracht und da bleibt es dann, wenn nicht fortlaufend aktualisiert wird.Zitat:
(Dabei will ich ja eigentlich nur die [highlight=red:d9beb835f0]Variablen[/highlight:d9beb835f0] der Softclock und eigentlich nicht den Takt (32768Hz Quarz an TOSC) nutzen. Aber ich will hier 'mal nicht weiter nerven und mache noch ein paar Versuche, bevor ich aufgebe.)
Als Hilfe zur Selbsthilfe versuche ich kurz zu erklären. was im Groben bei Config Clock passiert:
1) Es werden die Variablen angelegt.
2) Es wird die datetime.lib eingebunden.
Abhängig von soft oder user wird nun entweder alles in datetime erledigt (im Sekundentakt) oder bei user werden die Label:
getdatetime:
settime:
setdate:
im Hauptprogramm oder einer weiteren Lib angesprungen. Auch das passiert im Sekundentakt, den Timer2 mit dem von Dir so ungeliebten Uhrenquarz zur Verfügung stellt.
Der Programmierer muss nun dafür sorgen, daß diese Label entsprechende Subroutinen enthalten. Es müssen nur die Uhrzeit und das Datum (dezimal) zur Verfügung stehen, den Rest errechnet wieder die datetime.lib.
Aus den oben genannten Voraussetzungen geht hervor, daß die DCF77 Routine naturlich laufen müsste, damit sie datetime die entsprechenden aktuellen Informationen geben kann.
Abgesehen davon, daß man für effizientes Arbeiten die DCF77.lib nicht unerheblich umschreiben müsste, hätten wir auch das Ziel des weniger störenden Interrupts nicht erreicht. Im Gegenteil: Statt eines Interrupts funken nun zwei in der Gegend herum.
Bei meiner Modifikation umgehe ich das Problem, indem ich einfach nach erfolgter Synchronisation die Daten an Bascoms Softclock die Daten übergebe, den DCF77 Timerinterrupt abschalte und den Softclockinterrupt einschalte. Von nun an rechnet brav Softclock mit all seinen Vorteilen, bis ich wieder aktualisieren möchte (wenn Bedingung erfüllt - wieder Timer umschalten, Synchronisieren, Softclock aktualisieren, wieder Timer umschalten).
Wenn Du nun nur die zusätzliche Funktionalität der Softclockvariablen haben möchtest, musst Du das im Hauptprogramm selbst nachbilden. Im DCF77 Interrupt geht das nicht, der würde zu lang.
Hoffe das macht die Sache etwas klarer.
BTW: Du nervst nicht, nur muss ich hier mit einem Projekt fertigwerden (auch so eine Fleißarbeit) von dem dann mehrere Schulklassen abhängen... Die Jungs und Mädels würden es mir recht übelnehmen, wenn ich sie nicht rechtzeitig mit Hard- und Software füttern würde :-).
Viele Grüße
Henrik
Hallo Henrik und albundy,
so, nach einer durchgemachten Nacht und nachdem ich heute tagsüber 2x von meinem Chef am Arbeitsplatz geweckt werden mußte, funktioniert es jetzt.
Ergebnis: Die Softclock läuft jetzt nachweisbar (Ausgabe von DATE$ und TIME$) permanent und OHNE den Uhrenquarz. Zeit und Datum sind in BASCOM jederzeit abfragbar.
Das wollte ich wissen!!! O:)
Ich nehme dafür die DCF77_soft.lib von albundy!!
@Henrik: Es ist mir klar, daß ein 40Hz-Interrupt für den Dauerbetrieb der Softclock mit DCF-Aktualisierung eine hohe Ressource ist. Das geht sicher nur, wenn die anderen Aufgaben des M32 das zulassen. Bei mir ist das der Fall. Mir ist auch klar, dass ein Uhrenquarz wesentlich besser wäre. Aber man macht im Leben viele sinnlose Dinge (heiraten o.ä.).
Gruß und vielen Dank an albundy für die lib!
Dirk
N ábend zusammen
als absoluter Neuling habe ich schon viel gelesen und auch schon einiges ausprobiert, einiges funktionierte, anderes nicht.
Da ich gerade erst das gehen lerne, von laufen kann noch nicht die Rede sein, möchte ich hier zum Thema mal was fragen.
Wollte als Projekt eine Uhr mit DCF 77 programmieren.Habe mir das Programm nebst Lib hier runtergeladen.
Meine Frage in der Lib wird der Pin A7 als DCF Eingang gesetzt, ich arbeite mit einem Atmega 8L dort gibts ja keine A Ports also wollte ich den Port C5 verwenden.Bei stöbern im Netz habe ich gefunden das $15 für die C Ports in der Lib steht muß, nicht $19 wie für A. Ist das richtig ??
Habe die Lib dann auf $15 Port 5 umgeschrieben. Ebenfalls im Programm den Port auf PinC.5 gesetzt, und reingeladen.
Die Uhreit fängt wie immer normal an zu laufen, jedoch findet keine Einstellung via DCf statt. Ach ja DCF Modul von Reichelt, "Ein" auf GND damit der RX immer läuft.Habe an Pin C5 ja statisch 5Volt durch den Befehl =1 im Programm, dagegen arbeitet jetzt das DCF Signal.Ist da der Fehler zu suchen, oder hat jemand eine Idee wo es klemmt.
Habe den Programmteil Debuggen auch mal aktiviert, Pausenlänge und Impuls bleiben auf 0 stehen, kein Signal also.
Ich hoffe ich habe das richtig verstanden, das das DCF Signal die Uhr stellt, oder wird der Impuls nur zum synchronisieren benutzt?
Vielen Dank für Eure Antworten
HP
Ne, das ist schon mal falsch. Die betreffenden Zeilen müssten Für Portc.5 für den Mega8 so aussehen:Zitat:
Zitat von HP
Versuche es mal damit :-).Code:[Dcf77]
Dcf77:
.equ DCF_Port = $13 ;$19 = Pinc - gewünschter Port
.equ DCF_Pin = 5 ;5 = Pin 5 - gewünschter Pin des Ports
Grüße
Henrik
Hallo Henrik
Erstmal vielen Dank für deine Info, Du hattest recht 15 war nicht richtig, 13 wenn auch sonst eine nicht beliebte Zahl war in diesem Fall die Richtige.
Damit klappte es auf Anhieb, Signale werden empfangen ,...NUR
die Einstellung im Programm Zeile 29 diesen Befehl muß ich abstellen, sonst arbeitet das DCF Signal gegen den Pullupwiderstand, soll heissen, am IC Port liegen 5V an, gegen die die 4 Volt von DCF nichts ausrichten können.
Den Port nicht mit Pull Up hochgelegt funktioniert.
Werde jetzt mal den Debug beenden und sehen was die Uhr so zeigt.
Danke.
HP
Ja da bin ich schon wieder, nun habe ich die Uhr 5 Minuten laufen lassen,aber die korrekte Uhrzeit wird nicht angezeigt, sollte sie das machen ??
Das einzig komische was sich ergeben hat ist, das nach ca 4 Minuten eine 3 Sekundenstelle aufgetaucht ist., sowas wie ne zehntelsekunden Stelle.Die Null steht aber fest
Nach 8 Minuten taucht in Zeile 2 das Datum ?? oder was es sein Soll auf, also haben wir heute den 45.25.20165, welch ein Zeitsprung....
Die Uhrzeit bleibt davon unberührt, nichts neues dort
Vielleicht hat ja jemand dazu eine Idee.
HP
Hallo!
Richtigen Ausgang genommen (invertiert)?
Passenden Timer gewählt?
Mit welchem Quarz arbeitest Du?
Timerprescaler im Hauptprogramm richtig angepasst?
Grüße
Henrik
Moin Henrik
kam erst heute morgen bzw mittag zum lesen deiner Mail.
Also zum Thema Ausgang, welchen Ausgang meinst du, den vom DCF Empfänger?? der hat ja nur einen, oder spezifiziere mal den Ausgang.
Invertiert bezieht sich auf welchen Ausgang oder meinst du den Eingangsport am Chip
Ich benutze den Standardquarz der heisst R036JAB6a, denke das ist der 3,686400Mhz der beim Experimentierboard dabei ist.
Prescaler steht im Programm auf 1024,
hm im Orginalprogramm ist ein anderer Quarz drin, vielleicht passt der Prescalerwert nicht zu meiner Quarzfrequenz??
HP
Hallo HP,
das kannst du so lassen. Nur "Const Startwert=158" musst du ändern auf 166.Zitat:
Ich benutze den Standardquarz der heisst R036JAB6a, denke das ist der 3,686400Mhz der beim Experimentierboard dabei ist.
Prescaler steht im Programm auf 1024
das ist der Ausgang vom Reichelt-Modul, und der ist schon invertiert.Zitat:
Invertiert bezieht sich auf welchen Ausgang ...
Mit dem geänderten Startwert müsste es dann funktionieren.
Hallo Al
ok habe den Wert mal auf die von dir angesagten 166 gestellt.
Mal sehen was passiert.
Eine Frage habe ich aber noch, sollte wenn es jetzt mit 166 funktioniert, die Uhrzeit auf den richtigen Wert gestellt werden ?? habe beim testen hier schon die merkwürdigsten Datumanzeigen gehabt, aber die Uhrzeit ist immer weitergelaufen, soll heissen, nach dem einschalten mit einer Sekunde angefangen und dann immer weiter fortlaufend hochgezählt., nicht nahgestellt.
So habe das Signal vom DCF mal an C5 kontrolliert, ist also da, aber nach 8 Minuten keine Zeitanpassung oder Datumsanzeige.
Habe heute mittag mal nach Henriks Liste gerechnet, in seiner Tabelle gibts ja leider für den 8 mit 3,6Mhz keine Werte, aber Prescale 512 wird schon vom Compiler verboten, und bei 1024 , Startwert 114 hatte ich zwar empfangsänderungen auf den Display aber alles ziemlich wirres Zeug.
Im Programm steht Zeile 56 das der Doppelpunkt, Welcher, sind ja genug davon da, blinken soll.Ist dies eine Empfangskontrolle??
Komisch ist bei mir ... meinem Moad, das zu unbestimmten Zeiten hinter der Einersekunde plötzlich eine Nul fest steht.Manchmal ist sie schon nach 2-4 Minuten da, andere Male kommt sie garnicht.????
Weiss jemand noch Rat.
HP
Hallo,
hab's vielleicht falsch verstanden oder nicht kapiert.
Bei mir wird nämlich nur synchronisiert und dann Ebbe ....
Ich hab mir auch schon _Hour o.ä. per print geschickt, aber keine Änderung der Werte.
Die Lib ist doch erstmal zuständig für die "DCF77".
Und im Beispiel von hrei wird per Config Clock = Soft dafür gesorgt, dass die entsprechenden Variablen (Time$, _Hour, usw.) initialisiert werden. Richtig?
Timer 0 läuft durch Prescaler und Startwert.
Aber wie läuft Timer 2? Der sollte sich doch um den sec-Takt kümmern?(P.S.: Ich hab nen Quarz an TOSC1/2: 7,3728MHz). Muss ich die DateTime.Lib noch extra einbinden, oder wird das durch Config Clock gemacht?
Natürlich sollt's auch per Timer0 bis 40 zählen funktionieren (Bsp von hrei).
Danke im voraus.
1) Es muss nichts zusätzlich eingebunden werden, das macht Config Clock.Zitat:
Zitat von wassermann
2) Der Uhrenquarz muss 32768 kHz haben. Warum? Weil 32768/128/256=1.
3) Bitte, bitte, das ist kein Stabilbaukasten. Bei Unklarheiten hilft oft das Lesen der Bascom Hilfe weiter :-).
Grüße
Henrik
@HP
Zitat:
ok habe den Wert mal auf die von dir angesagten 166 gestellt.
Mal sehen was passiert.
hasst du überhaupt eine Ahnung was du da machst ???Zitat:
und bei 1024 , Startwert 114 hatte ich zwar empfangsänderungen auf den Display aber alles ziemlich wirres Zeug.
Lies dir unbedingt mal in der Hilfe oder im Wissensbereich etwas über Timer durch.
Dort wird auch erklärt, was es mit dem "Prescale" auf sich hat und welche Werte überhaupt möglich sind.
Wenn der Timer nicht 100% stimmt, kommt eben nur "wirres Zeug" heraus.
das sagt doch überhaupt nichts über die Empfangsqualität der Impulse aus. Deshalb habe ich für Debugzwecke "Imp" und "Pau" eingebaut.Zitat:
So habe das Signal vom DCF mal an C5 kontrolliert, ist also da, aber nach 8 Minuten keine Zeitanpassung oder Datumsanzeige.
Der Wert "Imp" muss immer zwischen 2 und 8 liegen.
If H_sek > 20 Then 'Doppelpunkt blinken lassenZitat:
Im Programm steht Zeile 56 das der Doppelpunkt, Welcher, sind ja genug davon da, blinken soll.Ist dies eine Empfangskontrolle??
Locate 1 , 12
Lcd " "
End If
H_sek steht für Hundertstel Sekunde.
Bei Werten > 20 ( das entspricht 20*25 mS = 0,5 Sekunde) soll der Doppelpunkt an der Position 12 (Zeile1) gelöscht werden.
Die übrige Zeit wird er angezeigt.
Sorry, aber welcher das ist, findest du auch allein heraus ...
N´Abend
also als großer James Dean Fan würde ich jetzt sagen "denn sie wissen nicht..." aber nun, war vor meiner Zeit.
Sie funktioniert,!! In einigen Mails zuvor sprachen wir über das Signal vom DCF Empfänger.Daraufhin erwähnte ich das ich den Eingangsport bei mir nicht aktiv 1 beschalten konnte, weil dann 5 Volt vom Kontroller auf die 4,5 Volt vom DCF trafen. Nun habe ich mir das mal genauer angeschaut, und mir fiel noch der Satz ein, das Signal ist invertiert.
Moment mal, dann muß ja, habe nun einen BC107 zum invertieren verwendet, den Port auf aktiv 1 sprich 5 Volt gelegt, eine halbwegs vernüntige Empfangsposition gesucht, und im Debug die Signale kontrolliert. Und siehe da, alles so wie´s beschrieben wurde.
Danke für eure Ausdauer.
HP
Hallo albundy,
noch eine Frage zu deiner Dcf77_soft.lib.
Könnte man dort ein Flag ergänzen, dass in BASCOM als "DCF-Signal liegt an!" gelesen werden kann. Das wäre nicht identisch mit Status.2, sondern wäre schon 1, wenn einige korrekte Einsen und Nullen empfangen wurden oder so. Fertige DCF-Module oder RTCs haben ja auch so ein Bit für DCF-Empfang ist vorhanden. Wie machen die das?
Gruß Dirk
Hallo Dirk,
eigendlich war die Dcf77_soft.lib nur eine Notlösung für dich, die ich nicht weiter vervollständigen wollte.
ab wann sollte denn das Flag gesetzt werden ?Zitat:
... wäre schon 1, wenn einige korrekte Einsen und Nullen empfangen wurden oder so.
im Moment wird das erste Flag ( Status.4 ) bei korrekter Parität von Stunde und Minute gesetzt. ( in der 36. Sekunde )
ein Empfang ist ja auch schon vorhanden, wenn Störimpulse empfangen werden, die nicht in der Tolleranz vom DCF Signal liegen.Zitat:
Fertige DCF-Module oder RTCs haben ja auch so ein Bit für DCF-Empfang ist vorhanden
Hallo albundy,
o.k. kapiert. Ich probiere 'mal etwas mit dem Status.4 herum.
Auf der Basis von deiner Dcf77_soft.lib habe ich für meine Zwecke eine eigene Version geschrieben, die in Status noch zwei Bits ergänzt für "Uhr wurde 1x nach DCF gestellt" und für "Uhr nach DCF stellen EIN". Mit dem letzten Bit stoppe ich das Stellen der Uhr, sie läuft dann intern so lange weiter, bis ich das Bit im BASIC-Programm wieder auf 1 setze.
Mit dem anderen Bit speichere ich Status.2 dauerhaft, damit ich feststellen kann, ob die Uhr einmal mit DCF gestellt wurde.
Ich habe auch das Umspringen von 23.59.59 auf einen neuen Tag, Monat und Jahr eingefügt.
Jetzt läuft alles bei ersten Tests ganz gut.
Vielen Dank nochmal für die Unterstützung.
Gruß Dirk
Hallo Leute,
jetzt ist meine Version der Dcf77_soft.lib fertig geworden und getestet.
Die 1. Version stammt von albundy.
Was ich wollte: Die Softclock von Bascom nutzen ohne Uhrenquarz an TOSC1/2 mit der Möglichkeit, ein Aktualisieren der Softclock durch DCF zu machen (z.B. jede Stunde oder 1x am Tag ...).
Dazu habe ich die dcf77_soft.lib von albundy um folgende Funktionen erweitert:
1. Status-Bit 5 bedeutet: Uhr wurde 1x nach DCF gestellt. Das Bit bleibt high, bis das Basic-Programm es auf low setzt oder bis der Wochentag auf 29, 30 oder 31 wechselt (weil die lib nicht weiß, wieviele Tage der Monat hat und deshalb das Datum evtl. falsch ist).
2. Status-Bit 7 bedeutet: Uhr kann nach DCF gestellt werden. Ist das Bit low, läuft nur die Softclock intern weiter ohne DCF-Empfang. Das Bit muss vom Basic-Programm gestellt werden.
3. Die Softclock zählt jetzt auch das Datum (Tag, Monat, Jahr) mit korrektem Überlauf weiter. Status.5 wird gelöscht, wenn Tag 29, 30 oder 31 erreicht ist, damit kann dann das Basic-Programm z.B. den DCF-Empfang einschalten (Status.7 = 1), um das Datum neu zu holen.
Hier die lib:
... und ein Testprog mit einem 4x16 LCD:Code:copyright = W.Krueger
comment = DCF 77 Decoder
libversion = 2.00 (D. Ottensmeyer)
date = 09.04.2006
statement = ----------------------------------
statement = muss alle 25ms ausgeführt werden !
statement = ----------------------------------
[Dcf77]
Dcf77:
.equ DCF_Port = $10 ;$10 = Pind
.equ DCF_Pin = 3 ;3 = Pin 3
.equ Imp0min = 70 ;minimale Länge des Minutenimpulses
.equ Imp1min = 6 ;minimale Länge des "1" Impulses
;alles darunter wird als "0" Impuls gewertet
.def Temp1 = r16
.def Temp2 = r17
.def Temp3 = r18
.def Minute = r19
.def Stunde = r20
.def Status = r21
;Bit0 = aktueller DCF Status
;Bit1 = vorheriger DCF Status
;Bit2 = Uhr synchronisieren
;Bit3 = 59 Impulse empfangen
;Bit4 = Parität OK
;Bit5 = Uhr wurde 1x gestellt
;Bit7 = Uhr nach DCF stellen
.def Impuls = r22
.def Zaehler = r23
.def Buffer = r24
.def Pari = r25
;------------------------------------
*lds Status,{Status} ;Status laden
rcall Softuhr ;Softuhr bearbeiten
bst Status,7 ;Status Uhr nach DCF stellen ?
brts Puls0 ;ja -> weiter
*sts {Status},Status
ret
Puls0:
*lds Impuls,{Impuls} ;Variablen laden
*lds Zaehler,{Zaehler}
*lds Buffer,{Buffer}
*lds Pari,{Pari}
in temp1,Dcf_Port ;DCF Port lesen
bst temp1,Dcf_Pin ;Status holen
bld Status,0 ;aktuellen Status speichern
inc Zaehler ;Impulslänge erhöhen
bst Status,0 ;akuellen Status prüfen
brts Puls20 ;Status Low -> weiter
bst Status,1 ;vorherigen Status prüfen
brtc Puls40 ;vorheriger Status Low -> Ende
ldi temp1,Imp0min ;Minutenimpuls Minimalwert laden
cp Zaehler,temp1 ;Impulslänge Minimalwert überschritten
brcs Puls10 ;nein -> weiter
*sts {Pau},Zaehler ;--------> Minutenimpulslänge speichern für Debug
clr Buffer ;Empfangspuffer löschen
clr Impuls ;Impulszähler löschen
bst Status,4 ;Parität OK ?
brtc Puls5 ;Nein -> weiter
bst Status,3 ;59 Impulse empfangen ?
brtc Puls5 ;Nein -> weiter
set
bld Status,2 ;Status Uhr synchronisieren setzen
Puls5:
clt
bld Status,3 ;Status 59 Impulse löschen
bld Status,4 ;Status Parität OK löschen
Puls10:
clr Zaehler ;Impulslänge löschen
rjmp Puls40 ;Ende
Puls20:
bst Status,1 ;vorherigen Status prüfen
brts Puls40 ;vorheriger Status Low -> Ende
ldi temp1,Imp1min ;Minimalwert für "1" Impuls laden
cp Zaehler,temp1 ;Minimalwert unterschritten ?
brcs Puls30 ;ja -> weiter
*sts {imp},Zaehler ;--------> Impulslänge Height speichern für Debug
cpi Impuls,28 ;beim Paritätsbit Min keine Negation
breq Puls25
cpi Impuls,35 ;beim Paritätsbit Std keine Negation
breq Puls25
ldi Temp1,1
eor Pari,Temp1 ;Paritätsbit Negation
Puls25:
sec ;Carry setzen ( "1" empfangen )
ror Buffer ;Carry in Empfangspuffer
inc Impuls ;Impulszähler erhöhen
rcall Auswerten ;Impulse auswerten
rjmp Puls40 ;Ende
Puls30:
*sts {imp},Zaehler ;--------> Impulslänge Low speichern für Debug
clc ;Carry löschen ( "0" empfangen )
ror Buffer ;Carry in Empfangspuffer
inc Impuls ;Impulszähler erhöhen
rcall Auswerten ;Impulse auswerten
Puls40:
bst Status,0 ;aktuellen Status holen
bld Status,1 ;Status speichern
*sts {Status},Status ;Variablen wieder speichern
*sts {Impuls},Impuls
*sts {Zaehler},Zaehler
*sts {Buffer},Buffer
*sts {Pari},Pari
ret
;-------------------------------------------------------------------------------
Softuhr:
*lds Temp1,{H_Sek}
*lds Temp2,{_sec}
*lds Minute,{_min}
*lds Stunde,{_hour}
bst Status,2 ;Status Uhr synchronisieren ?
brtc Soft10 ;nein -> weiter Softuhr
clt
bld Status,2 ;Status Synchron löschen
bst Status,7 ;Status Uhr nach DCF stellen ?
brtc Soft10 ;nein -> nicht neu stellen
set
bld Status,5 ;Status Uhr 1x gestellt setzen
clr Temp1 ;Hundertstel löschen
clr Temp2 ;Sekunde löschen
*lds Minute,{T_Min} ;Minute auf empfangene Minute
*lds Stunde,{T_Std} ;Stunde auf empfangene Stunde
rjmp Soft20 ;empfangene Zeit übernehmen
Soft10:
inc Temp1 ;Hundertstel Sek erhöhen
cpi Temp1,40 ;1000ms erreicht ?
brne Soft20 ;nein -> Ende
clr Temp1 ;Hundertstel Sek löschen
inc Temp2 ;Sekunde erhöhen
cpi Temp2,60 ;60 Sekunden erreicht ?
brne Soft20 ;nein -> Ende
clr Temp2 ;Sekunde löschen
inc Minute ;Minute erhöhen
cpi Minute,60 ;60 Minuten erreicht ?
brne Soft20 ;nein -> Ende
clr Minute ;Minute löschen
inc Stunde ;Stunde erhöhen
cpi Stunde,24 ;24 Stunden erreicht ?
brne Soft20 ;nein -> Ende
clr Stunde ;Stunde löschen
*lds Temp3,{_day}
inc Temp3 ;Tag erhöhen
cpi Temp3,29 ;Tag 29 erreicht ?
brlo Soft19 ;bis 28 -> Ende
clt ;ab 29 -> Hat Monat 29,30,31 Tage ?
bld Status,5 ;Status Uhr 1x gestellt löschen
; set ;Datum nach DCF stellen !
; bld Status,7 ;Status Uhr nach DCF stellen setzen
cpi Temp3,32 ;Tag 32 erreicht ?
brne Soft19 ;nein -> Ende
ldi Temp3,1 ;Tag 1 setzen
*sts {_day},Temp3
*lds Temp3,{_month}
inc Temp3 ;Monat erhöhen
cpi Temp3,13 ;Monat 13 erreicht ?
brne Soft18 ;nein -> Ende
ldi Temp3,1 ;Monat 1 setzen
*sts {_month},Temp3
*lds Temp3,{_year}
inc Temp3 ;Jahr erhöhen
cpi Temp3,100 ;Jahr 100 erreicht ?
brne Soft17 ;nein -> Ende
clr Temp3 ;Jahr 00 setzen
Soft17:
*sts {_year},Temp3
rjmp Soft20
Soft18:
*sts {_month},Temp3
rjmp Soft20
Soft19:
*sts {_day},Temp3
Soft20:
*sts {H_Sek},Temp1
*sts {_sec},Temp2
*sts {_min},Minute
*sts {_hour},Stunde
ret
;-------------------------------------------------------------------------------
Auswerten:
cpi Impuls, 21 ;21. Impuls
brne Aus10 ;nein -> weiter
clr Buffer
clr Pari
Aus10:
cpi Impuls, 28 ;28. Impuls
brne Aus15 ;nein -> weiter
lsr Buffer ;Buffer 1x schieben, da Minute nur 7 Bit
rcall Bcd2dez ;in Dezimal wandeln
*sts {T_Min},Buffer ;Temp Minute schreiben
clr Buffer
Aus15:
cpi Impuls, 29 ;Minuten Parität
brne Aus20
clr Temp3
bst Buffer,7 ;Paritätsbit selektieren
bld Temp3,0 ;Paritätsbit in Temp3 Bit0 kopieren
cp Temp3,Pari ;Parität überprüfen
brne Aus26 ;Fehler -> Ende
clr Pari
clr Buffer
Aus20:
cpi Impuls, 35 ;35. Impuls
brne Aus25 ;nein -> weiter
lsr Buffer ;Buffer 2x schieben, da Stunde nur 6 Bit
lsr Buffer
rcall Bcd2dez ;in Dezimal wandeln
*sts {T_Std},Buffer ;Temp Stunde schreiben
clr Buffer
Aus25:
cpi Impuls, 36 ;Stunden Parität
brne Aus30
clr Temp3
bst Buffer,7 ;Paritätsbit selektieren
bld Temp3,0 ;Paritätsbit in Temp3 Bit0 kopieren
cp Temp3,Pari ;Parität überprüfen
breq Aus27 ;Pari OK -> weiter
Aus26:
ret ;Fehler -> Ende
Aus27:
set ;T-Bit setzen
bld Status,4 ;Bit4 Status setzen (Parität)
clr Buffer
Aus30:
cpi Impuls,42 ;42. Impuls
brne Aus40
lsr Buffer ;Buffer 2x schieben, da Tag nur 6 Bit
lsr Buffer
rcall Bcd2dez ;in Dezimal wandeln
*sts {_day},Buffer ;Tag schreiben
clr Buffer
Aus40:
cpi Impuls,45 ;45. Impuls
brne Aus50
lsr Buffer ;Buffer 5x schieben, da Wochentag nur 3 Bit
lsr Buffer
lsr Buffer
lsr Buffer
lsr Buffer
rcall Bcd2dez ;in Dezimal wandeln
*sts {WoTag},Buffer ;Wochentag schreiben
clr Buffer
Aus50:
cpi Impuls,50 ;50. Impuls
brne Aus60
lsr Buffer ;Buffer 3x schieben, da Monat nur 5 Bit
lsr Buffer
lsr Buffer
rcall Bcd2dez ;in Dezimal wandeln
*sts {_month},Buffer ;Monat schreiben
clr Buffer
Aus60:
cpi Impuls,58 ;58. Impuls
brne Aus70
rcall Bcd2dez ;in Dezimal wandeln
*sts {_year},Buffer ;Jahr schreiben
clr Buffer
Aus70:
cpi Impuls,59 ;59. Impuls
brne Aus80
set ;T-Bit setzen
bld Status,3 ;Bit3 Status setzen (59 Impulse)
Aus80:
cpi Impuls,60 ;bei mehr als 59 Impulsen (Störimpulse)
brne Aus90
clt ;T-Bit löschen
bld Status,3 ;Bit3 Status löschen (59 Impulse)
bld Status,4 ;Bit4 Status löschen (Parität)
Aus90:
ret
;-------------------------------------------------------------------------------
Bcd2dez:
mov Temp1,Buffer
andi Temp1,$0F
Bcd10:
subi Buffer,$10
brcs Bcd20
subi Temp1,$F6
rjmp Bcd10
Bcd20:
mov Buffer,Temp1
ret
[end]
Die Demo zeigt neben Uhrzeit und Datum, ob die Softuhr ohne DCF-Aktualisierung läuft "Soft Clock" oder schon 1x nach DCF gestellt wurde "DCF-Soft Clock".Code:$regfile = "m32def.dat" 'ATmega 32
$crystal = 8000000 'Quarz: 8 MHz
$baud = 9600
$hwstack = 32 'hardware stack
$swstack = 10 'software stack
$framesize = 40 'frame space
Config Date = Dmy , Separator = . 'deutsches Format für Datum
Config Clock = Soft
Disable Timer2 'ausgeschaltet lassen
$lib "dcf77_soft.lib" 'LIB für DCF77
$external Dcf77
Declare Sub Dcf77
'###########################################################################
'Hauptprogramm:
'LCD konfigurieren:
Wait 1
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.1 , Rs = Portb.0
Config Lcd = 16 * 4 'LCD 164A
'Startmeldung:
Cls
Lcd "* RNBFRA V1.22 *"
Wait 5
Cls
Config Timer0 = Timer , Prescale = 1024 'Timer 40Hz
Const Startwert = 61 'Für 8MHz
Timer0 = Startwert
On Timer0 Tim0_isr 'Überlauf alle 25ms
Enable Interrupts
Enable Timer0
'---------------------- Pin für DCF Eingang definieren ---------------------
'Jeder Portpin kann benutzt werden.
'Auch in der "Dcf77_soft.lib" entsprechend anpassen !!!
Config Pind.3 = Input 'DCF 77 Eingang
Set Portd.3 'Pullup ein
Declare Sub Showstatus()
Declare Sub Showtime()
'------------------- Variablen für DCF Routine -----------------------------
Dim Status As Byte , Zaehler As Byte , Buffer As Byte , Impuls As Byte
Dim H_sek As Byte , T_min As Byte , T_std As Byte , Wotag As Byte
Dim Pari As Byte , Pau As Byte , Imp As Byte
Dim I As Byte
'---------------------------------------------------------------------------
'Hauptprogramm:
Cls
Cursor Off
Date$ = "01.01.00"
Time$ = "00:00:00"
Status.7 = 0 'Uhr nach DCF stellen: AUS
Status.5 = 0 'Uhr wurde nicht gestellt
I = 0
'****************** HAUPTPROGRAMMSCHLEIFE **********************************
Do
Cls
Call Showtime()
Call Showstatus()
If _min = 58 And Status.7 = 0 Then Status.5 = 0 '1x pro Stunde nach DCF stellen
If Status.5 = 0 Then Status.7 = 1 Else Status.7 = 0 'Zeit nicht aktuell: Stellen!
Wait 1
Loop
End
'************* ENDE HAUPTPROGRAMM ******************************************
Sub Showstatus() 'Status anzeigen
If I = 0 Then I = 1 Else I = 0
Locate 1 , 1
If Status.5 = 1 Then
Lcd "*DCF-Soft Clock*"
Else
Lcd "***Soft Clock***"
End If
Locate 4 , 1
If Status.7 = 1 Then
Lcd "DCF:On "
Else
Lcd "DCF:Off"
End If
Locate 4 , 9
If Status.4 = 1 And I = 0 Then
Lcd " Signal"
Else
Lcd " "
End If
End Sub
'---------------------------------------------------------------------------
Sub Showtime()
Locate 2 , 5
Lcd Time$ 'Zeit an LCD
'Print Time$ 'Zeit an Terminal
If Status.5 = 1 Then
Locate 3 , 3
Wotag = Dayofweek()
Lcd Lookupstr(wotag , Wochentag) ; ". "
Lcd Date$
End If
End Sub
'---------------------- Interrupt Routine DCF77 ----------------------------
Tim0_isr:
Timer0 = Startwert
Call Dcf77
Return
'###########################################################################
'Programm Ende:
End
'---------------------- Daten für Wochentag --------------------------------
Wochentag:
Data "Mo" , "Di" , "Mi" , "Do" , "Fr" , "Sa" , "So"
'###########################################################################
In der 4. Zeile erscheint "DCF:Off", wenn in der lib keine DCF-Decodierung erfolgt oder "DCF:On", wenn der Decoder eingeschaltet ist.
Dort blinkt auch "Signal", wenn die Parität o.k. ist (heißt: Es liegt wohl ein DCF-Signal an ...).
Viel Spaß damit.
Gruß Dirk