function [Vmon, Imon, err] = BK_ReadVandI(sp)

PACKET_LENGTH = 26;
LoadCmdPacket = zeros(1,PACKET_LENGTH);
LoadCmdPacket(1:4)  = [ hex2dec('aa') 00 hex2dec('5f') 00];
LoadCmdPacket(end) = rem(sum(LoadCmdPacket(1:end-1)),256);  %Compute checksum
fwrite(sp,LoadCmdPacket);
 A = fread(sp,PACKET_LENGTH);
if(length(A) == PACKET_LENGTH)
  Vmon = double(typecast(uint8(A(4:7)), 'uint32'))/1000;
  Imon = double(typecast(uint8(A(8:11)), 'uint32'))/10000;
  err = 0;
else
  err = 1;
  Vmon = -1;
  Imon = -1;
end
 
 
end
