User`s guide

2-43
GPIB Tutorial and Examples
Program 3
1640
!================================================================================
1650 !
1660 !SELECT Agilent 8922M/S OPPERATING MODE TO SUITE MOBILES IN TEST MODE (executed
once only)
1670 !
1680 OUTPUT Uut;”CELL:MODE ‘TEST MODE’” !Select Test Mode opperation
1690 !
1700 !
1710 !============================================================================
1720 !
1730 !SET THE Agilent 8922M/S INITIAL CONDITIONS (executed once only)
1740 !
1750 !
1760 OUTPUT Uut;”CONF:OFL:RFIN “;Extloss !Set the external cable loss
1770 OUTPUT Uut;”CONF:OFL:MODE ‘ON’” !Turn external offset mode ON to
use cable loss
1780 OUTPUT Uut;”CW:PMZERO” !Zero the power meter
1790 OUTPUT Uut;”RFG:AMPL1 “;Bchpwr !Set the downlink power for normal
signalling
1800 OUTPUT Uut;”TRIG:MODE ‘SINGLE’” !Set the DSP meas trigger to single
trig mode
1810 OUTPUT Uut;”TRIG:BET ‘SINGLE’” !Set bit error meas trigger to sin-
gle trig mode
1820 OUTPUT Uut;”BET:BITS1 “;Bits1 !Set the number of bits to be mea-
sured for bit error
1830 OUTPUT Uut;”DISP:SCR DSP” !Display the DSP amplitude main
screen to enter limits
1840 OUTPUT Uut;”DISP:SCR:DSP:VIEW ‘AMPL MAIN’” !for power versus time mask
1850 DATA -40,-28,-18,-10,0,180,360,542.769,547.769,552.769,560.769,570.769 !Mask
corner times in us
1860 DATA -36,-30,-6,4,1,1,1,1,1,-6,-30,-36 !Upper
limits in dB
1870 DATA -60,-60,-60,-60,-1,-1,-1,-1,-60,-60,-60,-60 !Lower lim-
its in dB
1880 FOR X=1 TO 12
1890 READ Masktim !Reas corner times
from DATA statement
1900 Masktim=Masktim/1.E+6 !Convert seconds
1910 Num$=VAL$(X) !Convert index to
string for GPIB
1920 OUTPUT Uut;”DSP:AMPL:”&”time”&Num$&” “;Masktim !Output marker times
1930 NEXT X
1940 FOR X=1 TO 12
1950 READ Maskup !Read and output upper
limits
1960 Num$=VAL$(X)
1970 OUTPUT Uut;”MEAS:DSP:AMPL:”&”AMPL”&Num$&”:HLIM “;Maskup
1980 OUTPUT Uut;”MEAS:DSP:AMPL:”&”AMPL”&Num$&”:HLIM:STATE ON”
1990 NEXT X
2000 FOR X=1 TO 12
2010 READ Masklo !Read and output lower
limits
2020 Num$=VAL$(X)
2030 OUTPUT Uut;”MEAS:DSP:AMPL:”&”AMPL”&Num$&”:LLIM “;Masklo
2040 OUTPUT Uut;”MEAS:DSP:AMPL:”&”AMPL”&Num$&”:LLIM:STATE ON”
2050 NEXT X
2060 !
2070
!=================================================================================
2080 !
2090 !CALL SUBROUTINE ASKING USER TO MAKE APROPRIATE CABLE CONNECTIONS
2100 !
2110 CALL Sub_trickmobile(Uut,”CABLE”,0,0,Trickfreq,0) !Ask user to connect
Agilent 8922M/S ports to
2120 ! !emulate a mobile in
test mode
2130 !