Agilent Technologies 8719ES, Programmer'S Manual

Page: 448 / 541

Chapter 7 7-85
Programming Examples
Analyzer System Setup Examples
• The learn string is read from the disk file and output to the analyzer.
• The calibration array is read in from the disk file and stored in the analyzer.
• The analyzer is returned to continuous-sweep mode.
• The analyzer is released from remote control and the program ends.
Running the Program
Setup the analyzer and perform a through calibration.
Run the program. The program prompts the operator to change the state of the analyzer
and then press
to continue. At this point, the analyzer state is stored on the disk
file in the controller. Pressing will begin the transfer from the disk file to internal
arrays within the controller and then on to the analyzer.
Once completed:
• The original state will be restored.
• The analyzer will be sweeping.
• The analyzer will be calibrated.
•
COR
will be displayed on the analyzer's display.
BASIC Program Listing
10 ! This program reads an instrument state and stores it in a disk file.
20 ! The learn string and CAL array are both read into the controller and
30 ! then transferred to a disk file for storage. The file contents are
40 ! then restored to the analyzer.
50 !
60 ! EXAMP5C
70 !
80 OPTION BASE 1
90 ASSIGN @Nwa TO 716 ! Assign an I/O path for the analyzer
100 ASSIGN @Nwa_bin TO 716;FORMAT OFF ! Assign a binary path
110 !
120 INTEGER Header,Str_len,Cal_len ! Integer 2 byte format for headers
130 !
140 CLEAR SCREEN
150 ! Initialize the analyzer
160 ABORT 7 ! Generate an IFC (Interface Clear)
170 CLEAR @Nwa ! SDC (Selected Device Clear)
180 !
190 OUTPUT @Nwa;”OPC?;SING;” ! Place analyzer in single sweep
200 ENTER @Nwa;Reply ! Read the 1 when complete
210 !
220 OUTPUT @Nwa;”OUTPLEAS;” ! Request learn string
230 ENTER @Nwa_bin;Header,Str_len ! Read header and length first
240 ALLOCATE INTEGER State(Str_len/2) ! Integer array to contain the string
250 ENTER @Nwa_bin;State(*) ! Read the string
260 !
270 ! Allocate an array for storing the CAL data
280 OUTPUT @Nwa;”POIN?;” ! Find number of points in trace
290 ENTER @Nwa;Num_points ! Read number to allocate array
300 ALLOCATE Cal_array(1:Num_points,1:2) ! Real and Imag for each point
310 !
320 ! Read Cal array
Enter
Enter