Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- ;-----Función que administra el manejo de los botones-----------------------------------------------------------------------------
- BOTONAZO
- BTFSC PORTA,0
- GOTO botonuno
- BTFSC PORTA,1
- GOTO botondos
- BTFSC PORTA,2
- GOTO botontres
- ; BTFSC PORTA,3
- GOTO botoncuatro
- botonuno:
- BTFSS PORTB,5 ; Se analiza si el botón está presionado
- GOTO levanto ; Si no está presionado, se indica en la bandera
- BTFSC BANDEROLA,1 ; Si está presionado, se analiza el estado anterior de la bandera
- RETURN ; Si estaba presionado, no se hace nada
- BSF BANDEROLA,1 ; Si no estaba presionado, se aumentan los contadores
- CALL INC_HORAS
- RETURN
- levanto:
- BCF BANDEROLA,1 ; Se indica que en el poleo anterior el botón no estaba presionado
- RETURN
- botondos:
- BTFSS PORTB,5 ; Se analiza si el botón está presionado
- GOTO levanto2 ; Si no está presionado, se indica en la bandera
- BTFSC BANDEROLA,2 ; Si está presionado, se analiza el estado anterior de la bandera
- RETURN ; Si estaba presionado, no se hace nada
- BSF BANDEROLA,2 ; Si no estaba presionado, se aumentan los contadores
- MOVLW d'8'
- SUBWF DESPLAZAMIENTO,0
- BTFSC STATUS,Z
- GOTO devuelta
- MOVLW d'4'
- ADDWF DESPLAZAMIENTO,1
- RETURN
- devuelta:
- CLRF DESPLAZAMIENTO
- RETURN
- levanto2:
- BCF BANDEROLA,2 ; Se indica que en el poleo anterior el botón no estaba presionado
- RETURN
- botontres:
- RETURN
- botoncuatro:
- RETURN
- ;--------------------------------------------------------------------------------------------------------------------------------
- ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Add Comment
Please, Sign In to add comment