/*
 * ex02.asm
 *
 *  Created: 2015-12-10 09:59:15
 *   Author: tomek
 */ 

;wyswietlanie cyfr w przerwaniu od T1 - manual + przerwanie

.def tmpreg = r16
.def delayreg1 = r17
.def delayreg2 = r18
.equ LICZNIKH = 0xff
.equ LICZNIKL = 0xfe

	.org	0x00
	rjmp	start

	.org	0x10
	rjmp	T1ovr

	.org	0x30
start:
	ldi		tmpreg,high(RAMEND)
	out		sph,tmpreg
	ldi		tmpreg,low(RAMEND)
	out		spl,tmpreg

	ldi		ZH,high(2*cyfra)
	ldi		ZL,low(2*cyfra)

	ser		tmpreg
	out		ddra,tmpreg
	out		ddrb,tmpreg

	ldi		tmpreg,LICZNIKH
	out		tcnt1h,tmpreg
	ldi		tmpreg,LICZNIKL
	out		tcnt1l,tmpreg
	clr		tmpreg
	out		tccr1a,tmpreg
	ldi		tmpreg,0x3
	out		tccr1b,tmpreg
	
	in		tmpreg,timsk
	ori		tmpreg,(1<<toie1)
	out		timsk,tmpreg
;	sei

;	rcall	test_loaddata

	ldi		tmpreg,0x0f
	out		portb,tmpreg
loaddata:
	ldi		ZH,high(2*cyfra)
	ldi		ZL,low(2*cyfra)
mainloop:
	lpm
	tst		r0
	breq	loaddata
	call	delay
	out		porta,r0
	adiw	ZL,1	


;	rcall	test_keys
;mainloop:
	rjmp	mainloop	


T1ovr:
	ldi		tmpreg,LICZNIKH
	out		tcnt1h,tmpreg
	ldi		tmpreg,LICZNIKL
	out		tcnt1l,tmpreg

	lpm
	tst		r0
	brne	T1inc
	ldi		ZH,high(2*cyfra)
	ldi		ZL,low(2*cyfra)
	lpm
T1inc:
	out		portb,r0
	adiw	ZL,1		
	reti

test_loaddata:
	ldi		tmpreg,4
	add		ZL,tmpreg
	lpm		r4,Z+
	ret

test_keys:
;	ldi		tmpreg,			; wejscia,wyjscia
;	out

;	in		pin,tmpreg
;	rcall	delay10ms
;	in		pin,tmpreg1
;	eor		tmpreg,tmpreg1
;	tst		tmpreg
;	breq
;	ret

;1MHz
del_10ms:
	ldi		delayreg2,10
del10ms1:
	ldi		delayreg1,250
del10ms2:
	nop
	dec		delayreg1
	brne	del10ms2
	dec		delayreg2
	brne	del10ms1
	ret

delay:
	push	tmpreg
	ldi		tmpreg,200
delay_loop:
	call	del_10ms
	dec		tmpreg
	brne	delay_loop
	pop		tmpreg
	ret


cyfra:
.db	0x3f,0x6,0xab,0x4f,0x66,0x6c,0xec,0x7,0x7f,0x6f
.db 0