Mikro Bilgisayarlı Sistem Tasarımı - Fırat Üniversitesi

Gecikme sürelerini sayaçlara yüklediğimiz M ve N sabitlerini değiştirerek ayarlamak
mümkündür. Örneğin gecikme süresinin 10 milisn olması için dış ve iç döngü sayaçlarının
değerlerinin ne olması gerektiğini bulalım:
10.000/(0.05 x 4) = 3xNxN N=129
bu değer h‟81‟ değerine karşılık gelir. Böylece 10 milisn gecikme elde edilir.
Örnek 9.9: PortA‟nın 1. ucuna bağlı butona 10 defa basıldıktan sonra PortB deki tüm ledleri yakan
program.
LIST P16F877
INCLUDE “P16F877.INC”
SAYAC1 EQU h „20‟
SAYAC2 EQU h „21‟
MEM EQU h „22‟
CLRF PORTB ; PortB‟yi sil
BSF STATUS,5 ; Bank1‟e geç
CLRF TRISB ; PortB‟nin uçları çıkış
BSF TRISA,1 ; Porta‟nın 1. biti giriş
CLRF MEM ; MEM kayıtçısını temizle
TEKRAR
BTFSC PORTA,1 ; PortA‟nın 1.bit‟i 0 mı?
GOTO TEKRAR ; Hayır tekrar test et
INCF MEM ; Evet, MEM=MEM+1
MOVF MEM,W ; W=MEM
SUBLW d „10‟ ; W= d „10‟-W
BTFSC STATUS,2 ; STATUS‟un 2.biti 0 mı?
GOTO YAK ; Hayır, Z=1
CALL GECİKME ; Gecikme altprogramını çağır
GOTO TEKRAR ;
YAK
MOMVLW h „FF‟ ; W= h „FF‟
MOVWF PORTB ; PortB‟deki tüm ledleri yak
DONGU
GOTO DONGU ;
;***************GECİKME ALTPROGRAMI***********
GECIKME
MOVLW h „FF‟
MOVWF SAYAC1
DONGU1
MOVLW h „FF‟
MOVWF SAYAC2
DONGU2
DECFSZ SAYAC2,F
GOTO DONGU2
DECFSZ SAYAC1,F
GOTO DONGU1
RETURN
END
İbrahim Türkoğlu, Fırat Üniversitesi - Elektronik ve Bilgisayar Eğitimi Bölümü, Elazığ- 2010. 114