Agilent Technologies 8960 10 Series Reference Manual page 207

480 OUTPUT Test_set;"CALL:MS:TXL:SEQ ";Ms_pwr_lvl;";:INIT:TXP;PFER;ORFS"
490 LOOP
500 OUTPUT Test_set;"INIT:DONE?"
510 ENTER Test_set;Meas_done$
520 SELECT Meas_done$
530 CASE "TXP"
540 OUTPUT Test_set;"FETC:TXP:INT?;POW:ALL?"
550 ENTER Test_set;Integrity,Txpower(*)
560 IF (Integrity=0) THEN
570 PRINT "TX Power results: TCH =";Traf_chan;"and TXL =";Ms_pwr_lvl
580 PRINT USING "5X,""Minimum:"",M2D.2D,"" dBm""";Txpower(1)
590 PRINT USING "5X,""Maximum:"",M2D.2D,"" dBm""";Txpower(2)
600 PRINT USING "5X,""Average:"",M2D.2D,"" dBm""";Txpower(3)
610 PRINT USING "5X,""Std Dev:"",M2D.2D,"" dB""";Txpower(4)
620 ELSE
630 GOSUB Bad_measurement
640 END IF
650 CASE "PFER"
660 OUTPUT Test_set;"FETC:PFER:ALL?"
670 ENTER Test_set;Integrity,Rms_phas_err,Peak_phas_err,Worst_freq_err
680 IF (Integrity=0) THEN
690 PRINT "PFERror results: TCH =";Traf_chan;"and TXL =";Ms_pwr_lvl
700 PRINT USING "5X,""RMS Phase Error:"",M2D.2D,"" deg""";Rms_phas_err
710 PRINT USING "5X,""Peak Phase Error:"",M2D.2D,"" deg""";Peak_phas_err
720 PRINT USING "5X,""Worst Freq Error:"",M3D.2D,"" Hz""";Worst_freq_err
730 ELSE
740 GOSUB Bad_measurement
750 END IF
760 CASE "ORFS"
770 OUTPUT Test_set;"FETC:ORFS:INT?"
780 ENTER Test_set;Integrity
790 IF (Integrity=0) THEN
800 OUTPUT Test_set;"SET:ORFS:SWIT:FREQ:POIN?"
810 ENTER Test_set;Points
820 IF Points THEN
830 ALLOCATE Orfs_swit_res(Points),Orfs_swit_offs(Points)
840 OUTPUT Test_set;"SET:ORFS:SWIT:FREQ?;:FETC:ORFS:POW?;:FETC:ORFS:SWIT?"
850 ENTER Test_set;Orfs_swit_offs(*),Tx_power,Orfs_swit_res(*)
860 PRINT "ORFS Swit Results: TCH =";Traf_chan;"and TXL =";Ms_pwr_lvl
870 PRINT USING "19X,""TX Power ="",M2D.2D,"" dBm""";Tx_power
880 PRINT "
890 PRINT "
900 Orfs_image: IMAGE 6X,M4D.2D,12X,M4D.2D
910 FOR J=1 TO Points
920
930 NEXT J
940 DEALLOCATE Orfs_swit_res(*),Orfs_swit_offs(*)
950 END IF
960 OUTPUT Test_set;"SET:ORFS:MOD:FREQ:POIN?"
970 ENTER Test_set;Points
980 IF Points THEN
990 ALLOCATE Orfs_mod_res(Points),Orfs_mod_offs(Points)
1000 OUTPUT Test_set;"SET:ORFS:MOD:FREQ?;:FETC:ORFS:POW?;:FETC:ORFS:MOD?"
S:\Hp8960\E1960A GSM Mobile Test Application\A.04 Release\Reference_Manual\Chapters\prog_prog_guide_comprehensive_prog_example.fm
Offset(kHz)
-----------
PRINT USING Orfs_image;(Orfs_swit_offs(J)/1.E+3),Orfs_swit_res(J)
Level(dBm)"
----------"
Comprehensive Program Example
207