'************************************************* ***************
'* Name : UNTITLED.BAS *
'* Author : David Purola *
'* Notice : Copyright (c) 2018 Tronex Products *
'* : All Rights Reserved *
'* Date : 1/17/2018 *
'* Version : 1.0 *
'* Notes : *
'* : *
'************************************************* ***************
indata var byte[15] 'assuming byte 14 is most significant
dataword var word[10] 'assuming word 9 is most significant
outpointer var byte

outpointer = 0
while outpointer < 10
select case outpointer
case 9
dataword(outpointer) = (indata(14) << 4) + (indata(13) & $f0)
case 8
dataword(outpointer) = ((indata(13) & $0f) << 8) + indata(12)
case 7
dataword(outpointer) = (indata(11) << 4) + (indata(10) & $f0)
case 6
dataword(outpointer) = ((indata(10) & $0f) << 8) + indata(9)
case 5
dataword(outpointer) = (indata(8) << 4) + (indata(7) & $f0)
case 4
dataword(outpointer) = ((indata(7) & $0f) << 8) + indata(6)
case 3
dataword(outpointer) = (indata(5) << 4) + (indata(4) & $f0)
case 2
dataword(outpointer) = ((indata(4) & $0f) << 8) + indata(3)
case 1
dataword(outpointer) = (indata(2) << 4) + (indata(1) & $f0)
case 0
dataword(outpointer) = ((indata(1) & $0f) << 8) + indata(0)
end select
outpointer = outpointer + 1
wend