Que tal mi pana!
Vamos a ver en tu programa
DEFINE OSC 3
rsio var PortB.7
datos var byte [10]
i var byte
datos[0]=0
datos[1]=1
datos[2]=2
datos[3]=3
datos[4]=4
datos[5]=5
datos[6]=6
datos[7]=7
datos[8]=8
datos[9]=9
for i=0 to 8
serout rsio, 2, [dato[ i ]]
next i
Debes colocar datos[0]="1" , datos[2]="2", datos[3]="3" y asi sucesivamente, para que te envie la representacion ascci de cada numero, sino le colocas las comillas ("
entonces la computadora recibira los caracteres que de acuerdo a la tabla ascii son caracteres no imprimibles y se usan para darles ciertos comandos que la computadora debe ejecutar, por eso es que no te aparece nada en la computadora.
Si quieres enviarles a la computadoras datos que no esten en ascii debes utilizar los caracteres que estan en la tabla ascii para poderlos vizualizar en la pantalla por ejemplo:
dato[0]=72, dato[1]=79, dato[2]=76, dato[3]=65 y te mostrara en la pantalla de la pc la palabra HOLA, como vez es bastante sencillo.
Otra cosita en el lazo for i=0 to 8 deberia ser for i=0 to 9.
tabla ascii aqui:
http://www.lookuptables.com/serin2 te permite enviar todos los datos de una manera mas rapida, por ejemplo:
serin2 portb.0,84,[str dato] envia por el puertob.0 a 9600 bps el contenido de la variable tipo arrays llama datos ( datos[0]... datos[9] )
Saludos.