User`s guide

2-45
GPIB Tutorial and Examples
Program 3
2600 OUTPUT Uut;”MEASURE:DSPANALYZER:MSUM?” !
power versus time mask
2610 ENTER Uut;Mask$(Arcount,Txcount)
2620 OUTPUT Uut;”MEASURE:DSPANALYZER:PTCP?” !
Tx power
2630 ENTER Uut;Slpwr(Arcount,Txcount)
2640 OUTPUT Uut;”RFAN:AMPL1?” !Read expected power
level to compare with
2650 ENTER Uut;Anlevel !measured and +/-3dB
allowed range
2660 OUTPUT Uut;”MEASURE:DSPANALYZER:SSTATUS?” !Check for any DSP
measurement errors
2670 ENTER Uut;Sstatus$
2680 Threedb=ABS(Anlevel-Slpwr(Arcount,Txcount)) !Calculate difference
between measured and expected
2690 Count=Count+1
2700 UNTIL Count=3 OR Threedb<Leveltol OR Txlevchange$=”false” !Re-do DSP once
if phone fails, the mobile
2710 IF Sstatus$<>”””No Error””” OR Threedb>3 THEN !may still be settling
after Tx Level change
2720 Err$=”DSP Measurement Problem “ !Create an error mes-
sage string
2730 IF Sstatus$<>”””No Error””” THEN Err$=Err$&Sstatus$
2740 IF Threedb>3 THEN Err$=Err$&” 3dB input range exceeded”
2750 Errcount=Errcount+1
2760 Error$(Errcount)=Err$
2770 END IF
2780 Txlevchange$=”false”
2790 NEXT Arcount
2800 NEXT Txcount
2810 !
2820
!==================================================================================
2830 !
2840 !PERFORM FAST POWER MEASUREMENTS
2850 !
2860 OUTPUT Uut;”DISP:SCR CELL1” !Display cell control
screen
2870 FOR Txcount=Numfppwr TO 1 STEP -1 !Outer loop for mobile
Tx levels@@@@
2880 Txlev=Fppwr(Txcount) !Get Tx level from array
2890 OUTPUT Uut;”CELL:MS:TLEV”;Txlev !Adjust analyzer to
correct expected power
2900 CALL Sub_trickmobile(Uut,”TXLEV”,0,Txlev,Trickfreq,Extloss) !Command test
mode mobile to new T Level
2910 Txlevchange$=”true”
2920 FOR Arcount=1 TO Numfparfcn !Inner loop for ARFCN
2930 Arfcn=Fparfcn(Arcount) !Get ARFCN from array
2940 Freq=(890+Arfcn*.2)*1000000 !Calculate frequency
from ARFCN
2950 CALL Sub_trickmobile(Uut,”ARFCN”,Arfcn,0,Freq,Extloss) !Command test mode
mobile to new ARFCN
2960 OUTPUT Uut;”RFAN:FREQ “;Freq !Tune analyzer fre-
quency
2970 Txlevcount=0 !Count for Tx Level
settling
2980 REPEAT !Loop while mobile Tx
Level settles
2990 Count=0 !Count for inner loop
3000 Fastpower1=0 !Swap variable for
fast power measurement
3010 REPEAT !Loop untill value
stabalizes after analyzer
3020 Fastpower2=Fastpower1 !tuning.
3030 OUTPUT Uut;”MEAS:FTCP:POW?” !read the peak power
meter
3040 ENTER Uut;Fastpower1