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 P16F877<br />
INCLUDE “P16F877.INC”<br />
IS EQU H „21‟ ; İş süresi<br />
CEVRIM EQU H „22‟ ; Çevrim süresi=iş süresi+ bekleme süresi<br />
ISGEC EQU H „23‟ ; İş süresinin geçici olarak saklandığı yazmac<br />
SAYAC1 EQU H „24‟ ; gecikme altprogram kayıtçıları<br />
SAYAC2 EQU H „25‟ ; ” ”<br />
ORG 0x003 ; Reset vektörü<br />
GOTO ILK_DEGER<br />
GECIKME<br />
MOVLW h „0F‟<br />
MOVWF SAYAC1<br />
DONGU1<br />
MOVLW h‟FF‟<br />
MOVWF SAYAC2<br />
DONGU2<br />
DECFSZ SAYAC2,F<br />
GOTO DONGU2<br />
DECFSZ SAYAC1,F<br />
GOTO DONGU1<br />
RETURN<br />
ILK_DEGER<br />
CLRF PORTD<br />
CLRF PORTB<br />
BCF STATUS,RP1<br />
BSF STATUS,RP0<br />
BCF OPTION_REG, NOT_RBPU ; pull-up dirençleri aktif<br />
MOVLW B „00110000‟ ; PortB‟ye butonlar bağlı<br />
MOVWF TRISB<br />
CLRF TRISD<br />
BCF STATUS, RP0<br />
BASLA<br />
MOVLW D‟25‟<br />
MOVWF IS ; iş çevrim süresi=25<br />
MOVWF ISGEC ;<br />
BSF PORTD,2 ; iş süresi= bekleme süresi, kare dalga<br />
DONGU<br />
MOVF ISGEC,W<br />
MOVWF IS<br />
MOVLW D‟250‟<br />
MOVWF CEVRIM ; Bir peryot 250 birim<br />
BSF PORTD,0<br />
BTFSS PORTB,4 ; B4 tuşuna basıldımı?<br />
GOTO ARTTIR_IS ;İş süresini arttırma altprogramına git<br />
BTFSS PORTB,5 ; B5 tuşuna basıldımı?<br />
GOTO AZALT_IS ; İş süresini azaltmaya git<br />
KONTROL_IS<br />
DECFSZ IS,F ; IS süresini 1 azalt, 0 mı?<br />
GOTO KONTROL_CEVRIM<br />
BCF PORTD,0 ;<br />
KONTROL_CEVRIM<br />
DECFSZ CEVRIM,F ;Çevrimi 1 azalt 0 mı?<br />
GOTO KONTROL_IS ; Çevrim sıfırlanmadı iş süresine bak<br />
GOTO DONGU<br />
ARTTIR_IS<br />
CALL GECIKME<br />
MOVF ISGEC,W<br />
MOVWF IS<br />
INCF IS,F<br />
İbrahim Türkoğlu, <strong>Fırat</strong> <strong>Üniversitesi</strong> - Elektronik ve Bilgisayar Eğitimi Bölümü, Elazığ- 2010. 130
Change language