8Bit Routine HD44870 Display

[Namenlos]

Hallo Leute =)

Ich erhoffe mir mal wieder eine gute Hilfe von euch und zwar
geht es um folgendes:
Auf mikrocontroller.net findet man ja im Toutorial eine
sehr gute beschreibung für eine LCD Ansterungsroutine
für eine 4 Bit Ansteuerung.
Da ich aber an meinen ATMega8 viele Pins habe und ich
nur ein paar Pins gebrauche (Display + 2 AD Wandler )
habe ich die Routine ( versucht )
auf 8 Bit umgeschrieben... und nun erhoffe ich mir
ob ihr diese mal auf Fehler kontrollieren könntet oder weitere
Tipps dazu geben könntet =)

Das Toturial auf µC.net
http://www.mikrocontroller.net/artic...-Tutorial:_LCD

Liebe Grüße
Namenlos

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 8bit-Interface                              ;;
;;                                             ;;
;; D0    =	PortD0                             ;; 
;; D1    =  PortD1                             ;;      
;; D2    =  PortD2                             ;;    
;; D3    =  PortD3                             ;;
;; D4    =  PortD4                             ;;
;; D5    =  PortD5                             ;; 
;; D6    =  PortD6                             ;; 
;; D7    =  PortD7							   ;;	
;;                                  		   ;;
;; R/W   =  PortB0                             ;;   
;; RS    =  PortB1  						   ;;
;; E	 =  PortB2 					           ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

.def init   = r21
.def temp2 = r22
.def temp3 = r23

.ifndef XTAL
.equ XTAL = 4000000
.endif

  
lcd_data:  	;RS = 1,;sendet ein Datenbyte an das LCD

			 push	init
          	 sbi 	PortB, 1			 		
		     rcall  lcd_enable
          	 rcall  delay50us
			 pop	init
         	 ret                          



lcd_command:;sendet einen Befehl an das LCD

        	push	init
           	cbi 	PortB, 1 				;RS=0, Daten werden geschrieben
            rcall   lcd_enable
          	rcall   delay50us
			pop		init
            ret							;zurück zum Hauptprogramm

 
 
lcd_enable: ;erzeugt den Enable-Puls

 		    ;Bei höherem Takt (>= 8 MHz) kann es notwendig sein, 
 		    ;vor dem Enable High 1-2 Wartetakte (nop) einzufügen. 
 		    ;Siehe dazu http://www.mikrocontroller.net/topic/81974#685882


            sbi PORTB, 2                 ; Enable high
            nop                          ; 3 Taktzyklen warten
            nop
            nop
            cbi PORTB, 2                 ; Enable wieder low
            ret                          ; Und wieder zurück                     
 



delay50us:  ;Pause nach jeder Übertragung,50us

            ldi  init, ( XTAL * 50 / 3 ) / 1000000
delay50us_:
            dec  init
            brne delay50us_
            ret                          ; wieder zurück

 
 
delay5ms:                               ; 5ms Pause
           ldi  init, ( XTAL * 5 / 607 ) / 1000
WGLOOP0:   ldi  temp2, $C9
WGLOOP1:   dec  temp2
           brne WGLOOP1
           dec  init
           brne WGLOOP0
           ret                          ; wieder zurück


lcd_init:  ;Initialisierung: muss ganz am Anfang des Programms aufgerufen werden



           ldi  	temp3,50
powerupwait:
           rcall 	delay5ms
           dec  	temp3
           brne 	powerupwait
           ldi 		init, 0b00000011        ; muss 3mal hintereinander gesendet
           out 		PortD, init             ; werden zur Initialisierung
           rcall 	lcd_enable             ; 1
           rcall 	delay5ms
           rcall 	lcd_enable             ; 2
           rcall 	delay5ms
           rcall 	lcd_enable             ; und 3!
           rcall 	delay5ms
           
           ldi 		init, 0b00110000        ; 8Bit / 2 Zeilen / 5x7
           rcall 	lcd_command
           ldi 		init, 0b00001100        ; Display ein / kein Cursor / kein Blinken
           rcall 	lcd_command
           ldi 		init, 0b00000100        ; inkrement / kein Scrollen
           rcall 	lcd_command
           ret



lcd_clear: ;Sendet den Befehl zur Löschung des Displays



           ldi 		init, 0b00000001   ; Display löschen
           rcall 	lcd_command
           rcall 	delay5ms
           ret
 

 


lcd_home:  ;Sendet den Befehl: Cursor Home



           ldi 		init, 0b00000010   ; Cursor Home
           rcall 	lcd_command
           rcall 	delay5ms
           ret

[Lazareth]

musst ja nur das umtauschen weglassen (swap) und die initialisierung ein bisschen abwandeln.


hier mal meine 8-bit ansteuerung:

PD0-PD7 entspricht DB0-DB7
Rs is an PC5
E an PC3

dieser code funktioniert.

;definitionsdatei

.equ DBport= portd ; ausgabeport
.equ RWport= portc ; RS,RW, E
.equ DBddr= ddrd ; datenrichtung ausgabe
.equ RWddr= ddrc ; datenrichtung rs, rw, e
.equ pine= 3
.equ pinrw= 4
.equ pinrs= 5

.device mega8
.include "m8def.inc"

; Stack initialisieren

ldi r16, LOW(RAMEND)
out SPL, r16

ldi r16, HIGH(RAMEND)
out SPH, r16

;****************hier starten********************
rcall ms10
rcall ms10
rcall ms10
rcall ms10
rcall ini

rjmp haupt

;****************Ein/Ausgänge*********************

ddrdaus:	ldi r16,	$ff ; Datenausgänge DB0-7
			out ddrd,	r16
			ret
ddrdein:	ldi r16,	0
			out ddrd,	r16
			ret
ddrcaus:ldi r16,	$ff ; kontrollausgänge RS;RW;E
			out ddrc,	r16
			ret
ddrcein:ldi r16,	0
			out ddrc,	r16
			ret

;****************Warteschleifen*******************
ms2:     
         		ldi r24, low (125)   			;// 2000 = µs = 2ms; 4 = takte
         		ldi r25, high (125)  			;// 2000 = µs = 2ms; 4 = takte
	ms21:    	sbiw r24,1           			;//2takte
         		brne ms21            			;//2takte
         		ret                  			;//4takte

ms5:                          
         		ldi r24, low (1250)   			;// 5000 = µs = 5ms; 4 = takte
         		ldi r25, high (1250)  			;// 5000 = µs = 5ms; 4 = takte
	ms51:    	sbiw r24,1           			;//2takte
         		brne ms51            			;//2takte
         		ret                  			;//4takte

ms10:                         
         		ldi r24, low (2500)   			;// 10000 = µs = 10ms; 4 = takte
		 		ldi r25, high (2500)  			;insgesamt 4Takte
	ms101:   	sbiw r24,1           			;//2takte
         		brne ms101            			;//2takte
         		ret                  			;//4takte

;****************Daten/Befehle senden*************

;----------Daten Senden
daten:		rcall ddrcaus
			rcall ddrdaus
			out portd,		r17
			sbi portc,	pinrs
			nop
			sbi portc, 	pine 
			nop
			nop
			nop
			nop
			cbi portc, 	pine
			rcall ms2
			ret

;----------Befehle Senden
befehl:		rcall ddrcaus
			rcall ddrdaus
			out portd,		r17
			nop
			sbi portc,	pine
			nop 
			nop
			nop
			nop
			cbi portc, 	pine
			rcall ms2
			ret		

;----------Befehl für ini mit zeit
befehlini:	rcall ddrcaus
			rcall ddrdaus
			out portd,		r17
			nop
			sbi portc,	pine
			nop 
			nop
			nop
			nop
			cbi portc, 	pine
			rcall ms5
			ret

;****************Initialisierung******************
ini:		rcall ddrdaus	;ddrd = ausgang
			rcall ddrcaus	;ddrc = ausgang
			ldi r17, 0x00
			out portd, r17
			ldi r17,	$30	;$30 = 3 mal auf ausgang
			rcall befehlini	; 1 befehl senden
			rcall befehlini	; 2 befehl senden
			rcall befehlini	; 3 befehl senden
			;Function set
			;DL = 1 = 8bit-modus, N = 1 = 2 Zeilen, 
			ldi r17, 	0b00111000 ;Funtion set, DL, N, F  
			rcall befehlini
			;Display ON/OFF
			ldi r17, 	0b00001110 ;Display, ON/Off, cursor an/aus, Block/Unterstrich  
			rcall befehlini
			ldi r17,	0b00000001
			rcall befehlini
			ret

;----------------Hauptprogramm-------------------

haupt:

ldi r17, '0'
rcall daten
ldi r17, '8'
rcall daten
ldi r17, '/'
rcall daten
ldi r17, '1'
rcall daten
ldi r17, '5'
rcall daten

loop:
	rjmp loop