Agilent Technologies 8719ES, Programmer'S Manual

Page: 463 / 541

7-100 Chapter 7
Programming Examples
List-Frequency and Limit-Test Table Examples
Running the Program
NOTE This program assumes a response calibration (through calibration) or a full
2-port calibration has been performed prior to running the program.
Set up a limit-test table on channel 1 for a specific device either manually, or using the
program in Example 6D.
Run the program, and enter the number of passed sweeps desired for qualification. After
entering the qualification number, connect the device. When a sweep passes, the computer
beeps. When enough consecutive sweeps qualify the device as “passing,” the computer
emits a dual-tone beep to attract the attention of the operator, and then prompts for a new
device.
To test the program's pass/fail accuracy, try causing the DUT to fail by loosening the cables
connecting the DUT to the analyzer and running the program again.
BASIC Program Listing
10 ! This program demonstrates Pass/Fail tests using limit lines. The
20 ! program uses the latch-on-fail limit bits in event status register
30 ! B to determine if the device performance passes the specified test
40 ! limit lines. It then requires that the device passes for multiple
50 ! consecutive sweeps in order to ensure that the device is static in
60 ! the response and not varying. The operator specifies how many sweeps
70 ! are required to pass the test.
80 !
90 ! EXAMP6E
100 !
110 ASSIGN @Nwa TO 716 ! Assign an I/O path for the analyzer
120 !
130 CLEAR SCREEN
140 ! Initialize the analyzer No preset to retain settings for testing
150 ABORT 7 ! Generate an IFC (Interface Clear)
160 CLEAR @Nwa ! SDC (Selected Device Clear)
170 !
180 INPUT “Number of consecutive passed sweeps for qualification?”,Qual
190 Pass=0 ! Initialize pass counter on entry
200 !
210 Tune: DISP “TUNE DEVICE AS NECESSARY” ! Device is not passing warning
220 !
230 Measure:OUTPUT @Nwa;”OPC?;SING;” ! Single sweep and wait
240 ENTER @Nwa;Reply ! Read the 1 when completed
250 !
260 OUTPUT @Nwa;”ESB?;” ! Event status register B byte
270 ENTER @Nwa;Estat ! Reading byte clears the register
280 !
290 IF BIT(Estat,4) THEN ! Bit 4 is failed limit on channel 1
300 IF Pass>0 THEN BEEP 1200,.05 ! passed before? Now not passing beep
310 Pass=0 ! Reset pass to 0
320 GOTO Tune ! Adjust and measure again
330 END IF
340 !
350 BEEP 2500,.01 ! Limit test passed passing beep
360 Pass=Pass+1 ! Increment number of passes
370 DISP “LEAVE DEVICE ALONE” ! Warn not to adjust as it passed