Fluke ScopeMeter 190 Series, Programming Reference Manual

Page: 79 / 120

’ Page 3.53
’
Resp.Count = Resp.Count + 1
PRINT "Signed.Samples = ";
PRINT #4, "Signed.Samples = ";
IF Signed.Samples = 1 THEN
PRINT "TRUE "; : PRINT #4, "TRUE"
ELSE
PRINT "FALSE "; : PRINT #4, "FALSE"
END IF
PRINT "Sample.Format = ";
PRINT #4, "Sample.Format = ";
IF MinMax.Samples = 0 THEN
PRINT "Single"
PRINT #4, "Single"
ELSEIF MinMax.Samples = 1 THEN
PRINT "Min/Max"
PRINT #4, "Min/Max"
ELSEIF MinMax.Samples = 2 THEN
PRINT "Min/Max/Ave"
PRINT #4, "Min/Max/Ave"
ELSE
PRINT "Unknown: "; OCT$(Sample.Format); " octal"
PRINT #4, "Unknown: "; OCT$(Sample.Format); " octal"
END IF
PRINT "Number of Sample.Bytes ="; Sample.Bytes
PRINT #4, "Number of Sample.Bytes ="; Sample.Bytes
’*****
’* Further calculation now that ’Signed.Samples’ is determined
’*****
FOR j = 1 TO 2
IF expscale(j) > 127 THEN ’Negative exponent
expscale(j) = 256 - expscale(j)
FOR i = 1 TO expscale(j)
YXscale#(j) = YXscale#(j) / 10
NEXT i
ELSE ’Positive exponent
FOR i = 1 TO expscale(j)
YXscale#(j) = YXscale#(j) * 10
NEXT i
END IF
NEXT j
Y.Scale = YXscale#(1)
X.Scale = YXscale#(2)
PRINT "<y_scale> ="; Y.Scale,
PRINT " <x_scale> ="; X.Scale
’
FOR j = 1 TO 6
IF exponent(j) > 127 THEN ’Negative exponent
exponent(j) = 256 - exponent(j)
FOR i = 1 TO exponent(j)
YXvalue#(j) = YXvalue#(j) / 10
NEXT i
ELSE ’Positive exponent
FOR i = 1 TO exponent(j)
YXvalue#(j) = YXvalue#(j) * 10
NEXT i