ayuda para datos serie

[jose granados]

Necesito ayuda.Estoy intentando utilizar el BS2 para controlar una maqueta de trenes miniatura.He montado el circuito tal y como está en los experimentos 23 y 24 de StampWorks para mandar y recibir. Utilizo el mismo clock para los dos integrados, lo demás van a P1,2,3 y 4.Las salidas casi todas NO son led sino transistores que tendran algún retardo y las entradas será fotodiodos que masnejarán a los transistores de salida. Las salidas podrán activarse una o varias al mismo tiempo con una sola entrada.
El programa no soy capaz de que funcione,porque no sé como detectar un 1 en la posicion de 8 bit, y es aquí donde os pido ayuda por si me lo podeis  solucionar, ya que llevo varios dias y no doy con el programa.
Muchas gracias,

[javier igualador]

Vaya no me quedo muy depurado ayer, te lo copio sin el sbin que le ponía signo al dato y con un debug por columnas......


' {$STAMP BS2}

' {$PBASIC 2.5}


dato1 VAR Word

tramo2 VAR dato1.HIGHBYTE
tramo1 VAR dato1.LOWBYTE
semaforo1 VAR tramo1.BIT0
semaforo2 VAR tramo2.BIT0


DO
DEBUG CLS, "Aqui introduces el dato serie dato1 "
DEBUGIN BIN dato1
PAUSE 3000
DEBUG CLS,CRSRXY, 1, 0, "Dato1", CRSRXY, 1,2 ,BIN dato1
PAUSE 3000
DEBUG CRSRXY, 20, 0, "Tramo2", CRSRXY, 20,2 ,BIN tramo2
PAUSE 3000
DEBUG CRSRXY, 30, 0, "Tramo1", CRSRXY, 30,2 ,BIN tramo1
PAUSE 3000
DEBUG CRSRXY, 40, 0, "Semaforo1", CRSRXY, 40,2 ,BIN semaforo1
PAUSE 3000
DEBUG CRSRXY, 50, 0, "Semaforo2", CRSRXY, 50,2 ,BIN semaforo2
PAUSE 3000
LOOP