; Loesung Aufgabe 4: Tonerzeugung mit Schleife
;
.nolist
.include "tn13def.inc"
.list
;
.equ f = 1760 ; Kammerton a'''
.equ c = (600000 / f - 1) / 3 ; Berechne c
;
	sbi DDRB,PB3 ; Lautsprecherausgang an
	sbi PORTB,PB4 ; Pull-Up Taster an
;
loop:
	sbic PINB,PB4 ; Ueberspringe wenn Taster an
	rjmp loop ; Taste ist aus
;
	sbi PORTB,PB3 ; Lautsprecherausgang high
	ldi R16,c ; Lade Konstante
loop1:
	dec R16 ; zaehle abwaerts
	brne loop1
	cbi PORTB,PB3 ; Lautsprecherausgang low
	ldi R16,c ; Lade Konstante noch mal
loop2:
	dec R16 ; zaehle wieder abwaerts
	brne loop2
	rjmp loop ; wieder an den Anfang