User`s guide

2-47
GPIB Tutorial and Examples
Program 3
3490 Clock(2)=TIMEDATE-Clock(2) !Stop measurement timer
3500 Clock(3)=TIMEDATE !Start call clearing
timer
3510 !
3520
!================================================================================
3530 !
3540 !END THE CALL
3550 !
3560 CALL Sub_trickmobile(Uut,”TXOFF”,0,0,Trickfreq,0) !Dissable the test
mode mobile
3570 CALL Sub_syserror(Uut,Error$(*),Errcount) !Check for any
Agilent 8922M/S logged errors
3580 !
3590 !
3600
!===================================================================================
3610 !
3620 Clock(3)=TIMEDATE-Clock(3) !Stop the call clearing
timer
3630 !
3640
!====================================================================================
3650 !
3660 !PRINT MEASUREMENT RESULTS
3670 !
3680 CALL
Sub_printit(Fparfcn(*),Fppwr(*),Fpwrmeas(*),Null(*),Null(*),Null(*),Null(*),Nullst$(*
),Numfparfcn,Numfppwr,Message$(3),Message$(4),Emptyst$,Empty)
3690 CALL
Sub_printit(Dsparfcn(*),Dsppwr(*),Slpwr(*),Pkpher(*),Rmspher(*),Frer(*),Null(*),Mask$
(*),Numdsparfcn,Numdsppwr,Message$(5),Message$(6),Emptyst$,Empty)
3700 CALL
Sub_printit(Berarfcn(*),Berpwr(*),Ber1(*),Rxqual(*),Rxlev(*),Txtim(*),Null(*),Nullst$
(*),Numberarfcn,Numberpwr,Message$(7),Message$(8),Emptyst$,Empty)
3710 !
3720
!====================================================================================
3730 !
3740 !PRINT TEST TIMES AND ERROR MESSAGES
3750 !
3760 !
3770 FOR X=1 TO 3
3780 PRINT Message$(X+9);DROUND(Clock(X),4);Message$(9)
3790 NEXT X
3800 PRINT
3810 PRINT
3820 IF Errcount=0 THEN
3830 Errcount=1
3840 Error$(1)=”No Errors”
3850 END IF
3860 FOR X=1 TO Errcount
3870 PRINT Error$(X)
3880 NEXT X
3890 Errcount=0
3900 !
3910
!==================================================================================
3920 !
3930 !LOOP IF ANOTHER PHONE IS TO BE TESTED
3940 !
3950 PRINT Message$(2)
3960 INPUT Answer$
3970 Run$=”no”
3980 IF Answer$=”Y” OR Answer$=”y” THEN Run$=”yes”
3990 UNTIL Run$<>”yes”
4000 END
4010 !