User`s guide

2-22
GPIB Tutorial and Examples
Program 1
1700 OUTPUT Uut;”RFG:AMPL1 “;Bchpwr !Set the downlink power for normal
signalling
1710 OUTPUT Uut;”TRIG:MODE ‘SINGLE’” !Set the DSP meas trigger to single
trig mode
1720 OUTPUT Uut;”TRIG:BET ‘SINGLE’” !Set bit error meas trigger to sin-
gle trig mode
1730 OUTPUT Uut;”BET:BITS1 “;Bits1 !Set the number of bits to be mea-
sured for bit error
1740 OUTPUT Uut;”DISP:SCR DSP” !Display the DSP amplitude main
screen to enter limits
1750 OUTPUT Uut;”DISP:SCR:DSP:VIEW ‘AMPL MAIN’” !for power versus time mask
1760 DATA -40,-28,-18,-10,0,180,360,542.769,547.769,552.769,560.769,570.769 !Mask
corner times in us
1770 DATA -36,-30,-6,4,1,1,1,1,1,-6,-30,-36 !Upper
limits in dB
1780 DATA -60,-60,-60,-60,-1,-1,-1,-1,-60,-60,-60,-60 !Lower lim-
its in dB
1790 FOR X=1 TO 12
1800 READ Masktim !Reas corner times
from DATA statement
1810 Masktim=Masktim/1.E+6 !Convert seconds
1820 Num$=VAL$(X) !Convert index to
string for GPIB
1830 OUTPUT Uut;”DSP:AMPL:”&”time”&Num$&” “;Masktim !Output marker times
1840 NEXT X
1850 FOR X=1 TO 12
1860 READ Maskup !Read and output upper
limits
1870 Num$=VAL$(X)
1880 OUTPUT Uut;”MEAS:DSP:AMPL:”&”AMPL”&Num$&”:HLIM “;Maskup
1890 OUTPUT Uut;”MEAS:DSP:AMPL:”&”AMPL”&Num$&”:HLIM:STATE ON”
1900 NEXT X
1910 FOR X=1 TO 12
1920 READ Masklo !Read and output lower
limits
1930 Num$=VAL$(X)
1940 OUTPUT Uut;”MEAS:DSP:AMPL:”&”AMPL”&Num$&”:LLIM “;Masklo
1950 OUTPUT Uut;”MEAS:DSP:AMPL:”&”AMPL”&Num$&”:LLIM:STATE ON”
1960 NEXT X
1970 !
1980
!===============================================================================
1990 !
2000 !ESTABLISH A LOOP TO BE EXECUTED EACH TIME A MOBILE IS TESTED
2010 !
2020 !
2030 Run$=”yes” !Flag for REPEAT loop
2040 REPEAT
2050 Clock(1)=TIMEDATE !Start a test time
clock for call set up
2060 !
2070 !=============================================================================
2080 !
2090 !PAGE THE MOBILE AND ESTABLISH A CALL
2100 !
2110 !
2120 OUTPUT Uut;”DISP:SCR CELL1” !Display the cell
control screen
2130 PRINT Message$(1) !Output answer call
message
2140 OUTPUT Uut;”CELL:CALL:ORIGINATE” !Page mobile
Agilent 8922M/S org call
2150 Time=0 !Set counter for mobile
to answer
2160 Maxtime=100
2170 REPEAT
2180 Time=Time+1
2190 WAIT 1