User`s guide
2-34
GPIB Tutorial and Examples
Program 2
2710 GOTO Timeflag !If wait too long,
goto timeout code
2720 END IF
2730 !
2740
!===================================================================================
2750 !
2760 Clock(1)=TIMEDATE-Clock(1) !End call set up timer
2770 Clock(2)=TIMEDATE !Start measurement timer
2780 !
2790
!===================================================================================
2800 !
2810 !UNCOUPLE Agilent 8922M/S RF ANALYZER FROM GSM BASE STATION EMULATOR
2820 !
2830 OUTPUT Uut;”CELL:MS:TADV:MODE ‘manual’” !Fix timing advance
at 0 so 8922 doesn’t auto adjust
2840 OUTPUT Uut;”TRIG:DDEM:AST ‘disarm’” !Disable the uplink
demodulator
2850 OUTPUT Uut;”HOPC:RFAN:AST ‘disarm’” !Stop the RF Analyzer
from hopping
2860 OUTPUT Uut;”HOPC:RFAN:MODE ‘non-hop’”
2870 OUTPUT Uut;”TRIG:SOUR ‘rf rise’” !Trigger measurements
from RF rise, when the
2880 OUTPUT Uut;”TRIG:DEL 0” !signal falls within
the IF bandwidth
2890 !
2900
!===================================================================================
2910 !
2920 !PERFORM DSP MEASUREMENTS
2930 !
2940 OUTPUT Uut;”DISP DSP” !Return to the DSP
amplitude main screen
2950 FOR Txcount=1 TO Numdsppwr !Outer loop for Tx
levels
2960 Txlev=Dsppwr(Txcount) !Get Tx level from array
2970 OUTPUT Uut;”CELL:MS:TLEV”;Txlev !Program mobile’s Tx
level
2980 Txlevchange$=”true”
2990 FOR Arcount=1 TO Numdsparfcn !Inner loop for ARFCN
3000 Arfcn=Dsparfcn(Arcount) !Get ARFCN from array
3010 Freq=(890+Arfcn*.2)*1000000 !Calculate ARFCN fre-
quency
3020 OUTPUT Uut;”RFAN:FREQ “;Freq !Tune the RF Analyzer
to select individual ARFCN
3030 Count=0 !Establish counter
for repeat measurements
3040 REPEAT !May need to repeat
if mobile not settled
3050 OUTPUT Uut;”TRIG:AST ‘ARM’” !Arm the DSP measure-
ment
3060 OUTPUT Uut;”MEASURE:DSPANALYZER:PHASE:ERROR:RMS?” !Read all the DSP
results: rms phase error
3070 ENTER Uut;Rmspher(Arcount,Txcount)
3080 !Note: program will stick here, waiting for input if mobile fails to provide a
valid signal to trigger
3090 ! the Agilent 8922M/S. The program will timeout. The timeout code dissarms
the Agilent 8922M/S trigger.
3100 OUTPUT Uut;”MEASURE:DSPANALYZER:PHASE:ERROR:PEAK?” !
peak phase error
3110 ENTER Uut;Pkpher(Arcount,Txcount)
3120 OUTPUT Uut;”MEASURE:DSPANALYZER:PHASE:ERROR:FRE-
QUENCY?”! frequency error
3130 ENTER Uut;Frer(Arcount,Txcount)
3140 OUTPUT Uut;”MEASURE:DSPANALYZER:MSUM?” !
power versus time mask
3150 ENTER Uut;Mask$(Arcount,Txcount)