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
Summary of Contents for 8003
Page 3: ......
Page 14: ...8003 Precision Scalar Analyzer x Manual 20791 Rev C June 2001 ...
Page 16: ...8003 Precision Scalar Analyzer xii Manual 20791 Rev C June 2001 ...
Page 18: ...8003 Precision Scalar Analyzer xiv Manual 20791 Rev C June 2001 ...
Page 20: ...8003 Precision Scalar Analyzer xvi Manual 20791 Rev C June 2001 ...
Page 36: ...8003 Precision Scalar Analyzer 1 16 Manual 20791 Rev C June 2001 ...
Page 142: ...8003 Precision Scalar Analyzer 2 106 Manual 20791 Rev C June 2001 ...
Page 232: ...8003 Precision Scalar Analyzer 4 18 Manual 20791 Rev C June 2001 ...
Page 252: ...8003 Precision Scalar Analyzer B 16 Manual 20791 Rev C June 2001 ...
Page 258: ...8003 Precision Scalar Analyzers Index 6 Manual 20791 Rev C June 2001 ...