Mikro Bilgisayarlı Sistem Tasarımı - Fırat Üniversitesi
Mikro Bilgisayarlı Sistem Tasarımı - Fırat Üniversitesi
Mikro Bilgisayarlı Sistem Tasarımı - Fırat Üniversitesi
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
Örnek 9.2: PortB‟nin 0. bitine bağlı Led‟i, A portunun 1. bitindeki butona basılınca yakan<br />
program.<br />
Başla<br />
PIC16F877 tanıt<br />
PortB'yi sil<br />
PortB çıkış<br />
PortA giriş<br />
PortA, bit1<br />
0 mı?<br />
Tekrar test et<br />
PortB'nin 0.biti 1<br />
yap<br />
İbrahim Türkoğlu, <strong>Fırat</strong> <strong>Üniversitesi</strong> - Elektronik ve Bilgisayar Eğitimi Bölümü, Elazığ- 2010. 104<br />
Son<br />
Hayır<br />
LIST P=16F877<br />
PORTA EQU h „05‟<br />
PORTB EQU h „06‟<br />
STATUS EQU h „03‟<br />
TRISA EQU h „85‟<br />
TRISB EQU h „86‟<br />
CLRF PORTB ; PortB‟ye bağlı ledleri söndür<br />
BSF STATUS,5 ; BANK1‟e geç<br />
CLRF TRISB ; PORTB‟nin uçlarını çıkış yap<br />
MOVLW h „FF‟ ; W kayıtçısına h„FF‟ yükle<br />
MOVWF TRISA ; PortA‟nın uçlarını giriş yap<br />
BCF STATUS,5 ; BANK0‟a geç<br />
TEST_PORTA<br />
BTFSC PORTA,1 ; A portunun 1. bitini test et<br />
GOTO TEST_PORTA; 0 değilse tekrar test et<br />
BSF PORTB,0 ; B portunun 0. bitini 1 yap<br />
DONGU<br />
GOTO DONGU<br />
END<br />
Örnek 9.3: A portunun 2. bitindeki butona basınca B portuna bağlı tüm ledleri yakan program.<br />
LIST P=16F877<br />
PORTA EQU h „05‟<br />
PORTB EQU h „06‟<br />
STATUS EQU h „03‟<br />
TRISA EQU h „85‟<br />
TRISB EQU h „86‟<br />
CLRF PORTB ; PortB‟ye bağlı ledleri söndür<br />
BSF STATUS,5 ; BANK1‟e geç<br />
CLRF TRISB ; PORTB‟nin uçlarını çıkış yap<br />
Evet