1.d Port çıkış uygulaması

/***** PORT ÇIKIŞ UYGULAMASI Yazan: Burak TASASIZ *****/
/*******************************************
YAZILIMIN İŞLEVİ: B portuna çeşitli heksadesimal değerler
gönderilip, B portunun 8 pinine bağlanmış 8 ledin bu
değerlere göre yanması veya sönmesi sağlanı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_b(0xFF); //B portunun çıkışı 1111 1111 olarak ayarlandı
delay_ms(500); //Mikrodenetleyici 500ms bekler
output_b(0x27); //B portunun çıkışı 0010 0111 olarak ayarlandı
delay_ms(500); //Mikrodenetleyici 500ms bekler
output_b(0x34); //B portunun çıkışı 0011 0100 olarak ayarlandı
delay_ms(500); //Mikrodenetleyici 500ms bekler
output_b(0x98); //B portunun çıkışı 1001 1000 olarak ayarlandı
delay_ms(500); //Mikrodenetleyici 500ms bekler
output_b(0x55); //B portunun çıkışı 0101 0101 olarak ayarlandı
delay_ms(500); //Mikrodenetleyici 500ms bekler
goto DONGU; //Program DONGU etiketine gider
}