CLRF DIGMS
  CLRF DIS_L
  CLRF DIS_H
  CLRF MIN_L
  CLRF MIN_H
  CLRF HOU_L
  CLRF HOU_H
  BCF INTCON,T0IF
  BSF INTCON,T0IE
  BSF INTCON,GIE
;----------------------------------------
LOOP
  BCF FLAGS,3
  BCF FLAGS,4
  BTFSS PORTA,3
  GOTO SET_1
  BTFSS PORTA,4
  GOTO SET_2
  GOTO LOOP
;-----------------------------------
SET_1
  BTFSC PORTA,3   ;S2按下,去抖动后,调整分钟
  GOTO LOOP
  CALL DELAY
  BTFSC PORTA,3
  GOTO LOOP

  BSF FLAGS,3
  INCF MIN_L,1
  MOVLW 10
  XORWF MIN_L,0
  BNZ SET_1
  CLRF MIN_L

  INCF MIN_H,1
  MOVLW 6
  XORWF MIN_H,0
  BNZ SET_1
  CLRF MIN_H
  GOTO SET_1
;-----------------------------------
SET_2
  BTFSC PORTA,4   ;S3按下后调整小时
  GOTO LOOP
  CALL DELAY
  BTFSC PORTA,4
  GOTO LOOP

  BSF FLAGS,4
  MOVLW 2
  XORWF HOU_H,0
    BZ  HOU2
  INCF HOU_L,1
  MOVLW 10
  XORWF HOU_L,0
  BNZ SET_2
  CLRF HOU_L
  INCF HOU_H,1
  GOTO SET_2
HOU2
  INCF HOU_L,1
  MOVLW 4
  XORWF HOU_L,0
  BNZ SET_2
  CLRF HOU_L
  CLRF HOU_H
  GOTO SET_2

;-----------------------------------
DELAY
  MOVLW 150    ;延时0.1S
  MOVWF C1
L2
  MOVLW 255
  MOVWF C2
L3
  DECFSZ C2,1
  GOTO L3
  DECFSZ C1,1
  GOTO L2
  RETLW 0
;-----------------------------------
CONVERT
  MOVWF PC      
TABLE            
  RETLW 081H
  RETLW 0E7H
  RETLW 092H
  RETLW 0A2H
  RETLW 0E4H
  RETLW 0A8H
  RETLW 088H
  RETLW 0E3H
  RETLW 080H
  RETLW 0A0H
;----- --------------------------------------
   END