MAIN CALL CLOCK
CALL SHOW
[B]BCF 06H,6 ;TURN OFF BEEP[/B]
WAIT BTFSS INTCON,2
GOTO WAIT
CLRF INTCON
CALL CHKSW
DECFSZ TICKS,1
GOTO WAIT
GOTO MAIN
CLOCK MOVLW TCK0
MOVWF TICKS
INCF SEC,1
MOVF SEC,0
SUBLW 0X09
BTFSC STATUS,0
RETURN
MOVLW TCK1
MOVWF TICKS
CLRF SEC
INCF SEC10,1
MOVF SEC10,0
SUBLW 0X05
BTFSC STATUS,0
RETURN
MOVLW TCK2
MOVWF TICKS
CLRF SEC10
INCF MIN,1
MOVF MIN,0
SUBLW 0X09
BTFSC STATUS,0
RETURN
MOVLW TCK3
MOVWF TICKS
CLRF MIN
INCF MIN10,1
MOVF MIN10,0
SUBLW 0X05
BTFSC STATUS,0
RETURN
MOVLW TCK4
MOVWF TICKS
CLRF MIN10
MOVF HOUR10,0
SUBLW 0X00
BTFSC STATUS,0
GOTO INCHR
INCF HOUR,1
MOVF HOUR,0
SUBLW 0X02
BTFSC STATUS,0
[B]GOTO BEEP ;GOTO BEEP[/B]
MOVLW TCK6
MOVWF TICKS
CLRF HOUR
INCF HOUR,1
CLRF HOUR10
[B]GOTO BEEP ;GOTO BEEP[/B]
INCHR INCF HOUR,1
MOVF HOUR,0
SUBLW 0X09
BTFSC STATUS,0
[B]GOTO BEEP ;GOTO BEEP[/B]
MOVLW TCK5
MOVWF TICKS
CLRF HOUR
INCF HOUR10,1
[B]GOTO BEEP ;GOTO BEEP[/B]
;---------LENGTH OF THE BEEP----------------
[B]BEEP BSF PORTB,6
BDEL1 DECFSZ 1AH,1 ;255 LOOPS
GOTO BDEL1
BCF PORTB,6
BDEL2 DECFSZ 1AH,1 ;255 LOOPS
GOTO BDEL2
DECFSZ LENGTH ;LENGTH=40H (MAKES 40 TIMES ON OFF)
GOTO BEEP
RETURN[/B]
;-------------------------------------------