AVR Light effect

.include	"tn2313adef.inc"
.list

.def	temp	= R16
.def	loop	= R17

.equ	kdel    = 300

; -----

		.cseg
		.org	0

; -----

		ldi	temp, RAMEND
		out	SPL, temp

; -----

		ser	temp
		out	DDRB, temp
		out	DDRD, temp
		out	PortB, temp
		out	PortD, temp

; -----

		ldi	temp, 0x80
		out	ACSR, temp

; -----

		ldi	temp, 0x04
		out	TCCR1B, temp

; -----

Main:
		ldi	loop, 2

FirstLight:
		cbi	PortD, 0
		rcall 	Timer
		sbi	PortD, 0
		cbi	PortD, 1
		rcall 	Timer
		sbi	PortD, 1
		dec	loop

		brne	FirstLight

		ldi	loop, 2

SecondLight:
		cbi	PortD, 2
		rcall	Timer
		sbi	PortD, 2
		cbi	PortD, 3
		rcall	Timer
		sbi	PortD, 3
		dec	loop

		brne	SecondLight

		rjmp	Main

Timer:
		push	loop

		ldi	temp, 0
		out	TCNT1H, temp
		out	TCNT1L, temp

TimerLoop:
		in 	temp, TCNT1L
		cpi	temp, low(kdel)
		brlo	TimerLoop

		in 	temp, TCNT1H
		cpi	temp, high(kdel)
		brlo 	TimerLoop

		pop 	loop
		ret