.include "m8def.inc"


	; Stack configuration
	ldi temp,high(RAMEND); Main program start
	out SPH,temp ; Set Stack Pointer to top of RAM
	ldi temp,low(RAMEND)
	out SPL,temp


.equ lcd_port=PORTC
.equ lcd_ddr=DDRC
.equ lcd_rs=4
.equ lcd_e=5
;.equ lcd_rw=>auf masse legen (nur schreiben)


.def temp=r16
.def temp2=r17
.def temp3=r20
.def zeichen=r18
.def command=r19


main:

	ldi temp, (1<<lcd_rs)|(1<<lcd_e)|0x0F
	out lcd_ddr,temp

 	   rcall lcd_init     ; Display initialisieren
	rcall lcd_clear    ; Display löschen

loopmain:


           ldi zeichen, 'T'     ; Zeichen anzeigen
           rcall lcd_send_data
 
           ldi zeichen, 'e'     ; Zeichen anzeigen
           rcall lcd_send_data
           
           ldi zeichen, 's'     ; Zeichen anzeigen
           rcall lcd_send_data
 
           ldi zeichen, 't'     ; Zeichen anzeigen
           rcall lcd_send_data

rjmp loopmain


rjmp main



;***Initialisierung***
;4 bit modus,2 zeilen, 5x7 dots, display ein, cursor ein, blinken ein,inkrement, kein Scrollen

lcd_init:

push temp
push temp3


           ldi  temp3,200

powerupwait:

           rcall  wait_5ms
           dec  temp3

 brne powerupwait


           ldi temp, 0b00000011         ; muss 3mal hintereinander gesendet
           out lcd_port, temp           ; werden zur Initialisierung (8bit modus)

           rcall lcd_enable             ; 1
           rcall wait_5ms
		   rcall wait_5ms
		   rcall wait_5ms

           rcall lcd_enable             ; 2
           rcall wait_5ms
		   rcall wait_5ms
		   rcall wait_5ms

           rcall lcd_enable             ; und 3!
           rcall wait_5ms
		   rcall wait_5ms
		   rcall wait_5ms


           ldi temp, 0b00000010         ; 4bit-Modus einstellen
           out lcd_port, temp

	 rcall lcd_enable
 	rcall wait_5ms
	 rcall wait_5ms
 	rcall wait_5ms

           ldi command, 0b00101000         ; 4Bit / 2 Zeilen / 5x7 dots
           rcall lcd_send_command

           ldi command, 0b00001111         ; Display ein / Cursor ein / Blinken ein
           rcall lcd_send_command

           ldi command, 0b00000100         ; inkrement / kein Scrollen
           rcall lcd_send_command

pop temp3
pop temp

ret

;***lcd daten senden***


lcd_send_data:

push temp

        mov temp, zeichen          	    ; "Sicherungskopie" für
                                   		     ; die Übertragung des 2.Nibbles
        swap zeichen                 	   ; Vertauschen
        andi zeichen, 0b00001111        ; oberes Nibble auf Null setzen
        sbr zeichen, 1<<lcd_rs               ; entspricht 0b00010000 (Anm.1)
        out lcd_port, zeichen     	      ; ausgeben
        rcall lcd_enable         	    ; Enable-Routine aufrufen
                                   		  ; 2. Nibble, kein swap da es schon
                            		         ; an der richtigen stelle ist
        andi temp, 0b00001111       ; obere Hälfte auf Null setzen 
        sbr temp, 1<<lcd_rs              ; entspricht 0b00010000
        out lcd_port, temp      	    ; ausgeben
        rcall lcd_enable           	  ; Enable-Routine aufrufen
        rcall wait_50us          	    ; Delay-Routine aufrufen
		
rcall wait_50us

pop temp

ret


;***lcd befehle senden***
; wie lcd_data, nur RS=0

lcd_send_command:

push temp

 	 mov temp, command

          	  swap command
         	  andi command, 0b00001111
         	  out lcd_port, command
         	  rcall lcd_enable

         	  andi temp, 0b00001111
         	  out lcd_port, temp
         	  rcall lcd_enable
        	  rcall wait_50us

	  rcall wait_50us
pop temp

ret


;***lcd enable-->werte übernehmen***

lcd_enable:
nop
nop
nop
nop
  sbi lcd_port, lcd_e                 ; Enable high

            nop                       ; 8 Taktzyklen warten=1us
            nop
            nop
 nop
nop
            nop
 nop
nop
        
  cbi lcd_port, lcd_e                 ; Enable wieder low
nop
nop
nop
nop

ret

;***Display löschen***

lcd_clear:

		 ldi command, 0b00000001   ; Display löschen
         rcall lcd_send_command
         rcall wait_5ms
		 rcall wait_5ms
		 rcall wait_5ms

ret

;***Cursor Homeposition***

lcd_homepos:

	ldi command, 0b00000010   ; Cursor Home
        rcall lcd_send_command
        rcall wait_5ms
		rcall wait_5ms
		rcall wait_5ms

ret

;***50µs warten***

wait_50us:

push temp

		ldi temp,195

	loop50us:

		dec temp

	brne loop50us

pop temp
ret


;***5ms warten***

wait_5ms:

push temp
push temp2

	ldi temp,0xFF	;low byte
	ldi temp2,52	;high byte

	loop5ms:

		dec temp		;low byte

	brne loop5ms

		dec temp2	;high byte

	brne loop5ms


pop temp
pop temp2

ret