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