PARIDAD
CLRF BitPari ; Se pone en 0 bit de paridad
; Bit 0
BTFSC Recibido,0 ; Si [7|6|5|4|3|2|1|(0)] es 0 No Se cambia
BSF BitPari,0 ; Si es 0 Se Cambia
; Bit 1
RRF Recibido,1 ; Desplazo a la derecha [X|7|6|5|4|3|2|(1)]
MOVFW Recibido
XORWF BitPari,1
; Bit 2
RRF Recibido,1 ; Desplazo a la derecha [X|X|7|6|5|4|3|(2)]
MOVFW Recibido
XORWF BitPari,1
; Bit 3
RRF Recibido,1 ; Desplazo a la derecha [X|X|X|7|6|5|4|(3)]
MOVFW Recibido
XORWF BitPari,1
; Bit 4
RRF varia2,1 ; Desplazo a la derecha [X|X|X|X|7|6|5|(4)]
MOVFW Recibido
XORWF BitPari,1
; Bit 5
RRF varia2,1 ; Desplazo a la derecha [X|X|X|X|X|7|6|(5)]
MOVFW Recibido
XORWF BitPari,1
; Bit 6
RRF varia2,1 ; Desplazo a la derecha [X|X|X|X|X|X|7|(6)]
MOVFW Recibido
XORWF BitPari,1
; Bit 7
RRF varia2,1 ; Desplazo a la derecha [X|X|X|X|X|X|X|(7)]
MOVFW Recibido
XORWF BitPari,1
; Almacenaniento el bit de paridad
BCF TXSTA,0
BTFSC BitPari,0
BSF TXSTA,0
RETURN