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

LIST P16F877
INCLUDE “P16F877.INC”
SAYAC1 EQU h „20‟ ;SAYAC1 „e adres atandı
SAYAC2 EQU h „21‟ ;SAYAC2 „e adres atandı
CLRF PORTB ; PortB ye bağlı ledleri söndür
BSF STATUS,5 ; Bank1‟e geç
CLRF TRISB ; PortB‟nin uçlarını çıkış yap
MOVLW h „FF‟ ; W kayıtçısına h „FF‟ yükle
MOVWF TRISA ; Porta‟nın uçlarını giriş yap
BCF STATUS,5 ;Bank0‟a geç
BASLA
MOVLW h „0A‟ ; W kayıtçısına h „0A‟ sayısını yükle
MOVWF SAYAC1 ; W içeriğini SAYAC1‟e gönder
TEST
BTFSC PORTA,1 ; PortA‟nın 1. biti 0 mı?
GOTO TEST ; değilsei TEST isimli etikete geri dön
MOVLW h „FF‟ ; Evet ise, W‟nın içeriğini h „FF‟ yükle
MOVWF SAYAC2 ; W içeriğini SAYAC2 ye ata.
GECİKME
NOP
NOP ; gecikme işlemi
NOP
DECFSZ SAYAC2,F ; SAYAC2‟nin içeriğini 0 olana kadar azalt
GOTO GECIKME
AZALT
DECFSZ SAYAC1,F ;
GOTO YAK ;SAYAC1=0 değilse,YAK isimli etikete geri dön
GOTO BASLA ; SAYAC1=0 ise, BASLA isimli etikete geri dön
YAK
MOVF SAYAC1,W ; SAYAC1‟in içeriğini W‟ya aktar.
MOVWF PORTB ; W‟ın içeriğini PortB‟ye aktar
GOTO TEST ; TEST isimli etikete geri dön
END
Program yazarken bazı işlerin belirli sayılarda tekrarlanması istenebilir. Bu durumda da bir
kayıtçı sayaç olarak kullanılır ve sayacın değeri her defasında 1 arttırılır. Arttırma işlemi INCF
komutu ile yapılır. Sayaç belirlene değer ulaştığı zaman program akışı başka komuta geçer.
Hayır
SAYAC=h '00'
SAYAC=SAYAC+1
W=h'07'
W=SAYAC-W
STATUS 2.biti
1 mi?
SON
Evet
SUBWF
TEKRAR
DONGU
CLRF SAYAC
INCF SAYAC,F
MOVLW h „07‟
SUBWF SAYAC,W
BTFSS STATUS,2
GOTO TEKRAR
GOTO DONGU
END
İbrahim Türkoğlu, Fırat Üniversitesi - Elektronik ve Bilgisayar Eğitimi Bölümü, Elazığ- 2010. 111