trama
bsf TXSTA,TX9D ; 0x01 + 1 = Paridad Par
movlw 0x01
call tx_dato ;Mueve 0x01 a TXREG
call retardo_min
bcf TXSTA,TX9D ; 0x84 + 0 = Paridad Par
movlw 0x84 ;10000100
call tx_dato
call retardo_min
bsf TXSTA,TX9D ; 0x7A + 1 = Paridad Par
movlw 0x7A ;01111010
call tx_dato
call retardo_min
bsf TXSTA,TX9D ; 0x61 + 1 = Paridad Par
movlw 0x61 ;01100001
call tx_dato
call retardo_min
bcf TXSTA,TX9D ; 0xC5 + 0 = Paridad Par
movlw 0xC5 ;11000101
call tx_dato
call retardo_min
bcf TXSTA,TX9D ; 0xA4 + 0 = Paridad Par
movlw 0xA4 ;10100100
call tx_dato
call retardo_min
bcf TXSTA,TX9D ; 0x84 + 0 = Paridad Par
movlw 0x84 ;10000100
call tx_dato
call retardo_min
bsf TXSTA,TX9D ; 0x03 + 0 = Paridad Par
movlw 0x03 ;00000011
call tx_dato
goto ret1min