Merhaba
Aşağıdaki yazılım şablon yazılımdır.Algoritmayı böyle kurdum.Bu mantık çerçevesinde siz istediğiniz kadar kaskat yaparak üretebilirsiniz.Bitmiş iş,benim için tamamdır.Sizin dediğiniz gibi de yapılabilir ama algoritmayı tam kavramam lazım.Ben size master yazılımını verdim gerisi size kalıyor.Bir süre önce bu konularla ilgili yazılarımı aşağıdaki linkte yayınlandı.Daha detaylı bilgileri oradan da temin edebilirsiniz.
LIST P=16F628
INCLUDE "P16F628.INC"
ORG H'0000'
SAYAC EQU H'20'
SAYAC1 EQU H'21'
SAYAC2 EQU H'22'
MOVLW H'07'
MOVWF CMCON
;BANKSEL TRISA
BSF STATUS,5
MOVLW B'11110000'
MOVWF TRISA
MOVLW B'11101011'
MOVWF TRISB
BCF STATUS,5
CLRF PORTA
CLRF PORTB
BASLA
TEST_RA4
BTFSC PORTA,4
GOTO TEST_RA4
CALL BEKLE
RA4ANAHTAR
BSF STATUS,5;ÖNEMLİ KODD
MOVLW D'25'
MOVWF SPBRG
MOVLW B'00100100'
MOVWF TXSTA
BANKSEL PORTB
BSF RCSTA,SPEN
CLRF SAYAC
DONGU11
DECFSZ SAYAC,F
GOTO DONGU11;
MESAJ1
BSF PORTB,2
MOVLW H'31';"1"
GONDER1
MOVWF TXREG
BANKSEL TXSTA
VER_SONU_TEST1
BTFSS TXSTA,TRMT
GOTO VER_SONU_TEST1
BANKSEL PORTB
GOTO BASLA
BEKLE
MOVLW H'FF'
MOVWF SAYAC1
DONGU1
MOVLW H'FF'
MOVWF SAYAC2
DONGU2
DECFSZ SAYAC2,F
GOTO DONGU2
DECFSZ SAYAC1,F
GOTO DONGU1
RETURN
GOTO BASLA
END