;pracuje jako 5-ti bitovy binarni citac
;vystupy 3 a 4 jsou prohozene kvuli desce
.device attiny13
.def	cnt=r18
.def	RED=r19
.def	GREEN=r20
.def	BLUE=r21
.def	chc=r22
.def	faze=r23

.org	0x0000				;RESET
	RJMP	RESET			;skok na start po resetu
.org	0x0006				;TC0 overflow
	RJMP	CASOVAC 
.org 	0x0007
	rjmp	casovac

.org	0x0010
RESET:
	ldi	r16,low(RAMEND)		;nastavi stack pointer
	out	SPL,r16

	cli				;zakazat vsechna preruseni

	ldi	r16,0b00011111		;výstupní = 1
	out	DDRB,r16

	ldi	r16,0			;vypnout PullUp
	out	PORTB,r16

	ldi r16,0b00000011		;TC0 prescaler na 64
	out TCCR0B,r16			;4800000/32
	
	ldi r16,0b00000010		;TC0 je v rezimu CTC
	out TCCR0A,r16
	
	ldi r16,20			;overflow 22
	out OCR0A,r16			;
	
	in r16, TIMSK0			;interrupt enable
	ORI r16, 0b00000100
	out timsk0,r16
	
	ldi RED,0			;R
	ldi GREEN,16			;G
	ldi BLUE,32			;B
	clr cnt
	clr chc
	clr faze
	
	sei				;zapnout globalne interrupt
	
LOOP:
	rjmp LOOP			;skok na loop

CASOVAC:
	inc cnt
	
	cpi cnt,32
	brne nov
	
	clr cnt
	cbi portb,0
	cbi portb,1
	cbi portb,2

	inc chc
	cpi chc,255
	brne nov
	inc faze
	cpi faze,6
	brne fazenov
	clr faze
fazenov:
	cpi faze,0
	breq f0
	cpi faze,1
	breq f1
	cpi faze,2
	breq f2
	cpi faze,3
	breq f3
	cpi faze,4
	breq f4
	cpi faze,5
	breq f5

f0:
	ldi RED,0
	ldi GREEN,32
	ldi BLUE,32
	rjmp nov
f1:
	ldi RED,0
	ldi GREEN,0
	ldi BLUE,32
	rjmp nov
f2:
	ldi RED,32
	ldi GREEN,0
	ldi BLUE,32
	rjmp nov
f3:
	ldi RED,32
	ldi GREEN,0
	ldi BLUE,10
	rjmp nov
f4:
	ldi RED,32
	ldi GREEN,32
	ldi BLUE,0
	rjmp nov
f5:
	ldi RED,0
	ldi GREEN,32
	ldi BLUE,0
	rjmp nov

nov:
	cp cnt,RED
	brne notr
	sbi portb,0

notr:   cp cnt,GREEN
	brne notg
	sbi portb,1

notg:   cp cnt,BLUE
	brne notb
	sbi portb,2
notb:   
	reti