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.
#define PB16 BUTON916,7<br />
ButonKontrolBaslangic<br />
Clrf BUTON18 ; PB1..8 arası tuş değerleri BUTON18 yazmacının 0..7 bitlerinde,<br />
Clrf BUTON916;<br />
Movlw 0xFF<br />
Movwf PORTB<br />
Bsf STATUS,5<br />
Bsf OPTION_REG,7 ; PortB çekme dirençleri devrede<br />
Movlw 0xF0<br />
Movwf TRISB<br />
Bcf STATUS,5<br />
Return<br />
ButonKontrol<br />
; PB1..4 arası tuş kontrolu<br />
Ts1 movlw b‟11111110‟<br />
Movwf PORTB<br />
Btfss PORTB,4<br />
Goto Tus1<br />
Bcf PB1<br />
Ts2 Btfss PORTB,5<br />
Goto Tus2<br />
Bcf PB2<br />
Ts3 Btfss PORTB,6<br />
Goto Tus3<br />
Bcf PB3<br />
Ts4 Btfss PORTB,7<br />
Goto Tus4<br />
Bcf PB4<br />
;PB5..8 arası tuş kontrolu<br />
Ts5 movlw b‟11111101‟<br />
Movwf PORTB<br />
Btfss PORTB,4<br />
Goto Tus5<br />
Bcf PB5<br />
Ts6 Btfss PORTB,5<br />
Goto Tus6<br />
Bcf PB6<br />
Ts7 Btfss PORTB,6<br />
Goto Tus7<br />
Bcf PB7<br />
Ts8 Btfss PORTB,7<br />
Goto Tus8<br />
Bcf PB8<br />
;PB9..12 arası tuş kontrolu<br />
Ts9 movlw b‟11111011‟<br />
Movwf PORTB<br />
Btfss PORTB,4<br />
Goto Tus9<br />
Bcf PB9<br />
Ts10 Btfss PORTB,5<br />
Goto Tus10<br />
Bcf PB10<br />
Ts11 Btfss PORTB,6<br />
Goto Tus11<br />
Bcf PB11<br />
Ts12 Btfss PORTB,7<br />
Goto Tus12<br />
Bcf PB12<br />
İbrahim Türkoğlu, <strong>Fırat</strong> <strong>Üniversitesi</strong> - Elektronik ve Bilgisayar Eğitimi Bölümü, Elazığ- 2010. 137
Change language