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.
130 lines
2.0 KiB
130 lines
2.0 KiB
;pracuje jako 5-ti bitovy binarni citac
|
|
;vystupy 3 a 4 jsou prohozene kvuli desce
|
|
.device attiny13
|
|
.def ze=r19
|
|
.def pr=r20
|
|
.def sc=r21
|
|
.def te=r22
|
|
.def kv=r23
|
|
.def qi=r24
|
|
.def divf=r25
|
|
|
|
.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/64=75000Hz
|
|
|
|
ldi r16,0b00000010 ;TC0 je v rezimu CTC
|
|
out TCCR0A,r16
|
|
|
|
ldi r16,75 ;Compare Match 0 A je 75
|
|
out OCR0A,r16 ;75000/75=1000Hz interrupt
|
|
|
|
in r16, TIMSK0
|
|
ORI r16, 0b00000100
|
|
out timsk0,r16
|
|
|
|
clr r16
|
|
clr r17
|
|
clr r18
|
|
clr pr
|
|
clr sc
|
|
clr te
|
|
clr kv
|
|
ldi divf,2
|
|
SEI ;Global Interrupt Enable
|
|
|
|
LOOP:
|
|
rjmp LOOP ;skok na loop
|
|
|
|
CASOVAC:
|
|
inc ze
|
|
cpi ze,100
|
|
BRNE CASEND
|
|
clr ze
|
|
INC pr
|
|
CPi pr,10
|
|
BRNE CASEND
|
|
clr pr
|
|
INC sc
|
|
|
|
in r16,PORTB
|
|
SBRC r16,0
|
|
cbi portb,0
|
|
SBRS r16,0
|
|
sbi portb,0
|
|
|
|
CP sc,divf
|
|
BRNE CASEND
|
|
clr pr
|
|
clr sc
|
|
inc te
|
|
|
|
in r16,PORTB
|
|
SBRC r16,1
|
|
cbi portb,1
|
|
SBRS r16,1
|
|
sbi portb,1
|
|
|
|
CP te,divf
|
|
BRNE CASEND
|
|
clr pr
|
|
clr sc
|
|
clr te
|
|
inc kv
|
|
|
|
in r16,PORTB
|
|
SBRC r16,2
|
|
cbi portb,2
|
|
SBRS r16,2
|
|
sbi portb,2
|
|
|
|
CP kv,divf
|
|
BRNE CASEND
|
|
clr pr
|
|
clr sc
|
|
clr te
|
|
clr kv
|
|
inc qi
|
|
|
|
in r16,PORTB
|
|
SBRC r16,4
|
|
cbi portb,4
|
|
SBRS r16,4
|
|
sbi portb,4
|
|
CP qi,divf
|
|
BRNE CASEND
|
|
clr pr
|
|
clr sc
|
|
clr te
|
|
clr kv
|
|
clr qi
|
|
|
|
in r16,PORTB
|
|
SBRC r16,3
|
|
cbi portb,3
|
|
SBRS r16,3
|
|
sbi portb,3
|
|
|
|
|
|
CASEND:
|
|
RETI
|
|
|
|
|