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

UptoLike

ВУЗ: 

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

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

Рубрика: 

288
MOV R0,#IND_MILL_R ; индицировать с РОНа IND_MILL_R
MOV R1,#0 ; индицировать с адр 0 ЖКИ
LCALL Pod_IND_10ZN ;индикация числа дискрет
SETB EA ;разрешить прерывания глобально
LJMP La_OSN ;закрыть основной цикл
;Подпрограммы------------------------------------------------------------------
;-----------------------------------------------------------------------------
;Подпрограмма инициализации РСН.
;-----------------------------------------------------------------------------
Pod_INIT_RSN:
MOV PORT_KNOP,#11111111b ;сделать вх все линии порта кн
MOV PORT_IND,#00000000b ;сделать вых все линии порта индик
;Блок настройки ЦАП
MOV DACCON,#00010111b ;вых ЦАП - P1.7, 12-битный ЦАП,
;диапазон ЦАП - 0-AVdd, ЦАП разрешен.
;Блок настройки Т0
MOV TMOD,#00110001b ;Т1 остановлен, Т0 - 16-битный таймер.
MOV TCON,#00010000b ;Т1 отключен, Т0 включен
MOV IE,#00000010b ;разреш прерыв от Т0 и запретить глоб
MOV TH0,#0 ; Нач загрузка в Т0 константы
MOV TL0,#0 ;
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 ;да, выход
;-----------------------------------------------------------------------------
;Подпрограмма вывода на ЖКИ содержимого буфера из 10 РОНов в виде 10 знакомест.
;R0 должен указывать на РОН в буфере, содержимое которого индицируется первым.
;R1 должен содержать нач адрес знакоместа в ОЗУ ЖКИ.
;-----------------------------------------------------------------------------
Pod_IND_10ZN:
MOV R2,#0 ;нач уст ст цикла
Ii_0: MOV DATA_IND_R,@R0 ;
MOV ADR_IND_R,R1 ;
LCALL Pod_PER_DAT_LCD ; индикация очередного символа
INC R0 ;
INC R1 ;
INC R2 ;
CJNE R2,#10,Ii_0 ;
RET
;Подключение модулей опроса кнопок, вывода данных на ЖКИ (с опросом ЖКИ)
;и преобразования представления чисел
$INCLUDE (C:\PR_ADUC\DAC_TIM\knop.asm)
$INCLUDE (C:\PR_ADUC\DAC_TIM\lcd_opr.asm)
$INCLUDE (C:\PR_ADUC\DAC_TIM\preobr.asm)
;Конец исполняемого кода
END

Страницы