User`s guide

2-26
GPIB Tutorial and Examples
Program 1
3500 ELSE !3 consecutive reports
at RxQual 4 or less to
3510 Instance=0 !be be sure the mobile
has stabalized. The
3520 END IF !mobile may return up
to 2 reports at the old
3530 UNTIL Count>20 OR Instance>3 !level, before it
recognizes the input level
3540 IF Count>20 OR Rxqualsettle=-1 THEN !change
3550 Errcount=Errcount+1 !If RxQual does not
stabalize, report an error
3560 Error$(Errcount)=”Mobile receiver AGC did not respond to downlink level
change”
3570 END IF
3580 FOR Arcount=1 TO Numberarfcn !Inner loop for BER
test ARFCN
3590 Arfcn=Berarfcn(Arcount) !Get ARFCN from array
3600 OUTPUT Uut;”CELL:CALL:TCH:ARFCN “;Arfcn !Request channel
assignment. Agilent 8922M/S will hold
3610 OUTPUT Uut;”TRIG:BET:MODE ‘RUN’” !off BER test until
channel change is done. Run test.
3620 OUTPUT Uut;”MEAS:CELL:SACCH:RESET” !While BER test is
running, test SACCH reports
3630 Rxlev(Arcount,Rxcount)=-1 !Clear old reports
3640 Time=0
3650 REPEAT !Loop and wait for
SACCH report. -1 is returned
3660 WAIT .3 !when Agilent 8922M/
S is waiting for report
3670 Time=Time+1
3680 OUTPUT Uut;”MEAS:CELL:SACCH:PARTIAL:RLEV?” !Read RxLev
3690 ENTER Uut;Rxlev(Arcount,Rxcount)
3700 OUTPUT Uut;”MEAS:CELL:SACCH:PARTIAL:RQU?” !Read RxQual
3710 ENTER Uut;Rxqual(Arcount,Rxcount)
3720 OUTPUT Uut;”MEAS:CELL:MS:TERR?” !Also read uplink
timing error
3730 ENTER Uut;Txtim(Arcount,Rxcount)
3740 UNTIL Time>7 OR Rxlev(Arcount,Rxcount)<>-1 !Try again if SACCH
report not ready
3750 OUTPUT Uut;”MEAS:BET:BERR:RATIO1?” !Read bit error test
result
3760 ENTER Uut;Ber1(Arcount,Rxcount)
3770 Ber1(Arcount,Rxcount)=Ber1(Arcount,Rxcount)/10000 !Convert from ppm to
%
3780 NEXT Arcount
3790 NEXT Rxcount
3800 OUTPUT Uut;”RFG:AMPL1 “;Bchpwr !Reset downlink to
normal power
3810 CALL Sub_syserror(Uut,Error$(*),Errcount) !Check for any logged
errors
3820 !
3830 !=========================================================================
3840 !
3850 Clock(2)=TIMEDATE-Clock(2) !Stop measurement timer
3860 Clock(3)=TIMEDATE !Start call clearing
timer
3870 !
3880
!================================================================================
3890 !
3900 !END THE CALL
3910 !
3920 OUTPUT Uut;”DISP CELL1” !Display the cell
control screen
3930 OUTPUT Uut;”CELL:CALL:END” !Request a call ter-
mination
3940 Time=0 !Establish a loop to
wait for the mobile