3.a- Port giriş-çıkış uygulaması

/***** PORT GİRİŞ UYGULAMASI Yazan: Burak TASASIZ *****/
/************************************************
YAZILIMIN İŞLEVİ: B portunun bacaklarındaki lojik
değişimleri A portunun çıkışına atanır. Böylelikle A
portunun 8 pinine bağlanmış 8 ledin, B portuna bağlı
8 butonun durumuna 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()
{
unsigned int Deger; //deger değişkeninin tanımlanması
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(0xFF); /*B Portunun tüm bacakları giriş olarak ayarlanıyor.*/
output_b(0x00); //Port temizlemesi

set_tris_a(0x00); /*A Portunun tüm bacakları çıkış olarak ayarlanıyor.*/
output_a(0x00); //Port temizlemesi

DONGU: //Etiket belirlendi

deger=input_b(); /*B portunun lojik değeri, deger değiskenine aktarılıyor.*/
output_a(deger); /*Deger degiskeninin degeri A portuna atanıyor.*/

goto DONGU; //Program DONGU etiketine gider
}