#include "tn13def.inc"

.org 0x000 	rjmp start				; Reset
.org 0x002 	reti					; Pin-Change Interrupt


;==================================================================================================
; Hauptprogramm
;==================================================================================================		

start:
		rcall init				; Initialisiere den Mikrocontroller
		rcall takt_38khz			; Taktfrequenz herabsetzen

warte:
		rcall schlafe				; Schlafe ein

		in r16,pinb				; Tasten abfragen
		com r16					; alle Bits umkehren 0<->1
		andi r16,0b00011110			; nur die Bits von den 4 Tasten herausfiltern
		breq warte				; Nochmal von vorne, wenn keine Taste gedrückt

		rcall ton_1600hz			; 1x piepen 
		rcall warte



;==================================================================================================
; Prozeduren
;==================================================================================================		

init:		; Initialisiere den Mikrocontroller
		sbi acsr,acd				; Analog Comparator aus schalten
		sbi ddrb,0				; Lautsprecher-Pin ist ein Ausgang 
		ldi r16,0b00011110			; Pull-Up an allen Tasten einschalten
		out portb,r16
		ldi r16,(1<<pcie)			; aktiviere Pin-Change Interrupt
		out gimsk,r16	
		ldi r16,0b00011110			; wähle dazu die Pins für die Tasten
		out pcmsk,r16
		sei					; erlaube Interrupts
		ret


takt_38khz:	; Stelle Taktrate auf 37.5kHz
		ldi r16,(1<<clkpce)			; erlaube Änderung des Clock-Prescaler
		out clkpr,r16
		ldi r16,(1<<clkps3)			; Teile den Takt durch 256
		out clkpr,r16
		ret


schlafe:	; Schlafe ein
		ldi r16,(1<<se)+(1<<sm1)		; Wähle Power-down Modus
		out mcucr,r16
		sleep
		ret


pause_500ms:	; Pause 500ms	
		ldi r16,high(500*37500/3/1000)
		ldi r17,low(500*37500/3/1000)
	p1:	dec r17	
		brne p1
		dec r16
		brne p1
		ret


ton_1600hz:	; Erzeuge Ton mit 1600hz
		ldi r16,(37500/2/1600)			; Frequenz festlegen
		out ocr0a,r16
		ldi r16,(1<<wgm01)+(1<<com0a0)		; Timer CTC und Toggle OC0A
		out tccr0a,r16	
		ldi r16,(1<<cs00)			; Verwende Systemtakt ohne Prescaling
		out tccr0b,r16
		rcall pause_500ms			; Pause
		clr r16					; Halte den Timer an = ton aus
		out tccr0b,r16
		rcall pause_500ms			; Pause
		ret