pic16f84a ile karaşimşek tipi kayan yazı yapımı isis smilasyonu assembly kodları

pic16f84a ile karaşimşek tipi kayan yazı yapımı isis smilasyonu assembly kodları

[postlink]http://net4story.blogspot.com/2013/08/pic16f84a-ile-karasimsek-tipi-kayan-yaz.html[/postlink]merhaba aşağıdaki videoda adım adım isis uygulamasında bir adet 16f84 mikrodenetleyicisi çağıralacak 8 adet 180 ohm direnç ve 16 adet led ile karaşimşek tibi sağa sola kayan yazı yapılacaktır videoda assembly kodlar mpasm ile hexe çevrilmektedir.

LIST P=16F84
INCLUDE "P16F84.INC"
SAYACl EQU h'0C'
SAYAC2 EQU h'0D'
CLRF PORTB ; portb sifirlaniyor
BCF STATUS, 0 ;Carry flag'ısıfırla
BSF STATUS, 5 ;bank1 yani 2. banka geçiliyor
CLRF TRISB ;b portu çıkış olarak ayarlanıyor
BCF STATUS, 5 ;bank0 a yani 1. banka geçiliyor
MOVLW h'01' ;b'0000000l' sayısınıW'ye yükle
MOVWF PORTB ;W registerini PortB'ye yükle
SOL CALL GECIKME ;Gecikme yap
RLF PORTB, F ;PortB'deki veriyi sola kaydır.
BTFSS PORTB, 7 ;PortB 7. Bit 1 mi?
GOTO SOL ;Hayır, sola kaydır.
SAG CALL GECIKME ;Gecikme yap
RRF PORTB, F ;PortB'deki veriyi sağa kaydır.
BTFSS PORTB, 0 ;PortB 0. Bit 1 mi?
GOTO SAG ;Hayır, sağa kaydır
GOTO SOL ;Evet, sola kaydır.
GECIKME ;Gecikme alt programı
MOVLW h'FF'
MOVWF SAYACl
DONGUl
MOVLW h'FF'
MOVWF SAYAC2
DONGU2
DECFSZ SAYAC2, F
GOTO DONGU2
DECFSZ SAYACl, F
GOTO DONGUl
RETURN
END