; KITTLEDs.asm,	LED Animation

	.include "tn13def.inc"
	.def toggle = r20			; Register mit den aktuellen Portwerten
	.def count = r22

	.equ ports = 0b00111111	; ports definieren (0 bis 4)
	.equ toggle_start= 1	; nur mit Port 1 starten

	rjmp start

start:
	ldi r16, ports
	out	ddrb, r16
loop:
	ldi toggle, toggle_start
left:
	lsl toggle
	rcall set_port
	cpi toggle,1<<5
	brne left

right:
	rcall set_port
	lsr toggle
	cpi toggle,0
	brne right

	rjmp loop

set_port:
	out portb, toggle
	ldi r16,255
wait_outer:
	ldi r17,250
wait_inner:
	dec	r17
	brne wait_inner

	dec	r16
	brne wait_outer

no_fill:
	ret