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.
70 lines
1.0 KiB
70 lines
1.0 KiB
.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 ;vypnout PullUp
|
|
out PORTB,r16
|
|
|
|
clr r16
|
|
clr r17
|
|
clr r18
|
|
clr cnt
|
|
|
|
sei ;Global Interrupt Enable
|
|
|
|
LOOP:
|
|
in r16,PINB
|
|
sbrc r16,0
|
|
rjmp pinset
|
|
rjmp LOOP
|
|
pinset: ;cekej, az bude 100 cyklu po sobe 1 na PB0
|
|
clr cnt
|
|
pinset2:
|
|
in r16,PINB
|
|
sbrs r16,0
|
|
rjmp loop
|
|
inc cnt
|
|
cpi cnt,200
|
|
brne pinset2
|
|
|
|
rcall blik
|
|
|
|
w2: ;cekani pro odruseni zakmitu - 40 cyklu
|
|
inc cnt
|
|
cpi cnt,200
|
|
brne w2
|
|
|
|
rjmp LOOP ;skok na loop
|
|
|
|
blik:
|
|
A:
|
|
ldi r16,7 ;1
|
|
B:
|
|
nop ;1
|
|
nop ;1
|
|
nop ;1
|
|
nop ;1
|
|
nop ;1
|
|
dec r16 ;1
|
|
brne B ;2 (1 +
|
|
nop ;1)
|
|
sbi PINB,1 ;2 -> toogle portb1
|
|
nop ;1
|
|
nop ;1
|
|
in r17,pinb ;1
|
|
sbrc r17,0 ;1 (2 -> preruseno, nedulezite)
|
|
rjmp A ;2
|
|
cbi PORTB,1 ;2
|
|
ret ;4
|
|
|