User`s guide

2-24
GPIB Tutorial and Examples
Program 1
2650 Threedb=ABS(Anlevel-Slpwr(Arcount,Txcount)) !Calculate difference
between measured and expected
2660 Count=Count+1
2670 UNTIL Count=3 OR Threedb<Leveltol !Re-do DSP once if
phone fails, the mobile
2680 IF Sstatus$<>”””No Error””” OR Threedb>3 THEN !may still be settling
after Tx Level change
2690 Err$=”DSP Measurement Problem “ !Create an error mes-
sage string
2700 IF Sstatus$<>”””No Error””” THEN Err$=Err$&Sstatus$
2710 IF Threedb>3 THEN Err$=Err$&” 3dB input range exceeded”
2720 Errcount=Errcount+1
2730 Error$(Errcount)=Err$
2740 END IF
2750 NEXT Arcount
2760 NEXT Txcount
2770 CALL Sub_syserror(Uut,Error$(*),Errcount) !Check for logged
errors after DSP
2780 !
2790
!====================================================================================
2800 !
2810 !PERFORM FAST POWER MEASUREMENTS
2820 !
2830 OUTPUT Uut;”DISP:SCR CELL1” !Display cell control
screen
2840 FOR Txcount=1 TO Numfppwr !Outer loop for mobile
Tx levels
2850 Txlev=Fppwr(Txcount) !Get Tx level from array
2860 OUTPUT Uut;”CELL:MS:TLEV”;Txlev !Program mobile’s Tx
level
2870 Time=0 !Establish a loop to
wait for phone to
2880 Maxtime=10 !confirm over uplink
SACCH that it has
2890 REPEAT !reached commanded Tx
level
2900 OUTPUT Uut;”MEAS:CELL:SACCH:TLEV?” !Read mobile’s SACCH
report of Tx Level
2910 ENTER Uut;Sacchtxlev
2920 WAIT .4 !Pause, SACCH has low
banswidth so reports
2930 Time=Time+1 !update slowly
2940 UNTIL Sacchtxlev=Txlev OR Time=Maxtime !Check for mobile
reaching programmed Tx level
2950 IF Time=Maxtime THEN
2960 Errcount=Errcount+1
2970 Error$(Errcount)=”Mobile failed to change Tx Level” !Error if mobile
doesn’t reach programmed level
2980 END IF
2990 FOR Arcount=1 TO Numfparfcn !Inner loop for mea-
surement ARFCN
3000 Arfcn=Fparfcn(Arcount) !Get ARFCN from array
3010 OUTPUT Uut;”CELL:CALL:TCH:ARFCN “;Arfcn !Request TCH channel
assignement to new ARFCN
3020 Time=0 !Establish a loop to
wait for channel
3030 Maxtime=10 !assignment to complete
3040 REPEAT
3050 OUTPUT Uut;”CELL:CALL:STAT:TCH:ARFCN?” !Check call status
for HP 8922M/S to see if
3060 ENTER Uut;Reparfcn !mobile has reached
new channel
3070 WAIT .1 !Short pause. Channel
changes use FACCH which
3080 Time=Time+1 !is faster than SACCH
for Tx level changes