	.NOLIST	

	.INCLUDE "m16def.inc"	

	.LIST	

				

	.CSEG	;kódový segment	

	.DEF REG=R16	;pracovní regsitr

	.EQU DDR=DDRA	;řízení směru

	.EQU PORT=PORTA	;port

	LDI REG,$00	

	OUT DDR,REG	;aktivuj výstupy

	LDI REG,LOW(RAMEND)

	OUT SPL,REG	;nastav SP na konec SRAM

	LDI REG,HIGH(RAMEND)

	OUT SPH,REG

	CLC	;0 do C

	LDI REG,$FF	;FF do REG

SMYCKA:	OUT PORT,REG	;pošli

	RCALL CEKEJ	;počkej 0,5 s

	ROL REG	;posuň

	RJMP SMYCKA	;a znovu



		;čekací rutina (čeká asi 0,5 s)

CEKEJ:	LDI R17,40	

	LDI R18,0	

	LDI R19,0	

CEKEJA:	DEC R19	

	BRNE CEKEJA	;smyčka 1

	DEC R18	

	BRNE CEKEJA	;smyčka 2

	DEC R17	

	BRNE CEKEJA	;smyčka 3

	RET	;návrat

