Karaşimşek devresi sağdan ikişer

[VolkanKalemler]

bu program la normal karaşimşek devresi çalışmaktadır.ben soldan tek tek giden ama sağdan sola döndüğünde ikişer ikişer giden bir devre yapmak istiyorum hangi kodu ve kodları değiştirmeliyim şuan program doğru şekilde çakışmaktadır.

        LIST        P=16F84           
        INCLUDE        "P16F84.INC"       
SAYAC1        EQU        h'0C'           
SAYAC2        EQU        h'0D'           
        CLRF        PORTB           
        BSF        STATUS,5       
        BCF        STATUS,0       
        CLRF        TRISB           
        BCF        STATUS,5           
        MOVLW        h'01'           
        MOVWF        PORTB           
SOL
        CALL        GECIKME               
        RLF        PORTB,F           
        BTFSS         PORTB,7           
        GOTO        SOL           
SAG
        CALL        GECIKME               
        RRF         PORTB,F                   
        BTFSS        PORTB,0               
        GOTO        SAG                   
        GOTO        SOL           
GECIKME        MOVLW         h'FF'               
        MOVWF        SAYAC1                                               
DONGU1        MOVLW        h'FF'                           
        MOVWF        SAYAC2           
DONGU2        DECFSZ        SAYAC2,F       
        GOTO           DONGU2           
        DECFSZ        SAYAC1,F       
        GOTO         DONGU1               
        RETURN                   
        END