4 Bit Initialisierung PIC16F628A

[Tobias S. (tobias-sch)]

Hallo werte Gemeinde,

ich mache schon seit 7 Tagen an meinem Problem herum und es löst sich 
einfach nicht. In der Suchfunktion habe ich leider keinen Quellcode 
gefunden, der so prähistorisch ist wie mein eigener.

Ich habe das Display

ANAG Vision AV 1610

an den PIC 16F628A

angeschlossen wie im Quellcode zu lesen ist. Leider funktioniert die 
Initialisierung aus welchen Gründen auch immer nicht. Die Anschlüsse des 
Displays sind korrekt mit dem PIC verbunden und haben auch Kontakt. Ich 
hab das Ganze auch schon mit dem MPLab Simulator durchgespielt und die 
ausgehenden Signale sollten zur Initialisierungsvorschrift passen.

Lasse ich die Initialisierung durchlaufen, dann stehen danach immer noch 
schwarze Kästchen auf der einen Displayhälfte( obwohl es ja eigentlich 
danach aus sein sollte).
Bei einer busy check Abfrage nach der Initialisierung bleibt es im 
Unterprogramm busy check hängen (habe ich mit Prüf-LED herausgefunden). 
DB7 muss also entweder beim Einlesen dauerhaft auf high sein oder mein 
Unterprogramm busy_check hat einen Fehler.

 Fragen:

Um das busy Flag auszulesen, wie gehe ich da vor?

klar ist mir: R/W auf high, RS auf low

1. Enable? lese ich DB7 aus während enable auf high ist oder nachdem ich 
Enable getoggelt habe?

2. Ich habe längere Pausezeiten zwischen den Initialisierungsschritten, 
ist das erlaubt?

3. Lasse ich die nicht verwendeten Pins am LCD offen oder ziehe sie auf 
Masse?

4. Ist mein Function Set richtig gesetzt? Im Datenblatt zum Anag steht N 
anscheinend nicht für die Anzahl der Displaylines sondern für die 
Auflösung der Zeichen, wofür steht dann F?


Fragen über Fragen :-P
Vielen Dank für Eure Antworten und schöne Weihnachten!

Quellcode

;===================================
; Portdefinitionen
;===================================

#define Taster_1    PORTA, 0        ;
#define Taster_2    PORTA, 1        ;
#define LED_1      PORTA, 7        ;
#define LCD_E      PORTA, 4        ;
#define LCD_RW      PORTA, 3        ;
#define LCD_RS      PORTB, 5        ;
#define LCD_D4      PORTB, 0        ;
#define LCD_D5      PORTB, 1        ;
#define LCD_D6      PORTB, 2        ;
#define LCD_D7      PORTB, 3        ;

....
....
....

;===================================
; Display initialisieren
;===================================

  _wait d'300000'                    ; warte 0,3 s
  bcf LCD_RW                        ; 8 Bit Initialisierung
  bcf LCD_RS                        ;
  bsf LCD_D4                        ;
  bsf LCD_D5                        ;
  nop                            ;
  bsf LCD_E                        ;
  nop                            ;
  nop                            ;
  bcf LCD_E                        ;  
  nop
  bcf LCD_D4                        ;
  bcf LCD_D5                        ;
  _wait d'1000'                      ; warte 1 ms
  
  bsf LCD_D4                        ; 8 Bit Initialisierung
  bsf LCD_D5                        ;
  nop                            ; 
  bsf LCD_E                        ;
  nop                            ;
  nop                            ;
  bcf LCD_E                        ;
  nop  
  bcf LCD_D4                        ;
  bcf LCD_D5                        ;
  
  _wait d'1000'                      ; warte 1 ms
  bsf LCD_D4                        ; 8 Bit Initialisierung
  bsf LCD_D5                        ;
  nop                            ;
  bsf LCD_E                        ;
  nop                            ;
  nop                            ;
  bcf LCD_E                        ;
  nop  
  bcf LCD_D4                        ;
  bcf LCD_D5                        ;
  nop
  _wait d'1800'                      ; warte 1,8 ms
  
; 4 Bit Initialisierung
  

  bsf LCD_D5                        ;
  nop                            ;
  bsf LCD_E                        ;
  nop                            ;
  nop                            ;
  bcf LCD_E                        ;
  nop  
  bcf LCD_D5                        ;
  nop
  _wait d'1800'                      ; warte 1,8 ms

; ab hier muss mit Zerlegung der 8 Bit gearbeitet werden
                                ; 
  movlw b'00101000'                    ; Function set, 2 zeilig und 5x7
  call write_ins                      ;
  nop                            ;


  _wait d'1800'                      ; warte 1,8 ms
  
  movlw b'00001000'                    ; Display aus
  call write_ins                      ;
  nop                            ;
  _wait d'1800'                      ; warte 1,8 ms
  
  movlw b'00000001'                    ; Display löschen
  call write_ins                      ;
  nop                            ;
  _wait d'1800'                      ; warte 1,8 ms
  
  
  movlw b'00000110'                    ; Entry Mode Set, cursor nach rechts, shift aus
  call write_ins                      ;
  nop                            ;
  _wait d'1800'                      ; warte 1,8 ms
  movlw b'00001111'                    ; Display einschalten, Cursor ein und Zeichen blinkt an Cursorstelle
  call write_ins                      ;
  nop                            ;
  
  ....
  ....
  ....

;================================================================================================
; Unterprogramme
;================================================================================================

busy_check
  
  _BANK_1                          ;
  movlw b'00001000'                    ;PortB 3 als Eingang definieren
  movwf TRISB                        ;
  _BANK_0
  bcf LCD_RS                        ; setze LCD_RW und LCD_RS auf low
  bsf LCD_RW                        ; um busy flag auszulesen
  
  loopb
    bcf LCD_E    
    nop
    nop
    bsf LCD_E                        ; Enable setzen
    btfsc LCD_D7                      ; ist busy Flag nicht gesetzt?
    goto loopb                        ; doch, zurück zu loopb
    bcf LCD_E                        ; nein, nicht mehr, Enable löschen
    _BANK_1                          ;
    clrf TRISB                        ;  alle B Ports sind wieder Ausgänge
    _BANK_0                          ;
    _wait d'21'                        ; warte 21 us
  return                            ; zurück ins Programm

  write_ins
    movwf 0x25                        ; Wert in Reg 25 speichern
    movwf 0x26                        ; Wert in Reg 26 speichern
    swapf 0x25, 0                      ; 4 obere Bits mit 4 unteren vertauschen
    andlw b'00001111'                    ; 4 "neue" obere Bits maskieren
    movwf PORTB                        ; 4 "alte" obere Bits an PortB ausgeben
    bcf LCD_RS                        ; lösche LCD_RS und LCD_RW
    bcf LCD_RW                        ; um in die Befehlsübertragung zu gelangen
    nop                            ; warte
    bsf LCD_E                        ; Übertragung starten
    nop                            ;  warte
    nop                            ;  warte
    bcf LCD_E                        ; Übertragung beenden
    nop                            ; warte
    _wait d'1800'
    movf 0x26, 0                      ; ursprüngliches Byte in W laden
    andlw b'00001111'                    ; 4 "alte" obere Bits maskieren
    movwf PORTB                        ; 4 "alte" untere Bits an PORTB ausgeben
    nop                            ; warte
    bsf LCD_E                        ; Übertragung starten
    nop                            ;
    nop                            ;
    bcf LCD_E                        ;
    nop                            ;
    clrf PORTB                        ; Bits in PORTB löschen
    return                          ; zurück ins Hauptprogramm

  write_data
    movwf 0x27                        ; Wert in Reg 27 speichern
    movwf 0x28                        ; Wert in Reg 28 speichern
    bsf LCD_RS                        ; setze LCD_RS und lösche LCD_RW um in 
    bcf LCD_RW                        ; Datenübertragung zu gelangen
    swapf 0x27, 0                      ; 4 obere Bits mit 4 unteren vertauschen
    andlw b'00001111'                    ; 4 "neue" obere Bits maskieren
    iorwf PORTB, 1                      ; 4 "alte" obere Bits an PortB ausgeben
    nop                            ; warte
    bsf LCD_E                        ; Übertragung starten
    nop                            ; warte
    bcf LCD_E                        ; warte
    nop                            ; warte
    
    movf 0x28, 0                      ; ursprüngliches Byte wiederherstellen, Byte in W-Register lassen
    andlw b'00001111'                    ; 4 "alte" obere Bits maskieren
    iorwf PORTB, 1                      ; 4 "alte" untere Bits an PORTB ausgeben
    nop                            ; warte
    bsf LCD_E                        ; Übertragung starten
    nop                            ; warte
    nop                            ; warte
    bcf LCD_E                        ; Übertragung beenden
    nop                            ; warte
    clrf PORTB                        ; Bits in PORTB löschen
    bcf LCD_RS                        ; lösche LCD_RS  
    bcf LCD_RW                        ; und LCD_RW wieder
    return                          ; zurück ins Hauptprogramm

[c-hater (Gast)]

Tobias S. schrieb:

> Um das busy Flag auszulesen, wie gehe ich da vor?
>
> klar ist mir: R/W auf high, RS auf low
>
> 1. Enable? lese ich DB7 aus während enable auf high ist oder nachdem ich
> Enable getoggelt habe?

Während enable auf high ist, aber nicht zu früh, nachdem es auf high 
gegangen ist. Es gibt eine Mindestzeit, die zu warten ist. Nur bei 
hinreichend langsamem Controller und/oder hinreichend ineffizienter 
Sprache/Programmierung darf man diese Zeit ignorieren.

> 2. Ich habe längere Pausezeiten zwischen den Initialisierungsschritten,
> ist das erlaubt?

Ja. Du kannst alles beliebig langsam abfackeln. Sehr praktisch, um 
erstmal die Korrektheit der Ansteuerung und der Verdrahtung zu testen. 
Geht's mit grosszügigen Delays, ist soweit alles in Ordnung, bis auf das 
Timing.

> 3. Lasse ich die nicht verwendeten Pins am LCD offen oder ziehe sie auf
> Masse?

Für die eigentliche Funktion ist das völlig egal. Schlimmstenfalls hast 
du einen geringfügig höheren Stromverbrauch als nötig.

[Tobias S. (tobias-sch)]

Vielen Dank für die schnelle Antwort!

Jetzt ist nur noch offen, weshalb die Initialisierung offensichtlich 
fehl schlägt :-P

[Stefan (Gast)]

Versuch doch mal einen Quellcode, der
für einen HD44780 geschrieben ist.
Die beiden Controller sind kompatible.

[Kenner (Gast)]

Es kann viele Ursachen haben, Da muss man alles nochmal durch-checken.
Versuch ohne busy_check, mit einer warte-pause sollte ea auch gehen.

Das ist ein Beispiel:

-- output low nibble in value to the HD44780
procedure HD44780_IO( byte in value ) is
   hd44780_4_E  = high      -- enable
   hd44780_4_D  = value     -- put value on the data lines
   hd44780_4_E  = low       -- disable
   delay_100uS(2)         -- enough for the simple operations
end procedure

-- output the instruction byte in value to the HD44780
procedure HD44780_instruction( byte in value ) is
   hd44780_4_DI = low       -- select instruction
   HD44780_IO( value >> 4 ) -- output high nibble
--   delay_100uS( 10 )        -- required delay
   HD44780_IO( value )      -- output low nibble
   delay_100uS( 10 )        -- required delay
end procedure

procedure HD44780_setup is
   HD44780_instruction( 0b_0000_1000 ) -- display off
   delay_100uS( 10 )
   HD44780_instruction( 0b_0000_0001 ) -- clear display
   delay_1mS( 2 )
   HD44780_instruction( 0b_0000_0010 ) -- cursor home
   delay_1mS( 2 )
   HD44780_instruction( 0b_0000_0110 ) -- entry, autoincrement, no shift
   delay_100uS( 10 )
   HD44780_instruction( 0b_0000_1100 ) -- display on, cursor off, blink 
off
   delay_100uS( 10 )
end procedure


-- initialisation  for LCD
procedure lcd_init is

 _hd44780_4_init             -- IO pin initialisation for 4 bit

 delay_10mS( 5 )            -- gives the HD44780 time to wake up
 hd44780_4_DI = low          -- select instructions
 HD44780_IO( 0x03 )       -- sync one
 delay_1mS( 5 )            -- extra delay
 HD44780_IO( 0x03 )       -- and one more
 delay_100uS( 5 )            -- extra delay
 HD44780_IO( 0x03 )       -- end yet another
 delay_100uS( 5 )            -- extra delay
 HD44780_IO( 0x02 )       -- init to 4-bit mode
 delay_100uS( 5 )
 HD44780_instruction( 0b_0010_1000 )  -- two lines, 5x7 font
   delay_100uS( 5 )
 HD44780_setup
end procedure

[Tobias S. (tobias-sch)]

Ohne busy check arbeite ich im Moment auch. Ich bin am überlegen, ob ich 
mit dem Tauschen der oberen mit den unteren Nibbles im 4 Bit-Modus einen 
Fehler mache. Aber soweit ich weiß muss das obere Nibble zuerst 
übertragen werden und da ich die Pins 0 bis 3 von Port B verwende, 
müsste es ja richtig sein, die Nibbles zu vertauschen und dann zuerst 
das higher Nibble an die Ausgänge 0 bis 3 zu legen.

@Stefan:
Sofern ich einen Initialisierungscode in ASM finde, ziehe ich das 
durchaus in Erwägung, da ich am Anfang meiner Programmierfähigkeiten 
bin, kenne ich mich leider nicht mit C aus. Sobald der Display mit 
meinem ASM Code läuft, möchte ich mich aber in C einarbeiten.

[Noch einer (Gast)]

Pic16 Assembler und HD44780. Da hat wohl jeder von uns die Beispiele von 
Sprut übernommen.

http://www.sprut.de/electronic/pic/programm/lcd.htm

[Stefan (Gast)]

Dann such doch im Internet danach.
Gibt doch jedemenge Seiten davon.

Hier ein Beispiel: http://www.ekenrooi.net/lcd/lcd2.shtml

[Kenner (Gast)]

Ja, es ist wichtig wo die daten-lines angeschlossen sind, am oberen 
nibble oder unteren. Die Initialiesirung muss dann entsprechend 
angepasst werden.