.include "m8def.inc"


.def temp1 = r16
.def temp2 = r17
.def temp3 = r18
.def temp4 = r19
.def temp5 = r20
.def adlow = r22
.def adhigh = r23
.def temp6 = r24
.def temp7 = r25
.def temp8 = r26
.def temp9 = r27
.def temp10 = r28


			
			
			ldi temp1, HIGH(RAMEND)     ; HIGH-Byte der obersten RAM-Adresse
           out SPH, temp1
           ldi temp1, LOW(RAMEND)      ; LOW-Byte der obersten RAM-Adresse
           out SPL, temp1
           

           ldi temp1, 0b10111111    ;Port D = Ausgang
           out DDRD, temp1

           rcall lcd_init     ;Display initialisieren
           rcall lcd_clear    ;Display löschen
			rcall lcd_init1
			rcall lcd_clear1	
           
		   rcall lcd_clear
		   ldi	temp1, 0b10000000
		   rcall lcd_command
		   ldi temp1, 'T'     ;Zeichen anzeigen
           rcall lcd_data

           ldi temp1, 'e'     ;Zeichen anzeigen
           rcall lcd_data
           
           ldi temp1, 'm'     ;Zeichen anzeigen
           rcall lcd_data

           ldi temp1, 'p'     ;Zeichen anzeigen
           rcall lcd_data
			ldi temp1, 'e'     ;Zeichen anzeigen
           rcall lcd_data
		   	ldi temp1, 'r'     ;Zeichen anzeigen
           rcall lcd_data
		   	ldi temp1, 'a'     ;Zeichen anzeigen
           rcall lcd_data
			ldi temp1, 't'     ;Zeichen anzeigen
           rcall lcd_data
			ldi temp1, 'u'     ;Zeichen anzeigen
           rcall lcd_data
			ldi temp1, 'r'     ;Zeichen anzeigen
           rcall lcd_data
			ldi temp1, 'm'     ;Zeichen anzeigen
           rcall lcd_data
			ldi temp1, 'e'     ;Zeichen anzeigen
           rcall lcd_data
			ldi temp1, 's'     ;Zeichen anzeigen
           rcall lcd_data
			ldi temp1, 's'     ;Zeichen anzeigen
           rcall lcd_data
			ldi temp1, 'u'     ;Zeichen anzeigen
           rcall lcd_data
			ldi temp1, 'n'     ;Zeichen anzeigen
           rcall lcd_data
			ldi temp1, 'g'     ;Zeichen anzeigen
           rcall lcd_data


		   	ldi temp1, 0b11001100
		   	rcall lcd_command
			ldi temp1,	'b'
			rcall lcd_data
			ldi temp1,	'y'
			rcall lcd_data
			ldi temp1,	' '
			rcall lcd_data
			ldi temp1,	'H'
			rcall lcd_data
			ldi temp1,	'a'
			rcall lcd_data
			ldi temp1,	'n'
			rcall lcd_data
			ldi temp1,	's'
			rcall lcd_data
			ldi temp1,	'i'
			rcall lcd_data
			ldi temp1,	' '
			rcall lcd_data
			ldi temp1,	'P'
			rcall lcd_data
			ldi temp1,	'e'
			rcall lcd_data
			ldi temp1,	't'
			rcall lcd_data
			ldi temp1,	'e'
			rcall lcd_data
			ldi temp1,	'r'
			rcall lcd_data
 			ldi temp1,	's'
			rcall lcd_data





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



			ldi temp3, (1<<REFS0)
			out ADMUX, temp3
			ldi temp3, (1<<ADEN) | (1<<ADPS2) | (1<<ADPS1) | (1<<ADPS0)
			out ADCSRA, temp3




main:
		

			clr temp3
			clr temp4
			clr temp5
			clr temp6
			ldi temp7, 0



sample_adc:
			sbi ADCSRA, ADSC

wait_adc:
			sbic ADCSRA, ADSC
			rjmp wait_adc


			in adlow, ADCL
			in adhigh, ADCH



			add temp4, adlow
			adc temp5, adhigh
			adc temp6, temp3
			dec temp7
			brne sample_adc




			cpi temp4, 128
			brlo no_round

			subi temp5, low(-1)
			sbci temp6, high(-1)



no_round:
			mov adlow, temp5
			mov adhigh, temp6



outp:
			ldi temp7, -1 + '0'

a6ser:
			inc temp7
			subi adlow, low(10000)
			sbci adhigh, high(10000)
			brcs a6ser

			ldi temp8, 10 + '0'

a7ser:
			dec temp8
			subi adlow, low(-1000)
			sbci adhigh, high(-1000)
			brcs a7ser

			ldi temp9, -1 + '0'

a8ser:
			inc temp9
			subi adlow, low(100)
			sbci adhigh, high(100)
			brcc a8ser

			ldi temp10, 10 + '0'

a9ser:
			dec temp10
			subi adlow, -10
			brcs a9ser
			subi adlow, -'0'

			rcall lcd_clear1
		    ldi	temp1, 0b11001100
		    rcall lcd_command1
			mov temp1, temp7
		
			rcall lcd_data1
			mov temp1, temp8
			rcall lcd_data1
		
			mov temp1, temp9
			rcall lcd_data1
			
			mov temp1, temp10
			rcall lcd_data1
		
			mov temp1, adlow
			rcall lcd_data1
			.



			rjmp main




lcd_init:	

			ldi temp1, 0b00000011
			out PORTD, temp1
			rcall lcd_enable
			rcall delay5ms
			rcall lcd_enable
			rcall delay5ms
			dec temp10
			

			rcall lcd_clear1
		    ldi	temp1, 0b11001100
		    rcall lcd_command1
			mov temp1, temp7
			rcall lcd_data1
			mov temp1, temp8
			rcall lcd_data1
			mov temp1, temp9
			rcall lcd_data1
			mov temp1, temp10
			rcall lcd_data1
			mov temp1, adlow
			rcall lcd_data1.
			
			rcall lcd_enable
			rcall delay5ms
			
			
			ldi temp1, 0b00100000
			rcall lcd_command
			rcall delay5ms
			
			ldi temp1, 0b00101000
			rcall lcd_command
			rcall delay5ms
			
			ldi temp1, 0b00001100
			rcall lcd_command
			rcall delay5ms
			
			ldi temp1, 0b00000100
			rcall lcd_command
			rcall delay5ms
			ret


lcd_data:
			push temp2
			mov temp2, temp1
			swap temp1
			andi temp1, 0b00001111
			ori	temp1, 0b00010000				
			out PORTD, temp1
			rcall lcd_enable
			andi temp2, 0b00001111
			ori	temp2, 0b00010000
			out PORTD, temp2
			rcall lcd_enable
			rcall delay50us
			pop temp2
			ret


lcd_command:
			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


lcd_enable:
			sbi PORTD, 5
			nop
			nop
			nop
			cbi PORTD, 5
			ret





delay50us:
			ldi temp1, 41
delay50us_: 
			nop
			dec temp1
			brne delay50us_
			ret


delay5ms:
			ldi temp1, 21
WGLOOP0:	
			ldi temp2, 195
			nop
WGLOOP1:	
			dec temp2
			nop
			brne WGLOOP1
			dec temp1
			brne	WGLOOP0
			ret



lcd_clear:	
			ldi temp1, 0b00000001
			rcall lcd_command
			rcall delay5ms
			ret






lcd_init1:	
			push temp1
			ldi temp1, 0b00000011
			out PORTD, temp1
			rcall lcd_enable1
			rcall delay5ms
			rcall lcd_enable1
			rcall delay5ms
			rcall lcd_enable1
			rcall delay5ms
			
			
			ldi temp1, 0b00100000
			rcall lcd_command1
			rcall delay5ms
			
			ldi temp1, 0b00101000
			rcall lcd_command1
			rcall delay5ms
			
			ldi temp1, 0b00001100
			rcall lcd_command1
			rcall delay5ms
			
			ldi temp1, 0b00000100
			rcall lcd_command1
			rcall delay5ms
			pop temp1
			ret


lcd_data1:
			push temp2
			mov temp2, temp1
			swap temp1
			andi temp1, 0b00001111
			ori	temp1, 0b00010000				
			out PORTD, temp1
			rcall lcd_enable1
			andi temp2, 0b00001111
			ori	temp2, 0b00010000
			out PORTD, temp2
			rcall lcd_enable1
			rcall delay50us1
			pop temp2
			ret


lcd_command1:
			push temp2
			mov temp2, temp1
			swap temp1
			andi temp1, 0b00001111
			out PORTD, temp1
			rcall lcd_enable1
			andi temp2, 0b00001111
			out PORTD, temp2
			rcall lcd_enable1
			rcall delay50us
			pop temp2
			ret



lcd_enable1:
			sbi PORTD, 6
			nop
			nop
			nop
			nop
			nop
			cbi PORTD, 6
			ret





delay50us1:
			push temp1
			ldi temp1, 41
delay50us_1: 
			nop
			dec temp1
			brne delay50us_1
			pop temp1
			ret


delay5ms1:
			push temp1
			ldi temp1, 21
WGLOOP01:	
			ldi temp2, 195
			nop
WGLOOP11:	
			dec temp2
			nop
			brne WGLOOP11
			dec temp1
			brne	WGLOOP01
			pop temp1
			ret



lcd_clear1:	
			push temp1
			ldi temp1, 0b00000001
			rcall lcd_command1
			rcall delay5ms1
			pop temp1
			ret