RECIBIR
BTFSS RX ;COMPRUEBA EL ARRANQUE DE LA COMUNICACION (DEFINIR RX COMO PIN DE RECEPCION)
GOTO SALIR (NO HAY COMUNICACION, CONTINUA CON EL PROGRAMA)
CALL DELAYME ;RETARDO DE MEDIO BIT PARA CONFIRMAR
BTFSS RX ;COMPRUEBA EL ARRANQUE, VERIFICA QUE NO SEA RUIDO
GOTO SALIR (FUE RUIDO)
CALL delay1 ;RETARDO DE UN BIT
RCVR1 MOVLW .8 ;CARGAR EL CONTADOR DE BITS
MOVWF CONTABIT ;PARA 8 BITS
RNEXT1 BCF STATUS,C ;BORRAR CARRY+
BTFSS RX ;rx;PREGUNTAR POR EL ESTADO DE LINEA
BSF STATUS,C ;ACTIVAR CARRY SI ESTA ALTO
RRF RECEP,1 ;ROTAR REGISTRO DE RECEPCION
CALL delay1 ;LLAMAR DEMORA NORMAL DE UN BIT
DECFSZ CONTABIT,1 ;DECREMENTAR CONTADOR,SALTA SI ES CERO
GOTO RNEXT1 ;REPETIR HASTA COMPLETAR EL DATO
MOVLW .48 ;<------ ESTO ES PARA PASAR DEL VALOR ASCII AL VALOR DECIMAL
SUBWF RECEP,W