karaşimsek devresi kaydırmaları butonlo kotrol edilecek 16f877

[bilalmelih@]

LIST P=16F877
INCLUDE "P16F877.INC"
SAYAC1 EQU H'20'
SAYAC2 EQU H'21'
ORG H'00'
AYAR:
CLRF STATUS
BSF STATUS,5
MOVLW D'7'
MOVWF ADCON1
BSF TRISA,0
CLRF TRISB
CLRF TRISC
CLRF TRISD
CLRF STATUS
CLRF PORTB
CLRF PORTC
CLRF PORTD
CLRF SAYAC1
CLRF SAYAC2
MOVLW B'00000001'
MOVWF PORTB
CALL GECIKME
ANA:
BTFSS PORTA,0
GOTO ANA
KAB:
RLF PORTB,F
CALL GECIKME
BTFSS PORTB,7
GOTO ANA
DAS:
CLRF PORTB
MOVLW B'00000001'
MOVWF PORTC
CALL GECIKME
BAL:
BTFSS PORTA,0
GOTO BAL
SAD:
RLF PORTC,F
CALL GECIKME
BTFSS PORTC,7
GOTO SAD
DAD:
CLRF PORTC
MOVLW B'00000001'
MOVWF PORTD
FER:
BTFSS PORTA,0
GOTO FER
FEY:
RLF PORTD,F
CALL GECIKME
BTFSS PORTD,7
GOTO FEY
GAD:
BTFSS PORTA,0
GOTO GAD
ZA:
RRF PORTD,F
CALL GECIKME
BTFSS PORTD,0
GOTO ZA
ZAM:
CLRF PORTD
MOVLW B'10000000'
MOVWF PORTC
CALL GECIKME
BIL:
BTFSS PORTA,0
GOTO BIL
DAM:
RRF PORTC,F
CALL GECIKME
BTFSS PORTC,0
GOTO DAM
SAM:
CLRF PORTC
MOVLW B'10000000'
MOVWF PORTB
HET:
BTFSS PORTA,0
GOTO HET
DEL:
RRF PORTB,F
CALL GECIKME
BTFSS PORTB,0
GOTO DEL
GOTO ANA
GECIKME:
MOVLW D'20'
MOVWF SAYAC1
DON1:
MOVLW D'248'
MOVWF SAYAC2
DON2:
DECFSZ SAYAC2,F
GOTO DON2
DECFSZ SAYAC1,F
GOTO DON1
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
RETURN
END


yazdığım program bu fakat portc yi istediğimiz gibi olmuyo yardımlarınızı bekliyorum