function A=twoscomp16(B)

C=B(2)*256+B(1);

if C>32767
    C=C-65536;
end

A=C;