.include "tn15def.inc"
.def	temp1=r18
.def	result=r16
.def	temp=r17
.def	utgang=r19
.def	zero=r20
.def	one=r21
.def	two=r22
.def	three=r23
.def	four=r24
.def	five=r25

;--------------------------------------------------------
.cseg
.org $0000
	rjmp	reset
anf:
	ldi	result,$ff
	ldi	zero,0x00
	ldi	 one,0x01
	ldi 	two,0x02
	ldi	 three,0x04
	ldi	 four,0x08
	ldi	 five,0x10
	out	DDRB,utgang

strt:
	ldi	result,$15
	out	PORTB,utgang

	rcall	 Delay

	ldi	result,$0a
	out	PORTB,utgang

	rcall	Delay
	rjmp	strt

;--------------------------------------------------------

Delay:
		clr		result
		ldi		temp,$00
		ldi		temp1,0xfd


loop1:
		inc		temp1
		brne	loop1
		ldi		temp1,0xfd
		inc		result
		brne	loop1	
		inc 	temp
		brne 	loop1


		cp		r19,r20
		breq	en
		
		cp		r19,r21
		breq	to
		
		cp		r19,r22
		breq	tre
		
		cp		r19,r23
		breq	fire
		
		cp		r19,r24
		breq	fem


		ret
;--------------------------------------------------------
reset:
		ldi	r19,0x00
		ldi r16, low(RAMEND)
		rjmp	anf
;--------------------------------------------------------
en:
		ldi		r19,0x01
		rjmp	anf

to:
		ldi		r19,0x02
		rjmp	anf

tre:
		ldi		r19,0x04
		rjmp	anf

fire:
		ldi		r19,0x08
		rjmp	anf

fem:
		ldi		r19,0x10
		rjmp	anf

tilbake:
		ldi		r19,0x00
		rjmp	anf