萬年歷程序2

*******鍵盤掃描服務子程序********

KEY1：MOV R6,#07H       ;
      MOV 22H,#00H      ;標志位置零
      LCALL XS1602      ;顯示并延時，判斷是否為抖動抖動
      JNB P1.1,KEY1     ;的確有鍵按下，進入時間調(diào)整程序
      AJMP KS           ;否則跳出調(diào)時程序

KEY11:LCALL XS1602      ;調(diào)顯示
      JNB P1.1,KEY11    ;等待鍵釋放

CHMIN:LCALL XS1602      ;分鐘調(diào)整入口
       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調(diào)整，并保護現(xiàn)場

           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    ;若鍵釋放，則返回到分鐘調(diào)整入口程序
           LCALL XS1602      ;顯示并延時
           ANL CMIN,#00H

CCHR : LCALL XS1602            ;小時調(diào)整入口
       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調(diào)整，并保護現(xiàn)場
           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                   ;若鍵釋放，則返回到小時調(diào)整入口程序

           LCALL XS1602         ;顯示并延時
           ANL CHR ,#00H