#include "p16f887.inc"
; CONFIG1
; __config 0xEFC4
__CONFIG _CONFIG1, _FOSC_INTRC_NOCLKOUT & _WDTE_OFF & _PWRTE_ON & _MCLRE_OFF & _CP_OFF & _CPD_OFF & _BOREN_ON & _IESO_ON & _FCMEN_ON & _LVP_OFF
; CONFIG2
; __config 0xFFFF
__CONFIG _CONFIG2, _BOR4V_BOR40V & _WRT_OFF
REGISTROS UDATA 0X0020
INICIO
BANKSEL TRISA
BCF TRISA, RA0
BCF TRISA, RA1
BCF TRISA, RA2
BSF TRISB, RB0
BSF TRISB, RB1
BSF TRISB, RB2
BSF TRISB, RB3
BSF TRISB, RB4
BSF TRISB, RB5
BSF TRISB, RB6
BSF TRISB, RB7
BSF TRISA, RA3
BSF TRISA, RA4
BANKSEL ANSEL
CLRF ANSEL
BANKSEL ANSELH
CLRF ANSELH
GOTO BUCLE
BUCLE
MOVF TRISB, W
ADDWF W
MOVWF TRISA, RA3
NOP
SUBLW 7
XORWF TRISA, RA3
BTFSS TRISA, RA3
GOTO CONDICION1
GOTO CONDICION2
CONDICION1
MOVLW 1
MOVWF TRISA, RA1
END