ВУЗ:
Составители:
  245
           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         ;индикация адреса 
;Начало основного цикла--------------------------------------------------------- 
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,ADRL_I2C_R       ;--------------------------------- 
           ADD        A,#64                ; Блок перебора адресов внутри 
           JC         La_10                ; адресного пространства 0 - 1FFFh 
           MOV        ADRL_I2C_R,ACC       ; с шагом 64 
           SJMP       La_50                ; 
La_10:     MOV        ADRL_I2C_R,ACC       ; 
           INC        ADRH_I2C_R           ; 
           MOV        ACC,ADRH_I2C_R       ; 
           CJNE       A,#020h,La_50        ; 
           MOV        ADRL_I2C_R,#0        ; 
           MOV        ADRH_I2C_R,#0        ; 
La_50:     NOP                             ;--------------------------------- 
           MOV        R0,#BYTE_0_R         ; 
           MOV        R1,#ADRL_I2C_R       ; 
           MOV        ADRH_I2C_R+1,#0      ; обнуление ст незначащих РОНов 
           MOV        ADRH_I2C_R+2,#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      ;------------------------------------ 
Страницы
- « первая
 - ‹ предыдущая
 - …
 - 243
 - 244
 - 245
 - 246
 - 247
 - …
 - следующая ›
 - последняя »
 
