5.b- Karaşimşek Devresi

/**** Karaşimşek Devresi Yazan: Burak TASASIZ ****/
/************************************************
YAZILIMIN İŞLEVİ: B portuna bağlı ledlerin sırayla
teker teker yanması sağlanır. Son lede geldiğinde
sıranın yönü değişir.
*************************************************/

#include <16f628a.h>
#FUSES NOWDT, INTRC, NOPUT, NOPROTECT, NOBROWNOUT, NOMCLR, NOLVP, NOCPD
#use delay(clock=4000000)

void main()
{
unsigned int i,BD=1;

setup_timer_0(RTCC_INTERNAL|RTCC_DIV_1);
setup_timer_1(T1_DISABLED);
setup_timer_2(T2_DISABLED,0,1);
setup_comparator(NC_NC_NC_NC);
setup_vref(FALSE);

set_tris_b(0x00); /*B portu çıkış olarak ayarlanıyor.*/
output_b(0x00); //Port temizlemesi

DONGU:
for(i=0;i<7;++i) bd="BD<<1;" i="0;i<7;++i)" bd="BD">>1;
delay_ms(100);
}
goto DONGU;

}