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 p=16F877<br />
INCLUDE “p16F877”<br />
KALIP1 EQU H „C0‟ ; b „11000000‟<br />
KALIP2 EQU H „30‟ ; b „00110000‟<br />
KALIP3 EQU H „0C‟ ; b „00001100‟<br />
KALIP4 EQU H „03‟ ; b „00000011‟<br />
#DEFINE B4 PORTB,4 ; Buton Adları<br />
#DEFINE B5 PORTB,5<br />
#DEFINE B6 PORTB,6<br />
#DEFINE B7 PORTB,7<br />
ORG 0X03<br />
GOTO BASLA<br />
BASLA<br />
CLRF PORTB<br />
CLRF PORTD<br />
BSF STATUS,RP0<br />
BCF OPTION_REG,7<br />
MOVLW „F0‟<br />
MOVWF TRISB ; PortB‟nin 4-7 bitleri yönlendirildi.<br />
CLRF TRISD ; Portd çıkış<br />
BCF STATUS,RP0<br />
ANA_PROGRAM<br />
B4_KONTROL<br />
BTFSC B4 ; B4 butonuna basıldımı?<br />
GOTO B5_Kontrol ; hayır B5 butonunu kontrole git<br />
MOVLW KALIP1<br />
MOVWF PORTD<br />
B5_KONTROL<br />
BTFSC B5 ; B5 butonuna basıldımı?<br />
GOTO B6_Kontrol ; hayır B6 butonunu kontrole git<br />
MOVLW KALIP2<br />
MOVWF PORTD<br />
B6_KONTROL<br />
BTFSC B6 ; B6 butonuna basıldımı?<br />
GOTO B7_Kontrol ; hayır B7 butonunu kontrole git<br />
MOVLW KALIP3<br />
MOVWF PORTD<br />
B7_KONTROL<br />
BTFSC B7 ; B7 butonuna basıldımı?<br />
GOTO B4_Kontrol ; hayır B4 butonunu kontrole git<br />
MOVLW KALIP4<br />
MOVWF PORTD<br />
GOTO ANA_PROGRAM<br />
END<br />
9.2. Döngü Düzenlemek<br />
Program yazarken bazı işlemlerin belirli sayıda tekrarlanması gerekebilir. Bu durumda kayıtçılardan<br />
biri sayaç olarak kullanılır. Daha sonra her işlem tekrarlandığında sayaç değeri bir azaltılır. Azaltma<br />
işlemini DECFSZ komutu ile yapılır.<br />
İbrahim Türkoğlu, <strong>Fırat</strong> <strong>Üniversitesi</strong> - Elektronik ve Bilgisayar Eğitimi Bölümü, Elazığ- 2010. 107