![](http://pdfasset.owneriq.net/1/e8/1e8c0b0a-9cfc-48a8-9d2e-7c70ebe9ad1d/1e8c0b0a-9cfc-48a8-9d2e-7c70ebe9ad1d-bg4c.png)
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