Для коррекции задействуем Timer 2 с коэффициентом 1:256, получаем на выходе 15 625 Гц (при тактовой частоте 4 МГц). Если использовать прерывание по сравнению с величиной 156, получаем примерно 100 Гц (или 10 мс).
;команду ldi temp,(1< ldi temp, (1«TOIE0)|(1<<ОСIЕ2) ;добавляем: ldi temp,156 out OCR2,temp ;получаем 100 Гц Timer2 … ;коэффициент коррекции ============ clr ZH;addr eepr ldi ZL,KorrEE rcall ReadEEP cpi temp,$FF brne corr_K ldi temp,100 ;если = FF, то по умолчанию 100 corr_K: ldi ZH,1 ldi ZL,KorrRAM st Z,temp
Величина задержки по умолчанию определяется на основе предварительных изысканий по уходу конкретного кварца (здесь часы спешили примерно на 1 с в сутки). Не забудем заменить в четвертой сверху строке таблицы прерываний reti на rjmp TIM2_comp. Отведем для счета прерываний регистр count_msek (пусть будет r12). Бит 4 регистра Flag будет сигнализировать о том, отстают часы или спешат (если отстают, то бит установлен). Значение этого бита и регистра count_msek будем устанавливать в момент, когда будет вызываться процедура коррекции (см. далее), там же часы останавливаются. Сам обработчик приведен в листинге 19.3.
ТIМ2_СОМР:
dec count_msek
brne end_t ;если еще не 0, то на выход
sbrs Flag,4
rjmp k_minus ;если спешат, то пропустить если отстают
cbr Flag,8 ;очищаем бит к следующему разу; устанавливаем часы на 01 сек. и заводим их
ldi temp,1
rcall IniSek
ldi count_sek,1 ;меняем значение в регистре секунд
ldi ZH,1
ldi ZL,Sek
st Z,count_sek
rjmp end_korr
k_minus:
;если спешат, просто заводим часы обратно
clr temp
rcall IniSek
end_t:
reti ;конец прерывания коррекции
Теперь собственно процедура вызова коррекции: будем выполнять ее в полночь. Она довольно громоздкая, потому что приходится определять момент, когда полночь настала. Мы можем вклинить ее туда, где часы проверяются на кратность трем (0 минут и 0 секунд нам обеспечены). Однако сразу после этого производится запись во flash (а иногда и не производится), и она нам будет непредсказуемо тормозить коррекцию. Потому будем ее проводить в одну минуту первого (00:01:00). Сразу после метки sek_0 вписываем фрагмент кода, содержащийся в листинге 19.4.
sek_0:
ldi ZL,1 ;загружаем минуты
ld temp,Z+;
cpi temp,1 ;сравниваем минуты, если 1 — коррекция
breq min_1
cpi temp,0 ;сравниваем минуты, если 0 — запись
breq mm0 ;на проверку трехчасового цикла
reti ;иначе выходим
min_1:
ld temp,Z ;загружаем часы
cpi temp,0 ;сравниваем часы = 0
breq hour_0 ;если равны 0, то на коррекцию
reti ;иначе выходим
hour_0:
ldi ZL,KorrRAM ;коэффициент коррекции Id
count_msek,Z ;в счетчик
ldi temp,128
ср count_msek,temp ;определяем его величину
brlo k_plus
com count_msek ;если больше 127, то вычитаем из 255
sbr Flag,8 ;значит отстают
k_plus: ;если меньше — часы отстают
ldi temp,$80
rcall IniSek ;останавливаем часы
ldi temp,0Ь00000110 ;заводим таймер
out TCCR2,temp ;Timer2 1:256
reti
mm: ;далее по тексту программы
