Agilent Technologies 8960 Series Programming Guide

70
S:\Hp8960\E1960A GSM Mobile Test Application\A.04 Release\Proguide\Chapters\prog_prog_guide_comprehensive_prog_example.fm
Comprehensive Program Example
60 Test_set=714
70 PRINTER IS CRT
80 CLEAR SCREEN
90 OUTPUT Test_set;”*RST;SYST:COMM:GPIB:DEB:STAT ON”
100 CALL Chk_err_msg_que
110 OUTPUT Test_set;”CALL:OPER:MODE CELL;:SYST:CORR:SGA -6”
120 OUTPUT Test_set;”CALL:CELL:BAND PGSM;BCH 20;POW:SAMP -85;:CALL:TCH:ARFC 45;TSL 4”
130 OUTPUT Test_set;”CALL:CELL:ACT OFF;MCC 1;LAC 1;MNC 1;NCC 1;BCC 5;ACT ON”
140 OUTPUT Test_set;”SET:ORFS:SWIT:COUN 5;:SET:ORFS:MOD:COUN 10”
150 OUTPUT Test_set;”SET:ORFS:CONT OFF;TIM 60;TRIG:SOUR AUTO”
160 Swit_offs$=”400KHZ,-400KHZ,600KHZ,-600KHZ,1200KHZ,-1200KHZ,1800KHZ,-1800KHZ”
170 Mod_offs$=”.2MHZ,-.2MHZ,.4MHZ,-.4MHZ,.6MHZ,-.6MHZ,.8MHZ,-.8MHZ,1MHZ,-1MHZ”
180 OUTPUT Test_set;”SET:ORFS:SWIT:FREQ “&Swit_offs$&”;:SET:ORFS:MOD:FREQ “&Mod_offs$
190 OUTPUT Test_set;”SET:TXP:COUN 3;CONT OFF;TIM 20;TRIG:SOUR RISE;QUAL ON”
200 OUTPUT Test_set;”SET:PFER:COUN 8;CONT OFF;TIM 30;BSYN MID;TRIG:SOUR PROT;QUAL ON”
210 OUTPUT Test_set;”CALL:PAG:REP OFF;IMSI ‘001012345678901’”
220 Tries=1
230 LOOP
240 OUTPUT Test_set;”CALL:ORIG;CONN:STAT?”
250 ENTER Test_set;Call_connected
260 EXIT IF Call_connected
270 OUTPUT Test_set;”CALL:END”
280 IF Tries=50 THEN
290 BEEP
300 DISP ““
310 PRINT “Call did not connect after”;Tries;”. Program terminated.”
320 STOP
330 END IF
340 DISP “Call has not connected after”;Tries;”attempts. Trying again.”
350 Tries=Tries+1
360 END LOOP
370 DISP ““
380 OUTPUT Test_set;”CALL:MS:DTX OFF”
390 FOR Traf_chan=120 TO 124 STEP 2
400 OUTPUT Test_set;”CALL:TCH:SEQ “;Traf_chan;”;:CALL:STAT:STAT?”
410 ENTER Test_set;Call_status$
420 IF Call_status$<>”CONN” THEN
430 PRINT “Call handover failed. New channel assignment =”;Traf_chan
440 PRINT “Program terminated.”
450 STOP
460 END IF
470 FOR Ms_pwr_lvl=5 TO 15 STEP 5
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)

Agilent Technologies 8960 Series Specifications

General

Brand	Agilent Technologies
Model	8960 Series
Category	Test Equipment
Language	English