LIST P=16F628A, R=DEC		
	INCLUDE<P16F628A.INC> 
	errorlevel -302
	__CONFIG  _BOREN_ON & _LVP_OFF & _MCLRE_OFF & _BODEN_OFF & _PWRTE_ON & _WDT_OFF & _HS_OSC;_INTRC_OSC_NOCLKOUT

	CBLOCK 0x20
MEM_W
MEM_S
TMR
SEC
HOD
MIN	
	ENDC	

	org	0
	call 	START
  	ORG 	4	

INTR 	MOVWF MEM_W
    	SWAPF STATUS,W
     	MOVWF MEM_S
     	BCF STATUS,RP0
     	NOP
     	NOP
     	NOP
     	NOP
     	NOP
     	MOVLW 	100
     	MOVWF 	TMR0
     	INCF TMR,F
     	MOVFW TMR
     	XORLW 100
     	BTFSS STATUS,Z
     	GOTO CAS_1
     	CLRF TMR
     	INCF SEC,F
     	MOVFW SEC
     	XORLW 60
     	BTFSS STATUS,Z
     	goto CAS
     	CLRF SEC
     	INCF MIN,F
     	MOVFW MIN
     	XORLW 60
    	BTFSS STATUS,Z
     	GOTO CAS
     	CLRF MIN
     	INCF HOD,F
     	MOVFW HOD
     	XORLW 24
      	BTFSC STATUS,Z
      	CLRF HOD
      	goto CAS_1
CAS     	MOVLW 132
      	;CALL Z_CAS
CAS_1
      	BCF INTCON,T0IF
      	SWAPF MEM_S,W
      	MOVWF STATUS
      	SWAPF MEM_W,F
   	SWAPF MEM_W,W 
     	retfie
START
  	BSF 	STATUS,RP0
  	MOVLW 	B'00110001'
  	MOVWF 	TRISB
  	MOVLW 	B'11000001'
  	MOVWF 	OPTION_REG
  	BCF 	STATUS,RP0
	MOVLW 	B'10100000'
 	MOVWF 	INTCON
	
s 	nop
 	goto 	s
	

	end