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.
ButonTitresimGecikmesi<br />
Movlw 0x40<br />
Movwf SAYAC1<br />
Yukle Movlw 0xFF<br />
Movwf SAYAC2<br />
Azalt Decfsz SAYAC2,F<br />
Goto Azalt<br />
Decfsz SAYAC1,F<br />
Goto Yukle<br />
Return<br />
LCD.INC dosyasının listesi;<br />
******************* LCD.INC *************************<br />
; değişkenler<br />
cblock KRAM<br />
SAY1<br />
SAY2<br />
Endc<br />
Variable KRAM=SAY2+1<br />
#define RS PORTE,0<br />
#define EN PORTE,1<br />
#define RW PORTE,2<br />
LCDBaslangic<br />
Bsf STATUS,RP0<br />
Movlw b‟00000010‟<br />
Movwf ADCON1 ;A portunun RA4 hariç, bitleri analog giriş<br />
Movlw b‟00000000‟<br />
Movwf TRISD<br />
Movwf TRISE<br />
Bcf STATUS,RP0<br />
Bcf RW ; LCD‟ye yazma işlemi<br />
Bcf EN ;<br />
Bcf RS ;<br />
Call _125us_gecikme ; 125 mikrosaniye gecikme<br />
Movlw 0x38 ;8 bit 5x7<br />
Movwf PORTD ; 00111000<br />
Call Darbe ;<br />
Movlw 0x0F<br />
Movwf PORTD ; 0000 1111<br />
Call Darbe<br />
Movlw 0x01 ; göstergeyi temizler<br />
Movwf PORTD ; 0000 0001<br />
Call Darbe<br />
Call _5ms_gecıkme<br />
Return<br />
LCDyeKarakterGonder<br />
Movwf PORTD<br />
Bcf RW<br />
Bsf RS<br />
Call Darbe<br />
Return<br />
LCDsıfırla<br />
Bcf RW<br />
Bcf EN<br />
Bcf RS<br />
Call _125us_gecikme<br />
Movlw 0x01<br />
Movwf PORTD<br />
Call Darbe<br />
Call _5ms_gecikme<br />
İbrahim Türkoğlu, <strong>Fırat</strong> <strong>Üniversitesi</strong> - Elektronik ve Bilgisayar Eğitimi Bölümü, Elazığ- 2010. 139