PBP KODLARINDA PROBLEM

[POWER]

İyi çalışmalar

'------------------------------------DENEME-------------------------------------
TRISA = %00001111 
TRISB = %00000000 
PORTA=0
PORTB=0

SURE    VAR WORD 
SURE1   VAR WORD
A       VAR BIT
B       VAR BIT
A=0
B=0
   
MAIN:
'-------------------------------------------ON----------------------------------    
    if (PORTB.5=0)AND(PORTB.7=0) THEN 
    IF PORTA.0=0 THEN
    HIGH PORTB.4
    ELSE 
    LOW PORTB.4
    ENDIF
    ENDIF  
    
    if PORTA.0=0 and A=0 then 
             A   =1 
             SURE=0 
          while PORTA.0=0 and SURE <2000
             SURE=SURE+1 
             pause 1
          wend 
    if SURE=2000 then  LEDYAN
          ENDIF 
    if PORTA.0=1 and A=1 then A=0
      
'------------------------------------------OFF----------------------------------    
    if (PORTB.5=1)AND(PORTB.7=0) THEN     
    IF PORTA.1=0 THEN
    HIGH PORTB.4
    ELSE 
    LOW PORTB.4    
    ENDIF
    ENDIF
   
    if (PORTB.5=0)AND(PORTB.7=1) THEN 
    IF PORTA.1=0 THEN
    HIGH PORTB.4
    ELSE 
    LOW PORTB.4    
    ENDIF
    ENDIF 
   
 
    if PORTA.1=0 and A=0 then 
              A  =1 
             SURE=0 
          while PORTA.1=0 and SURE <2000
             SURE=SURE+1 
             pause 1
          wend 
   
    IF SURE=2000 THEN LEDSON
          ENDIF
   
    if PORTA.1=1 and A=1 then A=0
'------------------------------------ROLE ENERJİLİ------------------------------ 
     if (PORTB.5=1)AND(PORTB.7=0) THEN
     if PORTA.2=0 and B=0 then 
             B    =1 
             SURE1=0 
          while PORTA.2=0 and SURE1 <5000
             SURE1=SURE1+1 
             pause 1
          wend 
    IF SURE1=5000 THEN SON
          ENDIF
          ENDIF
    if PORTA.2=1 and B=1 then B=0
'------------------------------------ROLE ENERJİSİZ-----------------------------
   IF PORTA.3=0 THEN YAN
          
          goto MAIN
     

LEDYAN:
    HIGH PORTB.6
    HIGH PORTB.5
      GOTO MAIN
         
LEDSON:
    LOW PORTB.6
    LOW PORTB.7
    LOW PORTB.5  
      GOTO MAIN


YAN:
    LOW PORTB.7
    HIGH PORTB.5
      GOTO MAIN
     

SON:
    HIGH PORTB.7 
    LOW PORTB.5 
      GOTO MAIN
      END

Vermiş olduğum kodlar ısısta normal çalışmasına rağmen gerçek uygulamasında bir yerde hata veriyor.Hatası şu:
sw-spdt  anahtarı, role enerjili konumda iken, on tuşuna bir müddet basılı tutularak cihaz çalışıyor ve yeşil led yanıyor. 5 saniye sonra yeşil led sönerek sarı led yanıyor.Buraya kadar normal.Sonra off tuşuna bir müddet basılarak cihaz kapatılıyor.Tekrar on tuşuna basılarak cihaz çalıştırılıyor  yeşil led yanıyor.İşte bundan sonra 5 saniye sonra sarı ledin yanması gerekiyor.Kurduğum devrede sarı led yanmıyor.İlk seferde yanıyor ikinci seferde yanmıyor.Oysaki ısıs ta sorun yok.Kurduğum devreyide çok inceledim bir sorun gözükmüyor.Sorun yazılımla ilgili herhalde ama çözemedim.Yardımcı olursanız sevinirim.Tüm dosyaları linkten indirebilirsiniz. Kodların görüntülenmesinde sorunlar var.Orijinal dosyalara bakabilirseniz uygun olur.KOLAY GELSİN
http://groups.yahoo.com/group/PicProjeUP3/files/POWER][code]

[dr_f]

Dostum, isis de yaptığın devre seninde söylediğin gibi çalışıyor. İsisteki bu normal çalışma bana kodlarda bir hatanın olduğunu düşündürmüyor. Aklıma gelen pic programlamada fuse lerin default değerleri. Bunlardan watch dog=disable , power - up timeri=enable yapıp deneyebilirmisin?
Kolay gelsin...