#include <16F877.h>
 
#FUSES NOWDT              //Watch Dog Timer Kullanma
#FUSES XT                 //Kristal  Osilatör ile CLKOUT
#FUSES NOPUT              //Power Up Timer Kullanma
#FUSES NOPROTECT          //Rom'a Yazılan Veriler Okunabilir
#FUSES NOBROWNOUT         //Brownout Reset Kullanma
#FUSES NOLVP              //Düşük Gerilimler ile Programlamayı Kapt
#FUSES NOCPD              //Data EEPROM Korumasız
#FUSES NOWRT              //Program Belleği Yazmaya Açık
#FUSES NODEBUG            //ICD için Hata Ayıklama Modu Kapalı
 
#use delay(clock=4000000)
 
#use fast_io(b)
 
#define data pin_b0    // data sabiti pin_b0'a eşitlendi
#define clock pin_b1  //clock sabiti pin_b1'e eşitlendi 
 
int i,j;
/* Ortak katot display için rakamlar dizisi*/
int dizi[10]={0x3F,0x06,0x5B,0x4F,0x66,0x6D,0x7C,0x07,0x7F,0x6F};
 
void main()
{
   setup_psp(PSP_DISABLED);             //Paralel Slave Port devre dışı
   setup_adc_ports(NO_ANALOGS);   //Analog sinyal yok
   setup_adc(ADC_OFF);                     //Analog Dijital Converter devre dışı
   setup_timer_1(T1_DISABLED);        //Timer1 devre dışı
   setup_timer_2(T2_DISABLED,0,1);   //Timer2 devre dışı
   setup_CCP1(CCP_OFF);                   //Capture Compare 1 devre dışı
   setup_CCP2(CCP_OFF);                   //Capture Compare 2 devre dışı
 
   set_tris_b(0x00);         // B portu tümü ile çıkış yapıldı
   output_b(0x00);         // B portu çıkışı program başında sıfırlanıyor
 
   while(1)
   {
      for(i=0;i<10;i++)  // 10 elemanlı dizinin bütün elamanların gezecektir.
       {
         for(j=0;j<8;j++) // 0 dan 8. bitine kadar kontrol edilmektedir.
         {
           //bit_test(dizi[i],j) ile dizinin i. elemanın j. biti öğrenilmiştir.
            output_bit(data,bit_test(dizi[i],j));   
            output_high(clock);                          // clock 1
            output_low(clock);                           // clock 0 yapılmış ve 1 pulse verilmiştir.
 
 /* i=0 da j=0,1,2,3,4,5,6,7 ye sayarken  data=pin b0'a   bit_test(diz[i],j) komutu ile her pulse'de j dizinin her elamanının her bitini gezecek ve  8. turun her sonunda 74164'e dizinin içinde bir elemanını tamamlamış olacaktır i=10 olduğunda bütün elamanlar yazılmış olur*/
         }    
         delay_ms(500);
       }
   }
}