PIC16F84 ile Yapılmış Basılan Tuşa Karşılık Gelen Ledi Yakma Uygulaması
 

okul ıcın uygulama programı ve cızımı arıyan arkadaslar ıcın hazırladım basıt bı sey hem assembly ısleyısı hakkında bılgı sahıbı olacagınızı dusundum

Cevap: basılı tusa karsılık gelen ledı yakma
 

Cevap: PIC16F84 ile Yapılmış Basılan Tuşa Karşılık Gelen Ledi Yakma Uygulaması
 

hangi led yanıyorsa butona devamlı basınca o led yanık kalır
list p=16f84A/pic tanıtılıyor
#include "p16f84A.inc"/kütüphane dosyası ekleniyor
sayac1 equ h'0C'/ramde değişken tanımı yapılıyor
sayac2 equ h'0D'/ramde değişken tanımı yapılıyor
clrf PORTB/b portu siliniyor
bcf STATUS0/elde biti siliniyor
bsf STATUS5/bank 1'e geçiliyor
clrf TRISB/portb çıkış yapılıyor
bcf STATUS5/bank 0'a geçiliyor

basla
movlw h'01'/w'ye 01 atanıyor
movwf PORTB/bu değer portb'de
TEKRAR
call gecikme/gecikme altprogramı çağırılıyor
rlf PORTBF/portb bir bit sola kaydırılıyor
btfss STATUS0/elde biti test ediliyor
test
btfss PORTA1/port a'daki buton test ediliyor buton basılımı
goto test/basılı
goto TEKRAR/basılı değil
sekiz
btfss PORTB7/portb 7.bit test ediliyor
goto bir/diğer bit test ediliyor
bsf PORTB7/portb 7.bit 1 yapılıyor
bir
btfss PORTB6/portb 6.bit test ediliyor
goto iki//diğer bit test ediliyor
bsf PORTB6/portb 6.bit bir yapılıyor
iki
btfss PORTB5/portb 5.bit test ediliyor
goto uc/diğer bit test ediliyor
bsf PORTB5//portb 5.bit bir yapılıyor

uc
btfss PORTB4/portb 4.bit test ediliyor
goto dort/diğer bit test ediliyor
bsf PORTB4//portb 4.bit bir yapılıyor
dort
btfss PORTB3/portb 3.bit test ediliyor
goto bes/diğer bit test ediliyor
bsf PORTB3//portb 3.bit bir yapılıyor
bes
btfss PORTB2/portb 2.bit test ediliyor
goto alti/diğer bit test ediliyor
bsf PORTB2//portb 2.bit bir yapılıyor
alti
btfss PORTB1/portb 1.bit test ediliyor
goto yedi/diğer bit test ediliyor
bsf PORTB1//portb 1.bit bir yapılıyor
yedi
btfss PORTB0/portb 0.bit test ediliyor
goto sekiz/diğer bit test ediliyor
bsf PORTB0//portb 0.bit bir yapılıyor
goto sekiz





DONGU /gecikme alt programı
goto DONGU
gecikme
movlw h'FF'
movwf sayac1/sayac1
dongu1
movlw h'FF'
movwf sayac2/sayac2
dongu2
decfsz sayac2F/sayac 1 azaltılıyor sıfır olup olmadığına bakılıyor
goto dongu2/sayac sıfır değil
decfsz sayac1F/sayac 1 azaltılıyor sıfır olup olmadığına bakılıyor
goto dongu1/sayac sıfır değil
return
end
sormak istediğiniz bir şey olursa [Sadece Üyelere Linkler Açıktır.Üye Olun !!! Tıklayarak Üye Olun !!!] yada [Sadece Üyelere Linkler Açıktır.Üye Olun !!! Tıklayarak Üye Olun !!!] asorabilirsiniz.:):D;):rolleyes: