.include "m8def.inc"			;Prozessor AtMega8
.equ c1 = 5000				;Anzahl Durchläufe

	ldi r16, 0xFF			;Port D als Ausgang
	out DDRD, r16								

 	ldi R25,HIGH(c1)
	ldi R24,LOW(c1)
	
loop:
	sbi PORTD,0				
	sbiw R24,1				
	brne loop				
	ldi R25,HIGH(c1)
	ldi R24,LOW(c1)

loop1:
	cbi PORTD,0
	sbi PORTD,1
	sbiw R24,1
	brne loop1
	ldi R25,HIGH(c1)
	ldi R24,LOW(c1)


loop2:
	cbi PORTD,1
	sbi PORTD,2
	sbiw R24,1
	brne loop2
	ldi R25,HIGH(c1)
	ldi R24,LOW(c1)
loop3:
	cbi PORTD,2
	sbi PORTD,3
	sbiw R24,1
	brne loop3
	ldi R25,HIGH(c1)
	ldi R24,LOW(c1)
loop4:
	cbi PORTD,3
	sbi PORTD,4
	sbiw R24,1
	brne loop4
	ldi R25,HIGH(c1)
	ldi R24,LOW(c1)
loop5:
	cbi PORTD,4
	sbi PORTD,5
	sbiw R24,1
	brne loop5
	ldi R25,HIGH(c1)
	ldi R24,LOW(c1)
loop6:
	cbi PORTD,5
	sbi PORTD,6
	sbiw R24,1
	brne loop6
	ldi R25,HIGH(c1)
	ldi R24,LOW(c1)
loop7:
	cbi PORTD,6
	sbiw R24,1
	brne loop7