Fluke 225C Programming Reference Manual page 71

'
'
DIM exponent(6)
DIM YXvalue#(6)
'
'***** 3 bytes <y_zero> = <mantissa_high><mantissa_low><exponent>
'***** <mantissa> = <mantissa_high> * 256 + <mantissa_low>
'***** <y_zero> = <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(1) = ASC(MID$(Resp$, Resp.Count + 2, 1))
YXvalue#(1) = nb
Resp.Count = Resp.Count + 3
'*****
'* Further calculation after 'Signed.Samples' determination
'*****
'***** 3 bytes <x_zero> = <mantissa_high><mantissa_low><exponent>
'***** <mantissa> = <mantissa_high> * 256 + <mantissa_low>
'***** <x_zero> = <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(2) = ASC(MID$(Resp$, Resp.Count + 2, 1))
YXvalue#(2) = nb
Resp.Count = Resp.Count + 3
'*****
'* Further calculation after 'Signed.Samples' determination
'*****
'***** 3 bytes <y_resolution> = <mantissa_high><mantissa_low><exponen
'***** <mantissa> = <mantissa_high> * 256 + <mantissa_low>
'***** <y_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
Page 3.49
'Exponents for Y/X.Zero & Y/X.Resol & Y/X.At.0
'Values for Y/X.Zero & Y/X.Resol & Y/X.At.0
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
'Negative value