Proton+ Çift Kesme Problemi

[mierdogan]

Merhabalar

Aşağıda verdiğim kodları derledikten sonra ISIS üzerinde çalıştırabiliyorum fakat deney setinde denemek istediğimde hiç tepki vermiyor sistem... Protonda ikinci kesme kullanımı için ne yapılabilir? Veya eksik ne olabilir?

Device=16F877A
All_Digital TRUE
Xtal 20

Declare Keypad_Port PORTB

Declare LCD_ENPin PORTD.0
Declare LCD_RSPin PORTD.1
Declare LCD_DTPin PORTD.4
Declare LCD_Interface 4
Declare LCD_Lines 2

'PortB_Pullups TRUE
TRISB=%11110000:PORTB=0
TRISC=%00000001:PORTC=0


Symbol GIE=INTCON.7
Symbol RBIE=INTCON.3
Symbol RBIF=INTCON.0
Symbol TMR0IE=INTCON.5
Symbol TMR0IF=INTCON.2

Symbol LED1=PORTC.0

OPTION_REG=%00000111

On_Hardware_Interrupt GoTo KESMELER

GIE=1
RBIE=1
RBIF=0
TMR0IE=1
TMR0IF=0
TMR0=60

Dim OKUNANTUS As Byte
Dim BASILAN As Byte
Dim X As Byte
Dim EX As Byte
BASILAN=0
Clear

BASLA:

'    If EX=X Then GoTo BASLA
'        EX=X
    
'    Print At 1,1,dec x
    Print At 2,1,"BASILAN ",Dec BASILAN
    
    GoTo BASLA
    End
        



KESMELER:
    Disable
    If TMR0IF==0
        If BASILAN==98 Then
            TMR0=60
            Inc X
                If X=100 Then
                    X=0
                    Toggle LED1
                EndIf
                TMR0IF=0
            EndIf
            

        If BASILAN==9 Then
            TMR0=60
            Inc X
                If X=200 Then
                    X=0
                    Toggle LED1
                EndIf
          EndIf

      
        
    TMR0IF=0
    EndIf
    
    ElseIf RBIF==1 Then
    
        OKUNANTUS=InKey
        BASILAN=LookUpL OKUNANTUS,[10,0,11,98,7,8,9,97,4,5,6,96,1,2,3,95]
        RBIF=0  
    
        DURKES:
      
        OKUNANTUS=InKey
            If OKUNANTUS<>16 Then GoTo DURKES
            PORTB=0 
    EndIf
    Enable
    Retfie

Yardımlarınız için teşekkürler