Gostaria que o pessoal verificassem o porque a chave RA4 não desliga o BUZZER,estou rancando cabelos para entender,resolvi parar e perguntar,pois do contrario ficarei sem um fio de cabelo.À proposito estou com saudades dos amigos"Fabin e do Lellis,e aproveito falar que a foto antiga do Fabin era mais legal do que a nova foto.Aproveito e colo o meu projeto para que alguem ai me ajude.Já ia me esquecendo o PIC é o
16F628A,e a chave liga é o RA7,sendo RA6 saida do BUZZER.
Desde já um forte abraço a todos.
;* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
;* ROTINA PRINCIPAL *
;* DIGITE O SEU PROGRAMA ENTRE: MAIN E END *
;* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
MAIN
BCF BUZZER ;DESLIGA
TESTA_LIGA
BTFSC LIGA
GOTO LIGA_BUZZER
TESTA_DESLIGA
BTFSC DESLIGA
GOTO DESLIGA_BUZZER
GOTO MAIN
LIGA_BUZZER
BUZZER_ON
BSF BUZZER
CALL DELAY_05MS
DESLIGA_BUZZER
BUZZER_OFF
BCF BUZZER
CALL DELAY_05MS
GOTO LIGA_BUZZER
DELAY_05MS
CARREGA_T1
MOVLW .125
MOVWF TEMPO1
DEC_T1
NOP
DECFSZ TEMPO1,F
GOTO DEC_T1
RETURN
END ;FIM DO PROGRAMA
;* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
