Added the projects
This commit is contained in:
@@ -0,0 +1,130 @@
|
||||
;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
|
||||
|
||||
Reference in New Issue
Block a user