Suche kleines Testprogramm für KS0108 für ATmega8

[Martin (Gast)]

Guten Tag.

Ich wollte mal nachfragen ob jeand zufällig ein kleines Progrämmchen für 
einen ATmega8 hat womit ein KS0108 mit 128x64 Pixel angesteuert wird, da 
ich bevor ich mal wieder ewig hin und her teste erstmal wissen möchte ob 
mein Display überhaupt in Ordnung ist.

http://www.pollin.de/shop/downloads/D120425D.PDF

(Ist mein erster Versuch mit einem gLCD und möchte das zwar alleine 
schaffen an zu steuern aber trotzdem vorher wissen ob es wirklich 
funktioniert <- Geht einfach besser wenn man weiß das es "irgendwie" 
geht)

Was angezeigt wird ist egal.
Ebenso ist egal ob .asm oder .hex

Super währe auch die im Programm verwendete Verkabelung.

Vielen Dank

[chris (Gast)]

mmh such funktion kaputt????? also mit tg12864b-13 in der suchmaschine 
findet man schon das richtige sogar als ersten punkt in diesen foRUM

[Martin (Gast)]

Habe das Programm auf den ATmega8 versucht um zu schreiben, bekomme aber 
keine Ausgabe:

;***************************************************************
;Programm LCD.ASM
;Es wird vorausgesetzt, dass die Anzeige einen HD44780 oder
;kompatiblen Controller verwendet.
;ATmega8535 mit 8 MHz Takt
;***************************************************************

.include "m8def.inc"      ;muss im selben
          ;Verzeichnis stehen
;*************************************************************** 
;Board spezifizierungen
;***************************************************************

.ifndef XTAL
.equ XTAL = 4000000      ;Quarztakt hier: 8 MHz

;***************************************************************
;Definition der Steuerleitungen
;***************************************************************

.equ    E   = PD0    ;E an Pin PA0
.equ    RW  = PD1    ;RW an Pin PA1
.equ    RS  = PD2    ;RS an Pin PA2
.equ    CS1 = PD3    ;Linke Seite des Displays
.equ    CS2 = PD4    ;Rechte Seite des Displays
.equ    BF  = PB7    ;Busy flag
.equ    LED1 = 0b00100000
.equ    LED2 = 0b01000000
.equ    LED3 = 0b01100000

;***************************************************************
;LCD Befehle
;***************************************************************

.equ    clear_LCD  = 0b00000001  ;loesche Anzeige
.equ    home_LCD   = 0b00000010  ;return home
.equ    set_LCD    = 0b00111100  ;8 bits,2 Zeilen,5x7dots
.equ    LCD_on     = 0b00001110  ;schalte LCD ein
.equ    entry_mode = 0b00000110  ;setze Cursor

;***************************************************************
;Variablendefinition
;***************************************************************

.def    zeichen  = r0    ;Zeichen aus der Tabelle
.def    buffer  = r16    ;RX/TX Daten von/zu LCD
.def    counter  = r17    ;Zaehler fuer den Text
.def    temp1  = r18
.def    temp2  = r19



.CSEG
.ORG    0x00                ; Programm beginnt bei 0
      rjmp  main    ; Starte Hauptprogramm

;***************************************************************   
; Subroutine init
; Initialisiere PORTA
;***************************************************************   

init:  

    ldi     temp1,0b11111111  
    out    DDRD,temp1    ;PORTA ist Ausgang
    out    DDRB,temp1    ;PORTD ist Ausgang
    cbi    PORTD,E      ;E initialisieren
    cbi    PORTD,RS
    cbi    PORTD,RW
    cbi    PORTD,CS1    ;Linke Seite des Displays
    cbi    PORTD,CS2    ;Rechte Seite des Displays    
    ret



;***************************************************************
; Subroutine busy_flag
; Diese Routine testet, ob die LCD-Anzeige bereit ist, einen
; neuen Befehl oder weitere Daten zu empfangen.
;***************************************************************

busy_flag:    
    
    ldi    temp1,0b00000000  ;PORTC ist Eingang
    out    DDRB,temp1
    sbi    PORTD,CS1
    sbi    PORTD,CS2
    cbi    PORTD,RS    ;Befehl wird gesendet
    rcall  delay50us
    sbi    PORTD,RW    ;setze LCD in Lesemodus
    rcall  delay50us
    sbi    PORTD,E      ;spreche LCD an      
    rcall  delay50us
    sbic   PINB,BF      ;LCD bereit?                
    rjmp   busy_flag       ;nein, wiederhole
    cbi    PORTD,E      ;disable LCD        
    ret                     ;LCD bereit


;***************************************************************
; Subroutine write_data
; Diese Routine sendet Daten zur LCD-Anzeige.
; Die Daten muessen im Register buffer uebergeben werden.
;***************************************************************

write_data:
    rcall  busy_flag    ;LCD bereit?
    ldi    temp1,0b11111111  ;PORTC ist Ausgang
    out    DDRB,temp1
    sbi    PORTD,CS1
    sbi    PORTD,CS2
    sbi    PORTD,RS    ;Daten werden gesendet
    cbi    PORTD,RW    ;LCD in Schreibmodus
    sbi    PORTD,E      ;spreche LCD an
    out    PORTB,buffer  ;sende Daten
    cbi    PORTD,E      ;disable LCD
    ret


;***************************************************************
; Subroutine write_instr
; Diese Routine sendet Befehle zur LCD-Anzeige.
; Der Befehl muss im Register buffer uebergeben werden.
;***************************************************************

write_instr:
    rcall  busy_flag      ;LCD bereit?
    ldi    temp1,0b11111111  ;RB ist Ausgang
    out    DDRB,temp1
    sbi    PORTD,CS1
    sbi    PORTD,CS2
    cbi    PORTD,RS       ;Befehl wird gesendet
    cbi    PORTD,RW       ;LCD in Schreibmodus
    sbi    PORTD,E         ;spreche LCD an
    out    PORTB,buffer     ;sende Befehl
    cbi    PORTD,E         ;disable LCD
    ret

;*************************************************************** 
; Diese Routine errechnet die Pausenzeiten 50us
; in Abhängigkeit des eingebauten Quarz
;***************************************************************

delay50us:                           ; 50us Pause
        
    ldi    temp1, ( XTAL * 50 / 3 ) / 1000000

delay50us_:
    dec    temp1
    brne  delay50us_
    ret                          ; wieder zurück
 
;***************************************************************
; Hauptprogramm
; Schreibt "ATmega8535" in die erste Zeile und "LCD-Routine"
; in die zweite Zeile des LCDs.
;***************************************************************

main:  
    ldi    temp1,LOW(RAMEND)  ;setze Stack-Pointer
    out    SPL,temp1      ;an das SRAM-Ende
    ldi   temp1,HIGH(RAMEND)       
    out   SPH,temp1

    ldi    r19, LED1      ;LED1 AN
    out    PORTC, r19

    rcall  init        ;PORTA initialisieren
    
    ldi    r19, LED2      ;LED2 AN
    out    PORTC, r19

    ldi    buffer,set_LCD    ;setze LCD Funktion
    rcall  write_instr

    ldi    buffer,LCD_on    ;schalte LCD ein
    rcall  write_instr

    ldi    buffer,clear_LCD  ;loesche Anzeige
    rcall  write_instr

    ldi    buffer,entry_mode  ;Eingabemodus
    rcall  write_instr

    ldi    r19, LED3      ;LED1 & 2 AN
    out    PORTC, r19

;***************************************************************
;Holt den Text 'ATmega8535' aus der Tabelle und schreibt diesen
;in die erste Zeile der Anzeige
;***************************************************************
    ldi    counter,10      ;Zeichenzaehler
    ldi    ZL,LOW(Tabelle1*2)  ;Low-Zeiger auf Tabellenanfang
    ldi    ZH,HIGH(Tabelle1*2)  ;High-Zeiger auf Tabellenanfang

loop_msg1:

    lpm                      ;hole Zeichen aus Tabelle
    mov    buffer,zeichen    ;Zeichen uebergeben
    rcall  write_data        ;schreibe Zeichen in LCD
    adiw   ZL,1              ;16-Bit Zeiger erhoehen
    dec    counter           ;alle Zeichen gesendet?
    brne   loop_msg1         ;Nein! Sende naechstes Zeichen

;***************************************************************
;Holt den Text 'LCD-Routine' aus der Tabelle und schreibt diesen
;in die zweite Zeile der Anzeige
;***************************************************************
    
    ldi    buffer,0b11000000  ;LCD-Startadresse 2.Zeile
    rcall  write_instr        ;sende Befehl
    ldi    counter,11         ;Zeichenzaehler
    ldi    ZL,LOW(Tabelle2*2) ;Low-Zeiger auf Tabellenanfang
    ldi    ZH,HIGH(Tabelle2*2);High-Zeiger auf Tabellenanfang

loop_msg2:  
    
    lpm                       ;hole Zeichen aus Tabelle
    mov    buffer,zeichen     ;Zeichen uebergeben
    rcall  write_data         ;schreibe Zeichen in LCD
    adiw   ZL,1               ;16-Bit Zeiger erhoehen

no_carry2:  
    
    dec    counter        ;alle Zeichen gesendet?
    brne  loop_msg2       ;Nein! Sende naechstes Zeichen



;Endlosschleife. AVR zuruecksetzen, um Programm erneut zu starten

loop:  rjmp  loop

;***************************************************************
;Tabelle 1 mit dem Text "ATmega8535", der in die 1.Zeile
;geschrieben werden soll
;***************************************************************

Tabelle1:  .DB "ATmega8"

;***************************************************************
;Tabelle 2 mit dem Text "LCD-Routine", der in die 2.Zeile
;geschrieben werden soll
;***************************************************************

Tabelle2:  .DB "LCD-Routine"

.Exit

Die Datenleitungen liegen an B und die Steuerleitungen an D

E   = 0
RW  = 1
RS  = 2
CS1 = 3
CS2 = 4

Reset habe ich sowohl auf Masse als auch +5V gezogen.

Beitrag "Re: 128x64 Grafik LCD An Atmega 8/16/32"

[holger (Gast)]

>Habe das Programm auf den ATmega8 versucht um zu schreiben, bekomme aber
>keine Ausgabe:


>;***************************************************************
>;Programm LCD.ASM
>;Es wird vorausgesetzt, dass die Anzeige einen HD44780 oder

Der KS0108 ist kein Textdisplay. So geht das nicht.

[Martin (Gast)]

War davon ausgegangen das hier die Routine für einen anderen Controller 
auf diesen Umgeschrieben wurde:

>hab ich mir am WE ein LCD TG12864B-13 bei Pollin best.
>Anschluss hat alles funktioniert (Beleuchtung außen vor da keine lust)
>
>Ich möchte einen Text ausgeben in zwei Zeilen
>
>CODE hier in ASSEMBLER: