Marqués: probé con el cambio de modo pero me trae problemas con ciertas subrutinas como vos bien me avisaste.Hoy, volví a intentar con el serin2 y serout2 y me día cuenta que uno de los problemas radicaba en que no había hecho el cálculo para 4800 invertido, en lugar de escribir 16572 puse 188 -anoche soñe con esto, me parece que voy a jugarle a la lotería-.
Mil gracias Ricky por la tabla, con ella pude resolver parte del problema que tengo. Y con el link que me pasaste voy a ver si puedo resolver la parte 2 del problema, que se las comento:
Ahora el tema pasa por leer los datos en hexa. Quiero leer 8 palabras pero no se da ni por enterado el pic.
Este un programita de prueba que estoy usando para experimentar con estas sentencias:
define osc 3
j var byte
dat var byte[8]
low portb.3
Leer: for j=0 to 7
serin2 portB.1,16572,[hex dat[j]]
´si le sacás la palabra hex funciona, pero en el programa original necesito que lea y compare datos en hex
next j
if dat[0]=dat[7] then
high portB.3
low portB.5
else
high portB.5
low portB.3
endif
goto leer
end
Muchas Gracias y Saludos, Walter
