.include "m8def.inc"

;Hardwareeinstellungen

.def 	null = r2
.def 	temp = r16
.def	switch=r17
.def 	highByte = r18
.def	stopper=r19
.def 	Einer =r20
.def    Zehner =r21
.def	ergebnislow=r22
.def 	tempi=r27
.def	ergebnishigh=r24
.def	vergleich=r25
.def 	law=r26
.def 	hunderter=r23

.equ	start1=225
;.equ 	start10=225		;208
;.equ 	start100=225		;223



.org	0x000
	rjmp	RESET			; Reset Handler
	reti	;EXT_INT0		; IRQ0  Handler
	reti	;EXT_INT1		; IRQ1  Handler
	reti	;TIM2_COMP		; Timer 2 Compare   Handler
	reti	;TIM2_OVF		; Timer 2 Overflow  Handler
	reti	;TIM1_CAPT		; Timer 1 Capture   Handler
	reti	;TIM1_COMPA		; Timer 1 CompareA  Handler
	reti	;TIM1_COMPB		; Timer 1 CompareB  Handler
	reti	;TIM1_OVF		; Timer 1 Overflow  Handler 
	rjmp	 TIM0_OVF		; Timer 0 Overflow  Handler
	reti	;SPI_STC		; SPI Transfer Complete Handler
	reti	;USART_RXC		; USART TX Complete Handler
	reti	;USART_UDRE		; UDR Empty Handler
	reti	;USART_TXC		; Usart TX Complete Handler
	reti	;ADC_COMPLETE	; ADC Conversion Complete Handler
	reti	;EE_RDY			; EEprom Ready Handler
	reti	;ANA_COMP		; Analog Comparator Handler
	reti	;TWSI			; Two-Wire Serial Interface Handler
	reti	;SPM_RDY			; Store Programm Memory Ready Handler

	

TIM0_OVF:				; Timer 1 Overflow  Handler		
		
		
		
		inc r28							; überprüfen in welchen Mode er gehen soll
		ldi temp,1
		cp r28,temp
		breq mode1
		ldi temp,2
	 	cp r28,temp
	 	breq mode2
		ldi temp,3
		cp r28,temp
		breq mode3
	
	mode1:
		ldi temp, start1
		;ldi temp, start100					; Startwert des Timers einstellen:
		out TCNT0, temp
		ldi zl,low(segment*2)
		ldi zh,high(segment*2)
		add zl,hunderter
		adc zh,null
		ldi temp,0x08
		out portb,temp
		lpm temp,z
		out portd,temp
		rcall adwandlung
		reti
		
	mode2:
		ldi temp,start1
		;ldi temp, start10					; Startwert des Timers einstellen:
		out TCNT0, temp
		ldi zl,low(segment*2)
		ldi zh,high(segment*2)
		add zl,zehner
		adc zh,null
		ldi temp,0x10
		out portb,temp
		lpm temp,z
		out portd,temp
		rcall runden
		reti
	mode3:
		ldi temp, start1					; Startwert des Timers einstellen:
		out TCNT0, temp
		ldi zl,low(segment*2)
		ldi zh,high(segment*2)
		add zl,einer
		adc zh,null
		ldi temp,0x20
		out portb,temp
		lpm temp,z
		out portd,temp
		in switch,pinb
		ldi r28,0
		rcall verarbeitung
		reti
		
		
reti	 	

;Programmstart
;Initialisierung

RESET:

;Stack initialisieren
	ldi	r16,low(RAMEND)
	out	SPL,r16
	ldi	r16,high(RAMEND)
	out	SPH,r16

;Watchdog initialisieren
;	ldi	r16,0x08
;	out WDTCR,r16

;Ports initialisieren
	ldi temp, 0xFF					; Port D as output for the 7-segment
	out DDRD, temp
	
	ldi temp, 0x38					; Port B pin (0,1,2 input),(3,4,5 output multiplex)
	out ddrb, temp							
	ldi r28,0
	
;AD-Wandler initialisieren
	ldi temp, ((1<<REFS0)|(1<<ADLAR)|(1<<MUX0))	;(aenderung durchgefuehrt refs0 gesetzt)
	out ADMUX, temp					; Kanal einstellen und nur auf adch lesen	

;timer initialisieren
	ldi temp, 1<<TOIE0 
	out TIMSK, temp 				; Timer 0 interrupt ein
	
	ldi temp,start1					; Startwert des Timers einstellen:
	out TCNT0, temp
	ldi temp, (1<<CS02)|(0<<CS01)|(0<<CS00)		; Timer 0 starten mit Vorteiler 256
	out TCCR0, temp 	
	sei						; generelle Interrupts aktivieren

HAUPTPROGRAMM:
rjmp Hauptprogramm					; Hauptschleife



verarbeitung:
	
	mov vergleich,law				;law= letzter angezeigter wert		
	cp tempi,switch					; Wenn anderer Pin = anderer Datensatz =Hysterese aus
	brne weiter
	
	cp vergleich,ergebnislow
	breq hysterese
	
	dec vergleich 				;1	;Pseudohysterese
	cp vergleich,ergebnislow
	breq hysterese
	dec vergleich 				;2
	cp vergleich,ergebnislow	
	breq hysterese
	dec vergleich				;3
	cp vergleich,ergebnislow
	breq hysterese
	dec vergleich 				;4
	cp vergleich,ergebnislow
	breq hysterese
	

weiter:
	in tempi,pinb
	sbis pinb,0
	rjmp weiter1
	rjmp daten2
weiter1:
	rcall datenverarbeitung1			;Datensatz1 aus dem Flash holen
	rjmp hysterese						
daten2:
	rcall datenverarbeitung2			;Datensatz2 aus dem Flash holen
	rjmp hysterese
hysterese:	
ret




adwandlung:	
	ldi ergebnishigh,0x00				;aufaddieren der AD Werte für Mittelwertbildung
	ldi ergebnislow,0x00
	ldi stopper,0x08
wait1:	
	clc
	ldi temp, ((1<<ADEN)|(1<<ADSC)|(1<<ADIE)|(1<<ADPS2)|(1<<ADPS1)|(0<<ADPS0))	;adc Prescaler 64
	out ADCSR, temp	
	sbi ADCSR, ADIF 				; logisch "1" löscht ADIF flag !
wait2: 							;  neuen ADC-Wert lesen
	sbis ADCSR, ADIF
	rjmp wait2
	in highByte, ADCH 				; ADC einlesen:
	add ergebnislow,highbyte
	adc ergebnishigh,null
	clc
	dec stopper
	brne wait1
ret 

runden:							;Division fuer die Mittelwertbildung
		clc
		lsr ergebnishigh			; /2
		ror ergebnislow
		
		lsr ergebnishigh			; /4
		ror ergebnislow
		
		lsr ergebnishigh			; /8
		ror ergebnislow
		
;		lsr ergebnishigh			; /16
;		ror ergebnislow
		
;		lsr ergebnishigh			; /32
;		ror ergebnislow
		
;		lsr ergebnishigh			; /64
;		ror ergebnislow
		
;		lsr ergebnishigh			; /128
;		ror ergebnislow

		brcc go
		clc
		ldi temp,0x01
		add ergebnislow, temp
;		adc ergebnishigh, null
		go:
ret	

Datenverarbeitung1:					;Holen der Werte Datensatz1
	
	push tempi
	mov law,ergebnislow
	ldi tempi,0x00
	ldi zl,low(data1*2)
	ldi zh,high(data1*2)
	add zl,law
	adc zh,tempi
	lpm hunderter,z
	ldi tempi,1
	adc zh,tempi
	lpm zehner,z
	adc zh,tempi
	lpm einer,z
	pop tempi
ret	

Datenverarbeitung2:					;Holen der Werte Datensatz2
	push tempi
	mov law,ergebnislow
	ldi tempi,0x00
	ldi zl,low(data2*2)
	ldi zh,high(data2*2)
	add zl,law
	adc zh,tempi
	lpm hunderter,z
	ldi tempi,1
	adc zh,tempi
	lpm zehner,z
	adc zh,tempi
	lpm einer,z
	pop tempi
ret

watchdogon:
	ldi temp,(1<<WDCE)|(1<<WDE)	;watchdog initialisieren		;evt für später
	out WDTCR,temp
	ldi temp,(0<<WDCE)|(1<<WDP2)|(1<<WDP1)|(1<<WDP0)
	out WDTCR,temp
ret

watchdogon1:
	ldi temp,(1<<WDCE)|(1<<WDE)	;watchdog initialisieren		;evt für später
	out WDTCR,temp
	ldi temp,(0<<WDCE)|(0<<WDP2)|(0<<WDP1)|(0<<WDP0)
	out WDTCR,temp
ret

watchdogoff:									;evt für später
	in temp,wdtcr
	ori r16,(1<<WDCE)|(1<WDE)
	out wdtcr,temp
	ldi temp,(0<<WDE)
	out wdtcr,temp
ret

data1:																																
.db	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	;hundred
.db	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	
.db	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	
.db     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	
.db	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	
.db	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	
.db	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	
.db	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	
.db	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	
.db     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	
.db	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	
.db	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	
.db	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	
.db	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	
.db	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	
.db	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1	
.db	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	;ten
.db	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	
.db	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	
.db	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	
.db     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	
.db	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	
.db	0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1	
.db	1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1	
.db     1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1	
.db	1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1	
.db	2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2	
.db	2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2	
.db	2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,4	
.db	4,4,4,4,4,4,4,4,4,4,4,4,4,5,5,5	
.db     5,5,5,5,6,6,6,6,6,6,6,6,6,6,6,6	
.db	6,6,6,7,7,7,7,7,7,8,8,8,8,8,9,0	
.db	2,2,2,2,2,2,2,2,2,2,2,3,3,3,3,3;one
.db	3,3,3,3,3,3,3,3,3,3,3,4,4,4,4,4	
.db	4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4	
.db	4,4,5,5,5,5,5,5,5,5,5,5,5,5,5,5	
.db	5,5,5,5,5,6,6,6,6,6,6,6,6,6,7,7	
.db	7,7,7,7,7,7,7,7,7,8,8,8,8,8,8,8	
.db	8,9,9,9,9,9,9,9,0,0,0,0,0,0,0,1	
.db	1,2,2,2,2,2,2,2,2,2,2,2,3,3,3,3	
.db     3,3,3,4,4,4,5,5,6,5,5,5,5,5,6,7	
.db	7,8,8,8,8,8,8,8,9,9,9,9,9,9,9,5	
.db	5,6,6,6,7,7,7,7,7,8,8,8,8,9,9,9	
.db	0,0,0,1,1,2,2,2,2,3,3,3,3,4,4,9	
.db	9,0,1,2,3,3,3,3,4,4,4,4,5,6,7,0	
.db	0,2,3,4,4,4,5,5,6,6,7,8,9,0,0,1	
.db	1,4,4,5,1,1,1,2,4,6,6,7,7,7,7,7	
.db	7,8,9,0,5,6,6,8,8,2,5,5,6,8,0,2	


data2:																																
.db	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	;hundred
.db	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	
.db	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	
.db	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	
.db	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	
.db	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	
.db	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	
.db	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	
.db	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	
.db	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	
.db	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	
.db	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	
.db	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	
.db	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	
.db	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	
.db	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	
.db	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	;ten
.db	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	
.db	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	
.db	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	
.db	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	
.db	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	
.db	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	
.db	0	,	0	,	1	,	1	,	1	,	1	,	1	,	1	,	1	,	1	,	1	,	1	,	1	,	1	,	1	,	1	
.db	1	,	1	,	1	,	1	,	1	,	1	,	1	,	1	,	1	,	1	,	1	,	1	,	1	,	1	,	1	,	1	
.db	1	,	1	,	1	,	1	,	1	,	1	,	1	,	1	,	1	,	1	,	1	,	1	,	1	,	1	,	1	,	1	
.db	1	,	1	,	1	,	1	,	1	,	1	,	1	,	1	,	1	,	1	,	1	,	1	,	1	,	1	,	1	,	1	
.db	1	,	1	,	1	,	1	,	1	,	1	,	1	,	2	,	2	,	2	,	2	,	2	,	2	,	2	,	2	,	2	
.db	2	,	2	,	2	,	2	,	2	,	2	,	2	,	2	,	2	,	2	,	2	,	2	,	2	,	2	,	2	,	2	
.db	2	,	2	,	2	,	2	,	2	,	2	,	2	,	2	,	2	,	2	,	2	,	2	,	2	,	3	,	3	,	3	
.db	3	,	3	,	3	,	3	,	3	,	3	,	3	,	3	,	3	,	3	,	3	,	3	,	3	,	3	,	3	,	3	
.db	3	,	3	,	3	,	4	,	4	,	4	,	4	,	4	,	4	,	4	,	4	,	4	,	4	,	4	,	4	,	4	
.db	3	,	3	,	3	,	3	,	3	,	3	,	3	,	3	,	3	,	3	,	3	,	3	,	3	,	3	,	3	,	3	;one
.db	3	,	3	,	3	,	3	,	3	,	3	,	3	,	3	,	3	,	3	,	3	,	3	,	3	,	4	,	4	,	4	
.db	4	,	4	,	4	,	4	,	4	,	4	,	4	,	4	,	4	,	4	,	4	,	4	,	4	,	4	,	4	,	4	
.db	4	,	4	,	5	,	5	,	5	,	5	,	5	,	5	,	5	,	5	,	5	,	5	,	5	,	5	,	5	,	5	
.db	5	,	5	,	5	,	6	,	6	,	6	,	6	,	6	,	6	,	6	,	6	,	6	,	6	,	6	,	6	,	6	
.db	6	,	6	,	6	,	6	,	6	,	7	,	7	,	7	,	7	,	7	,	7	,	7	,	7	,	7	,	7	,	7	
.db	7	,	8	,	8	,	8	,	8	,	8	,	8	,	8	,	9	,	9	,	9	,	9	,	9	,	9	,	9	,	9	
.db	9	,	9	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	1	,	1	,	1	,	1	,	1	
.db	2	,	2	,	2	,	2	,	2	,	2	,	2	,	2	,	2	,	3	,	3	,	3	,	3	,	3	,	3	,	4	
.db	4	,	4	,	4	,	5	,	5	,	5	,	5	,	5	,	5	,	5	,	5	,	5	,	5	,	5	,	5	,	5	
.db	5	,	5	,	6	,	6	,	6	,	6	,	6	,	6	,	6	,	7	,	7	,	7	,	7	,	7	,	7	,	8	
.db	8	,	8	,	8	,	8	,	9	,	9	,	9	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	,	0	
.db	0	,	1	,	1	,	1	,	2	,	2	,	2	,	2	,	2	,	3	,	3	,	4	,	4	,	5	,	5	,	5	
.db	8	,	8	,	8	,	8	,	9	,	9	,	9	,	9	,	9	,	9	,	9	,	9	,	0	,	0	,	0	,	0	
.db	1	,	1	,	2	,	2	,	2	,	3	,	3	,	7	,	7	,	7	,	7	,	7	,	7	,	7	,	7	,	7	
.db	7	,	8	,	8	,	0	,	0	,	1	,	1	,	2	,	2	,	3	,	3	,	4	,	4	,	5	,	5	,	9	



segment:
.db 0b00000011	,0b10011111		;	0	und	1		'7- Segment Tabelle
.db 0b00100101  ,0b00001101		;	2	und 	3
.db 0b10011001	,0b01001001		;	4	und	5
.db 0b01000001	,0b00011111		;	6	und 	7
.db 0b00000001	,0b00011001		;	8	und	9