Pic Projem Yardımmm.İşin içinden çıkamadım.

[R10!]

arkadaşlar pic projem var.Acil bir şekilde teslim etmem lazım.Onla uğraşıyorum ama bazı döngüleri ayarlayamadım tam.Bana yardımcı olabilecek olan var mı acaba?
Projem 4 butonlu DC motor hız kontrolü sağlamak.(PWM ile)
1. buton motoru başlatıyor(burayı PWM50 ile motoru %50 çalıştırdım)
2. buton motoru hızlandırıyor.(ilk bastığında bu butona PWM75 ile %75e çıksın motor hızı sonra ikinci kere aynı butona bastığında PWM100 olarak çalışssın olarak yazdım kodu fakat burda ikinci kez bastığımda motor %100 olarak çalışmıyor hala %75 olarak çalışıyor.Döngüyü mü sağlayamadım anlayamadım)
3.buton motoru yavaşlatıyor(ilk bastığımda PWM25 ile %25e insin motor hızı dedim aynı butona tekrar basıldığında motor %10 hızda çalışsın istedim fakat yine ikinci kez bastığımda komut işlemedi ve %25 olarak çalışmaya devam etti.
4. buton ise stop butonu.
sıkıntı yaşadığım yerleri yazdım bana yardımcı olabilecek varsa sevinirim.
yazdığım kodu alta yazıyorum.İlginize Teşekkürler şimdiden.

LIST P=16F877A
INCLUDE "P16F877A.INC"
DARBE EQU h'20'
DARBE1 EQU h'21'
DARBE2 EQU h'22'
DARBE3 EQU h'23'
DARBE4 EQU h’24’
BEKLE EQU h'25'
BEKLE1 EQU h'26'
BEKLE2 EQU h'27'
BEKLE3 EQU h'28'
BEKLE4 EQU h’29’
SAYAC EQU h'30'
SAYAC1 EQU h’31’
SAYAC2 EQU h’32’
SAYAC3 EQU h’33’

CLRF PORTB
BSF STATUS,5
CLRF TRISB
MOVLW h'FF'
MOVWF TRISD
BCF STATUS,5

START
BTFSS PORTD,0
GOTO JUMP1
GOTO PWM50
JUMP1
BTFSS PORTD,1
GOTO JUMP2
GOTO PWM75
JUMP2
BTFSS PORTD,2
GOTO JUMP3
GOTO PWM25
JUMP3
BTFSS PORTD,3
GOTO START
CLRF PORTB
GOTO START

PWM50
MOVLW h'80'
MOVWF DARBE1
MOVLW h'80'
MOVWF BEKLE1
BSF PORTB,0
MOVF DARBE1,W
CALL DELAY
BCF PORTB,0
MOVF BEKLE1,W
CALL DELAY
GOTO SPEEDTEST

PWM75
MOVLW h'C0'
MOVWF DARBE2
MOVLW h'40'
MOVWF BEKLE2
BSF PORTB,0
MOVF DARBE2,W
CALL DELAY
BCF PORTB,0
MOVF BEKLE2,W
CALL DELAY
GOTO SPEEDTEST1

PWM25
MOVLW h'40'
MOVWF DARBE
MOVLW h'C0'
MOVWF BEKLE
BSF PORTB,0
MOVF DARBE,W
CALL DELAY
BCF PORTB,0
MOVF BEKLE,W
CALL DELAY
GOTO SPEEDTEST2

PWM10
MOVLW h'1A'
MOVWF DARBE3
MOVLW h'D6'
MOVWF BEKLE3
BSF PORTB,0
MOVF DARBE,W
CALL DELAY
BCF PORTB,0
MOVF BEKLE,W
CALL DELAY
GOTO SPEEDTEST2

PWM100
MOVLW h'FF'
MOVWF DARBE4
MOVLW h'00'
MOVWF BEKLE4
BSF PORTB,0
MOVF DARBE,W
CALL DELAY
BCF PORTB,0
MOVF BEKLE,W
CALL DELAY
GOTO SPEEDTEST1

SPEEDTEST
BTFSS PORTD,1
GOTO YAVASLAMA
GOTO PWM75
YAVASLAMA
BTFSS PORTD,2
GOTO DURMA
GOTO PWM25
DURMA
BTFSS PORTD,3
GOTO PWM50
CLRF PORTB
GOTO START

SPEEDTEST1
BTFSS PORTD,1
GOTO ATLA
GOTO PWM100
ATLA
BTFSS PORTD,0
GOTO YAVASLAMA1
GOTO PWM50
YAVASLAMA1
BTFSS PORTD,2
GOTO DURMA1
GOTO PWM25
DURMA1
BTFSS PORTD,3
GOTO PWM75
CLRF PORTB
GOTO START

SPEEDTEST2
BTFSS PORTD,2
GOTO ATLA1
GOTO PWM10
ATLA1
BTFSS PORTD,0
GOTO HIZLANMA
GOTO PWM50
HIZLANMA
BTFSS PORTD,1
GOTO DURMA2
GOTO PWM75
DURMA2
BTFSS PORTD,3
GOTO PWM25
CLRF PORTB
GOTO START

DELAY
MOVWF SAYAC
DONGU
DECFSZ SAYAC,F
GOTO DONGU
RETURN
END