Mikro Bilgisayarlı Sistem Tasarımı - Fırat Üniversitesi
Mikro Bilgisayarlı Sistem Tasarımı - Fırat Üniversitesi
Mikro Bilgisayarlı Sistem Tasarımı - Fırat Üniversitesi
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
LIST P16F877<br />
INCLUDE “P16F877.INC”<br />
SAYAC1 EQU h „20‟ ;SAYAC1 „e adres atandı<br />
SAYAC2 EQU h „21‟ ;SAYAC2 „e adres atandı<br />
CLRF PORTB ; PortB ye bağlı ledleri söndür<br />
BCF STATUS,0 ; Carry flag‟ı sıfırla<br />
BSF STATUS,5 ; Bank1‟e geç<br />
CLRF TRISB ; PortB‟nin uçlarını çıkış yap<br />
BCF STATUS,5 ;Bank0‟a geç<br />
SOL<br />
SAG<br />
GECİKME<br />
DONGU1<br />
DONGU2<br />
MOVLW h „01‟ ; b „00000001‟ sayısını W‟ya yükle<br />
MOVWF PORTB ; W kayıtçısının içeriğini PortB‟ye yükle<br />
CALL GECIKME ; Gecikme yap<br />
RLF PORTB,F ; PortB‟deki veriyi sola kaydır<br />
BTFSS STATUS,0 ; Carry flag 1 mi?<br />
GOTO SOL ;<br />
CALL GECIKME ; Gecikme yap<br />
RRF PORTB,F ; PortB‟deki veriyi sağa kaydır<br />
BTFSS STATUS,0 ; Carry flag 1 mi?<br />
GOTO SAG ;<br />
GOTO SOL ;<br />
MOVLW h „FF‟<br />
MOVWF SAYAC1 ; SAYAC1= d‟255‟<br />
MOVLW h‟FF‟<br />
MOVWF SAYAC2 ; SAYAC2= d‟255‟<br />
DECFSZ SAYAC2,F<br />
GOTO DONGU2<br />
DECFSZ SAYAC1,F<br />
GOTO DONGU1<br />
RETURN<br />
END<br />
Örnek 9.12: PortB‟deki LED‟leri dönüşümlü olarak ilk önce ilk dört biti, daha sonrada son dört<br />
bitteki ledleri yakan program ve akış şeması.<br />
Başla<br />
PIC16F877 tanıt<br />
PORTB çıkış<br />
PORTB= h'0F'<br />
COMF PORTB<br />
CALL GECİKME<br />
İbrahim Türkoğlu, <strong>Fırat</strong> <strong>Üniversitesi</strong> - Elektronik ve Bilgisayar Eğitimi Bölümü, Elazığ- 2010. 117