Reading a 8bit Binary word

[Dwayne]

Hello Moz,

Ok, now we have parallel to Parallel with a dinner table as a translator.
Here is a untested but probably very close working program you are looking for I think...

Dwayne

TRISA="11111111" 'set Porta to all input...8 bit
TRISB="00000000" 'set Portb to all output...8 bit.
ReadData var byte
HoldData var byte
TranslateData var byte
Counter var byte


MainLoop:
ReadData=Porta
If ReadData!=HoldData then Gosub TableLookup
HoldData=ReadData
Goto MainLoop

TableLookup:
Counter=0
Loop2:
Read Counter,Holddata 'read table
if Holdata=$FF then Goto MainLoop 'bad data
If Holddata=ReadData then goto TransmitPortb 'MATCH!!!
Counter=Counter+2 'Must skip every other byte for table!
GotoLoop2


TransmitPortb:
Read Counter+1, HoldData 'reads Translated value
Portb=Holddata 'outputs to portb
Return
End