User`s guide

2-38
GPIB Tutorial and Examples
Program 2
4480 Clock(3)=TIMEDATE !Start call clearing
timer
4490 !
4500
!================================================================================
4510 !
4520 !END THE CALL
4530 !
4540 OUTPUT Uut;”DISP CELL1” !Display the cell
control screen
4550 OUTPUT Uut;”CELL:CALL:END” !Request a call ter-
mination
4560 Time=0 !Establish a loop to
wait for the mobile
4570 REPEAT !to clear the call
4580 Time=Time+1
4590 WAIT 1
4600 OUTPUT Uut;”CELL:CALL:STATUS:STATE?” !Check the call status
4610 ENTER Uut;Status$
4620 UNTIL Status$=”””INACTIVE””” OR Time>30 !Call status will go
to inactive when the
4630 IF Time>30 THEN !mobile has cleared
4640 Errcount=Errcount+1
4650 Error$(Errcount)=”Mobile failed to end call” !Log an error if the
mobile fails to clear
4660 GOTO Timeflag !and go to the timeout
code
4670 CALL Sub_syserror(Uut,Error$(*),Errcount) !Check for any
Agilent 8922M/S logged errors
4680 END IF
4690 OUTPUT Uut;”CELL:CALL:TCH:ARFCN “;Dsparfcn(1) !Reset the ARFCN and
mobile Tx level ready
4700 OUTPUT Uut;”CELL:MS:TLEV “;Dsppwr(1) !to begin testing the
next phone
4710
!===================================================================================
4720 !
4730 Clock(3)=TIMEDATE-Clock(3) !Stop the call clearing
timer
4740 !
4750
!====================================================================================
4760 !
4770 !PRINT MEASUREMENT RESULTS
4780 !
4790 CALL
Sub_printit(Fparfcn(*),Fppwr(*),Fpwrmeas(*),Null(*),Null(*),Null(*),Null(*),Nullst$(*
),Numfparfcn,Numfppwr,Message$(3),Message$(4),Emptyst$,Empty)
4800 CALL
Sub_printit(Dsparfcn(*),Dsppwr(*),Slpwr(*),Pkpher(*),Rmspher(*),Frer(*),Null(*),Mask$
(*),Numdsparfcn,Numdsppwr,Message$(5),Message$(6),Emptyst$,Empty)
4810 CALL
Sub_printit(Berarfcn(*),Berpwr(*),Ber1(*),Rxqual(*),Rxlev(*),Txtim(*),Null(*),Nullst$
(*),Numberarfcn,Numberpwr,Message$(7),Message$(8),Emptyst$,Empty)
4820 !
4830
!====================================================================================
4840 !
4850 !PRINT TEST TIMES AND ERROR MESSAGES
4860 !
4870 !
4880 FOR X=1 TO 3
4890 PRINT Message$(X+9);DROUND(Clock(X),4);Message$(9)
4900 NEXT X
4910 PRINT
4920 PRINT
4930 IF Errcount=0 THEN
4940 Errcount=1