Fluke 225C Programming Reference Manual page 73

'
'
nb = nb * 256
nb = nb + ASC(MID$(Resp$, Resp.Count + 1, 1))
END IF
exponent(3) = ASC(MID$(Resp$, Resp.Count + 2, 1))
YXvalue#(3) = nb
Resp.Count = Resp.Count + 3
'*****
'* Further calculation after 'Signed.Samples' determination
'*****
'***** 3 bytes <x_resolution> = <mantissa_high><mantissa_low><exponen
'***** <mantissa> = <mantissa_high> * 256 + <mantissa_low>
'***** <x_resolution> = <sign><mantissa> E <sign><exponent>
'*****
FOR i = 0 TO 2
SumCheck1% = (SumCheck1% + ASC(MID$(Resp$,Resp.Count+i,1))) MOD 2
NEXT i
nb = ASC(MID$(Resp$, Resp.Count, 1))
IF nb >= 128 THEN
nb = - (256 - nb) * 256
nb = nb + ASC(MID$(Resp$, Resp.Count + 1, 1))
ELSE
nb = nb * 256
nb = nb + ASC(MID$(Resp$, Resp.Count + 1, 1))
END IF
exponent(4) = ASC(MID$(Resp$, Resp.Count + 2, 1))
YXvalue#(4) = nb
Resp.Count = Resp.Count + 3
'*****
'* Further calculation after 'Signed.Samples' determination
'*****
'***** 3 bytes <y_at_0> = <mantissa_high><mantissa_low><exponent>
'***** <mantissa> = <mantissa_high> * 256 + <mantissa_low>
'***** <y_at_0> = <sign><mantissa> E <sign><exponent>
'*****
FOR i = 0 TO 2
SumCheck1% = (SumCheck1% + ASC(MID$(Resp$,Resp.Count+i,1))) MOD 2
NEXT i
nb = ASC(MID$(Resp$, Resp.Count, 1))
IF nb >= 128 THEN
nb = - (256 - nb) * 256
nb = nb + ASC(MID$(Resp$, Resp.Count + 1, 1))
ELSE
nb = nb * 256
nb = nb + ASC(MID$(Resp$, Resp.Count + 1, 1))
END IF
exponent(5) = ASC(MID$(Resp$, Resp.Count + 2, 1))
YXvalue#(5) = nb
Resp.Count = Resp.Count + 3
'*****
'* Further calculation after 'Signed.Samples' determination
'*****
'***** 3 bytes <x_at_0> = <mantissa_high><mantissa_low><exponent>
'***** <mantissa> = <mantissa_high> * 256 + <mantissa_low>
'***** <x_at_0> = <sign><mantissa> E <sign><exponent>
'*****
Page 3.50
'Positive value
Example: +123E-4 = 123 / 10000 = 0.0123
'Negative value
'Positive value
Example: +123E-4 = 123 / 10000 = 0.0123
'Negative value
'Positive value
Example: +123E-4 = 123 / 10000 = 0.0123