The following programming converts binary data to
dBm.
10
20
30
40
50
60
70
80
90
100
110
120
130
140
150
160
170
180
190
200
210
220
! 859X binary data to real numbers
Sa=718
ASSIGN
(OSa,bin
TO Sa;FORMAT OFF
INTEGER
Trace-a(l:401)
OUTPUT
Sa;"AUNITS
DBM;"
OUTPUT
Sa*"RL?*"
ENTER
Sa;Ref-Ik
PRINT
Ref-lev
OUTPUT
Sa;"TDF
B;TRA?;"
ENTER
OSa-bin;Trace-a(*)
! now the spectrum analyzer has all the data
! to determine the measured trace data
REAL
Trace_a_real(l:401)
MAT Trace-a= Trace-a-(8000) ! Results in below ref
! level
MAT Trace-a-real=
Trace,a*(.Ol)!
now in hundredths of db
! below ref lev
MAT Trace-a-real=
Trace-a-real+(Ref-lev)
FOR
I=1
TO 401
PRINT Trace-a-real(I)
NEXT I
END
The following programming converts binary data to volts.
10
20
30
40
50
60
70
80
90
100
110
120
130
140
150
160
170
180
! 859X binary data to real numbers (linear)
Sa=718
ASSIGN
(QSa-bin
TO Sa;FORMAT OFF
INTEGER
Trace-a(l:401)
OUTPUT
Sa*"AUNITS
V*"
OUTPUT
SaI"RL?;"
'
ENTER
Sa;Ref-lev
Ref-lev-factor=Ref_lev/8000
OUTPUT
Sa;"TDF
B;TRA?;"
ENTER
OSa,bin;Trace,a(*)
! now the spectrum analyzer has all the data
! to determine the measured trace data
REAL
Trace,a,real(l:401)
MAT Trace-a-real=
Trace-a*(Ref,lev,factor)
FOR
I=1
TO 401
PRINT Trace-a-real(I)
NEXT I
END
Programming Topics
3-23