Код: Выделить всё
.include "tn2313adef.inc"
.list
.def temp = R16
.equ kdel = 780
; ***************
rjmp Init
; ***************
Init:
ser temp
out DDRB, temp
out DDRD, temp
out PortB, temp
out PortD, temp
; ***************
ldi temp, 0x05
out TCCR1B, temp
; ***************
main:
sbic PinB, 0
rjmp turnON
sbis PinB, 0
rjmp turnOFF
; ***************
turnON:
sbic PinB, 0
cbi PortB, 0
rjmp setVar
; ***************
turnOFF:
sbis PinB, 0
sbi PortB, 0
rjmp setVar
; ***************
setVar:
ldi temp, 0
out TCNT1H, temp
out TCNT1L, temp
wt1:
in temp, TCNT1L
cpi temp, low(kdel)
brlo wt1
in temp, TCNT1H
cpi temp, high(kdel)
brlo wt1
rjmp main


