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.
Movlw 0x30<br />
Addwf BIRLER,1<br />
Addwf ONLAR,1<br />
Addwf YÜZLER,1<br />
Call LCD Sıfırla<br />
Movlw‟A‟<br />
Call LCDyeKarakterGonder<br />
Movlw‟N‟<br />
Call LCDyeKarakterGonder<br />
Movlw‟.‟<br />
Call LCDyeKarakterGonder<br />
Movlw‟3‟<br />
Call LCDyeKarakterGonder<br />
Movlw‟ ‟<br />
Call LCDyeKarakterGonder<br />
Movlw‟=‟<br />
Call LCDyeKarakterGonder<br />
Movlw‟ ‟<br />
Call LCDyeKarakterGonder<br />
Movf YUZLER,0<br />
Call LCDyeKarakterGonder<br />
Movf ONLAR,0<br />
Call LCDyeKarakterGonder<br />
Movf BİRLER,0<br />
Call LCDyeKarakterGonder<br />
Return<br />
****************************************************************<br />
“Gecikme” rutini A/D işleminin başlayabilmesi için gereken ve yazılımla sağlanan yaklaşık 10 us. lik gecikme<br />
sağlayan rutindir. 4 MHZ „lik bir saat osilatöründe aşağındaki döngü 3us.almaktadır .Eğer “SAYAC” değerine<br />
başlangıç değeri olarak 3 atanırsa , toplamda 10 us.den biraz daha büyük bir değere ulaşan gecikme süresi elde edilir.<br />
****************************************************************<br />
Gecikme<br />
Movlw 0x03 ;SAYAC „a 3 değerini ata.<br />
Movwf SAYAC<br />
Decfsz SAYAC,F ;Gecikme döngüsü<br />
Goto $-1<br />
Return<br />
****************************************************************<br />
Ana Program<br />
****************************************************************<br />
Basla<br />
Movlw 0xFF ;PORTD‟nin tüm bitleri”1”<br />
Movwf PORTD<br />
Bsf STATUS,5 ;bank1<br />
Movwf TRISA ; PortAnın tüm bitleri giriş<br />
Clrf TRISD ; PortD nin tüm bitleri çıkış<br />
Movlw b „00000100‟ ; RA0,RA1,RA3 analog giriş<br />
Movwf ADCON1<br />
Bcf STATUS,5 ; bank0<br />
Call ButonKontrolBaslangic<br />
Call LCDBaslangic<br />
Guncelle<br />
Call AN0_KanaliniOku<br />
Call AN1_KanaliniOku<br />
Call AN2_KanaliniOku<br />
Call ButonKontrol<br />
Call ButonTitresimGecikmesi<br />
Btfsc PB1<br />
Call AN0_DegeriniLCDyeYaz<br />
Btfsc PB2<br />
Call AN1_DegeriniLCDyeYaz<br />
Btfsc PB3<br />
Call AN3_DegeriniLCDyeYaz<br />
Goto Guncelle<br />
İbrahim Türkoğlu, <strong>Fırat</strong> <strong>Üniversitesi</strong> - Elektronik ve Bilgisayar Eğitimi Bölümü, Elazığ- 2010. 135
Change language