Picproje Elektronik Sitesi

@ DEVICE pic12F675, INTRC_OSC_NOCLKOUT ' DAHİLİ OSİLATOR
@ DEVICE pic12F675, WDT_OFF
@ DEVICE pic12F675, PWRT_ON
@ DEVICE pic12F675, MCLR_ON
@ DEVICE pic12F675, BOD_OFF
@ DEVICE pic12F675, CPD_OFF
@ DEVICE pic12F675, PROTECT_OFF

DEFINE OSC 4

ANSEL = 0                'Portlar çıkış
TRISIO=%000100          '2. BIT GIRIS DİĞERLERİ ÇIKIŞ
CMCON=7                  'Komparator kapalı

SYMBOL LED1= GPIO.4      ' GPIO.4 pinine sembol ismi olarak LED1 adı verildi.
SYMBOL LED2= GPIO.5      ' GPIO.5 pinine sembol ismi olarak LED2 adı verildi.
symbol IR_Goz= GPIO.2
POZ  VAR  BIT

Paket var word 56
IR_AL var word(12) '58

Tus  Var Byte 82
Cihaz Var Byte 83
I    var Byte
Z    var BYTE
Led  var bit
            
BASLA:            
IF TUS=18 THEN  
      HIGH LED1  
      ELSE
      LOW LED1    
      ENDIF              
            
      IF TUS=19 THEN  
      HIGH LED2 
      ELSE
      LOW  LED2  
      ENDIF  
      
          GOTO BASLA

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
GOTO BASLA
      
END