ВУЗ:
Составители:
273
MOV DATA_IND_R,IND_DES_R ;
MOV ADR_IND_R,#3 ;
LCALL Pod_PER_DAT_LCD ; индикация дес минут
MOV DATA_IND_R,IND_ED_R ;
MOV ADR_IND_R,#4 ;
LCALL Pod_PER_DAT_LCD ; индикация единиц минут
MOV RAB_R,SEC ;
MOV R0,#BYTE_0_R ;
MOV R1,#RAB_R ;
MOV RAB_R+1,#0 ;-------------------------------
MOV RAB_R+2,#0 ; обнуление ст незначащих РОНов
MOV RAB_R+3,#0 ;-------------------------------
LCALL B32BCD ;преобр секунд из двоичн в двоичн-дес
MOV R0,#BYTE_0_R ;
MOV R1,#IND_MILL_R ;
LCALL BCD10BCD ;преобр мсекунд из уп дв-дес в неуп дес
MOV DATA_IND_R,IND_DES_R ;
MOV ADR_IND_R,#6 ;
LCALL Pod_PER_DAT_LCD ; индикация десятков секунд
MOV DATA_IND_R,IND_ED_R ;
MOV ADR_IND_R,#7 ;
LCALL Pod_PER_DAT_LCD ; индикация единиц секунд
LJMP La_OSN ;закрыть основной цикл
;Подпрограммы------------------------------------------------------------------
;-----------------------------------------------------------------------------
;Подпрограмма инициализации РСН.
;-----------------------------------------------------------------------------
Pod_INIT_RSN:
MOV PORT_KNOP,#11111111b ;сделать вх все линии порта кн
MOV PORT_IND,#00000000b ;сделать вых все линии порта индик
;Блок настройки модуля TIC
MOV TIMECON,#00110011b ;базовый интервал - часы, многократно
;генерировать интервал, разреш счет
;разрешить счетчик врем интервала
MOV IEIP2,#00000000b ;запретить прерывания от TIC
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 ;да, выход
;Подключение модулей опроса кнопок, вывода данных на ЖКИ (с опросом ЖКИ)
;и преобразования представления чисел
$INCLUDE (C:\PR_ADUC\TIC24\knop.asm)
$INCLUDE (C:\PR_ADUC\TIC24\lcd_opr.asm)
$INCLUDE (C:\PR_ADUC\TIC24\preobr.asm)
;Конец исполняемого кода
END
Страницы
- « первая
- ‹ предыдущая
- …
- 271
- 272
- 273
- 274
- 275
- …
- следующая ›
- последняя »