User`s guide

2-35
GPIB Tutorial and Examples
Program 2
3160 OUTPUT Uut;”MEASURE:DSPANALYZER:PTCP?” !
Tx power
3170 ENTER Uut;Slpwr(Arcount,Txcount)
3180 OUTPUT Uut;”RFAN:AMPL1?” !Read expected power
level to compare with
3190 ENTER Uut;Anlevel !measured and +/-3dB
allowed range
3200 OUTPUT Uut;”MEASURE:DSPANALYZER:SSTATUS?” !Check for any DSP
measurement errors
3210 ENTER Uut;Sstatus$
3220 Threedb=ABS(Anlevel-Slpwr(Arcount,Txcount)) !Calculate difference
between measured and expected
3230 Count=Count+1
3240 UNTIL Count=3 OR Threedb<Leveltol OR Txlevchange$=”false” !Re-do DSP once
if phone fails, the mobile
3250 IF Sstatus$<>”””No Error””” OR Threedb>3 THEN !may still be settling
after Tx Level change
3260 Err$=”DSP Measurement Problem “ !Create an error mes-
sage string
3270 IF Sstatus$<>”””No Error””” THEN Err$=Err$&Sstatus$
3280 IF Threedb>3 THEN Err$=Err$&” 3dB input range exceeded”
3290 Errcount=Errcount+1
3300 Error$(Errcount)=Err$
3310 END IF
3320 Txlevchange$=”false”
3330 NEXT Arcount
3340 NEXT Txcount
3350 !
3360
!==================================================================================
3370 !
3380 !PERFORM FAST POWER MEASUREMENTS
3390 !
3400 OUTPUT Uut;”DISP:SCR CELL1” !Display cell control
screen
3410 FOR Txcount=Numfppwr TO 1 STEP -1 !Outer loop for mobile
Tx levels
3420 Txlev=Fppwr(Txcount) !Get Tx level from array
3430 OUTPUT Uut;”CELL:MS:TLEV”;Txlev !Program mobile’s Tx
level
3440 Txlevchange$=”true”
3450 FOR Arcount=1 TO Numfparfcn !Inner loop for ARFCN
3460 Arfcn=Fparfcn(Arcount) !Get ARFCN from array
3470 Freq=(890+Arfcn*.2)*1000000 !Calculate frequency
from ARFCN
3480 OUTPUT Uut;”RFAN:FREQ “;Freq !Tune analyzer fre-
quency
3490 Txlevcount=0 !Count for Tx Level
settling
3500 REPEAT !Loop while mobile Tx
Level settles
3510 Count=0 !Count for inner loop
3520 Fastpower1=0 !Swap variable for
fast power measurement
3530 REPEAT !Loop untill value
stabalizes after analyzer
3540 Fastpower2=Fastpower1 !tuning.
3550 OUTPUT Uut;”MEAS:FTCP:POW?” !read the peak power
meter
3560 ENTER Uut;Fastpower1
3570 Deltapower=ABS(Fastpower1-Fastpower2) !Look for change since
last measurement
3580 Count=Count+1 !Though away 4 old
readings (in Agilent 8922M/S
3590 UNTIL (Count>4 AND Deltapower<Fpthreshold) OR Count>10 !measuremement
pipline) then look for settled
3600 IF Count>10 THEN !value on new mea-
surement ARFCN. If it never