Tek butonla led yakıp söndürme nasıl yapabilirim

[murat torun]

TRISA=255
TRISB=0
PORTB=0


BASLA:
IF PORTA.0=1 THEN YAK
GOTO BASLA

YAK:
TOGGLE PORTB.0

SON:
IF PORTA.0=0 THEN BASLA
GOTO SON
END



kardeş bende bu işte yeniyim ama umarım yardımcı olmusumdur