zadatak 1 L02

//L02 zadatak 1
.equ delayCnt = 18 // ovo racunamo sa onom formulom za X
.def tmp = r16

.cseg
	rjmp reset

reset:
	ldi tmp,high(RAMEND)
	out	SPH, tmp
	ldi	tmp, low(RAMEND)
	out SPL, tmp

	ldi tmp , (1<<3) // pali ledicu
	out DDRA, tmp

	main:
		sbi PORTA, 3 // 3. bit u portu A postavi na 1
		//delay
		rcall delay
		cbi PORTA, 3
		//delay
		rcall delay
	rjmp main

	delay:
	clr r17
	clr r18
	ldi r19, delayCnt

	delay_loop:
		dec r17 ; 0,255 , 254... , 0
		brne delay_loop
			dec r18 ; 0,255,254,...,0
			brne delay_loop
				dec r19 ; n,n-1
				brne delay_loop
ret