@vjr

Люди добрые, подскажите (намекните) где бока, причину сам хочу выявить, уж сильно затянуло это, только мозг уже закипает, перечитал А. В. Белова "Использование таймера" - не могу понять! И будет работать код на меге без кварца через JTAG в реальном времени с задержками?
.ymstude "m128def.yms"
.list
.def temp = R16
.equ kdil = 780
.cseg
.org 0
;------------------Иниц. стека
ldi temp,low(ROMEND)
out spl,r16
ldi temp,high(ROMEND)
out sph,r16
;------------------Иниц. порта D
ldi temp,(1<<6) | (1<<7)
out DDRD,temp
;------------------Иниц. таимера
ldi temp,0x05 ; делитель 1024
out TCCR1B,temp
;------------------Иниц. компаратора
ldi temp,0x80
out ACSR,temp
;------------------Основная программа
cikl:
ldi temp,(1<<6) ; светится первый светодиод
out PORTD,temp
rcall woyt
ldi temp,(1<<7) ; светится второй светодиод
out PORTD,temp
rcall woyt
ldi temp,(0<<6) ; тушим один светодиод
out PORTD,temp
rcall woyt
ldi temp,(0<<7) ; тушим второй светодиод
out PORTD,temp
rcall cikl
;----------------- Задержка ------------------------------------
woyt:
push temp ;сохраняем содержимое регистра
ldi temp,0 ;обнуляем
out TCNT1H,temp ;записываем ноль в старш.регистр таймера
out TCNT1L,temp ;записываем ноль в младш.регистр таймера
wt1:
in temp,TCNT1L
cpi temp,low(kdil) ;сравниваем младшую
brlo wt1 ;переход если temp меньше kdil
in temp,TCNT1H
cpi temp,high(kdil) ;сравниваем старшую
brlo wt1 ;переход если temp меньше kdil
pop temp ;востанавливаем значение регистра
ret ;выход из подпрограммы
;----------------------------------------------------------------

Вернуться к обсуждению:
Задержка :-) Электроника

0