User`s guide

2-29
GPIB Tutorial and Examples
Program 2
Program 2
10 !RE-STORE “PROG2”
20 !RE-SAVE “PROG2:,1404”
30 !=========================================================================
40 !
50 !Example program 2
60 !
70 !Advanced GPIB techniques for measuring a GSM900 mobile using the Agilent 8922S
and M
80 !GSM MS Test Sets. The program measures Tx power, power vs time, phase and fre-
quency
90 !error, bit error ratio, timing error, Rx Lev and Rx Qual. A hopping TCH is used
100 !to minimize channel change time. Power measurements are used to indicate when
the mobile
110 !has settled after a Tx Level change
120 !
130 !(c) Agilent Technologies 1996
140 !
150 !Rev 1.0
160 !I R HP QMD 7.9.94
170 !Slightly modified by C B 24.1.96 - Changed F/H to M/S throughout
180 !============================================================================
190 !
200 DIM Berpwr(5) !Downlink power levels in dBm for bit error test
210 DIM Berarfcn(125) !ARFCN to perform bit error test on
220 DIM Dsppwr(15) !Mobile Tx power levels for DSP test
230 DIM Dsparfcn(124) !ARFCN to perform DSP test on
240 DIM Fparfcn(124) !ARFCN to perform fast power test on
250 DIM Fppwr(15) !Mobile Tx power levels for fast power test
260 DIM Message$(30)[100] !Output strings
270 DIM Error$(50)[100] !Error message strings
280 DIM Err$[100] !Internally used temporary error string
290 DIM Rmspher(50,50) !Measurement results from rms phase error, dimen-
sions(ARFCN,TXLEVEL)
300 DIM Pkpher(50,50) !Measurement results from peak phase error
310 DIM Frer(50,50) !Measurement results from freq error
320 DIM Slpwr(50,50) !Measurement results from DSP analyzer power measure-
ment
330 DIM Txtim(50,50) !Tx timing error measurement results
340 DIM Fpwrmeas(50,50) !Measurement results from fast power
350 DIM Ber1(50,50) !Bit error test measurement results, dimen-
sions(ARFCN,Downlink Power)
360 DIM Clock(5) !Test Times
370 DIM Mask$(50,50)[10] !Power versus time limit mask specification
380 DIM Rxqual(50,50) !RxQual measurement results, dimensions(ARFCN,Down-
link Power)
390 DIM Rxlev(50,50) !RxLev measurement results
400 DIM Null(50,50) !Empty array
410 DIM Nullst$(50,50)[50] !Empty string array
420 DIM Ca$[124] !String for CA (Cell Allocation) table, used for hop-
ping call
430 DIM Ma$[63] !String for MA (Mobile Allocation) table, used for
hopping call
440 !
450 !====================================================================
460 !
470 !GENERAL MEASUREMENT SET UP SPECIFIED
480 !
490 Uut=714 !GPIB address of Agilent 8922M/S
500 Extloss=-1 !Loss of cable linking 8922 to mobile (loss=-xdB)
510 Bchpwr=-80 !BCCH power level in dBm
520 Imsi$=”’001012345678901’” !Paging IMSI of mobile’s test SIM
530 Timeouttime=30 !The GPIB timeout in seconds