Agilent Technologies 8960 10 Series Reference Manual page 204

Comprehensive Program Example
1990 ! results. By using the capabilities designed into high-level
2000 ! measurements, routines that access measurement results do not have to
2010 ! explicitly know what the measurement execution conditions were.
2020 ! information can be determined at the time the measurement results are
2030 ! queried.
2040 !
2050 OUTPUT Test_set;"FETC:ORFS:INT?"
2060 ENTER Test_set;Integrity
2070 IF (Integrity=0) THEN
2080 OUTPUT Test_set;"SET:ORFS:SWIT:FREQ:POIN?" ! Get number of offsets
2090
2100 ENTER Test_set;Points
2110 IF Points THEN
2120 ALLOCATE Orfs_swit_res(Points),Orfs_swit_offs(Points)
2130 OUTPUT Test_set;"SET:ORFS:SWIT:FREQ?"
2140 ENTER Test_set;Orfs_swit_offs(*)
2150 OUTPUT Test_set;"FETC:ORFS:POW?;:FETC:ORFS:SWIT?" ! Get results.
2160 ENTER Test_set;Tx_power,Orfs_swit_res(*)
2170 PRINT "ORFS Swit Results: TCH =";Traf_chan;"and TXL =";Ms_pwr_lvl
2180 PRINT USING "19X,""TX Power ="",M2D.2D,"" dBm""";Tx_power
2190 PRINT "
2200 PRINT "
2210 Orfs_image: IMAGE 6X,M4D.2D,12X,M4D.2D
2220 FOR J=1 TO Points
2230
2240 NEXT J
2250 DEALLOCATE Orfs_swit_res(*),Orfs_swit_offs(*)
2260 END IF
2270 OUTPUT Test_set;"SET:ORFS:MOD:FREQ:POIN?" ! Get number of offsets
2280
2290 ENTER Test_set;Points
2300 IF Points THEN ! Only query if one or more offsets tested.
2310 ALLOCATE Orfs_mod_res(Points),Orfs_mod_offs(Points)
2320 OUTPUT Test_set;"SET:ORFS:MOD:FREQ?" ! Get measurement offsets.
2330 ENTER Test_set;Orfs_mod_offs(*)
2340 OUTPUT Test_set;"FETC:ORFS:POW?;:FETC:ORFS:MOD?" ! Get results.
2350 ENTER Test_set;Tx_power,Pwr_30khz,Orfs_mod_res(*)
2360 PRINT "ORFS Mod Results: TCH =";Traf_chan;"and TXL =";Ms_pwr_lvl
2370 PRINT USING "18X,""30 KHz BW Power ="",M2D.2D,"" dBm""";Pwr_30khz
2380 PRINT "
2390 PRINT "
2400 FOR J=1 TO Points
2410
2420 NEXT J
2430 DEALLOCATE Orfs_mod_res(*),Orfs_mod_offs(*)
2440 END IF
2450 ELSE
2460 GOSUB Bad_measurement
2470 END IF
2480 END SELECT
2490 EXIT IF Meas_done$="NONE"
2500 END LOOP
2510
204
S:\Hp8960\E1960A GSM Mobile Test Application\A.04 Release\Reference_Manual\Chapters\prog_prog_guide_comprehensive_prog_example.fm
! Only query if one or more offsets tested.
Offset(kHz)
-----------
PRINT USING Orfs_image;(Orfs_swit_offs(J)/1.E+3),Orfs_swit_res(J)
Offset(kHz)
-----------
PRINT USING Orfs_image;(Orfs_mod_offs(J)/1.E+3),Orfs_mod_res(J)
! If 'WAIT' is returned from 'INIT:DONE?' query, it just falls
! through the loop.
! Check measurement integrity.
! tested.
! Get measurement offsets.
Level(dBm)"
----------"
! tested.
Level(dB)"
---------"
That