Decoding serial data bytes and nibbles.

[Dave]

'another way....
indata var byte[15] 'assuming byte 14 is most significant
dataword var word[10] 'assuming word 9 is most significant
outpointer var byte
inpointer var byte

outpointer = 0
while outpointer < 10
inpointer = 0
while inpointer < 12
dataword.0((outpointer * 12) + inpointer) = indata.0((outpointer * 12) + inpointer)
inpointer = inpointer + 1
wend
outpointer = outpointer + 1
wend