1.c Devamlı yanıp sönen led uygulaması

/***** DEVAMLI LED YAKIP-SÖNDÜRME UYGULAMASI Yazan: Burak TASASIZ *****/
/*******************************************
YAZILIMIN İŞLEVİ: B portunun 2 numaralı bacağını devamlı
500ms boyunca lojik-1, sonra 500ms boyunca lojik-0 yapar.
Böylelikle B6 pinine bağlanmış led devamlı olarak 500ms
yanar, 500ms sönük kalır.
********************************************/

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

void main()
{

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); //Port giriş-çıkış ayarları
output_b(0x00); //Port temizlemesi

DONGU: //Etiket belirlendi
output_high(pin_b2); //b2 pinini lojik-1 yap
delay_ms(500); //Mikrodenetleyici 500ms bekler
output_low(pin_b2); //b2 pinini lojik-0 yap
delay_ms(500); //Mikrodenetleyici 500ms bekler
goto DONGU; //Program DONGU etiketine gider
}