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

UptoLike

181
;Блок, предшествующий вызову подпрограммы опроса кнопки 2.
La_2: MOV R0,#KNOP2_R ;
MOV R1,#NAKOPL2_R ;
LCALL Pod_OPR_KNOP2 ;
;Блок, следующий за вызовом подпрограммы опроса кнопки (уст факта ее наж)
MOV ACC,@R0 ;
JNB ACC_1,La_3 ;
CLR ACC_1 ;кн была нажата, сброс флага нажат кн
MOV @R0,ACC ;
MOV ADCMODE,#00100110b ;АЦП0 вкл, реж сист калибровки нуля
MOV DATA_IND_R,#2 ;------------------------------------
MOV ADR_IND_R,#76 ; индикация номера нажатой кнопки
LCALL Pod_PER_DAT_LCD ;------------------------------------
LJMP La_OSN ;закрыть основной цикл
;Блок, предшествующий вызову подпрограммы опроса кнопки 3.
La_3: MOV R0,#KNOP3_R ;
MOV R1,#NAKOPL3_R ;
LCALL Pod_OPR_KNOP3 ;
;Блок, следующий за вызовом подпрограммы опроса кнопки (уст факта ее наж)
MOV ACC,@R0 ;
JNB ACC_1,La_4 ;
CLR ACC_1 ;кн была нажата, сброс флага нажат кн
MOV @R0,ACC ;
MOV ADCMODE,#00100111b ;АЦП0 вкл, реж сист калибровки верхн пр
MOV DATA_IND_R,#3 ;------------------------------------
MOV ADR_IND_R,#77 ; индикация номера нажатой кнопки
LCALL Pod_PER_DAT_LCD ;------------------------------------
LJMP La_OSN ;закрыть основной цикл
;Блок, предшествующий вызову подпрограммы опроса кнопки 4.
La_4: MOV R0,#KNOP4_R ;
MOV R1,#NAKOPL4_R ;
LCALL Pod_OPR_KNOP4 ;
;Блок, следующий за вызовом подпрограммы опроса кнопки (уст факта ее наж)
MOV ACC,@R0 ;
JNB ACC_1,La_5 ;
CLR ACC_1 ;кн была нажата, сброс флага нажат кн
MOV @R0,ACC ;
MOV ADCMODE,#00100011b ;АЦП0 вкл, реж циклич преобразований
MOV DATA_IND_R,#4 ;------------------------------------
MOV ADR_IND_R,#78 ; индикация номера нажатой кнопки
LCALL Pod_PER_DAT_LCD ;------------------------------------
LJMP La_OSN ;закрыть основной цикл
;Блок, предшествующий вызову подпрограммы опроса кнопки 5.
La_5: MOV R0,#KNOP5_R ;
MOV R1,#NAKOPL5_R ;
LCALL Pod_OPR_KNOP5 ;
;Блок, следующий за вызовом подпрограммы опроса кнопки (уст факта ее наж)
MOV ACC,@R0 ;
JNB ACC_1,La_6 ;
CLR ACC_1 ;кн была нажата, сброс флага нажат кн
MOV @R0,ACC ;