.include "c:\programme\Atmel\AVR Tools\avrassembler2\appnotes\m16def.inc"
;.include "C:\Program Files\Atmel\AVR Tools\AvrAssembler2\Appnotes\m16def.inc"


.def temp = r16
.def temp1 = r17
.def temp2 = r18
.def temp3 = r19
.def Status = r20
.def Pressure_DATAH = r21	;Register für Luftdruckwerte
.def Pressure_DATAL = r22	;Register für Luftdruckwerte
.def BeepBreak = r23



.dseg

.EQU BeepVorteiler = (1<<WGM01)|(1<<COM00)|(1<<CS01);|(1<<CS00)
.EQU BreakVorteiler = (1<<WGM21)|(1<<COM20)|(1<<CS22)|(1<<CS21)|(1<<CS20)

.EQU BeepVorteiler16A = (1<<COM1A0)
.EQU BeepVorteiler16B = (1<<WGM12)|(1<<CS11);|(1<<CS11)

.EQU BeepFreq16 = 400	; Offset für 16 Bit Timer, damit die Tonfrequenz gut hörbar bleibt

.EQU BeepTime = 255
.EQU BreakTime = 255

.EQU SampleMenge = 8	;bei Änderungen nicht die Division LSR vergessen !!!

.cseg

.org $0000
			rjmp reset

reset:	ldi temp,low(RAMEND)
		out SPL,temp		;den StackPointer auf Anfang setzen
		ldi temp,HIGH(RAMEND)
		out SPH,temp

		sei			;Interrupts generell erlauben
	
		ldi temp,$FF
		out DDRD,temp		;PORTB als Ausgang


		rcall Init_ADC			; Init alle Module
		rcall Init_Beep_Timer1
		rcall Init_Break_Timer2

		ldi ZH,high(SRAM_START)		;Pointer auf Ringspeicher setzen
		ldi ZL,low(SRAM_START)
	

loop:
		rcall Ring_beschreiben			;Ringspeicher mit 8  10Bit_Werten beschreiben
		rcall Gleitender_Mittelwert_10Bit	;Gleitenden Mitelwert berechnen

		ldi temp,low(BeepFreq16)		;16 Bit Offset addieren
		add Pressure_DATAL,temp

		ldi temp,high(BeepFreq16)
		adc Pressure_DATAH,temp

		out OCR1AL,Pressure_DATAL	;Low-Byte mit Offset an Timer1
		out OCR1AH,Pressure_DATAH	;High-Byte mit Offset an Timer1

		rjmp loop



;*******************************************************************
Ring_beschreiben:

		sbi ADCSRA,ADSC		;ADC starten

warten2:sbic ADCSRA,ADSC
		rjmp warten2			;warten bis fertig
		
		in Pressure_DATAL,ADCL
		in Pressure_DATAH,ADCH		;Samplewert einlesen

		st Z+,Pressure_DATAL
		st Z+,Pressure_DATAH		;Samplewert in Ringspeicher schreiben

		cpi ZL,SRAM_START+SampleMenge*2
		brlo moreSamples		;prüfen, ob Pointer am Ende des Rings

		ldi ZL,low(SRAM_START)		;wenn ja, Pointer wieder auf Anfang
moreSamples:

;********************************************************************

Gleitender_Mittelwert_10Bit:	;SummeH = temp3 SummeL = temp2
		push ZL
		push ZH				;Pointer sichern

		ldi ZH,high(SRAM_START)		;lade Pointer (Anfang Ringspeicher)
		ldi ZL,low(SRAM_START)

		ld Pressure_DATAL,Z+		;lade ersten 16 Bit Wert
		ld Pressure_DATAH,Z+		;lade ersten 16 Bit Wert
AddOn:
		ld temp,Z+			;lade nächsten 16 Bit Wert
		ld temp1,Z+			;lade nächsten 16 Bit Wert

		add Pressure_DATAL,temp		;alle 16 bit Werte aufaddieren
		adc Pressure_DATAH,temp1

		cpi ZL,SRAM_START+SampleMenge*2	;prüfe, ob alles aufaddiert ist
		brlo AddOn

		ldi temp,0			;temp für Divison (LSR) auf Null
DivOn:
		lsr Pressure_DATAH		;16 Bit Division durch "Schieben & Rotieren"
		ror Pressure_DATAL
		
		inc temp

		cpi temp,3			;3 für 8 Messwerte
		brlo DivOn

		
		pop ZH
		pop ZL

		ret
;*********************************************************************
Init_ADC:

		ldi temp,(1<<REFS0);|(1<<REFS1)
		out ADMUX,temp

		ldi temp,(1<<ADEN)|(1<<ADSC)
		out ADCSRA,temp

		ret
;*********************************************************************
Init_Beep_Timer1:

		ldi temp,high(BeepFreq16)
		out OCR1AH,temp

		ldi temp,low(BeepFreq16)
		out OCR1AL,temp

		ldi temp,BeepVorteiler16A
		out TCCR1A,temp

		ldi temp,BeepVorteiler16B
		out TCCR1B,temp

		ret
;********************************************************************

Init_Break_Timer2:

		ldi temp,BreakTime
		out	OCR2,temp

		ldi temp,BreakVorteiler
		out TCCR2,temp

		ldi temp,(1<<OCIE2)
		out TIMSK,temp

		ret
;***********************************************************************