Бегущий огонёк

.include	"tn2313adef.inc"
.list

.def	temp = R16
.def	temp2 = R17
.def	temp3 = R18
.def	temp4 = R19
.def	rab = R20

; ***************

ldi	temp, 0xFF
out	DDRB, temp
out	DDRD, temp
out	PORTB, temp
out	PORTD, temp

; ***************

m1:
	ldi	rab, 0b10000000
m2:
	ldi	temp, 0xFF
	eor	temp, rab
	out	PORTB, temp
	rcall	setVar
	lsr	rab
	brcc	m2
	rjmp	m1

; ***************

setVar:
	ldi	temp2, 0x32
	ldi	temp3, 0x32
	ldi	temp4, 0x0C

loop:
	dec	temp2
	brne	loop

loop2:
	dec	temp3
	brne	loop

loop3:
	dec	temp4
	brne	loop

ret