键盘扫描服务子程序.txt

单片机万年历程序的键盘扫描服务子程序,通用

万年历程序2

*******键盘扫描服务子程序********

KEY1：MOV R6,#07H       ;
      MOV 22H,#00H      ;标志位置零
      LCALL XS1602      ;显示并延时，判断是否为抖动抖动
      JNB P1.1,KEY1     ;的确有键按下，进入时间调整程序
      AJMP KS           ;否则跳出调时程序

KEY11:LCALL XS1602      ;调显示
      JNB P1.1,KEY11    ;等待键释放

CHMIN:LCALL XS1602      ;分钟调整入口
       JNB P1.4CCHR     ;
       JNB P1.3 ,ADDMIN ;

JNB    P1.1，KS
       AJMP CHMIN

ADDMIN:  LCALL XS1602
         JB P1.3,CHMIN     ;
         INC CMIN          ;
         SETB 10H          ;
         CLR 11H           ;

PUSH A                       ;分钟加1调整，并保护现场

           MOV A,CMIN
           ANL A,#0FH
           CLR C
           CJNE A,#0AH ,PPA
           ANL CMIN,#0F0H
           MOV A,CMIN
           ADD A,#10H
           MOV CMIN,A
           CJNE A,#60H,PPA
           JB P1.3, CHMIN    ;若键释放，则返回到分钟调整入口程序
           LCALL XS1602      ;显示并延时
           ANL CMIN,#00H

CCHR : LCALL XS1602            ;小时调整入口
       JNB P1.4 ，CCDETA
       JNB P1.3 ,ADDCHR ;
       JNB P1.1，KS
       AJMP CHHR 

ADDCHR:    LCALL XS1602
           JB P1.3,CCHR      ;
           INC CHR           ;
           SETB 13H          ;
           CLR 14H           ;

PUSH A                         ;小时加1调整，并保护现场
           MOV A,CHR 
           ANL A,#0FH
           CLR C
           CJNE A,#0AH ,PPA
           ANL CHR,#0F0H
           MOV A,CHR 
           ADD A,#13H
           MOV CHR,A
           CJNE A,#24H,PPA

JB P1.3, CCHR                   ;若键释放，则返回到小时调整入口程序

           LCALL XS1602         ;显示并延时
           ANL CHR ,#00H