Etepic

  
    'PIC 16F1827 İŞLEMCİ
    #CONFIG
      __config _CONFIG1, _FOSC_XT & _WDTE_OFF & _PWRTE_ON & _MCLRE_OFF & _CP_ON & _CPD_ON & _BOREN_OFF & _CLKOUTEN_OFF & _IESO_ON & _FCMEN_ON
      __config _CONFIG2, _WRT_ALL & _PLLEN_OFF & _STVREN_ON & _LVP_OFF & _BORV_19 & _LVP_OFF 
    #ENDCONFIG
    DEFINE OSC 4
    OSCCON      =%01101000      ' %0xxxx000 ,xxxx=1111 16Mhz, 1110=8Mhz, 1101=4Mhz, 1100=2 Mhz.
    OSCTUNE    =0
    DEFINE PULSIN_MAX 12000 'Maximum counts allowed before pulsin times out
    WPUA      =0              'MCLR için bit5 Pull-up enabled.Eğer MCLR ON yapılmışsa herzaman enabled.
    WPUB      =0
    ADCON0.0  =0              'ADC ölçümleri iptal edildi.
    ANSELA    =0              'PortA nın <4:0> arası analog-dijital olabilen pinlerini dijital yaptık.Pinler Dijital I/0 oldu.
    ANSELB    =0 
    CCP1CON   =0            'Capture/Compare/PWM off
    CCP2CON   =0            'Capture/Compare/PWM off
    CM1CON0.7 =0              'Comparatör disable-kapalı.
    CM2CON0.7 =0
    FVRCON    =0              'Referans sabit voltaj çıkışları (COMPARATOR,DAC ve ADC) kapalı-disable.
    DACCON0.7 =0              'DAC referans voltaj çıkışı kapalı.
    CPSCON0.7 =0              'Capasitive sensing modulu disable yapıldı.
    MDCON.7   =0              'Modülasyon modülü iptal edildi.DSM (Dijital Sinyal Modülü) iptal. Modüleli yani karışık sinyal çıkış kapalı.
    MDSRC.7   =1              'Çevresel sinyallerin sürücü çıkış pinleri iptal.Modüleli sinyal çıkışı pinleri kapalı.
    CLKRCON.7 =0              'Referasn clock modülü kapalı.
     
    PIE1      =0              'TÜM ÇEVRESEL KESMELER KAPALI.
    PIE2      =0              'Tüm Çeveresel Kesmeler Kapalı.
    PIE3      =0
    PIE4      =0              'Tüm çevresel kesmeler kapalı.
    APFCON0=0  'CCP1=B3 de, CCP2=B6 da
    APFCON1=0
     
    LATA=0
    TRISB=%00000001  'PortB.0 giriş diğerleri çıkış yapıldı.
    TRISA=%00000000  'A portu tamamı çıkış yapıldı.
    OPTION_REG.7 = 1    'dahili Pull up dirençleri aktif edildi ayrıca pullup direncine gerek yok.
    OPTION_REG.6 = 0    'düşen kenarda kesme oluşturacak
    '-----------------------------------------------------------------
     
    SYMBOL DATA_GIRIS=PORTB.0
     
    Paket var word 56
    Tus  Var Byte 60
    Cihaz Var Byte 61
    DATA_AL var BYTE(16)62
     
    I    var Byte 100
    Z    var BYTE 101
    TEMP VAR BYTE 102
    SAY  VAR WORD 103
    TAMAM VAR WORD 105
    ARA  VAR BYTE 107
     
    SYMBOL ALDIM=ARA.0
    SYMBOL ILK  =ARA.1
    IOCBN=%00000001 
    INTCON=%10001000  'Kesmeler aktif ve RB0/INT kesmesi aktif
    ON INTERRUPT GoTo KESME  'kesme oluşursa KESME adlı etikete git.
    LATB=0
    PAUSE 200
    '-------------------------------------------------------------------
    BASLA:
          SAY=0
          while ALDIM=0
            SAY=SAY+1
            IF SAY=2700 THEN LATB=0
          WEND
          ALDIM=0
           
          TUS=0
          for I=0 to 7
'            WRITE (0+I),DATA_AL[I]
            IF DATA_AL(8+I)>7 then TUS.0[I]=1 '8 bit den itibaren gelen 8 bit ise komut bitleri oluyor
          next 
'          PAUSE 10                                                    
          IF TUS=41 THEN  '    11110001 00101001    32+8+1=41
            LATB.4=1 
            PAUSE 10
            GOTO BASLA
          endif
          
          if tus=161 THEN  '    11110001 10100001    128+32+1= 161
            LATB.5=1 
            GOTO BASLA
          ENDIF
          
          IF TUS=17 THEN    '    11110001 00010001    1+16=17
            LATB.6=1 
            GOTO BASLA
          ENDIF                          
                  
'          LATB=0
          
          GOTO BASLA          
      
    DISABLE    
    KESME:  
            PULSIN DATA_GIRIS,1,TAMAM:TEMP=NCD(TAMAM) 
            IF TEMP=9 THEN    ' BU PROTOKELDE lojik 0 560 low 560 high VE    
            for I=0 to 15                    'lojik 1 560 low 1890 high OLDUĞUNDAN HIGH BİTLERİNİ ALMAK DOĞRU OLACAKTIR DİYE DÜŞÜNÜYORUM.
              PULSIN DATA_GIRIS,1,TEMP:DATA_AL(I)=NCD(TEMP) 'YALNZCA HIGH BİTLERİNİ ALIP SÜRESİNİ KAYIT EDİYORUZ
            next 
            ALDIM=1:ILK=1:LATA.0=1 
            ENDIF 
            
    GECGIT: SAY=0     
            INTCON.0=0:IOCBF=0  
            Resume      
    Enable      
    End

For I=0 to 31 
WRITE (0+I),DATA_AL(I)
NEXT
PAUSE 10

   for I=0 to 7
        IF DATA_AL[I]=10 THEN CIHAZ.0[I]=1
        IF DATA_AL(8+I)=10 then TUS.0[I]=1 '8 bit den itibaren gelen 8 bit ise komut bitleri oluyor
   next 

TUS=TUS & 127                                                      
      IF TUS=20 THEN  '    
        LATB.4=1 
        PAUSE 10
        GOTO BASLA
      endif
      
      if tus=5 THEN  '    
        LATB.5=1 
        PAUSE 10
        GOTO BASLA
      ENDIF
      
      IF TUS=8 THEN    '     
        LATB.6=1 
        PAUSE 10
        GOTO BASLA
      ENDIF