ВУЗ:
Составители:
228
MOV R1,#IND_MILL_R ;
LCALL BCD10BCD ;преобр адреса из уп дв-дес в неуп дес
MOV R0,#IND_MILL_R ; индицировать с РОНа IND_MILL_R
MOV R1,#0 ; индицировать с адр 0 ЖКИ
LCALL Pod_IND_10ZN ;индикация абсолютного адреса
;Начало основного цикла---------------------------------------------------------
La_OSN: NOP ;метка возврата в осн цикле
;Блок, предшествующий вызову подпрограммы опроса кнопки 0.
MOV R0,#KNOP0_R ;
MOV R1,#NAKOPL0_R ;
LCALL Pod_OPR_KNOP0 ;
;Блок, следующий за вызовом подпрограммы опроса кнопки (уст факта ее наж)
MOV ACC,@R0 ;
JNB ACC_1,La_100 ;
CLR ACC_1 ;кн была нажата, сброс флага нажат кн
MOV @R0,ACC ;
MOV ACC,ADRF_M_R ;---------------------------------
ADD A,#32 ; Блок перебора адресов внутри
JC La_10 ; адресного пространства
MOV ADRF_M_R,ACC ; с шагом (32 х 256) = 8192
SJMP La_50 ;
La_10: MOV ADRF_M_R,ACC ;
INC ADRF_H_R ;
MOV ACC,ADRF_H_R ;
CJNE A,#00001000b,La_50 ;
MOV ADRF_M_R,#0 ;
MOV ADRF_H_R,#0 ;
La_50: NOP ;---------------------------------
MOV R0,#BYTE_0_R ;
MOV R1,#ADRF_L_R ;
MOV ADRF_H_R+1,#0 ; обнуление ст незначащего РОНа
LCALL B32BCD ;преобр адреса из двоичн в двоичн-дес
MOV R0,#BYTE_0_R ;
MOV R1,#IND_MILL_R ;
LCALL BCD10BCD ;преобр адреса из уп дв-дес в неуп дес
MOV R0,#IND_MILL_R ; индицировать с РОНа IND_MILL_R
MOV R1,#0 ; индицировать с адр 0 ЖКИ
LCALL Pod_IND_10ZN ;индикация абсолютного адреса
;Блок, предшествующий вызову подпрограммы опроса кнопки 1.
La_100: MOV R0,#KNOP1_R ;
MOV R1,#NAKOPL1_R ;
LCALL Pod_OPR_KNOP1 ;
;Блок, следующий за вызовом подпрограммы опроса кнопки (уст факта ее наж)
MOV ACC,@R0 ;
JNB ACC_1,La_200 ;
CLR ACC_1 ;кн была нажата, сброс флага нажат кн
MOV @R0,ACC ;
INC R5 ;-----------------------------------
CJNE R5,#06Fh,La_00 ; перебор возможн знач индицир байта
MOV R5,#021h ;------------------------------------
La_00: MOV DATA_IND_R,R5 ;------------------------------------
MOV ADR_IND_R,#64 ; индикация байта (символа)
ACALL Pod_PER_DAT_LCD ;------------------------------------
;Блок, предшествующий вызову подпрограммы опроса кнопки 2.
La_200: MOV R0,#KNOP2_R ;
Страницы
- « первая
- ‹ предыдущая
- …
- 226
- 227
- 228
- 229
- 230
- …
- следующая ›
- последняя »
