; Extracts a 2-byte word
function eis_extract_word, dataArray, offset, startBit, numBits
    return, uint(reform(ishft(fix(dataArray[offset, *]), 8) or fix(dataArray[offset + 1, *])))
end