72
S:\Hp8960\E1960A GSM Mobile Test Application\A.04 Release\Proguide\Chapters\prog_prog_guide_comprehensive_prog_example.fm
Comprehensive Program Example
1120 GOSUB Bad_measurement
1130 END IF
1140 END SELECT
1150 EXIT IF Meas_done$=”NONE”
1160 END LOOP
1170 NEXT Ms_pwr_lvl
1180 NEXT Traf_chan
1190 OUTPUT Test_set;”CALL:END;CONN:STAT?”
1200 ENTER Test_set;Call_connected
1210 IF Call_connected THEN
1220 BEEP
1230 PRINT “Unable to complete BS termination. Program terminated.”
1240 STOP
1250 END IF
1260 PRINT “Program completed.”
1270 STOP
1280 !
1290 Bad_measurement: !
1300 PRINT “Measurement error: “&Meas_done$
1310 PRINT “Measurement Integrity value =”;Integrity
1320 RETURN
1330 !
1340 END
1350 !
1360 SUB Chk_err_msg_que
1370 COM /Address/ Test_set
1380 DIM Error_message$[255]
1390 Error_flag=0
1400 LOOP
1410 OUTPUT Test_set;”SYST:ERR?”
1420 ENTER Test_set;Error_number,Error_message$
1430 EXIT IF Error_number=0
1440 IF Error_number=-350 THEN
1450 Error_flag=1
1460 PRINT “Error Message Queue overflow. Error messages have been lost.”
1470 ELSE
1480 Error_flag=1
1490 PRINT Error_number,Error_message$
1500 END IF
1510 END LOOP
1520 IF NOT Error_flag THEN
1530 PRINT “No errors in Error Message Queue.”
1540 SUBEXIT
1550 END IF
1560 STOP
1570 SUBEND
To Previous Page
Loading...
Need help?
General
