You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
63 lines
1011 B
63 lines
1011 B
;tohle ceka az bude na PB0 dlouho jednicka a pak invertuje PB1 a ceka na nulu na PB0
|
|
.device attiny13
|
|
.def cnt=r19
|
|
|
|
.org 0x0000 ;RESET
|
|
rjmp RESET ;skok na start po resetu
|
|
|
|
.org 0x0010
|
|
RESET:
|
|
ldi r16,low(RAMEND) ;nastavi stack pointer
|
|
out SPL,r16
|
|
|
|
cli ;zakazat vsechna preruseni
|
|
|
|
ldi r16,0b00011110 ;smer portu
|
|
out DDRB,r16
|
|
|
|
ldi r16,0
|
|
out PORTB,r16
|
|
|
|
clr r16
|
|
clr r17
|
|
clr r18
|
|
clr cnt
|
|
|
|
sei ;Global Interrupt Enable
|
|
|
|
LOOP: ;cekam na nulu
|
|
in r16,PINB
|
|
sbrs r16,0
|
|
rjmp pinset
|
|
rjmp LOOP
|
|
pinset: ;cekej, az bude hodne cyklu po sobe 0 na PB0
|
|
clr cnt
|
|
pinset2:
|
|
clr r20
|
|
pinset2b:
|
|
inc r20
|
|
in r16,PINB
|
|
sbrc r16,0
|
|
rjmp loop
|
|
cpi r20,255
|
|
brne pinset2b
|
|
inc cnt
|
|
cpi cnt,255
|
|
brne pinset2
|
|
|
|
sbi PORTB,1 ;zapni pb1
|
|
|
|
odrus0: ;cekam na 1
|
|
in r16,PINB
|
|
sbrc r16,0
|
|
rjmp w2
|
|
rjmp odrus0
|
|
|
|
w2: ;cekani pro odruseni zakmitu
|
|
inc cnt
|
|
cpi cnt,255
|
|
brne w2
|
|
|
|
cbi PORTB,1
|
|
|
|
rjmp LOOP ;skok na loop
|
|
|