Etepic

	@ DEVICE PIC16F628A                       'işlemci PIC16F628A                                
	@ DEVICE PIC16F628A, WDT_OFF              'Watch Dog timer açık
	@ DEVICE PIC16F628A, PWRT_OFF             'Power on timer açık
	@ DEVICE PIC16F628A, PROTECT_OFF          'Kod Protek kapalı
	@ DEVICE PIC16F628A, MCLR_OFF             'MCLR pini kullanılıyor.
	@ DEVICE PIC16F628A, INTRC_OSC_NOCLKOUT   'Dahili osilatör kullanılacak 
	@ DEVICE PIC16F628A, CPD_OFF              'Eeprom Protek kapalı
	@ DEVICE PIC16F628A, BOD_OFF              'Boden kapalı
	 
	 
	DEFINE OSC 4
	 
	TRISB=%00000001   'PortB.0 giriş diğerleri çıkış yapıldı.
	TRISA=%00000000   'A portu tamamı çıkış yapıldı.
	 
	CMCON=7                  'Komparator kapalı
	  
	SYMBOL LED1= PORTB.4      ' PORTB.4 pinine sembol ismi olarak LED1 adı verildi.
	SYMBOL LED2= PORTB.5      ' PORTB.5 pinine sembol ismi olarak LED2 adı verildi.
	symbol IR_Goz= PORTB.0   ' PORTB.0 pinine sembol ismi olarak IR_Goz adı verıldi.
	POZ  VAR  BIT
	 
	Paket var word 56
	IR_AL var word (12)
	 
	Tus  Var Byte 82
	Cihaz Var Byte 83
	I    var Byte
	Z    var BYTE
	Led  var bit
	            
	BASLA:   
              GOSUB TUSGIR 
 
	      IF TUS=18 THEN                'VOLUME +
	        LED1=1 
	        PAUSE 100
	        ELSE
	        LED1=0    
	      ENDIF 
	      GOTO BASLA

'-------------------------ALT PROGRAM------------------------------------------------------------
	          
	TUSGIR:
	      TUS=0:CIHAZ=0
	      PuLSIN IR_Goz,0,PAKET
	      if PAKET<200 OR PAKET>270 then  RETURN
	 
	      for I=0 to 11
	      pulsin IR_Goz,0,IR_AL(I)
	      next            
	      Tus=127
	      
	AYIKLA:
	      For I=0 to 6
	        if IR_AL(I)<80 then Tus.bit0[I]=0
	      next
	 
	      Cihaz=%00011111
	      for I=0 to 4
	        IF IR_AL(7+I)<80 then Cihaz.Bit0[I]=0
	      next
	      RETURN
	 
	    
	END

@ DEVICE PIC16F628A                      'işlemci PIC16F628A                                
    @ DEVICE PIC16F628A, WDT_OFF              'Watch Dog timer açık
    @ DEVICE PIC16F628A, PWRT_OFF            'Power on timer açık
    @ DEVICE PIC16F628A, PROTECT_OFF          'Kod Protek kapalı
    @ DEVICE PIC16F628A, MCLR_OFF            'MCLR pini kullanılıyor.
    @ DEVICE PIC16F628A, INTRC_OSC_NOCLKOUT  'Dahili osilatör kullanılacak 
    @ DEVICE PIC16F628A, CPD_OFF              'Eeprom Protek kapalı
    @ DEVICE PIC16F628A, BOD_OFF              'Boden kapalı

    DEFINE OSC 4
    
    TRISB=%00000001  'PortB.0 giriş diğerleri çıkış yapıldı.
    TRISA=%00000000  'A portu tamamı çıkış yapıldı.
    
    CMCON=7                  'Komparator kapalı
      
    SYMBOL LED1= PORTB.4      ' PORTB.4 pinine sembol ismi olarak LED1 adı verildi.
    SYMBOL LED2= PORTB.5      ' PORTB.5 pinine sembol ismi olarak LED2 adı verildi.
    symbol IR_Goz= PORTB.0  ' PORTB.0 pinine sembol ismi olarak IR_Goz adı verıldi.
    POZ  VAR  BIT
    
    Paket var word 56
    IR_AL var word [12]
    
    Tus  Var Byte 82
    Cihaz Var Byte 83
    I    var Byte
    Z    var BYTE
    Led  var bit
                
    BASLA:  
              GOSUB TUSGIR 
 
          IF TUS=18 THEN                'VOLUME +
            LED1=1 
            PAUSE 100
            ELSE
            LED1=0    
          ENDIF 
          GOTO BASLA
 
'-------------------------ALT PROGRAM------------------------------------------------------------
              
    TUSGIR:
          TUS=0:CIHAZ=0
          PuLSIN  IR_Goz,0,PAKET
          if PAKET<200 OR PAKET>270 then  RETURN
    
          for I=0 to 11
          pulsin  IR_Goz,0,IR_AL[I]
          next            
          Tus=127
          
    AYIKLA:
          For I=0 to 6
            if IR_AL[I]<80 then Tus.bit0[I]=0
          next
    
          Cihaz=%00011111
          for I=0 to 4
            IF IR_AL[7+I]<80 then Cihaz.Bit0[I]=0
          next
          RETURN
    
        
    END

SIRA VAR BYTE 'önce bir kayıt sırası değişkeni tanımlarsın
...
...
SIRA=1
BASLA:
      GOSUB TUSGIR
      IF TUS>0 THEN
         WRITE SIRA,TUS:PAUSE 10
         SIRA=SIRA+1
      ENDIF    
      GOTO BASLA

SYMBOL LED2=PORTX.y 'burada o ledi bağlayacağın PORT X oluyor. Portun hangi bitine bağlayacak isen oda y oluyor.
...
...
BASLA:
      IF TUS=21 THEN
        LED2=1
        PAUSE 100
      ELSE
        LED2=0
      ENDIF