#include <16f628a.h> 
  #fuses XT,NOWDT,NOPROTECT,NOBROWNOUT,NOLVP,NOPUT,NOWRT,NODEBUG,NOCPD 
  #use delay(clock=4000000) 
  #use fast_io(b)      //port yönlendirme komutları B portu için geçerli 
  #use fast_io(c)       //port yönlendirme komutları C portu için geçerli 
   
  //******matriste gösterilecek karakter bilgileri***** 
   
  int A[]={0x03,0x75,0x76,0x75,0x03}; 
  int B[]={0x00,0x36,0x36,0x36,0x49}; 
  int C[]={0x41,0x3E,0x3E,0x3E,0x5D}; 
  int D[]={0x00,0x3E,0x3E,0x3E,0x41}; 
  int E[]={0x00,0xB6,0xB6,0xB6,0xBE}; 
  int arti[]={0x77,0x77,0x41,0x77,0x77}; 
  int cift_ok[]={0x6B,0x5D,0x00,0x5D,0x6B}; 
   
  //sütun seçme fonksiyonları 
   
        int sutunsec (char s) 
      {  
              switch (s) 
           { 
             case 0: return(0x10);break;   //1. sütun aktif ,diğerleri pasif 
             case 1: return(0x08);break;   //2.  "         "            "        " 
             case 2: return(0x04);break;   //3.  "          "           "         "  
             case 3: return(0x02);break;     //4.  "          "          "         "  
             case 4: return(0x01);break;   //5.   "            "       "         " 
          } 
       } 
   
   
   
  // matrise veri gönderme fonksiyonu 
  void matris_karakter_gonder(char k[], int tekrar) 
  { 
     int i,j;   //değişkenler tanımlanıyor 
    for(i=0;i<tekrar;i++)   //karakterin matris led de görülmesi için tekrar döngüsü 
     { 
        for(j=0;j<5;i++)         //tarama işlemi gerçekleştiriliyor 
        { 
        output_c(sutunsec(j));    //sütun seç ve c portuna sütun değerini gönder 
        output_b(k[j]);   //gösterilecek harfin satır bilgisini B portuna gönder 
        delay_ms(10);  
         } 
      } 
  } 
   
  // ***********Ana program fonksiyonu************* 
   
  void main() 
   { 
     setup_comparator(NC_NC_NC_NC); 
     setup_psp(psp_disabled); 
     setup_timer_1(t1_disabled); 
     setup_adc_ports(no_analogs); 
     setup_adc(adc_off); 
     setup_CCP1(ccp_off); 
     setup_CCP2(ccp_off); 
   
   set_tris_b(0x00); 
   set_tris_c(0x00); 
    
    while(1) 
    { 
     matris_karakter_gonder(A,25); 
     matris_karakter_gonder(B,25); 
     matris_karakter_gonder(C,25); 
     matris_karakter_gonder(D,25); 
     matris_karakter_gonder(E,25); 
     matris_karakter_gonder(arti,25); 
     matris_karakter_gonder(cift_ok,25); 
    } 
  }