Merhaba
Sizin verdiğiniz programda sadece PORTB,0 daki led hemen yanıyor ve saymıyor.Ben size 5 sayar ve 6 ledi yakar bir program yazdım."BASLA" nın hemen altında sayılacak rakkamı desimal olarak yazınız siz 5 istediniz 5 yazdım değişik rakkamlar yazarak deneyiniz.Kolay gelsin.Not:yazılımın daha kolay anlaşılması için PORTB'nin pinlerini tek tek yanmasını sağlayacak açık şekilde yazdım
LIST P=16F84
INCLUDE "P16F84.INC"
SAYAC1 EQU H'0C'
SAYAC2 EQU H'0D'
SAYAC EQU H'0E'
BSF STATUS,5
MOVLW H'FF'
MOVWF TRISA
MOVLW B'00000000'
MOVWF TRISB
BCF STATUS,5
CLRF PORTA
CLRF PORTB
BASLA
MOVLW D'5'; İSTENEN RAKKAM GİRİLİR
MOVWF SAYAC
TEST
BTFSS PORTA,0
GOTO TEST
CALL BEKLE
BTFSC PORTA,0
GOTO $-h'01'
DECFSZ SAYAC,F
GOTO TEST
BSF PORTB,0
BSF PORTB,1
BSF PORTB,2
BSF PORTB,3
BSF PORTB,4
BSF PORTB,5
DONGUX
GOTO DONGUX
BEKLE
MOVLW H'8F'
MOVWF SAYAC1
DONGU1
MOVLW H'8F'
MOVWF SAYAC2
DONGU2
DECFSZ SAYAC2,F
GOTO DONGU2
DECFSZ SAYAC1,F
GOTO DONGU1
RETURN
END