68
S:\Hp8960\E1960A GSM Mobile Test Application\A.04 Release\Proguide\Chapters\prog_prog_guide_comprehensive_prog_example.fm
Comprehensive Program Example
2110 IF Points THEN ! Only query if one or more offsets tested.
2120 ALLOCATE Orfs_swit_res(Points),Orfs_swit_offs(Points)
2130 OUTPUT Test_set;”SET:ORFS:SWIT:FREQ?” ! Get measurement offsets.
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 “ Offset(kHz) Level(dBm)”
2200 PRINT “ ----------- ----------”
2210 Orfs_image: IMAGE 6X,M4D.2D,12X,M4D.2D
2220 FOR J=1 TO Points
2230 PRINT USING Orfs_image;(Orfs_swit_offs(J)/1.E+3),Orfs_swit_res(J)
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 ! tested.
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 “ Offset(kHz) Level(dB)”
2390 PRINT “ ----------- ---------”
2400 FOR J=1 TO Points
2410 PRINT USING Orfs_image;(Orfs_mod_offs(J)/1.E+3),Orfs_mod_res(J)
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 ! If ‘WAIT’ is returned from ‘INIT:DONE?’ query, it just falls
2510 ! through the loop.
2520 NEXT Ms_pwr_lvl
2530 !
2540 !*****************************************************************************
2550 ! Step 7: Perform an Intra-cell Handover
2560 !*****************************************************************************
2570 !
2580 NEXT Traf_chan ! The handover is performed at the top of the FOR loop at line
2590 ! 1300
2600 !
2610 !*****************************************************************************
2620 ! Step 8: Disconnect the Mobile Station From the BSE
2630 !*****************************************************************************