;----------------------------------------------
; Analog-Digital-Umwandler                     
; ADC5 einlesen und an Port B ausgeben
;----------------------------------------------

.include "m8def.inc"

.def temp     = r16
.def temp1 = r22
.def temp2 = r23
.def temp3 = r24
.def lowByte  = r17
.def highByte = r18

.def CHANNEL  = R20




ldi temp, LOW(RAMEND)
out SPL, temp
ldi temp, HIGH(RAMEND)
out SPH, temp              

ldi temp, 0xFF
out DDRD, temp		

rcall lcd_init
rcall lcd_clear


; ADC initialisieren  ###########################################
; Bit 7 - externe Referenz    
; Bit 6 - externe Referenz    
; Bit 5 - left Adjust Result  
; Bit 4 -                     
; Bit 3 - KANAL-Wahl          
; Bit 2 - KANAL-Wahl          
; Bit 1 - KANAL-Wahl          
; Bit 0 - KANAL-Wahl          
ldi temp, 0b00000000   ;(ADC0...ADC5)
out ADMUX, temp

; Kanal (AD0..AD5) einstellen                
ldi channel, 5		
out ADMUX, channel

; ADC initialisieren mit "Free Run" und Vorteiler 128 
; Bit 7 -ADEN: ADC Enable                             
; Bit 6 -ADSC: ADC Start Conversion                   
; Bit 5 -ADFR: ADC Free Running Select                
; Bit 4 -ADIF: ADC Interrzpt Flag                     
; Bit 3 -ADIE: ADC Interrupt Enable                   
; Bit 2 -ADPS2: Vorteiler                             
; Bit 1 -ADPS2: Vorteiler                             
; Bit 0 -ADPS2: Vorteiler                             
; Vorteiler von 3,5 ms bis 52 us einstellbar          
ldi temp, ((1<<ADEN)|(1<<ADSC)|(1<<ADFR)) + 7
out ADCSR, temp

;*****************************************************************
loop:



; *************************************************************************
; neuen ADC-Wert lesen	; Wert verwerfen, da meist vom vorherigem ADC-Kanal
	sbi ADCSRA, ADIF    ; logisch "1" löscht ADIF flag !
wait1:                  
	sbis ADCSRA, ADIF
	rjmp wait1
; neuen ADC-Wert lesen
	sbi ADCSRA, ADIF    ; logisch "1" löscht ADIF flag !
wait2:                
	sbis ADCSR, ADIF 
	rjmp wait2
; ADC einlesen:
	in lowByte, ADCL 	; immer zuerst low byte lesen
	in highByte, ADCH 	; danach das mittlerweile gesperrte high byte

; zweimal nach rechts schieben über carry macht aus 10-Bit-Wert einen 8-Bit-Wert 
	ror highByte 
	ror lowByte

	ror highByte
	ror lowByte

	mov temp1, lowByte ; lowByte nach temp kopieren
	
	rcall lcd_data


rjmp loop






;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                 LCD-Routinen                ;;
;;                 ============                ;;
;;              (c)andreas-s@web.de            ;;
;;                                             ;;
;; 4bit-Interface                              ;;
;; DB4-DB7:       PD0-PD3                      ;;
;; RS:            PD4                          ;;
;; E:             PD5                          ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

 
 
 ;sendet ein Datenbyte an das LCD
lcd_data:
           mov temp2, temp1             ;"Sicherungskopie" für
                                        ;die Übertragung des 2.Nibbles
           swap temp1                   ;Vertauschen
           andi temp1, 0b00001111       ;oberes Nibble auf Null setzen
           sbr temp1, 1<<4              ;entspricht 0b00010000
           out PORTD, temp1             ;ausgeben
           rcall lcd_enable             ;Enable-Routine aufrufen
                                        ;2. Nibble, kein swap da es schon
                                        ;an der richtigen stelle ist
           andi temp2, 0b00001111       ;obere Hälfte auf Null setzen 
           sbr temp2, 1<<4              ;entspricht 0b00010000
           out PORTD, temp2             ;ausgeben
           rcall lcd_enable             ;Enable-Routine aufrufen
           rcall delay50us              ;Delay-Routine aufrufen
           ret                          ;zurück zum Hauptprogramm

 ;sendet einen Befehl an das LCD
lcd_command:                            ;wie lcd_data, nur ohne RS zu setzen
           mov temp2, temp1
           swap temp1
           andi temp1, 0b00001111
           out PORTD, temp1
           rcall lcd_enable
           andi temp2, 0b00001111
           out PORTD, temp2
           rcall lcd_enable
           rcall delay50us
           ret

 ;erzeugt den Enable-Puls
lcd_enable:
           sbi PORTD, 5                 ;Enable high
           nop                          ;3 Taktzyklen warten
           nop
           nop
           cbi PORTD, 5                 ;Enable wieder low
           ret                          ;Und wieder zurück                     

 ;Pause nach jeder Übertragung
delay50us:                              ;50us Pause
           ldi  temp1, $42
delay50us_:dec  temp1
           brne delay50us_
           ret                          ;wieder zurück

 ;Längere Pause für manche Befehle
delay5ms:                               ;5ms Pause
           ldi  temp1, $21
WGLOOP0:   ldi  temp2, $C9
WGLOOP1:   dec  temp2
           brne WGLOOP1
           dec  temp1
           brne WGLOOP0
           ret                          ;wieder zurück

 ;Initialisierung: muss ganz am Anfang des Programms aufgerufen werden
lcd_init:
           ldi	temp3,50
powerupwait:
           rcall	delay5ms
           dec	temp3
           brne	powerupwait
           ldi temp1, 0b00000011        ;muss 3mal hintereinander gesendet
           out PORTD, temp1             ;werden zur Initialisierung
           rcall lcd_enable             ;1
           rcall delay5ms
           rcall lcd_enable             ;2
           rcall delay5ms
           rcall lcd_enable             ;und 3!
           rcall delay5ms
           ldi temp1, 0b00000010        ;4bit-Modus einstellen
           out PORTD, temp1
           rcall lcd_enable
           rcall delay5ms
           ldi temp1, 0b00101000        ;noch was einstellen...
           rcall lcd_command
           ldi temp1, 0b00001100        ;...nochwas...
           rcall lcd_command
           ldi temp1, 0b00000100        ;endlich fertig
           rcall lcd_command
           ret

 ;Sendet den Befehl zur Löschung des Displays
lcd_clear:
           ldi temp1, 0b00000001   ;Display löschen
           rcall lcd_command
           rcall delay5ms
           ret