.NOLIST
.INCLUDE "m128def.inc"
.LIST

.DEF rcount = r16
.DEF rpocet = r17
.DEF rout = r18
.DEF rin = r19
.DEF rkontrola = r20
.DEF timer = r25
    ldi r24, low(RAMEND)
    out spl, r24
    ldi r24, high(RAMEND)
    out sph, r24
    ldi r22, 0b00000111
    out tccr0, r22
    ldi rout, 0xFF
    out DDRB, rout
    ldi rin, 0x00
    out DDRD, rin
	ldi rpocet, 0x08

NASTAVENIC:
	ldi rcount, 0x00
	in rin, PIND

POKRACOVANI:
	ldi rcount, 0x00

ROZRAZENI1:
	sbrc rin, 0
	jmp ROZRAZENI2
	jmp N1

ROZRAZENI2:
	sbrc rin, 1
	jmp ROZRAZENI3
	jmp N2

ROZRAZENI3:
	sbrc rin, 2
	jmp ROZRAZENI4
	jmp N3

ROZRAZENI4:
	sbrc rin, 3
	jmp ROZRAZENI5
	jmp N4

ROZRAZENI5:
	sbrc rin, 4
	jmp ROZRAZENI6
	jmp N5

ROZRAZENI6:
	sbrc rin, 5
	jmp ROZRAZENI7
	jmp N6

ROZRAZENI7:
	sbrc rin, 6
	jmp ROZRAZENI8
	jmp N7

ROZRAZENI8:
	sbrc rin, 7
	jmp NASTAVENIC
	jmp N8

DELAY:
	ldi r24, 0x01 ;r24 neni potrebny
	ldi timer, 0x20
DELAYN:
 /*   in r23, TIFR ; r23 neni potrebny
    sbrs r23, TOV0
    jmp DELAYN		*/
	in rkontrola, PIND
	cpi rkontrola, 0xFF
	brne NASTAVENIC
 /*   out TIFR, r24
    dec timer
    brne DELAYN */
    ret

OP:
	lpm rout, Z+
    out PORTB, rout
    call DELAY
    inc rcount
    cp rcount, rpocet
    brne op
	jmp POKRACOVANI

N1:
	ldi Zh, high(LED1*2)
    ldi Zl, low(LED1*2)
    jmp OP

N2:
	ldi Zh, high(LED2*2)
    ldi Zl, low(LED2*2)
    jmp OP

N3:
	ldi Zh, high(LED3*2)
    ldi Zl, low(LED3*2)
    jmp OP

N4:
	ldi Zh, high(LED4*2)
    ldi Zl, low(LED4*2)
    jmp OP

N5:
	ldi Zh, high(LED5*2)
    ldi Zl, low(LED5*2)
    jmp OP

N6:
	ldi Zh, high(LED6*2)
    ldi Zl, low(LED6*2)
    jmp OP

N7:
	ldi Zh, high(LED7*2)
    ldi Zl, low(LED7*2)
    jmp OP

N8:
	ldi Zh, high(LED8*2)
    ldi Zl, low(LED8*2)
    jmp OP

LED1:
.DB 0b11111110, 0b11111101, 0b11111011, 0b11110111
.DB 0b11101111, 0b11011111, 0b10111111, 0b01111111

LED2:
.DB 0b01111111, 0b10111111, 0b11011111, 0b11101111
.DB 0b11110111, 0b11111011, 0b11111101, 0b11111110

LED3:
.DB 0b01111110, 0b10111101, 0b11011011, 0b11100111
.DB 0b11100111, 0b11011011, 0b10111101, 0b01111110

LED4:
.DB 0b00111111, 0b10011111, 0b11001111, 0b11100111
.DB 0b11110011, 0b11111001, 0b11111100, 0b01111110

LED5:
.DB 0b11111111, 0b11111111, 0b11111111, 0b11111111
.DB 0b11111111, 0b11111111, 0b11111111, 0b11111111

LED6:
.DB 0b11111111, 0b11111111, 0b11111111, 0b11111111
.DB 0b11111111, 0b11111111, 0b11111111, 0b11111111

LED7:
.DB 0b11111111, 0b11111111, 0b11111111, 0b11111111
.DB 0b11111111, 0b11111111, 0b11111111, 0b11111111

LED8:
.DB 0b11111111, 0b11111111, 0b11111111, 0b11111111
.DB 0b11111111, 0b11111111, 0b11111111, 0b11111111