LCD-Decoder mir ATMega32

[Ekkehard O. (ekkehard_o)]

Hallo liebe Gemeinde,

ich war vor einiger Zeit auf der Suche nach der Möglichkeit, einen 
LCD-Bus als Datenquelle zu verwenden. Da ich seinerzeit nichts finden 
konnte, bin ich selber kreativ geworden.
Hintergrund war folgender:

Ich habe ein Systemtelefon (in diesem Fall ein Panasonic KX-DT321), dem 
ich Daten entlocken wollte. Der Einsatzzweck variiert, deshalb sollte es 
auch universal gehalten sein. Für die Bedienbarkeit schien es mir am 
einfachsten zu sein, den Display-Inhalt als String verfügbar zu machen 
und mit einer Match-Suche eine Aktion ausführen.
Der unten gezeigte Code ist ausgelegt für ein 16*1-Display im 
4-Bit-Betrieb.
Die Ausgabe des Displayinhalts erfolgt zur Demonstration über RS232 auf 
ein Terminalprogramm mit VT100-Emulation im UTF8-Zeichenformat.

Hier das Grundgerüst des Bascom-Codes, der gerne benutzt und angepasst 
werden darf. Ich würde mich freuen, dem ein oder anderen damit helfen zu 
können.

'----------------------------------------------------------------------------
'Name                      : LCD Bus-Wandler.bas
'Ersteller                  : Ekkehard Oetken
'Zweck                     : Displayinhalt auslesen
'PIC                          : Mega32
'----------------------------------------------------------------------------

'PortC.0 = Systel-Display D4
'PortC.1 = Systel-Display D5
'PortC.2 = Systel-Display D6
'PortC.3 = Systel-Display D7
'PortC.5 = Systel-Display RS
'PortD.2 = Systel-Display E

'Die Ausgabe erfolgt im UTF-8-Format, VT100-Emulation
'Ablaufdauer der Interruptroutine: 2us
'Verzögerung zwischen Interrupt und Start der Routine: 4us


$regfile = "m32def.dat"
$crystal = 16000000
$baud = 38400

Ddrc = &B00000000                     'Displayport als Eingang
Ddrd = &B11111011                     'Interrupt-Pin an Port D.2 als eingang konfigurieren

Portc = &B00000000                     'Pull-Up abschalten
Portd = &B00000100                     'Pull-Up an Port D.2 einschalten

On Int0 Lesen                                   'Interrupt wird bei jedem Display-Enable ausgelöst
Config Int0 = Rising                         'Interrupt bei steigender Flanke
Enable Int0                                        'Interrupt 0 einschalten
Enable Interrupts                              'Interrupts global einschalten

Dim Disp As String * 16                   'Gibt die Displayanzeige im UTF-8-Format aus
Dim Dispp1 As String * 8                 'Speichert die ersten 8 Stellen der Dsiplayanzeige
Dim Dispp2 As String * 8                 'Speichert die letzten 8 Stellen der Displayanzeige

Dim Stelle(17)as Byte                         'Array: Speichert Bytewerte der 16 Displaystellen
Dim Systel As Byte                              'Speichert die Bytewerte am Displayport
Dim Timeout As Long                         'Zur Erkennung des Ausbleibens der Daten am Displayport
Dim Intcounter As Byte                       'Zählt die Impulse am "Enable" PIN zum Überspringen
                                                                'des LN nach DDRAM Addresse 1000 0000
Dim Bytecounter As Byte                    'Speichert den Pointer vom Array "Stelle"
Dim Nibble As Bit                                 'Umschaltung zwischen HN=1 und LN=0
Dim N As Byte                                       'Schleifenzähler für die Stringbildung

Systel = 0
Timeout = 0
Intcounter = 0
Bytecounter = 1
Nibble = 1
N = 1



Do

   If Timeout >= 50 Then                                          'Timeout nicht durch Interrupt zurückgesetzt
      Print Chr(27) ; "[1;0f" ; "Check Connection"
      Timeout = 50
   Else
      For N = 1 To 17                                                    'Den String "Disp" für zusammenbauen
      Disp = Disp + Chr(stelle(n))
      Next N

      Dispp1 = Mid(disp , 1 , 8)                                     'Das neunte Zeichen entfernen
      Dispp2 = Mid(disp , 10 , 8)
      Disp = Dispp1 + Dispp2

      Print Chr(27) ; "[1;0f" ; Disp                                   'Ausgabe auf dem Bildschirm
      Disp = ""                                                                    'String zurücksetzen
   End If

   Incr Timeout

Loop




Lesen:                                                   'Interrupt ausgelöst
   If Pinc = 24 Then                              'Wenn das DDRAM auf Addresse 1000 0000 gesetzt wird
      Bytecounter = 1                             'Setzte den Pointer von Array "Stelle" zurück
      Intcounter = 0                                 'Setzt den Zähler zum Überspringen des LN nach 
                                                                'DDRAM-Addresse 1000 0000 zurück
      Nibble = 1                                        'Speichere im nächsten Durchgang das HN
   Else
      If Intcounter >= 2 Then                    'überspringe das erste Nibble
         If Nibble = 1 Then                          'Speichere das HN
            Systel.4 = Pinc.0                         'Schreibe die oberen vier Bit von "Systel"
            Systel.5 = Pinc.1
            Systel.6 = Pinc.2
            Systel.7 = Pinc.3
            Nibble = 0                                      'Sperre das HN für den nächsten Durchgang
         Else                                                    'Speichere das LN
            Systel.0 = Pinc.0                           'Schreibe die unteren vier Bits von "Systel"
            Systel.1 = Pinc.1
            Systel.2 = Pinc.2
            Systel.3 = Pinc.3
            Stelle(bytecounter) = Systel        'Schreibe das komplette Byte in
                                                                     'Position X von Bytearray "Stelle"
            Incr Bytecounter                            'Erhöhe den Pointer von Array "Stelle"
            Nibble = 1                                        'Sperre das LN für den nächsten Durchgang
         End If
      End If
   End If

   Timeout = 0                                              'Reset Zähler für fehlende Displaydaten
   Incr Intcounter                                         'Erhöhe den Zähler "Intcounter" um 1
Return



End

--

Quelltext bitte in [ c ] [ /c ] bzw. [ pre ] [ /pre ] - Tags 
einschließen, damit die Formatierung erhalten bleibt.

-rufus