Микроконверторы фирмы Analog Devices в микропроцессорных приборных комплексах. Виноградов А.Б - 197 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

197
;Начало основного цикла---------------------------------------------------------
La_OSN: NOP ;метка возврата в осн цикле
NOP
NOP
NOP
NOP
NOP
NOP
;Блок обработки результатов и вывода их на индикацию
CLR EA ;глоб запрещение прерываний
MOV BYTE_R,ADC1H_R ;------------------------------------
MOV R2,#0 ; индикация ADC1H_R с адр 0 ОЗУ ЖКИ
LCALL Pod_IND_BYTE ;------------------------------------
MOV BYTE_R,ADC1L_R ;------------------------------------
MOV R2,#8 ; индикация ADC1L_R с адр 8 ОЗУ ЖКИ
LCALL Pod_IND_BYTE ;------------------------------------
MOV A,ADC1H_R ;
ANL A,#01111111b ; вычит из ст байта результата 80h
MOV R5,#0 ;
MOV R4,A ;
LCALL B16BCDD ;преобр числа из дв в дв-дес
LCALL BCD5BCD ;преобаз числа из уп дв-дес в неуп дес
MOV R0,#IND_DESTIS_R ; индицировать с РОНа IND_DESTIS_R
MOV R1,#64 ; индицировать с адр 64 ЖКИ
LCALL Pod_IND_5ZN ;индикация температуры в градусах
SETB EA ;глоб разрешение прерываний
LJMP La_OSN ;закрыть основной цикл
;Подпрограммы------------------------------------------------------------------
;-----------------------------------------------------------------------------
;Подпрограмма инициализации РСН.
;-----------------------------------------------------------------------------
Pod_INIT_RSN:
MOV PORT_IND,#00000000b ;сделать вых все линии порта индик
;Блок настройки АЦП
MOV ADCSTAT,#00000000b ;сбросить все флаги АЦП
MOV ADCMODE,#00000000b ;АЦП0, АЦП1 выкл, реж "снято питание"
MOV ADC1CON,#00100000b ;АЦП1: внутр ИОН,
;вход - внутр темпер датчик,
;биполярный режим
MOV SF,#0FFh ;частота обновл выхода 5 Гц
MOV ICON,#00000000b ;отключены все источники тока
MOV IE,#01000000b ;разрешены только прерыв от АЦП
RET
;------------------------------------------------------------------------------
;Подпрограмма инициализации РОНов. Обнуляются все РОНы с адресами
;от NACH_ADR до KON_ADR при помощи косвенной адресации.
;------------------------------------------------------------------------------
Pod_INIT_RON:
MOV R0,#NACH_ADR ;установка начального адреса
Lk_0: MOV @R0,#0 ;обнуление очередного РОНа
INC R0 ;переход к следующему адресу
CJNE R0,#KON_ADR,Lk_0 ;не достигли ли последнего адреса ?
MOV @R0,#0 ;обнуление последнего РОНа
RET ;да, выход
;-------------------------------------------------------------------------
;Подпрограмма вывода на ЖКИ содержимого байта в двоичном коде (побитно) в

Страницы