GOTO   MIN_H           ;
         GOTO   WAITREL         ;
MIN_H    MOVF   BUF1, W         ;
         ANDLW  0FH             ;
         MOVWF  BUF1            ;
         GOTO   WAITREL         ;

KEY3     INCF   BUF2, 1         ;
         MOVF   BUF2, W         ;
         ANDLW  0FH             ;
         XORLW  0AH             ;
         BTFSC  STATUS,Z        ;
         GOTO   HOUR_L          ;
         GOTO   HOUR_H          ;
HOUR_L   MOVF   BUF2, W         ;
         ANDLW  0F0H            ;
         MOVWF  BUF2            ;
         MOVLW  10H             ;
         ADDWF  BUF2, F         ;
         MOVF   BUF2, W         ;
         ANDLW  0F0H            ;
         XORLW  20H             ;
         BTFSC  STATUS,Z        ;
         GOTO   HOUR_H          ;