PIC 16F628A und LCD

[Urs66 (Gast)]

Hallo

Ich habe gerade ein Problem mit einem Display! Dieses hat den 
Standart-Treiber HD44780. Leider macht das Display keinen Wank!!
Der Code ist ca. nach sprut.de, wobei ich mit dem 8-Bit Interface 
arbeite.
Im mpasm SIM funktioniert es eigentlich wie gewünscht... Nur die 
Hardware wil halt nicht...
Fällt jemandem ein gröberer Fehler auf??

;    Notes:       
;  Pin Connections
;  RB0-RB7 Data Port
;  RA0    RS
;  RA1    R/W
;  RA2    E
;                                                   *
;                                                                     *
;**********************************************************************

    list      p=16F628A           
    #include <p16F628A.inc>      

    errorlevel  -302              ; suppress message 302 from list file

    __CONFIG   _CP_OFF & DATA_CP_OFF & _LVP_OFF & _BOREN_OFF & _MCLRE_ON & _WDT_OFF & _PWRTE_ON & _XT_OSC

;**********************************************************************
; VARIABLE DEFINITIONS
;**********************************************************************

VAR             UDATA 0x22
loops      RES    1
loops1      RES    1
Temp            RES     1
Lcd_Data    RES    1
Lcd_Status    RES    1

;**********************************************************************
; EQU Befehle
;**********************************************************************
Lcd_RS      equ     RA0
Lcd_RW      equ     RA1
Lcd_E       equ     RA2
Lcd_Line  equ    PORTB
Lcd_Cont  equ    PORTA

;**********************************************************************
; MAIN PROGRAM
;**********************************************************************

MAIN_PROG     CODE

START
    bcf    STATUS, C
    clrf  PORTA
    clrf  PORTB
    call   IniReg
    call  IniLcd
      
    
    
Main        
    goto   Main  



;**********************************************************************
; SUBROUTINES
;**********************************************************************
;Zeitverzögerung um loops * 1 ms
; 4MHz externer Takt bedeutet 1MHz interner Takt
; also dauert 1 ms genau 1000 Befehle
; 110 Schleifen a 9 Befehle sind 990 Befehle = 0.99 ms
; die restlichen 10 Befehle für Einsprung und Rücksprung
Wait
top      movlw   .110           ; timing adjustment variable (1ms)
         movwf   loops1
top2     nop                    ; sit and wait
         nop
         nop
         nop
         nop
         nop
         decfsz  loops1, F      ; inner loops complete?
         goto    top2           ; no, go again
                                ;
         decfsz  loops, F      ; outer loops complete?
         goto    top            ; no, go again
         return               ; yes, return from subWAIT
;**********************************************************************
;Steuerbyte 8-bittig übertragen
Lcd_ContSend
    movwf  Lcd_Data
    call  LcdBusy
    movf  Lcd_Data,w
    movwf  Lcd_Line
    bcf    Lcd_Cont, Lcd_RW
    bcf    Lcd_Cont, Lcd_RS
    bsf    Lcd_Cont, Lcd_E
    nop
    bcf    Lcd_Cont, Lcd_E
    movlw  D'50'
    movwf  loops
    call   Wait
    return
;**********************************************************************
;Datenbyte 8-bittig übertragen
Lcd_DataSend
    movwf  Lcd_Data
    call  LcdBusy
    movf  Lcd_Data,w
    movwf  Lcd_Line
    bcf    Lcd_Cont, Lcd_RW
    bsf    Lcd_Cont, Lcd_RS
    bsf    Lcd_Cont, Lcd_E
    nop
    bcf    Lcd_Cont, Lcd_E
    movlw  D'50'
    movwf  loops
    call   Wait
    return
;**********************************************************************
; darauf warten, daß das Display bereit zur Datenannahme ist
LcdBusy
    banksel TRISB
    movlw  B'11111111'
    movwf   TRISB 
      banksel PORTB
BusyLoop    
    bcf    Lcd_Cont, Lcd_RS
    bsf    Lcd_Cont, Lcd_RW      ; Lesen
    bsf    Lcd_Cont, Lcd_E
    nop
    movf  Lcd_Line, w
    movwf  Lcd_Status
    bcf    Lcd_Cont, Lcd_E
    nop
    bsf    Lcd_Cont, Lcd_E  ; Enable
    nop
    bcf    Lcd_Cont, Lcd_E
    btfsc  Lcd_Status, 7  ; teste bit 7
    goto  BusyLoop
    bcf    Lcd_Cont, Lcd_RW
      banksel TRISB
    movlw  B'00000000'
    movwf   TRISB 
      banksel PORTB
    return  
;**********************************************************************
;Iinitialisierung der Resgister
IniReg
    bcf    STATUS,C
    banksel OPTION_REG    ;Bank1
    movlw  B'00000010' ;  pull-up enalbled
    movwf  OPTION_REG
    movlw  B'00000000' ;PortA RA0-RA2 Output
    movwf  TRISA
    movlw  B'00000000' ;PortB Outputs
    movwf  TRISB
    movlw  B'00000000' ;
    movwf  PIE1
    movlw  B'00000011' ;
    movwf  PCON
    movlw  B'00000010' ;
    movwf  TXSTA
    movlw  B'00000000' ;
    movwf  EECON1
    movlw  B'00000000' ;
    movwf  VRCON  
    banksel TMR0    ;Bank 0
    movlw  B'00000000'
    movwf  PORTA
    movlw  B'00000000'
    movwf  PORTB
    movlw  B'00000000' ;
    movwf  INTCON
    movlw  B'00010000' ;
    movwf  PIR1
    movlw  B'00000000' ;
    movwf  T1CON
    movlw  B'00000000' ;
    movwf  T2CON
    movlw  B'00000000' ;
    movwf  CCP1CON
    movlw  B'00000000' ;
    movwf  RCSTA
    movlw  B'00000111' ;
    movwf  CMCON
    return
;**********************************************************  
; Initialisierung des LCD-Displays

IniLcd
    movlw  D'250'      ; 250 ms Pause nach dem Einschalten
    movwf  loops  
    call  Wait    

    movlw  B'00110000'    ; 1
    movwf  Lcd_Line
    bsf    Lcd_Cont, Lcd_E
    nop  
    bcf    Lcd_Cont, Lcd_E
  
    movlw  D'100'      ; 100 ms Pause
    movwf  loops
    call  Wait
  
    movlw  B'00110000'    ; 2
    call  Lcd_ContSend
    movlw  B'00110000'    ; 3
    call   Lcd_ContSend  
    
    movlw  B'00000001'    ; löschen und cusor home
    call  Lcd_ContSend
    movlw  B'00111000'    ; 5 function set, 8-bit  2-zeilig,  5x7
    call  Lcd_ContSend  
    movlw  B'00001000'    ; 6 display off
    call  Lcd_ContSend
    movlw  B'00000110'    ; 7 entry mode, increment, disable display-shift
    call  Lcd_ContSend
    movlw  B'00000011'    ; 8 cursor home, cursor home
    call  Lcd_ContSend
    movlw  B'00001111'    ; 9 display on
    call  Lcd_ContSend
    return
    
    
;**********************************************************************
; END OF PROGRAM
;**********************************************************************

        END

Gruss Urs

[spess53 (Gast)]

HI

>Dieses hat den
>Standart-Treiber HD44780. Leider macht das Display keinen Wank!!
>Der Code ist ca. nach sprut.de, wobei ich mit dem 8-Bit Interface
>arbeite.

Und warum nicht exakt nach dem Datenblatt vom HD44780?

>Im mpasm SIM funktioniert es eigentlich wie gewünscht...

Dort zeigt das Display etwas an?

MfG Spess

[holger (Gast)]

Vergiss das

    movlw  B'00110000'    ; 2
    call  Lcd_ContSend
    movlw  B'00110000'    ; 3
    call   Lcd_ContSend

Eine Busy Abfrage ist nicht möglich bis die
Software Reset Sequenz beendet ist. Das steht auch im
Datenblatt zum HD44780.

[Ottmar K. (wil1)]

Hallo Urs 66,
bei der Nutzung des 16F628 für das LCD mit 8bit-Parallelport stellt sich 
doch die Frage ob das überhaupt einen Sinn ergibt, wenn Du nur noch für 
andere Zwecke 2 Pins übrig hast. . Am PORTA sind ja schon 2 Pins durch 
den Quarz (XT-Oszillator) und den MCLR belegt.
Ich selbst verwende seit Jahren praktisch unverändert wie von Sprut 
bereitgestellt, den 4bit-seriellen Bus zur Initialisierung von LCDs, mit 
stets 100%igem Erfolg. Damit konnte ich  auchr Grafik-Displays 
erfolgreich betreiben. Kupfere doch einfach nochmal den Sprut-Code 1:1 
ab. Wenn es dann funktioniert, machst Du die Änderungen nach Deinem 
eigenen Kopf. Mir persönlich ist es zu dumm mich durch Deinen Code zu 
quälen.
mfG Ottmar

[Jens H. (nase71)]

org 0x00 ?

[Ron (Gast)]

Mich würde interessieren ob du es hingekommen hast mache zwei tage rum 
und mehr wie Kästchen sehe ich nicht..