PİC 16F628A KESME OLUŞTURMA YARDIM!

@ DEVICE pic16F628A 
  @ DEVICE pic16F628A, WDT_OFF 
  @ DEVICE pic16F628A, PWRT_ON 
  @ DEVICE Pic16F628A, BOD_OFF 
  @ DEVICE Pic16F628A, LVP_OFF 
  @ DEVICE pic16F628A, PROTECT_ON 
  @ DEVICE pic16F628A, MCLR_OFF 
  @ DEVICE pic16F628A, INTRC_OSC_NOCLKOUT 
   
  Define OSC 4 
   
  CMCON=7  
  PORTA=0:TRISA=%10000010 
  PORTB=0:TRISB=%00010000 
   
  ON INTERRUPT GoTo KESME  
  INTCON=%10100000  'Kesmeler aktif ve TMR0 (bit5) kesmesi aktif 
  TMR0=99 
   
   
  SYMBOL TUR=PORTA.1 
  SYMBOL MIC=PORTA.7 
  SYMBOL LDR=PORTB.4 
  SYMBOL LED1=PORTB.0   'SAĞ PENCERE 
  SYMBOL LED2=PORTB.1 'ORTA LAMBASI 
  SYMBOL LED3=PORTB.2   'SOL  
  SYMBOL LED4=PORTB.5   'SOKAK LAMB 
  T VAR BYTE 
  M VAR BYTE 
  PORTB=0 
   
   
  pause 200 
   
  KONTROL: 
  PORTB=0 
   
  IF TUR=1 THEN 
  GOSUB MICOKU 
  ELSE 
  GOSUB KARAR 
  ENDIF 
  GOTO KONTROL 
   
   
   
   
  MICOKU: 
  IF LDR=0 THEN 
  IF MIC=1 THEN 
  GOSUB LAMBON 
  ELSE 
  GOSUB LAMBOF     'SES  YOK KAPALI 
  ENDIF 
   
  ELSE  
  GOSUB LAMBOF 
  ENDIF 
   
  KARAR: 
  IF LDR=0 THEN 
  GOSUB LAMBON 
  ELSE 
  GOSUB LAMBOF 
  ENDIF 
   
   
   
  LAMBON: 
   
  HIGH LED1 'SAĞ 
  PAUSE 2000 
  HIGH LED2  'SOL  
  PAUSE 2000 
  HIGH LED3  'ORTA 
  PAUSE 2000 
  HIGH LED4     'SOKAK 
  PAUSE 9000 
   
  LOW LED1 
  PAUSE 10000 
  HIGH LED1 
  PAUSE 2000 
  LOW LED1 
  PAUSE 10000 
   
  LOW LED3 
  PAUSE 10000 
  HIGH LED3 
  PAUSE 2000 
  LOW LED3 
  PAUSE 10000 
   
   
  LOW LED2 
  PAUSE 10000 
  HIGH LED2 
  PAUSE 2000 
  LOW LED2 
  PAUSE 10000 
   
   
  LOW LED4 
  PAUSE 150 
  HIGH LED4 
  PAUSE 150 
  LOW LED4 
  PAUSE 150 
   
  HIGH LED4     'SOKAK 
  PAUSE 150 
   
  FOR T=0 TO 10 
   
  HIGH LED1 'SAĞ 
  PAUSE 200 
  HIGH LED2  'ORTA 
  PAUSE 200 
  HIGH LED3  'SOL 
  PAUSE 200 
  LOW LED4  
   
  PAUSE 200 
  LOW LED3      
  PAUSE 200 
  LOW LED1   
  PAUSE 200 
  LOW LED2   
  PAUSE 200 
  NEXT T 
   
  LOW LED4   
  PAUSE 150 
  HIGH LED4     'SOKAK 
  PAUSE 150 
  LOW LED4   
  PAUSE 150 
  HIGH LED4     'SOKAK 
  PAUSE 150 
  LOW LED4   
  PAUSE 150 
   
  GOTO KONTROL 
   
  LAMBOF: 
   
  LOW LED1 
  LOW LED2 
  LOW LED3 
  LOW LED4 
  PAUSE 200 
  GOTO KONTROL 
   
  Disable         		 
  KESME:  'kesme alt programı 
   
     
   
  	   
             
     	TMR0=160 
      INTCON.2=0 
      			 
      Resume		 
  	Enable	 
    end