try this one
Code:
        @ DEVICE INTRC_OSC, LVP_OFF, WDT_OFF, MCLR_OFF
        
        DEFINE OSC 4
        OSCCON=%01101000
        ANSEL=%00000000
        CMCON=%00000111
        
        OPTION_REG.6=1 'Trigger on rising edge
        
        trisa = %11111111
        trisb = %00000001
        CounterA    var word

        On Interrupt Goto UpdateCounter
        INTCON = %10010000 'Enable INTE
        
        PORTB=0
        Pause 50 ' Wait for startup

loop:
        TOGGLE PORTB.5
        gosub dodelay
        Goto loop 
        
DoDelay:
        for countera=0 to 200
            pause 1
            next
        return        


disable
UpdateCounter:
        low PORTB.5
        high portb.6
        Pause 2000 ' Wait 2 second
        low portb.6
        INTCON.1=0 're-enable interrupts
resume
ENABLE