Giga-tronics 8003 - Page 185

Remote Operation
Manual 20791, Rev. C, June 2001 3-43
Fast-CW Mode Programming Example
10 !**********************************************************
20 ! PROGRAM TO DEMONSTRATE MEASUREMENT SPEED OF
30 ! GIGA-TRONICS 8003 PRECISION SCALAR ANALYZER RUNNING IN
40 ! fast-cw MODE.
50 ! COPYRIGHT 2001 GIGA-TRONICS INC.
60 !
70 ! This program assumes:
80 ! 1) Analyzer at GPIB address 4
90 ! 2) Sweeper in CW mode and set to desired power level
100 ! 3) Sensor plugged into A input and connected to sweeper output
110 !
120 !************************************************************
130 !
140 OPTION BASE 1! All arrays start at index 1
150 INTEGER Maxcount,Counter
160 !
170 CLEAR 704 ! Send device clear to preset the analyzer
180 !
190 OUTPUT 704;READOUT! Numeric screen format
200 OUTPUT 704;POWER 1,A! Channel 1 reads sensor A
210 OUTPUT 704;CHAN 1;ON;CHAN 2;OFF;CHAN 3;OFF;CHAN 4;OFF
220 !
230 ! Set up sweeper for measurement
240 ! CW, 2 GHz, RF on, 0 dBm
250 OUTPUT 704;FIXED;FREQ 2000;LEVEL ON;LEVEL 0
260 WAIT 2! Wait for sweeper to set up parameters
270 !
280 !..........................................................
290 ! MEASUREMENT OF FREE RUNNING FAST CW MODE MEASUREMENT SPEED
300 !
310 ! Example of zeroing sensor first (use only for low level msmts)
320 ON INTR 7 GOSUB Zero srq! SRQ service routine
330 Srq flag=0! Clear srq flag
340 ENABLE INTR 7;2! Enable interrupts
350 OUTPUT 704;ZERO A;srq! Zero sensor A, assert SRQ when done
360 WHILE Srq flag=0! Endless loop while waiting for zero
370 END WHILE ! (of course, program could be doing
380 ! something else)
390 WAIT 1
400 !
410 OUTPUT 704;POWER 1;T1! Set free running fast cw mode = T1
420 WAIT 1! IMPORTANT** wait for analyzer to change modes and update
430 ! temperature correction
440 !
450 OUTPUT 704;POWER 1;AVG OFF! No averaging for this example
460 !
470 ! Example of updating temp and low level calibration
480 OUTPUT 704;RDTEMP!
490 WAIT 1! Wait to complete command
500 !
510 GOTO Msmt loop! Jump around srq service routine
520 Zero srq: Srq flag=1! srq service routine sets srq flag
530 Status 8003=SPOLL(704)! serial poll clears srq message
540 ENABLE INTR 7;2! re-enable interrupts
550 RETURN
560 !
570 Msmt loop:!
580 ! Initialize loop variables
590 Maxcount=1000! Take 1000 readings
600 Counter=0 ! Initialize counter
610 !
620 ! MAIN LOOP
630 Starttime=TIMEDATE
640 WHILE Counter<Maxcount