CCPRO M128: DCF Clock 2 (CCPRO BASIC)

[Dirk]

Hier der 2. Teil:

Bibliothek (RP6DCFClockCClib.cbas), Teil 2:

/**
 * DCF DECODER
 *
 * Dies ist der DCF77 Decoder.
 *
 * Der (abschaltbare) DCF Decoder in dieser Funktion decodiert die
 * DCF Informationen und stellt die Uhr mit den empfangenen Daten.
 *
 * Die Funktion decodeDCF() muss alle 10ms aufgerufen werden.
 *
 */
Sub decodeDCF()
 Dim temp, dcfbit As Byte
 Static impulsdauer, alterpegel, paritaet As Byte
 Static dcfbitzaehler, dcfbitpuffer As Byte
#ifdef WETTER
 Static wetterpuffer As Word
#endif
 Static jahrpuffer, monatpuffer, wochentagpuffer, tagpuffer As Byte
 Static sommerzeitpuffer, stundepuffer, minutepuffer, dcfflagspuffer As Byte
    If (dcfstatus And STATUS_DCF_AN) = 0 Then
        Return                          ' DCF Decoder AUS!
    End If
    ' DCF77 Decoder:
    temp = Port_ReadBit(DCF_IN)         ' DCF Eingang lesen
    If temp = alterpegel Then           ' Keine Pegeländerung
        impulsdauer = impulsdauer + 1
        If impulsdauer >= (PAUSE_1900MS + (PAUSE_ABWEICHUNG * 3)) Then
            impulsdauer = 0
            dcfstatus = dcfstatus Or STATUS_FEHLER
        End If
        Return                          ' Ende DCF Decoder!
    Else                                ' Pegeländerung am Eingang
#ifdef REPARATUR
        ' Nach 1ms Port neu lesen zum Erkennen von "Spikes":
        ' (Spikes sind kurze Störsignale von elektr. Geräten)
        AbsDelay(1)                     ' 1ms Verzögerung
        If temp <> Port_ReadBit(DCF_IN) Then ' Keine Pegeländerung
            impulsdauer = impulsdauer + 1
	        Return
        End If
#endif
        alterpegel = temp
        dcfbit = BIT_FEHLER
        If impulsdauer >= (PAUSE_900MS - PAUSE_ABWEICHUNG) Then
            If impulsdauer < (PAUSE_900MS + PAUSE_ABWEICHUNG) Then
                dcfbit = BIT_0          ' Bit 0 decodiert
#ifdef DEBUG
                pause_0_laenge = impulsdauer
#endif
            End If
        End If
        If impulsdauer >= (PAUSE_800MS - PAUSE_ABWEICHUNG) Then
            If impulsdauer < (PAUSE_800MS + PAUSE_ABWEICHUNG) Then
                dcfbit = BIT_1          ' Bit 1 decodiert
                paritaet = paritaet + 1
#ifdef DEBUG
                pause_1_laenge = impulsdauer
#endif
            End If
        End If
        If impulsdauer >= (PAUSE_1900MS - PAUSE_ABWEICHUNG) Then
            If impulsdauer < (PAUSE_1900MS + PAUSE_ABWEICHUNG) Then
                dcfbit = LETZTESBIT_0   ' Letztes Bit 0 decodiert
#ifdef DEBUG
                letztepause_0_laenge = impulsdauer
#endif
            End If
        End If
        If impulsdauer >= (PAUSE_1800MS - PAUSE_ABWEICHUNG) Then
            If impulsdauer < (PAUSE_1800MS + PAUSE_ABWEICHUNG) Then
                dcfbit = LETZTESBIT_1   ' Letztes Bit 1 decodiert
                paritaet = paritaet + 1
#ifdef DEBUG
        	    letztepause_1_laenge = impulsdauer
#endif
            End If
		End If
		impulsdauer = 0 					  ' Impulsdauer zurücksetzen
		If dcfbit <> BIT_FEHLER Then          ' Kein DCF Bitfehler
            dcfbitpuffer = dcfbitpuffer >> 1  ' Puffer nach rechts schieben
            dcfbitpuffer = dcfbitpuffer Or (dcfbit And 0x80) ' DCF Bit einfügen
			Select Case dcfbitzaehler
#ifdef WETTER
				Case  7
					wetterpuffer = dcfbitpuffer  ' Wetter Infos (Bits 0..7)
                    If wetterpuffer And 0x0001 Then        ' DCF Bit 0 = 1 ?
                        dcfstatus = dcfstatus Or STATUS_FEHLER      ' -> Fehler!
                    End If
					dcfbitpuffer = 0
#endif
				Case 14
#ifdef WETTER                                    ' Wetter Infos (Bits 8..14)
					wetterpuffer = wetterpuffer Or (dcfbitpuffer << 7)
#endif
					dcfstatus = dcfstatus And (Not STATUS_TELEGRAMMINTAKT)
                    dcfbitpuffer = 0
				Case 20
					dcfflagspuffer = dcfbitpuffer >> 2     ' DCF Flags
                    If dcfflagspuffer And FLAG_Z1 Then     ' Z1: Zeitzone
                        sommerzeitpuffer = 1               ' [1 = MESZ]
                        If dcfflagspuffer And FLAG_Z2 Then ' Z1 = Z2 ?
                            dcfstatus = dcfstatus Or STATUS_FEHLER  ' -> Fehler!
                        End If
                    Else
                        sommerzeitpuffer = 0               ' [0 = MEZ]
                        If (dcfflagspuffer And FLAG_Z2) = 0 Then ' Z1 = Z2 ?
                            dcfstatus = dcfstatus Or STATUS_FEHLER  ' -> Fehler!
                        End If
                    End If
					If (dcfflagspuffer And FLAG_S) = 0 Then ' Start Bit = 0 ?
						dcfstatus = dcfstatus Or STATUS_FEHLER      ' -> Fehler!
					End If
                    dcfbitpuffer = 0
					paritaet = 0
				Case 27
					minutepuffer = BCDtoDEC(dcfbitpuffer >> 1) ' Minute
					If minutepuffer > 59 Then              ' Minute > 59 ?
						dcfstatus = dcfstatus Or STATUS_FEHLER      ' -> Fehler!
					End If
                Case 28
					If (paritaet And 1) = 0 Then           ' P1: Parität ok ?
                        dcfstatus = dcfstatus Or STATUS_MINPARITAET
                    End If
                    dcfbitpuffer = 0
					paritaet = 0
				Case 34
					stundepuffer = BCDtoDEC(dcfbitpuffer >> 2) ' Stunde
					If stundepuffer > 23 Then              ' Stunde > 23 ?
						dcfstatus = dcfstatus Or STATUS_FEHLER      ' -> Fehler!
					End If
                Case 35
					If (paritaet And 1) = 0 Then           ' P2: Parität ok ?
                        dcfstatus = dcfstatus Or STATUS_STDPARITAET
                    End If
                    dcfbitpuffer = 0
					paritaet = 0
				Case 41
					tagpuffer = BCDtoDEC(dcfbitpuffer >> 2) ' Tag
					If (tagpuffer = 0) Or (tagpuffer > 31) Then
						dcfstatus = dcfstatus Or STATUS_FEHLER      ' -> Fehler!
					End If
					dcfbitpuffer = 0
				Case 44
					wochentagpuffer = dcfbitpuffer >> 5    ' Wochentag
					If (wochentagpuffer = 0) Or (wochentagpuffer > 7) Then
						dcfstatus = dcfstatus Or STATUS_FEHLER      ' -> Fehler!
					End If
					dcfbitpuffer = 0
				Case 49
					monatpuffer = BCDtoDEC(dcfbitpuffer >> 3) ' Monat
					If (monatpuffer = 0) Or (monatpuffer > 12) Then
						dcfstatus = dcfstatus Or STATUS_FEHLER      ' -> Fehler!
					End If
					dcfbitpuffer = 0
				Case 57
					jahrpuffer = BCDtoDEC(dcfbitpuffer)    ' Jahr
					If jahrpuffer > 99 Then
						dcfstatus = dcfstatus Or STATUS_FEHLER      ' -> Fehler!
					End If
                Case 58
                    dcfstatus = dcfstatus Or STATUS_DCFBIT58
					If (paritaet And 1) = 0 Then           ' P3: Parität ok ?
                        dcfstatus = dcfstatus Or STATUS_DATPARITAET
                    End If
				Case 59                                    ' Schaltsekundenbit
					If (dcfbitpuffer And 0x80) _
                     Or ((dcfflagspuffer And FLAG_A2) = 0) Then
						dcfstatus = dcfstatus Or STATUS_FEHLER      ' -> Fehler!
					End If
				Case 60                                    ' Mehr als 59 Bits?
                    dcfstatus = dcfstatus And (Not STATUS_DCFBIT58) ' -> Fehler!
			End Select
			If dcfbit And LETZTESBIT_0 Then ' Ein letztes Bit (Telegrammende):
		        If (dcfstatus And (Not (STATUS_TELEGRAMMINTAKT _
                 Or STATUS_UHRGESTELLT Or STATUS_DCF_AN))) _
                 = (STATUS_MINPARITAET Or STATUS_STDPARITAET _
                 Or STATUS_DATPARITAET Or STATUS_DCFBIT58) Then ' T. fehlerfrei?
					dcfstatus = dcfstatus Or STATUS_TELEGRAMMINTAKT ' Ja!
					validitaetszaehler = validitaetszaehler + 1
					If validitaetszaehler >= validitaetsgrenze Then
						validitaetszaehler = validitaetsgrenze
#ifdef WETTER
                        DCF_WEATHER = wetterpuffer
#endif
                        dcfflags = dcfflagspuffer
                        Clock_SetTime(stundepuffer, minutepuffer, 0, _
                         CLOCK_CORR)                       ' Uhr stellen!
                        DCF_DST = sommerzeitpuffer
                        DCF_DOW = wochentagpuffer
                        tagpuffer = tagpuffer - 1          ' Tag und Monat
                        monatpuffer = monatpuffer - 1      ' ... nullbasiert!
                        Clock_SetDate(tagpuffer, monatpuffer, jahrpuffer)
						dcfstatus = dcfstatus Or STATUS_UHRGESTELLT
					End If
				Else    		 ' Telegramm NICHT intakt oder plausibel:
					validitaetszaehler = 0 ' Validitätszähler zurücksetzen
				End If
                ' Vorbereitung auf nächstes DCF Telegramm:
                dcfstatus = dcfstatus And (Not (STATUS_FEHLER _
                 Or STATUS_MINPARITAET Or STATUS_STDPARITAET _
                 Or STATUS_DATPARITAET Or STATUS_DCFBIT58)) ' Status Bits = 0
                dcfbitpuffer = 0
				dcfbitzaehler = 0
			Else                 ' Kein Telegramm Ende:
				dcfbitzaehler = dcfbitzaehler + 1 ' Nächstes DCF Bit decodieren
			End If
		End If ' Kein DCF Bitfehler
	End If ' Pegeländerung am Eingang
End Sub

/******************************************************************************/
' Nützliche LCD Funktionen:

/**
 * SHOW CLOCK
 *
 * Format: Uhrzeit
 *         Datum
 *
 */
Sub showCLOCK()
 Dim temp As Byte
	setCursorPosLCD(0, 1)		' Zeile 1
    temp = Clock_GetVal(CLOCK_HOUR)
	If temp < 10 Then
		printLCD("0")
	End If
	printIntegerLCD(temp)
	printLCD(":")
    temp = Clock_GetVal(CLOCK_MIN)
	If temp < 10 Then
		printLCD("0")
	End If
	printIntegerLCD(temp)
	printLCD(":")
    temp = Clock_GetVal(CLOCK_SEC)
	If temp < 10 Then
		printLCD("0")
	End If
	printIntegerLCD(temp)
	If dcfstatus And STATUS_UHRGESTELLT Then
		If DCF_DST Then 		' MESZ?
			printLCD("  MESZ")
		Else
			printLCD("   MEZ")
		End If
	End If
	setCursorPosLCD(1, 1)		' Zeile 2
	Select Case DCF_DOW         ' Wochentag
		Case 1
            printLCD("Mo")
		Case 2
            printLCD("Di")
		Case 3
            printLCD("Mi")
		Case 4
            printLCD("Do")
		Case 5
            printLCD("Fr")
		Case 6
            printLCD("Sa")
		Case 7
            printLCD("So")
		Else
            printLCD("--")
	End Select
	printLCD(", ")
    temp = Clock_GetVal(CLOCK_DAY) + 1  ' Tag nullbasiert!
	If temp < 10 Then
		printLCD("0")
	End If
	printIntegerLCD(temp)
	printLCD(".")
    temp = Clock_GetVal(CLOCK_MON) + 1  ' Monat nullbasiert!
    If temp < 10 Then
		printLCD("0")
	End If
	printIntegerLCD(temp)
	printLCD(".20")
    temp = Clock_GetVal(CLOCK_YEAR)
	If temp < 10 Then
		printLCD("0")
	End If
	printIntegerLCD(temp)
End Sub

/**
 * SHOW STATUS
 *
 * Format: Status
 *         Uhrzeit
 *
 */
Sub showSTATUS()
 Dim i As Integer
 Dim temp As Byte
	setCursorPosLCD(0, 1)		' Zeile 1
	printLCD("Stat: ")
    temp = dcfstatus
    For i = 0 To 7
        If temp And 0x80 Then
            printLCD("1")
        Else
            printLCD("0")
        End If
        temp = temp << 1
    Next
	setCursorPosLCD(1, 1)		' Zeile 2
    temp = Clock_GetVal(CLOCK_HOUR)
	If temp < 10 Then
		printLCD("0")
	End If
	printIntegerLCD(temp)
	printLCD(":")
    temp = Clock_GetVal(CLOCK_MIN)
	If temp < 10 Then
		printLCD("0")
	End If
	printIntegerLCD(temp)
	printLCD(":")
    temp = Clock_GetVal(CLOCK_SEC)
	If temp < 10 Then
		printLCD("0")
	End If
	printIntegerLCD(temp)
	If dcfstatus And STATUS_UHRGESTELLT Then
		If DCF_DST Then 		' MESZ?
			printLCD("  MESZ")
		Else
			printLCD("   MEZ")
		End If
	End If
End Sub

#ifdef DEBUG
/**
 * SHOW DEBUG INFO
 *
 */
Sub showDEBUGINFO()
	setCursorPosLCD(0, 1)		' Zeile 1
	printLCD("P1/0: ")
	printIntegerLCD(pause_1_laenge)
	printLCD(" / ")
	printIntegerLCD(pause_0_laenge)
	printLCD("  ")
	setCursorPosLCD(1, 1)		' Zeile 2
	printLCD("L1/0: ")
	printIntegerLCD(letztepause_1_laenge)
	printLCD(" / ")
	printIntegerLCD(letztepause_0_laenge)
	printLCD("  ")
End Sub
#endif

/******************************************************************************
 * Info
 * ****************************************************************************
 * Changelog:
 * - v. 1.0 (initial release) 13.06.2009 by Dirk
 *
 * ****************************************************************************
 */

/*****************************************************************************/
' EOF

Gruß Dirk