Remote Operation
Manual 20791, Rev. C, June 2001 3-5
Typical HP-Basic Program for Swept Measurements
100 ! ***********************************************************
110 ! 8003 Swept Measurement Demonstration Program
120 ! HP300 Series Version
130 ! Copyright 2001, Giga-tronics Power Measurements Division
140 ! ***********************************************************
150 !
160 OPTION BASE 1! arrays start with index of 1
170 DIM Data array(512)! allocate storage for swept data
180 !
190 Status=SPOLL(704)! use serial poll to clear any existing srq s
200 CLEAR 704! Device Clear does a PRESET on the 8003
210 !
220 ! Set up analyzer channel configuration first
230 !
240 OUTPUT 704;SWP 1,A;on;meas! channel 1 is in swept mode, sensor A
250 ! and reads in absolute units
260 OUTPUT 704;SWP 2,B;on;meas! channel 2 is in swept mode, sensor B
270 ! and reads in absolute units
280 OUTPUT 704;CHAN 3;off;CHAN 4;off! turn off channels 3 and 4
290 !
300 ! Now, set up the sweeper parameters
310 !
320 OUTPUT 704;SWPF;start 2000;stop 8000;level 10;swpt 500
330 ! Set start frequency 2 GHz, stop frequency 8 GHz,
340 ! output level +10 dBm, and sweep time 500 ms/sweep
350 OUTPUT 704;SWPF;level on! turn on RF output
360 WAIT 8! put in appropriate wait time for sweeper to set up
370 !
380 ! These next lines set up display format but are not strictly
390 ! necessary for data collection over the bus
400 !
410 OUTPUT 704;GRAPH ! graph display mode
420 OUTPUT 704;SWP 1;scale 1;ref pos 0;ref lev 10 ! scale channel 1
430 OUTPUT 704;SWP 2;scale 5;ref pos 0;ref lev 0 ! scale channel 2
440 !
450 ! Zero sensor A before taking a reading
460 !
470 ENABLE INTR 7;2! enable interrupts from instrument srq s
480 ON INTR 7 GOTO Done zeroa! exit when zeroing done
490 OUTPUT 704;ZERO A;srq! zero sensor A, pull srq when done
500 Loop1: GOTO Loop1! Wait until srq (or do other tasks)
510 Done zeroa: Status=SPOLL(704)! clear srq with serial poll
520 !
530 ! Take a reading
540 !
550 WAIT 4 ! put in time to make sure sweeper is settled
560 OUTPUT 704;OUTPUT 1;items 512 ! read 512 swept data points
570 ENTER 704;Data array(*)
580 PRINT Data array(*)
590 !
600 END
To Next Page
Loading...
