Pic 16f84a ile led yakma

[erolcom06]

Merhaba arkadaşlar pic ile tek button led yakma yapmak istiyorum yardımcı olurmusunuz?
Buttona basıldığında led yanacak buttona basıldığında led sönecek bu şekilde çalışacak basıc dilinde olcak
teşekkürler

 

[zenze]

Basla:
if porta.0 = 1 then yak 'buton
goto basla
yak:
while porta.0 = 1 :wend 'butondan parmağını çekmeni bekliyor
porta.1 = 1 'çıkış
if porta.0 = 1 then sondur
goto yak
sondur:
while porta.0 = 1 :wend 'butondan parmağını çekmeni bekliyor
porta.1 = 0
goto basla
end

porta.0 buton
porta.1 led

porta.0 pull down
farklı şekillerde de yapılabilir bu saat te aklıma ilk gelen bu

 

[erolcom06]

Başka fikri olan?

 

[zenze]

Benim fikrimin nesini beğenmedin ?

 

[arci]

trsia = 1
porta=1
cmcon=7
basla:


if porta.0 = 1 then basla


toggle porta.1
while porta.0 = 0
wend
goto basla

 

[zenze]

başlangıç tanımlamalarında sıkıntı var ama bu kod daha ii

 

[erolcom06]

Basla:
if porta.0 = 1 then yak 'buton
goto basla
yak:
while porta.0 = 1 :wend 'butondan parmağını çekmeni bekliyor
porta.1 = 1 'çıkış
if porta.0 = 1 then sondur
goto yak
sondur:
while porta.0 = 1 :wend 'butondan parmağını çekmeni bekliyor
porta.1 = 0
goto basla
end

porta.0 buton
porta.1 led

porta.0 pull down
farklı şekillerde de yapılabilir bu saat te aklıma ilk gelen bu

Hata nerde?
LIST P=16F84
INCLUDE "P16F84.INC"
SAYAC1 EQU H'OC'
SAYAC2 EQU H'OD'
BSF STATUS,5
CLRF TRISA
BCF STATUS,5
CLRF PORTA
BASLA
IF PORTA.0
GOTO BASLA
YAK:
WHILE PORTA.0
PORTA1
GOTO BASLA
END