А
МИКРОКОНТРОЛЛЕРЫ
и
зиЫ
г24,1
/'<8> Вычесть счетчик числа шагов пересчета.
Ьгед
£р_50
; Надо перевысветить показания (это - из-за того,
;
что для Ьгпе получается слишком длинный переход).
rjmp
зк±р1
; Пока перевысвечивать показания не надо.
..
£р_50:
161
г24, ЗШТСН_Т1МЕ
эЬгс
г17,6
; <9> Нужно вьшодить температуру?
^тр
£р_51
; Да!
гса11
эбагбвед
1<11
г16,0x00
; <10> Команда записи.
точ
г12,г1б
гса11
outByte
1сИ
г16,СЬОСК_ИЕС
; Адрес - с регистра 1.
точ
г12,г16
гса11
outByte
гса11
Б^рЭед
гса11
збагбвед
1сИ
г16,0x01
; Команда чтения.
точ
г12,г16
гса11
outByte
гса11
1пВубе
гса11
асквед
точ
г2б,г12
; Сохранить минуты.
гса11
1пВуЬе
гса11
паквед
гса11
зборЭед
точ
г25,г12
; Сохранить часы.
зЬг
г17,0x40
; <11> В следующий раз будем выводить температуру!
£р_57:
точ
г12,г25
; Перенести показания в ячейки, откуда их возьмут.'
точ
г13,г26
гзтр
£р_52
£р_51:
1сИ
г16, ВЬАШ*16
mov
г13,г23
; <12> Переслать данные
4
ср1
г23,0
; Температура больше нуля?
Ьгр1
£р_53
; Да.
..
1а±
г1б, М11Яи8*1б
; Нет - выдать на индикатор знак "минус"
пед
г13
; Изменить знак числа.
£р_53:
ЛЮТ
г12,г1б
; <13> Здесь будут десятки температуры и знак.
1с1±
г16,10
; Это - для работы с десятками.
£р_55:
эиЬ
г13,г1б
; <14> Вычесть десяток из температуры.
Ьгт!
£р 54
; Уже - лишнее.
..
а.пс
г12
; Увеличит счетчик десяток.
г зтр
£Р_55
£р 54:
аск1
г13,г16
; Отменить лишнее вычитание.
1с1±
г16, вНАШв
экар
г13
; <15> Перенести единицы градусов в старшую тетраду
ог
г13,г1б
; Приформировать в тетраду код градуса.
сЬг
г17,0x40
; В следующий раз будем выводить показания часов!
£р_52:
шov
г11,г13
; <1б> Раскидать значения по индикаторам.
гса11
decodel
ЛЮТ
г7,г0
гса11
аесоае2
шov
г8,г0
'
шov
г11,г12
гса11
decodel
лют •
г9,г0
бЬгс
г17,5
; <17> Не заблокирован ли в данный момент
; вывод времени и температуры?
г зтр
£р 58
;
Заблокирован.
..
Радиолюбитель - 1 0 /20 0 7 [|
31
предыдущая страница 31 Радиолюбитель 2007-10 читать онлайн следующая страница 33 Радиолюбитель 2007-10 читать онлайн Домой Выключить/включить текст