206
S:\Hp8960\E1960A GSM Mobile Test Application\A.04 Release\Reference_Manual\Chapters\prog_prog_guide_comprehensive_prog_example.fm
Comprehensive Program Example
Example Program Without Comments
The following program is basically the same as the example program presented in
but comments have been removed and the coding reflects the use of compound
commands and complex commands to achieve coding efficiency.
10 ! Prog Name: sim_man_ex.txt Rev: A.0.2 Date Code: 12/18/98
20 OPTION BASE 1
30 COM /Address/ Test_set
40 DIM Swit_offs$[255],Mod_offs$[255]
50 REAL Txpower(4)
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
Summary of Contents for 8960 Series 10
Page 26: ...26 Contents ...