1 !This program for a cdma2000 phone, sets up a call using fastpaing, and measures waveform quality,
2 !frame error rate,maximim power,minimum power, gated power, TX Spurious, Range of Open Loop Power
3 !Range of Closed Loop Power, Receiver Sensitivity, Receiver Dymanic Range, Demodulation of Traffic
4 !Channel with AWGN
5 !
6 !The simple test executive allows you to set the test sequence by using gosubs to various tests
8 !
9 COM Testset
10 !
20 Testset=714 ! Set "Testset" to equal GPIB address of 8960
30 !
40 CLEAR SCREEN
50 !
60 !*****************************************************************
70 ! SET UP GPIB TIMEOUT
80 !*****************************************************************
90 !
100 !ON TIMEOUT 7,30 CALL Timeout ! Calls "Timeout" routine
110 !
120 !*****************************************************************
130 ! TURN ON 8960 GP-IB DEBUGGER - COMMENT OUT WHEN DONE DEBUGGING PROGRAM
140 !*****************************************************************
150 !
160 !OUTPUT Testset;"SYST:COMM:GPIB:DEB:STAT ON"!Turns debug state on
170 !
180 !*****************************************************************
190 ! VARIABLE DECLARATIONS FOR CALL SET UP - MOBILE SPECIFIC
200 !*****************************************************************
210 Systype$="DIGITAL2000" !Cell System Type
220 Band$="USPCS" !Cell band
230 Channel=525 !RF Channelfor call setup
240 Sid=1 !System Identification
250 Nid=1 !Network Identification
260 Radio_config$="F1R1" !Radio Configuration
270 Service_opt$="SO2" !Service Option
280 Loss_frequency$=" 851 MHZ,896 MHZ"
290 !Reverse channel, forward channel frequencies for amplitude offset (path loss)
300 Expected_loss$=" -2,-2" !Path loss at reverse channel, forward channel frequencies
310 !
320 !
330 !******************************************************************
340 ! Display Fast Or Not
350 !******************************************************************
360 !
370 !OUTPUT Testset;"DISPLAY:MODE FAST"
380 !
390 !*****************************************************************
400 ! Test Executive
410 !*****************************************************************
420 !
430 GOSUB Preset_test_set
440 OUTPUT Testset;"DISPLAY:MODE FAST"
450 GOSUB Set_path_loss
460 GOSUB Set_call_parms
470 GOSUB Register
480 GOSUB Access
490 GOSUB Rng_openloop_ac
500 !GOSUB Fastpaging
510 GOSUB Connect
520 GOSUB Waveform_qual
530 GOSUB Gated_power
540 GOSUB Max_pow_spur
550 GOSUB Min_pow
560 GOSUB Rng_openloop_tr
570 GOSUB Open_looptime
580 GOSUB Rng_closed_loop
590 !GOSUB Traf_fer1_awgn
600 !GOSUB Traf_fer_awgn
610 !GOSUB Dynamic_range
620 !GOSUB Sensitivity
630 !
640 GOSUB Change_rc3
650 GOSUB Codedomain
660 GOSUB Code_phase_time
670 !
680 GOSUB Change_rc1
690 Handoff_chan=700
700 GOSUB Handoff_ch
710 GOSUB Waveform_qual
720 !
730 Handoff_chan=525
740 GOSUB Handoff_ch
750 GOSUB Waveform_qual
760 !
770 !Handoff_band$="USCellular"
780 !Handoff_ch=283
790 !GOSUB Handoff_bd
800 !GOSUB Handoff_ch
810 !GOSUB Waveform_qual
820 !
830 !Handoff_band$="USPCS"
840 !Handoff_ch=525
850 !GOSUB Handoff_bd
860 !GOSUB Handoff_ch
870 !GOSUB Waveform_qual
880 !
890 !GOSUB Sch_fer
900 !
910 GOTO End_program
920 !
930 !*****************************************************************
940 ! Start Test Timer
950 !*****************************************************************
960 Start_time: !
970 !
980 Start_time=TIMEDATE
990 !
1000 RETURN
1010 !
1020 !*****************************************************************
1030 ! End Test Time
1040 !*****************************************************************
1050 End_time: !
1060 !
1070 End_time=TIMEDATE
1080 !
1090 RETURN
1100 !
1110 !*****************************************************************
1120 ! PRESET TEST SET
1130 !*****************************************************************
1140 Preset_test_set: !
1150 !
1160 PRINT "Reset 8960"
1170 OUTPUT Testset;"*RST" !RESET TEST SET
1180 OUTPUT Testset;"*OPC?"
1190 ENTER Testset;Opc$
1200 RETURN
1210 !
1220 !*****************************************************************
1230 ! SET PATH LOSS VALUES
1240 !*****************************************************************
1250 Set_path_loss: !
1260 !
1270 PRINT "Set Patch Loss on 8960, 851 MHZ,896 MHZ, 2dB Loss"
1280 OUTPUT Testset;"SYST:CORR:FREQ";Loss_frequency$
1290 !Sets the frequencies for amplitude offset
1300 OUTPUT Testset;"SYST:CORR";Expected_loss$
1310 !Sets the amplitude offsets for above frequencies
1320 PRINT
1330 RETURN
1340 !
1350 !*****************************************************************
1360 ! SET UP CALL PARAMETERS
1370 !*****************************************************************
1380 Set_call_parms: !
1390 !
1400 PRINT "Setup Network/Basestation Parameter"
1410 OUTPUT Testset;"CALL:SYSTEM ";Systype$ !Sets System Type
1420 OUTPUT Testset;"CALL:BAND ";Band$ !Sets Cell Band for selected System Type
1430 OUTPUT Testset;"CALL:CHAN ";Channel
1440 !Sets RF Channel for selected System Type and Cell Band
1450 OUTPUT Testset;"CALL:POW -55" !Sets and turns on Cell Power
1460 OUTPUT Testset;"CALL:SID ";Sid ! Sets System Identification
1470 OUTPUT Testset;"CALL:NID ";Nid ! Sets Network Identification
1480 OUTPUT Testset;"CALL:CELL:RCONFIG ";Radio_config$
1490 OUTPUT Testset;"CALL:SOPTION ";Service_opt$
1500 !Sets service option for selected System Type and Radio Configuration
1510 !OUTPUT Testset;"CALL:PROT ";P_rev$!Sets Protocol Revision for the selected System Type
1520 OUTPUT Testset;"CALL:PAG:DRAT FULL" !Sets Paging data rate to full rate
1530 OUTPUT Testset;"CALL:PIL -7" !Sets pilot to default
1540 OUTPUT Testset;"CALL:SYNC -16" !Sets sync to default
1550 OUTPUT Testset;"CALL:PAG -12" !Sets paging to default
1560 !OUTPUT Testset;"CALL:FCHANNEL:LEVEL:SELECTED -15.6"!Sets traffic to default
1570 !OUTPUT Testset;"SYST:SYNC?" !Syst Sync ensures previous GPIB commands have excuted before moving on
1580 !ENTER Testset;Syst_sync$
1590 RETURN ! Sub-routine return
1600 !
1610 !*********************************************
1620 ! Fast Paging
1630 !*********************************************
1640 Fastpaging: !
1650 !
1660 PRINT "Fastpaging Setup"
1670 OUTPUT Testset;"CALL:PAGing:IMSI:MSIN '0000002072'"
1680 OUTPUT Testset;"CALL:MS:REPorted:REQuest OFF"
1690 OUTPUT Testset;"CALL:REGister:TIMer:STATe OFF"
1700 OUTPUT Testset;"CALL:REGister:PUP OFF"
1710 PRINT
1720 RETURN
1730 !
1740 !*****************************************************************
1750 ! REGISTER MOBILE
1760 !*****************************************************************
1770 Register: !
1780 !
1790 PRINT "Pls. Power On MS, Then Press F2 Continue"
1800 PAUSE
1810 PRINT "Register MS on 8960"
1820 OUTPUT Testset;"CALL:MS:REPORTED:CLEAR:ALL"
1830 ! Clear MS reported database of any previous registration data
1840 OUTPUT Testset;"CALL:REG"
1850 Reg_timer=TIMEDATE
1860 LOOP !This loop tests for the begining of registration
1870 OUTPUT Testset;"CALL:MS:REP:ESN:HEX?"
1880 ENTER Testset;Esn$
1890 Reg_time=TIMEDATE-Reg_timer
1900 EXIT IF LEN(Esn$)>3 OR Reg_time>30
1910 END LOOP
1920 IF Reg_time>30 THEN
1930 !Test for registration timeout, set for 30 seconds in EXIT IF statement above
1940 PRINT "Registration Timed Out, Check Phone Setup"
1950 GOTO End_program
1960 END IF
1970 PRINT "Mobile Registration Complete"
1980 PRINT
1990 !
2000 !*****************************************************************
2010 ! PRINT MOBILE REGISTRATION INFO
2020 !*****************************************************************
2030 !Read registration information
2040 !
2050 OUTPUT Testset;"CALL:MS:REP:ESN:HEX?"
2060 ENTER Testset;Esn$
2070 OUTPUT Testset;"CALL:MS:REP:MCC?"
2080 ENTER Testset;Mcc$
2090 OUTPUT Testset;"CALL:MS:REP:MNC?"
2100 ENTER Testset;Mnc$
2110 OUTPUT Testset;"CALL:MS:REP:MSIN?"
2120 ENTER Testset;Msin$
2130 OUTPUT Testset;"CALL:MS:REP:BCLASS?"
2140 ENTER Testset;Bclass$
2150 OUTPUT Testset;"CALL:MS:REP:EIRP?"
2160 ENTER Testset;Eirp$
2170 OUTPUT Testset;"CALL:MS:REP:OPER:MODE?"
2180 ENTER Testset;Opmode$
2190 OUTPUT Testset;"CALL:MS:REP:PREV?"
2200 ENTER Testset;Prev$
2210 !
2220 PRINT "Mobile Registration Information:"
2230 PRINT
2240 Print_res_str("Mobile ESN:",Esn$)
2250 Print_res_str("Mobile MCC:",Mcc$)
2260 Print_res_str("Mobile MNC:",Mnc$)
2270 Print_res_str("Mobile MSIN:",Msin$)
2280 Print_res_str("Mobile BAND CLASS:",Bclass$)
2290 Print_res_str("Mobile EIRP:",Eirp$)
2300 Print_res_str("Mobile OP MODE:",Opmode$)
2310 Print_res_str("Mobile P_REV:",Prev$)
2320 PRINT
2330 RETURN
2340 !
2350 !*****************************************************************************************************
2360 ! This command set queries 1 access probe power measurements.
2370 ! Mobile station should already be registered with test set prior to running the commands below.
2380 !*****************************************************************************************************
2390 !
2400 Access: !
2410 !
2420 Start_access=TIMEDATE
2430 PRINT "Access Probe Measurement"
2440 OUTPUT Testset;"CALL:END" !If no this one, error message
2450 OUTPUT Testset;"CALL:CELL:APAR:PRE 10" !Preamble size (10 frames = 200ms), lessen to get faster probes
2460 OUTPUT Testset;"CALL:CONN:LIM ON" !Turns call limit mode on
2470 OUTPUT Testset;"SET:CAPP:CONT OFF" !Sets measurement trigger to single
2480 OUTPUT Testset;"CALL:ORIG" !Call origination
2490 OUTPUT Testset;"READ:CAPP?" !
2500 !LOOP
2510 ! OUTPUT Testset;"INIT:DONE?" !Queries the test set for a string indicating which measurements are done
2520 ! ENTER Testset;Meas_done$
2530 !EXIT IF Meas_done$="CAPP"
2540 !END LOOP
2550 !OUTPUT Testset;"FETCH:CAPP?"
2560 ENTER Testset;Integrity,Access
2570 Print_results("Access Probe Power =",Access,"dBm")
2580 End_access=TIMEDATE
2590 Print_time("Access Probe Test Time=",End_access-Start_access)
2600 OUTPUT Testset;"CALL:END" !If no this one
2610 OUTPUT Testset;"CALL:CONN:LIM OFF" !Turns call limit mode on
2620 RETURN
2630 !
2640 !*****************************************************************
2650 ! CONNECT CALL
2660 !*****************************************************************
2670 Connect: !
2680 !
2690 Connect_tries=0
2700 Start_conn=TIMEDATE
2710 !
2720 PRINT "Paging mobile station..."
2730 LOOP
2740 !
2750 OUTPUT Testset;"CALL:ORIG" !Pages the mobile station
2760 OUTPUT Testset;"CALL:CONNECTED:STATE?"
2770 !Queries for connected/idle state...hangs until state change detector is disarmed
2780 ENTER Testset;Call_connected
2790 Connect_tries=Connect_tries+1
2800 IF NOT Call_connected THEN
2810 !OUTPUT Testset;"CALL:END"
2820 WAIT .2
2830 END IF
2840 EXIT IF Call_connected OR Connect_tries=50 !try 3 times to connect
2850 END LOOP
2860 IF NOT Call_connected THEN
2870 PRINT "Call attempt failed"
2880 GOTO End_program
2890 ELSE
2900 PRINT "Call connected"
2910 Current_chan=Primary_channel
2920 END IF
2930 End_conn=TIMEDATE
2940 Print_time("Call Connect Time=",End_conn-Start_conn)
2950 PRINT
2960 RETURN
2970 !*****************************************************************
2980 ! Tx Measurement based on TIA/EIA 98D/E
2990 !*****************************************************************
3000 !TIA/EIA 98D 4.3.1 Time Reference CMU200 OK
3010 !TIA/EIA 98D 4.3.2 Reverse Pilot Channel to Code Channel Time Tolerance CMU200 don't
3020 !TIA/EIA 98D 4.3.3 Reverse Pilot Channel to Code Channel Phase Tolerance CMU200 don't
3030 !TIA/EIA 98D 4.3.4 Waveform Quality and Frequency Accuracy CMU200 OK.
3040 !TIA/EIA 98D 4.3.5 Code Domain Power
3050 !TIA/EIA 98D 4.4.1 Range of Open Loop Output Power
3060 !TIA/EIA 98D 4.4.2 Time Response of Open Loop Power Control
3070 !TIA/EIA 98D 4.4.3 Access Probe Output Power
3080 !TIA/EIA 98D 4.4.4 Range of Closed Loop Power Control
3090 !TIA/EIA 98D 4.4.5 Maximum RF Output Power
3100 !TIA/EIA 98D 4.4.6 Minimum Controlled Output Power
3110 !TIA/EIA 98D 4.4.7 Standby Output Power and Gated Output Power
3120 !TIA/EIA 98D 4.4.8 Power Up Function Output Power
3130 !TIA/EIA 98D 4.4.9 Code Channel to Reverse Pilot Channel Output Power Accuracy
3140 !TIA/EIA 98D 4.4.10 Reverse Pilot Channel Transmit Phase Discontinuity
3150 !TIA/EIA 98D 4.4.11 Reverse Traffic Channel Output Power During Changes in Data Rate
3160 !TIA/EIA 98D 4.5.1 Conducted Spurious Emissions (Transmitter)
3170 !*****************************************************************
3180 !TIA/EIA 98D 4.3.2 Reverse Pilot Channel to Code Channel Time Tolerance CMU200 don't
3190 !TIA/EIA 98D 4.3.3 Reverse Pilot Channel to Code Channel Phase Tolerance CMU200 don't
3200 !*****************************************************************
3210 Code_phase_time: !
3220 !
3230 PRINT "Reverse Pilot Channel to Code Channel Time/Phase Tolerance Test"
3240 Start_timephase=TIMEDATE
3250 !***Set up measurement parameters***
3260 OUTPUT Testset;"SETUP:CCTPhase:CONTINUOUS OFF" !Sets trigger arm state to single
3270 OUTPUT Testset;"SETUP:CCTPhase:TERROR:LIMit 10ns" !Sets the time error pass/fail limit to 10ns
3280 OUTPUT Testset;"SETUP:CCTPhase:PERRor:LIMit 0.15rad" !Sets the phase error pass/fail limit to 0.15 radians
3290 !***Obtain and display code channel time/phase pass/fail results***
3300 WAIT 1
3310 OUTPUT Testset;"READ:CCTPhase?"
3320 ENTER Testset;Integrity,Time_err,Phase_err
3330 !Print_results("Integrity indicator =",Integrity,"")
3340 IF Time_err THEN
3350 PRINT "Time error test failed"
3360 ELSE
3370 PRINT "Time error test passed"
3380 END IF
3390 IF Phase_err THEN
3400 PRINT "Phase error test failed"
3410 ELSE
3420 PRINT "Phase error test passed"
3430 END IF
3440 End_timephase=TIMEDATE
3450 Print_time("Code Channel Time/Phase Measurement Test Time=",End_timephase-Start_timephase)
3460 RETURN
3470 !
3480 !*****************************************************************
3490 ! Hard Handoff
3500 !*****************************************************************
3510 Handoff_ch: !
3520 !
3530 !***Set up a hard handoff***
3540 Start_handoff=TIMEDATE
3550 PRINT "Handoff Channel to";Handoff_chan
3560 !OUTPUT Testset;"CALL:SETUP:BAND "&Handoff_band$!Specifies the cell band which call will be handed off to
3570 OUTPUT Testset;"CALL:SETUP:CHANNEL ";Handoff_chan
3580 !Specifies the channel number of the selected band which call will be handed off to
3590 !OUTPUT Testset;"CALL:SETUP:SYSTEM "&Handoff_sys$
3600 !***Perform a hard handoff***
3610 OUTPUT Testset;"CALL:HANDOFF" !Initiates a hard handoff
3620 !OUTPUT Testset;"CALL:CONNECTED:STATE?"
3630 !Queries for connected/idle state...hangs until state change detector is disarmed
3640 !ENTER Testset;Call_connected
3650 !IF NOT Call_connected THEN
3660 ! DISP "Handoff attempt failed, program stopped"
3670 ! GOTO End_program
3680 !ELSE
3690 ! PRINT
3700 ! PRINT "Handoff completed to channel: ";Handoff_chan
3710 ! PRINT "Call connected"
3720 ! PRINT
3730 ! Current_chan=Handoff_chan
3740 !END IF
3750 !
3760 End_handoff=TIMEDATE
3770 Print_time("Handoff Channel Time=",End_handoff-Start_handoff)
3780 !
3790 RETURN
3800 !
3810 !*****************************************************************
3820 ! Hard Handoff
3830 !*****************************************************************
3840 Handoff_bd: !
3850 !
3860 !***Set up a hard handoff***
3870 !
3880 Start_handoff=TIMEDATE
3890 PRINT "Handoff Band to";Handoff_band$
3900 OUTPUT Testset;"CALL:SETUP:BAND "&Handoff_band$
3910 !Specifies the cell band which call will be handed off to
3920 OUTPUT Testset;"CALL:SETUP:CHANNEL ";Handoff_chan
3930 !Specifies the channel number of the selected band which call will be handed off to
3940 !OUTPUT Testset;"CALL:SETUP:SYSTEM "&Handoff_sys$
3950 !***Perform a hard handoff***
3960 OUTPUT Testset;"CALL:HANDOFF" !Initiates a hard handoff
3970 !OUTPUT Testset;"CALL:CONNECTED:STATE?"
3980 !Queries for connected/idle state...hangs until state change detector is disarmed
3990 !ENTER Testset;Call_connected
4000 !IF NOT Call_connected THEN
4010 ! DISP "Handoff attempt failed, program stopped"
4020 ! GOTO End_program
4030 !ELSE
4040 ! PRINT
4050 ! PRINT "Handoff completed to channel: ";Handoff_chan
4060 ! PRINT "Call connected"
4070 ! PRINT
4080 ! Current_chan=Handoff_chan
4090 !END IF
4100 !
4110 End_handoff=TIMEDATE
4120 Print_time("Handoff Band Time=",End_handoff-Start_handoff)
4130 PRINT
4140 RETURN
4150 !
4160 !*****************************************************************
4170 ! WAVEFORM QUALITY TEST
4180 !*****************************************************************
4190 Waveform_qual: !
4200 !***Specify test parameters for waveform quality test***
4210 !
4220 Start_wq=TIMEDATE
4230 PRINT "Waveform Quality Measurement"
4240 Ior=-75 !Cell power
4250 Pilot=-7 !Pilot channel code domain power level for waveform quality test
4260 Traffic=-7.4 !Traffic channel code domain power level for waveform quality test
4270 !***Set up measurement parameters***
4280 OUTPUT Testset;"SETUP:WQUALITY:CONTINUOUS OFF" !Sets trigger arm state to single
4290 OUTPUT Testset;"CALL:POW ";Ior !Sets Cell Power for Test
4300 OUTPUT Testset;"CALL:PIL ";Pilot !Sets Pilot channel level
4310 OUTPUT Testset;"CALL:FCHANNEL:LEVEL:SELECTED ";Traffic !Sets Fundamental (Traffic) channel level
4320 OUTPUT Testset;"SETUP:WQU:TIMEOUT:STIME 10 S" !Sets waveform quality measurement timeout to 10 seconds
4330 !***Obtain and display measurement results***
4340 OUTPUT Testset;"SYST:SYNC?"
4350 !SYST:SYNC? ensures that previous sequencial commands have executed before going on in program
4360 ENTER Testset;Syst_sync$
4370 OUTPUT Testset;"READ:WQUALITY?"
4380 ENTER Testset;Integrity,Rho,Freq_error,Time_error,Carr_feed,Phase_err,Mag_err,Evm
4390 !Print_results("Integrity indicator = ",Integrity,"")
4400 Print_results("Rho = ",Rho,"")
4410 Print_results("Frequency error = ",Freq_error,"Hz")
4420 Print_results("Time error = ",Time_error,"us")
4430 Print_results("Carrier feedthrough = ",Carr_feed,"dBc")
4440 Print_results("Phase error = ",Phase_err,"deg")
4450 Print_results("Magnitude error = ",Mag_err,"%")
4460 Print_results("Error vector magnitude = ",Evm,"%")
4470 !
4480 End_wq=TIMEDATE
4490 Print_time("Waveform Quality Test Time=",End_wq-Start_wq)
4500 PRINT
4510 !
4520 RETURN
4530 !
4540 !*****************************************************************
4550 ! GATED POWER TEST
4560 !*****************************************************************
4570 Gated_power: !
4580 !
4590 Ior=-75 !Cell power
4600 Pilot=-7 !Pilot channel code domain power level for Gated Power test
4610 Traffic=-7.4 !Traffic channel level for Gated Power test
4620 !
4630 PRINT "Gated Output Power Test"
4640 Start_gatepw=TIMEDATE
4650 !
4660 !
4670 !***Set up measurement parameters***
4680 OUTPUT Testset;"SETUP:GPOWER:CONTINUOUS OFF" !Sets trigger arm state to single
4690 OUTPUT Testset;"SETUP:GPOWER:TIMEOUT:STIME 10 S" !Sets Gated Power measurement timeout to 10 seconds
4700 OUTPUT Testset;"CALL:POW ";Ior !Sets Cell Power for Test
4710 OUTPUT Testset;"CALL:PIL ";Pilot !Sets Pilot channel level
4720 OUTPUT Testset;"CALL:FCHANNEL:LEVEL:SELECTED ";Traffic !Sets Fundamental (Traffic) channel level
4730 OUTPUT Testset;"CALL:TRAFFIC:DRATE EIGHTH" !Sets Traffic Channel Data Rate to eighth
4740 OUTPUT Testset;"SYST:SYNC?"
4750 !SYST:SYNC? ensures that previous sequencial commands have executed before going on in program
4760 ENTER Testset;Syst_sync$
4770 WAIT .5
4780 !Experimentation has shown this wait needed to allow eighth rate to take effect
4790 !***Obtain and display measurement results***
4800 OUTPUT Testset;"READ:GPOWER?"
4810 ENTER Testset;Integrity,Gpow_p_f
4820 Print_results("Integrity indicator = ",Integrity,"")
4830 PRINT "Gated Power Test Result 0=PASS; Resutl=";Gpow_p_f
4840 End_gatepw=TIMEDATE
4850 Print_time("Gated Power Test Time=",End_gatepw-Start_gatepw)
4860 PRINT
4870 !*** Post Test clean up
4880 OUTPUT Testset;"CALL:TRAFFIC:DRATE FULL" !Sets Traffic Channel Data Rate back to full
4890 RETURN
4900 !
4910 !*****************************************************************
4920 !Max Power and TX Spurious Test
4930 !*****************************************************************
4940 Max_pow_spur: !
4950 !
4960 !***Set up test parameters***
4970 Ior=-104 ! This should be -104, however interference in test development required this level
4980 Pilot=-7
4990 Traffic=-7.4
5000 !
5010 OUTPUT Testset;"SETUP:DAPOWER:CONTINUOUS OFF" !Sets trigger arm state to single
5020 OUTPUT Testset;"SETUP:CTXS:CONTINUOUS OFF" !Sets trigger arm state to single
5030 !
5040 PRINT "Max Power Measurment"
5050 Start_max=TIMEDATE
5060 OUTPUT Testset;"CALL:APAR:POW:INIT 15" !Set Access paramters for test
5070 OUTPUT Testset;"CALL:APAR:POW:STEP 7" !Set Access paramters for test
5080 OUTPUT Testset;"CALL:APAR:SEQ:RESP 15" !Set Access paramters for test
5090 OUTPUT Testset;"CALL:APAR:SEQ:REQ 15" !Set Access paramters for test
5100 OUTPUT Testset;"CALL:PIL ";Pilot !Sets pilot channel level
5110 OUTPUT Testset;"CALL:FCHANNEL:LEVEL:SELECTED ";Traffic !Sets traffic channel level
5120 OUTPUT Testset;"CALL:POW ";Ior !Sets Cell Power Test
5130 OUTPUT Testset;"CALL:CLPCONTROL:REVERSE:MODE UP" !Starts transmission of All Up (0) power control bits
5140 WAIT .25
5150 !Settling time to allow mobile power to slew up to maximum power
5160 OUTPUT Testset;"READ:DAPOWER?"
5170 ENTER Testset;Integrity,Avg_power_dbm
5180 End_max=TIMEDATE
5190 Print_results("Maximum Power=",Avg_power_dbm,"dBm")
5200 !Print_results("Integrity=",Integrity,"")
5210 Print_time("Max Power Test Time",End_max-Start_max)
5220 PRINT
5230 !
5240 !*************************************
5250 ! Tx Spurious Emissions Test
5260 !*************************************
5270 PRINT "Tx Spurious Emissions Test"
5280 Start_tx=TIMEDATE
5290 OUTPUT Testset;"READ:CTXS?"
5300 ENTER Testset;Ctxs_integ,Ctxs_p_f,Lower_adj,Upper_adj,Lower_alt,Upper_alt
5310 !Print_results("Integrity indicator = ",Ctxs_integ,"")
5320 Print_res_str("Test Result: ",Pass_fail$)
5330 Print_results("Lower Adjacent Power=",Lower_adj,"dBc")
5340 Print_results("Upper Adjacent Power=",Upper_adj,"dBc")
5350 Print_results("Lower Alternate Power=",Lower_alt,"dBc")
5360 Print_results("Upper Alternate Power=",Upper_alt,"dBc")
5370 End_tx=TIMEDATE
5380 Print_time("Tx Spurious Test Time=",End_tx-Start_tx)
5390 PRINT
5400 !
5410 OUTPUT Testset;"CALL:CLPCONTROL:REVERSE:MODE ACTIVE" !Returns to active power control bits
5420 OUTPUT Testset;"CALL:APAR:POW:NOM 0" !Set Access paramters back to default
5430 OUTPUT Testset;"CALL:APAR:POW:INIT 0" !Set Access paramters back to default
5440 OUTPUT Testset;"CALL:APAR:POW:STEP 3" !Set Access paramters back to default
5450 OUTPUT Testset;"CALL:APAR:SEQ:RESP 1" !Set Access paramters back to default
5460 OUTPUT Testset;"CALL:APAR:SEQ:REQ 1" !Set Access paramters back to default
5470 RETURN
5480 !
5490 !
5500 !
5510 !*****************************************************************
5520 !Minimum Power Test
5530 !*****************************************************************
5540 Min_pow: !
5550 !
5560 !***Set up measurement parameters***
5570 Ior=-25
5580 Pilot=-7
5590 Traffic=-7.4
5600 PRINT "Min Power Test"
5610 Start_min=TIMEDATE
5620 OUTPUT Testset;"SETUP:CPOWER:CONTINUOUS OFF" !Sets Channel Power trigger arm state to single
5630 OUTPUT Testset;"CALL:CONNECTED:DROP:TIMER:STATE 0" !Turns off call drop timer
5640 OUTPUT Testset;"CALL:PIL ";Pilot !Sets pilot channel level
5650 OUTPUT Testset;"CALL:FCHANNEL:LEVEL:SELECTED ";Traffic !Sets traffic channel level
5660 OUTPUT Testset;"CALL:POW ";Ior !Sets Cell Power for test
5670 OUTPUT Testset;"CALL:CLPCONTROL:REVERSE:MODE DOWN" !Starts transmission of All Down (1) power control bits
5680 !***Obtain measurement results***
5690 WAIT .25 !Settling time for mobile output power to slew down
5700 GOSUB Meas_chan_pow
5710 !Print_results("Integrity=",Integrity,"")
5720 Print_results("Minimum Power=",Channel_power,"dBm")
5730 End_min=TIMEDATE
5740 Print_time("Min Power Test Time=",End_min-Start_min)
5750 PRINT
5760 !***Post Minimum Power Test Cleanup***
5770 OUTPUT Testset;"CALL:CLPCONTROL:REVERSE:MODE ACTIVE" !Returns to active power control bits
5780 OUTPUT Testset;"CALL:CONNECTED:DROP:TIMER:STATE 1" !Returns call drop timer to ON
5790 OUTPUT Testset;"RFANALYZER:CONTROL:POWER:AUTO ON"
5800 RETURN
5810 !
5820 !*****************************************************************
5830 !Open Loop Power Control Time Response
5840 !*****************************************************************
5850 Open_looptime: !
5860 !
5870 Ior=-60
5880 Pilot=-7
5890 Traffic=-7.4
5900 !
5910 !Up BS Power -60dBm to -40dBm
5920 PRINT "Openloop Time Response Test Up1 BS -60dBm to -40dBm"
5930 Start_olt=TIMEDATE
5940 OUTPUT Testset;"SETUP:CPOWER:CONTINUOUS OFF" !Sets Channel Power trigger arm state to single
5950 OUTPUT Testset;"CALL:PIL ";Pilot !Sets pilot channel level
5960 OUTPUT Testset;"CALL:FCHANNEL:LEVEL:SELECTED ";Traffic !Sets traffic channel level
5970 OUTPUT Testset;"CALL:POW ";Ior !Sets Cell Power for test
5980 !
5990 OUTPUT Testset;"SETUP:TROPOWER:STEP UP20"
6000 WAIT .125
6010 OUTPUT Testset;"READ:TROPOWER?"
6020 ENTER Testset;A1
6030 OUTPUT Testset;"CALL:CELL:POWer?"
6040 ENTER Testset;A2
6050 Print_results("Initial BS Power=",Ior,"dBm")
6060 Print_results("Current BS Power=",A2,"dBm")
6070 PRINT "Open Loop Time Response(Up) Pass or Fail; O=Pass Test Result=";A1
6080 !
6090 !Down BS Power -40dBm to -60dBm
6100 PRINT "Openloop Time Response Test Down1 BS -40dBm to -60dBm"
6110 OUTPUT Testset;"SETUP:TROPOWER:STEP DOWN20"
6120 WAIT .125
6130 OUTPUT Testset;"READ:TROPOWER?"
6140 ENTER Testset;A1
6150 OUTPUT Testset;"CALL:CELL:POWer?"
6160 ENTER Testset;A3
6170 Print_results("Initial BS Power=",A2,"dBm")
6180 Print_results("Current BS Power=",A3,"dBm")
6190 PRINT "Open Loop Time Response(Down) Pass or Fail; O=Pass Test Result=";A1
6200 !
6210 !Down BS Power -60dBm to -80dBm
6220 PRINT "Openloop Time Response Test Down2 BS -60dBm to -80dBm"
6230 OUTPUT Testset;"SETUP:TROPOWER:STEP DOWN20"
6240 WAIT .125
6250 OUTPUT Testset;"READ:TROPOWER?"
6260 ENTER Testset;A1
6270 OUTPUT Testset;"CALL:CELL:POWer?"
6280 ENTER Testset;A4
6290 Print_results("Initial BS Power=",A3,"dBm")
6300 Print_results("Current BS Power=",A4,"dBm")
6310 PRINT "Open Loop Time Response(Down) Pass or Fail; O=Pass Test Result=";A1
6320 !
6330 !Up BS Power -60dBm to -80dBm
6340 PRINT "Openloop Time Response Test Up2 BS -80dBm to -60dBm"
6350 OUTPUT Testset;"SETUP:TROPOWER:STEP UP20"
6360 WAIT .125
6370 OUTPUT Testset;"READ:TROPOWER?"
6380 ENTER Testset;A1
6390 OUTPUT Testset;"CALL:CELL:POWer?"
6400 ENTER Testset;A5
6410 Print_results("Initial BS Power=",A4,"dBm")
6420 Print_results("Current BS Power=",A5,"dBm")
6430 PRINT "Open Loop Time Response(Up) Pass or Fail; O=Pass Test Result=";A1
6440 !
6450 End_olt=TIMEDATE
6460 Print_time("Open Loop Time Response Test Time=",End_olt-Start_olt)
6470 PRINT
6480 RETURN
6490 !
6500 !*****************************************************************
6510 !Range of Open Loop Power Test Access Channel
6520 !*****************************************************************
6530 Rng_openloop_ac: !
6540 !
6550 Ior1=-25 !First level for test
6560 Ior2=-65 !Second level for test
6570 Ior3=-97 !Third level for test
6580 Pilot=-7
6590 Traffic=-7.4
6600 !
6610 OUTPUT Testset;"CALL:END"
6620 PRINT "Range of Open Loop Power Control"
6630 PRINT "Min Standard Test 1: -51 ¡À 9.5, Test 2:-11 ¡À 9.5 Test 3: 20 ¡À 9.5"
6640 !
6650 Start_ranop=TIMEDATE
6660 OUTPUT Testset;"SETUP:CPOWER:CONTINUOUS OFF" !Sets Channel Power trigger arm state to single
6670 OUTPUT Testset;"SETUP:CPOWER:MSP FAST" !Sets Channel Power measurement speed to fast
6680 OUTPUT Testset;"SETUP:CPOWER:TIMEOUT .5" !Sets Channel Power timeout to 0.5 sec
6690 OUTPUT Testset;"CALL:CONNECTED:DROP:TIMER:STATE 0" !Turns off call drop timer
6700 OUTPUT Testset;"CALL:PIL ";Pilot !Sets pilot channel level
6710 OUTPUT Testset;"CALL:FCHANNEL:LEVEL:SELECTED ";Traffic !Sets traffic channel level
6720 !OUTPUT Testset;"CALL:CLPCONTROL:REVERSE:MODE ALT" !Starts transmission of Alternating power control bits
6730 !***Obtain measurement results***
6740 OUTPUT Testset;"CALL:POW ";Ior1 !Sets Cell Power for test 1
6750 WAIT .2
6760 OUTPUT Testset;"CALL:POW?"
6770 ENTER Testset;A1
6780 Print_results("Test 1. Cell Power=",A1,"dBm")
6790 !*****************************************************
6800 !OUTPUT Testset;"CALL:CELL:APAR:PRE 10" !Preamble size (10 frames = 200ms), lessen to get faster probes
6810 OUTPUT Testset;"CALL:CONN:LIM ON" !Turns call limit mode on
6820 !OUTPUT Testset;"SET:CAPP:CONT OFF" !Sets measurement trigger to single
6830 !Access Probe
6840 !PRINT "Access Probe Measurement"
6850 !
6860 OUTPUT Testset;"CALL:ORIG" !Call origination
6870 OUTPUT Testset;"READ:CAPP?" !Initiates access probe power measurement
6880 ENTER Testset;Integrity,Access
6890 Print_results("Access Probe Power =",Access,"dBm")
6900 !
6910 OUTPUT Testset;"CALL:END" !End registration
6920 !
6930 !OUTPUT Testset;"CALL:CONN:LIM OFF"!Turns call limit mode on
6940 !GOSUB Access
6950 !Test1=Channel_power
6960 !Print_results("---MS Access Power=",Test1,"dBm")
6970 !
6980 OUTPUT Testset;"CALL:POW ";Ior2 !Sets Cell Power for test 2
6990 WAIT .2 !Settling time for mobile output power to slew
7000 OUTPUT Testset;"CALL:POW?"
7010 ENTER Testset;A1
7020 Print_results("Test 2. Cell Power=",A1,"dBm")
7030 !*****************************************************
7040 !OUTPUT Testset;"CALL:CELL:APAR:PRE 10" !Preamble size (10 frames = 200ms), lessen to get faster probes
7050 !OUTPUT Testset;"CALL:CONN:LIM ON" !Turns call limit mode on
7060 !OUTPUT Testset;"SET:CAPP:CONT OFF" !Sets measurement trigger to single
7070 !Access Probe
7080 !PRINT "Access Probe Measurement"
7090 !
7100 OUTPUT Testset;"CALL:ORIG" !Call origination
7110 OUTPUT Testset;"READ:CAPP?" !Initiates access probe power measurement
7120 ENTER Testset;Integrity,Access
7130 Print_results("Access Probe Power =",Access,"dBm")
7140 !
7150 !OUTPUT Testset;"CALL:CONN:LIM OFF"!Turns call limit mode on
7160 !GOSUB Access
7170 !
7180 !Test2=Channel_power
7190 !Print_results("---MS Access Power=",Test2,"dBm")
7200 OUTPUT Testset;"CALL:END" !End registration
7210 !
7220 OUTPUT Testset;"CALL:POW ";Ior3 !Sets Cell Power for test 3
7230 WAIT .2
7240 OUTPUT Testset;"CALL:POW?"
7250 ENTER Testset;A1
7260 Print_results("Test 3. Cell Power=",A1,"dBm")
7270 !Settling time for mobile output power to slew
7280 !*****************************************************
7290 OUTPUT Testset;"CALL:CELL:APAR:PRE 10" !Preamble size (10 frames = 200ms), lessen to get faster probes
7300 OUTPUT Testset;"CALL:CONN:LIM ON" !Turns call limit mode on
7310 OUTPUT Testset;"SET:CAPP:CONT OFF" !Sets measurement trigger to single
7320 !
7330 !Access Probe
7340 !PRINT "Access Probe Measurement"
7350 !
7360 OUTPUT Testset;"CALL:ORIG" !Call origination
7370 OUTPUT Testset;"READ:CAPP?" !Initiates access probe power measurement
7380 ENTER Testset;Integrity,Access
7390 Print_results("Access Probe Power =",Access,"dBm")
7400 !
7410 !OUTPUT Testset;"CALL:CONN:LIM OFF"!Turns call limit mode on
7420 !GOSUB Access
7430 !Test3=Channel_power
7440 !Print_results("---MS Access Power=",Test3,"dBm")
7450 !
7460 End_ranop=TIMEDATE
7470 Print_time("Range of Open Loop Power Test Time",End_ranop-Start_ranop)
7480 PRINT
7490 !***Post test clean up
7500 OUTPUT Testset;"CALL:END" !End registration
7510 OUTPUT Testset;"CALL:CONN:LIM OFF" !Turns call limit mode on
7520 !OUTPUT Testset;"CALL:CLPCONTROL:REVERSE:MODE ACTIVE"!Returns to active power control bits
7530 OUTPUT Testset;"CALL:CONNECTED:DROP:TIMER:STATE 1" !Returns call drop timer to ON
7540 OUTPUT Testset;"RFANALYZER:CONTROL:POWER:AUTO ON"
7550 !
7560 RETURN
7570 !
7580 !*****************************************************************
7590 !Range of Open Loop Power Test
7600 !*****************************************************************
7610 Rng_openloop_tr: !
7620 !
7630 Ior1=-25 !First level for test
7640 Ior2=-65 !Second level for test
7650 Ior3=-97 !Third level for test
7660 Pilot=-7
7670 Traffic=-7.4
7680 !
7690 PRINT "Range of Open Loop Power Control---Traffic Channel/Standard no define"
7700 PRINT "Min Standard MS Power(for Access Channel) Test 1: -51 ¡À 9.5, Test 2:-11 ¡À 9.5 Test 3: 20 ¡À 9.5"
7710 !
7720 Start_ranop=TIMEDATE
7730 OUTPUT Testset;"SETUP:CPOWER:CONTINUOUS OFF" !Sets Channel Power trigger arm state to single
7740 OUTPUT Testset;"SETUP:CPOWER:MSP FAST" !Sets Channel Power measurement speed to fast
7750 OUTPUT Testset;"SETUP:CPOWER:TIMEOUT .5" !Sets Channel Power timeout to 0.5 sec
7760 OUTPUT Testset;"CALL:CONNECTED:DROP:TIMER:STATE 0" !Turns off call drop timer
7770 OUTPUT Testset;"CALL:PIL ";Pilot !Sets pilot channel level
7780 OUTPUT Testset;"CALL:FCHANNEL:LEVEL:SELECTED ";Traffic !Sets traffic channel level
7790 OUTPUT Testset;"CALL:CLPCONTROL:REVERSE:MODE ALT" !Starts transmission of Alternating power control bits
7800 !***Obtain measurement results***
7810 OUTPUT Testset;"CALL:POW ";Ior1 !Sets Cell Power for test 1
7820 WAIT .2
7830 OUTPUT Testset;"CALL:POW?"
7840 ENTER Testset;A1
7850 Print_results("Test 1. Cell Power=",A1,"dBm")
7860 GOSUB Meas_chan_pow
7870 Test1=Channel_power
7880 Print_results("---MS Channel Power=",Test1,"dBm")
7890 !
7900 OUTPUT Testset;"CALL:POW ";Ior2 !Sets Cell Power for test 2
7910 WAIT .2 !Settling time for mobile output power to slew
7920 OUTPUT Testset;"CALL:POW?"
7930 ENTER Testset;A1
7940 Print_results("Test 2. Cell Power=",A1,"dBm")
7950 GOSUB Meas_chan_pow
7960 Test2=Channel_power
7970 Print_results("---MS Channel Power=",Test2,"dBm")
7980 !
7990 OUTPUT Testset;"CALL:POW ";Ior3 !Sets Cell Power for test 3
8000 WAIT .2
8010 OUTPUT Testset;"CALL:POW?"
8020 ENTER Testset;A1
8030 Print_results("Test 3. Cell Power=",A1,"dBm")
8040 !Settling time for mobile output power to slew
8050 GOSUB Meas_chan_pow
8060 Test3=Channel_power
8070 Print_results("---MS Channel Power=",Test3,"dBm")
8080 !
8090 End_ranop=TIMEDATE
8100 Print_time("Range of Open Loop Power Test Time",End_ranop-Start_ranop)
8110 PRINT
8120 !***Post test clean up
8130 !
8140 OUTPUT Testset;"CALL:CLPCONTROL:REVERSE:MODE ACTIVE" !Returns to active power control bits
8150 OUTPUT Testset;"CALL:CONNECTED:DROP:TIMER:STATE 1" !Returns call drop timer to ON
8160 OUTPUT Testset;"RFANALYZER:CONTROL:POWER:AUTO ON"
8170 !
8180 RETURN
8190 !
8200 !
8210 !*****************************************************************
8220 !Range of Closed Loop Power Test - Full Rate
8230 !*****************************************************************
8240 Rng_closed_loop: !
8250 !
8260 !
8270 !***Set up measurement parameters***
8280 !
8290 Ior=-58 !Power level for test which results in -15 dBm mobile power
8300 Pilot=-7
8310 Traffic=-7.4
8320 !
8330 Start_rncl=TIMEDATE
8340 !
8350 PRINT "Measuring Range of Closed Loop Power Full Rate"
8360 !
8370 !
8380 OUTPUT Testset;"SETUP:CPOWER:CONTINUOUS OFF" !Sets Channel Power trigger arm state to single
8390 OUTPUT Testset;"SETUP:CPOWER:MSP FAST" !Sets Channel Power measurement speed to fast
8400 OUTPUT Testset;"SETUP:CPOWER:TIMEOUT .5" !Sets Channel Power timeout to 0.5 sec
8410 OUTPUT Testset;"CALL:CONNECTED:DROP:TIMER:STATE 0" !Turns off call drop timer
8420 OUTPUT Testset;"CALL:PIL ";Pilot !Sets pilot channel level
8430 OUTPUT Testset;"CALL:FCHANNEL:LEVEL:SELECTED ";Traffic!Sets traffic channel level
8440 OUTPUT Testset;"CALL:POW ";Ior !Sets Cell Power for test
8450 WAIT .25 !Settling time for mobile power to slew
8460 !***Obtain measurement results***
8470 !
8480 GOSUB Meas_chan_pow
8490 Closed_strt=Channel_power
8500 !
8510 OUTPUT Testset;"CALL:CLPCONTROL:REVERSE:MODE UP"
8520 !Starts transmission of UP control bits
8530 WAIT .125
8540 !Wait 125 ms for 100 up PC groups
8550 OUTPUT Testset;"CALL:CLPCONTROL:REVERSE:MODE ALT"
8560 !Starts transmission of Alternating power control bits
8570 GOSUB Meas_chan_pow
8580 Closed_up_rng=Channel_power
8590 !
8600 OUTPUT Testset;"CALL:CLPCONTROL:REVERSE:MODE DOWN"
8610 !Starts transmission of UP control bits
8620 WAIT .125
8630 !Wait 125 ms for 100 up PC groups
8640 OUTPUT Testset;"CALL:CLPCONTROL:REVERSE:MODE ALT"
8650 !Starts transmission of Alternating power control bits
8660 GOSUB Meas_chan_pow
8670 Closed_dn_rng=Channel_power
8680 !
8690 PRINT "Range of Closed Loop Power Control @Full Rate Results:"
8700 !
8710 Print_results("MS output power(without CLPC)=",Closed_strt,"dBm")
8720 Print_results("MS output power(with 100 UP)=",Closed_up_rng,"dBm")
8730 Print_results("MS output power(with 100 DOWN)=",Closed_dn_rng,"dBm")
8740 !
8750 !PRINT "Integrity indicator=";Integrity,"Closed Loop Up Range=";Closed_up_rng-Closed_strt,"Closed Loop Dn Range=",Closed_strt-Closed_dn_rng
8760 !Print_results("Integrity indicator = ",Integrity,"")
8770 Print_results("Closed Loop Up Range:",Closed_up_rng-Closed_strt,"dB")
8780 Print_results("Closed Loop Dn Range:",Closed_strt-Closed_dn_rng,"dB")
8790 !
8800 End_rncl=TIMEDATE
8810 Print_time("Range of Closed Loop Power Test Time=",End_rncl-Start_rncl)
8820 PRINT
8830 OUTPUT Testset;"CALL:CLPCONTROL:REVERSE:MODE ACTIVE" !Returns to active power control bits
8840 OUTPUT Testset;"CALL:CONNECTED:DROP:TIMER:STATE 1" !Returns call drop timer to ON
8850 OUTPUT Testset;"RFANALYZER:CONTROL:POWER:AUTO ON"
8860 !
8870 RETURN
8880 !
8890 !*****************************************************************
8900 ! SENSITIVITY FRAME ERROR RATE TEST
8910 !*****************************************************************
8920 !
8930 Sensitivity: !
8940 !
8950 Ior=-104
8960 Pilot=-7
8970 Traffic=-15.6
8980 Max_frames=1000 !Maximum frames
8990 Conf_limit=.5 !0.5% confidence limit
9000 Time_out=25 !Timeout for FER measurement
9010 !
9020 Start_sen=TIMEDATE
9030 !
9040 PRINT "Receiver Sensitivity Test"
9050 OUTPUT Testset;"SETUP:CFERROR:CONFIDENCE:LEVEL 95"
9060 OUTPUT Testset;"SETUP:CFERROR:CONTINUOUS OFF" !Sets trigger arm state to single
9070 OUTPUT Testset;"SETUP:CFERROR:COUNT ";Max_frames !Sets MAXIMUM FRAMES FOR TEST
9080 OUTPUT Testset;"SETUP:CFERROR:CONF:REQ ";Conf_limit !Sets CONFIDENCE LIMIT
9090 OUTPUT Testset;"SETUP:CFERROR:TIM ";Time_out !Sets mesurement timeout
9100 OUTPUT Testset;"CALL:POW ";Ior ! Sets Cell Power for Test
9110 OUTPUT Testset;"CALL:PIL ";Pilot !Sets Pilot channel level
9120 OUTPUT Testset;"CALL:FCHANNEL:LEVEL:SELECTED ";Traffic !Sets Traffic channel level
9130 OUTPUT Testset;"READ:CFERROR?"
9140 ENTER Testset;Integrity,Fer_test,Fer_ratio,Fer_count,Frames_tested
9150 !Print_results("Integrity indicator = ",Integrity,"")
9160 Print_results("Sensitivity FER Test Results",Fer_test,"")
9170 Print_results("FER Ratio=",Fer_ratio,"%")
9180 Print_results("FER Errors Count=",Fer_count,"frames")
9190 Print_results("Frames Tested=",Frames_tested,"")
9200 !
9210 End_sen=TIMEDATE
9220 Print_time("Receiver Sensitivity Test Time=",End_sen-Start_sen)
9230 PRINT
9240 !
9250 RETURN
9260 !
9270 !
9280 !*****************************************************************
9290 ! DYNAMIC RANGE FRAME ERROR RATE TEST
9300 !*****************************************************************
9310 !
9320 Dynamic_range: !
9330 !
9340 !
9350 !***Set up measurement parameters***
9360 !
9370 Ior=-25
9380 Pilot=-7
9390 Traffic=-15.6
9400 Max_frames=1000 !Maximum frames
9410 Conf_limit=.5 !0.5% confidence limit
9420 Time_out=25 !Timeout for FER measurement
9430 !
9440 Start_dyn=TIMEDATE
9450 !
9460 PRINT "Dynamic Range Test"
9470 OUTPUT Testset;"SETUP:CFERROR:CONFIDENCE:LEVEL 95"
9480 OUTPUT Testset;"SETUP:CFERROR:CONTINUOUS OFF" !Sets trigger arm state to single
9490 OUTPUT Testset;"SETUP:CFERROR:COUNT ";Max_frames !Sets MAXIMUM FRAMES FOR TEST
9500 OUTPUT Testset;"SETUP:CFERROR:CONF:REQ ";Conf_limit !Sets CONFIDENCE LIMIT
9510 OUTPUT Testset;"SETUP:CFERROR:TIM ";Time_out !Sets mesurement timeout
9520 OUTPUT Testset;"CALL:POW ";Ior ! Sets Cell Power for Test
9530 OUTPUT Testset;"CALL:PIL ";Pilot !Sets Pilot channel level
9540 OUTPUT Testset;"CALL:FCHANNEL:LEVEL:SELECTED ";Traffic !Sets Traffic channel level
9550 !***Obtain measurement results***
9560 OUTPUT Testset;"READ:CFERROR?"
9570 ENTER Testset;Integrity,Fer_test,Fer_ratio,Fer_count,Frames_tested
9580 !Print_results("Integrity indicator = ",Integrity,"")
9590 Print_results("Dynamic Rng FER Test Pass or Fail, Pass=0: ",Fer_test,"")
9600 Print_results("FER Ratio",Fer_ratio,"%")
9610 Print_results("FER Errors Count",Fer_count,"frames")
9620 Print_results("Frames Tested",Frames_tested,"")
9630 !
9640 End_dyn=TIMEDATE
9650 Print_time("Dynamic Range Test Time=",End_dyn-Start_dyn)
9660 PRINT
9670 !
9680 RETURN
9690 !
9700 !
9710 !***********************************************************************
9720 ! TRAFFIC FRAME ERROR RATE WITH AWGN TEST 1 - Eb/Nt = 3.77, FULL RATE
9730 !***********************************************************************
9740 Traf_fer1_awgn: !
9750 !
9760 !***Set up measurement parameters***
9770 !
9780 Ior=-55 !FORWARD CHANNEL POWER
9790 Ioc=-54 !AWGN POWER
9800 Pilot=-7
9810 Traffic=-7.4 !FULL RATE TRAFFIC Ec/Ior VALUE
9820 Max_frames=1000 !Maximum frames
9830 Conf_limit=.5 !3% confidence limit
9840 Time_out=25 !Timeout for FER measurement
9850 !
9860 Start_fer=TIMEDATE
9870 PRINT "FER Test 1 Test"
9880 OUTPUT Testset;"SETUP:CFERROR:CONFIDENCE:LEVEL 95"
9890 OUTPUT Testset;"SETUP:CFERROR:CONTINUOUS OFF" !Sets trigger arm state to single
9900 OUTPUT Testset;"SETUP:CFERROR:COUNT ";Max_frames !Sets MAXIMUM FRAMES FOR TEST
9910 OUTPUT Testset;"SETUP:CFERROR:CONF:REQ ";Conf_limit !Sets CONFIDENCE LIMIT
9920 OUTPUT Testset;"SETUP:CFERROR:TIM ";Time_out !Sets mesurement timeout
9930 OUTPUT Testset;"CALL:POW ";Ior !Sets Cell Power for Test
9940 OUTPUT Testset;"CALL:PIL ";Pilot !Sets Pilot channel level
9950 OUTPUT Testset;"CALL:TRAF:DRAT FULL" !Sets traffic drate to FULL
9960 OUTPUT Testset;"CALL:FCHANNEL:LEVEL:SELECTED ";Traffic !Sets Traffic channel level
9970 OUTPUT Testset;"CALL:AWGN:POW ";Ioc !Sets AWGN POWER level
9980 !
9990 !
10000 !FER Test1 9600bps,FCH -7.4 dB
10010 OUTPUT Testset;"READ:CFERROR?"
10020 ENTER Testset;Integrity,Fer_test,Fer_ratio,Fer_count,Frames_tested
10030 !Print_results("Integrity indicator = ",Integrity,"")
10040 Print_results("FER Test1 Pass or Fail, 0=Pass: ",Fer_test,"")
10050 Print_results("FER Ratio",Fer_ratio,"%")
10060 Print_results("FER Errors Count",Fer_count,"frames")
10070 Print_results("Frames Tested",Frames_tested,"")
10080 !
10090 End_fer=TIMEDATE
10100 Print_time("FER Test1 Test Time=",End_fer-Start_fer)
10110 PRINT
10120 !
10130 !***Post Test Clean up
10140 !
10150 OUTPUT Testset;"CALL:AWGN:POW:STATE OFF" !Sets AWGN POWER level
10160 RETURN
10170 !
10180 !***********************************************************************
10190 ! TRAFFIC FRAME ERROR RATE WITH AWGN
10200 !***********************************************************************
10210 Traf_fer_awgn: !
10220 !
10230 !***Set up measurement parameters***
10240 !
10250 Ior=-55 !FORWARD CHANNEL POWER
10260 Ioc=-54 !AWGN POWER
10270 Pilot=-7
10280 Traffic=-16.3 !FULL RATE TRAFFIC Ec/Ior VALUE
10290 Max_frames=1000 !Maximum frames
10300 Conf_limit=.5 !3% confidence limit
10310 Time_out=25 !Timeout for FER measurement
10320 !
10330 Start_fer=TIMEDATE
10340 PRINT "FER Test"
10350 OUTPUT Testset;"SETUP:CFERROR:CONFIDENCE:LEVEL 95"
10360 OUTPUT Testset;"SETUP:CFERROR:CONTINUOUS OFF" !Sets trigger arm state to single
10370 OUTPUT Testset;"SETUP:CFERROR:COUNT ";Max_frames !Sets MAXIMUM FRAMES FOR TEST
10380 OUTPUT Testset;"SETUP:CFERROR:CONF:REQ ";Conf_limit !Sets CONFIDENCE LIMIT
10390 OUTPUT Testset;"SETUP:CFERROR:TIM ";Time_out !Sets mesurement timeout
10400 OUTPUT Testset;"CALL:POW ";Ior !Sets Cell Power for Test
10410 OUTPUT Testset;"CALL:PIL ";Pilot !Sets Pilot channel level
10420 OUTPUT Testset;"CALL:TRAF:DRAT FULL" !Sets traffic drate to FULL
10430 OUTPUT Testset;"CALL:FCHANNEL:LEVEL:SELECTED ";Traffic !Sets Traffic channel level
10440 OUTPUT Testset;"CALL:AWGN:POW ";Ioc !Sets AWGN POWER level
10450 !
10460 !
10470 !FER Test1 9600bps,FCH ---16.3 dB
10480 PRINT "FCH Demodulation with AWGN Test1 9.6kbps, FCH=-16.3dB"
10490 OUTPUT Testset;"READ:CFERROR?"
10500 ENTER Testset;Integrity,Fer_test,Fer_ratio,Fer_count,Frames_tested
10510 !Print_results("Integrity indicator = ",Integrity,"")
10520 Print_results("FER Test1 Pass or Fail, 0=Pass: ",Fer_test,"")
10530 Print_results("FER Ratio",Fer_ratio,"%")
10540 Print_results("FER Errors Count",Fer_count,"frames")
10550 Print_results("Frames Tested",Frames_tested,"")
10560 PRINT
10570 !
10580 !FER Test2 9600bps,FCH -15.8 dB
10590 PRINT "FCH Demodulation with AWGN Test2 9.6kbps, FCH=-15.8dB"
10600 OUTPUT Testset;"CALL:FCHANNEL:LEVEL:SELECTED ";-15.8
10610 OUTPUT Testset;"READ:CFERROR?"
10620 ENTER Testset;Integrity,Fer_test,Fer_ratio,Fer_count,Frames_tested
10630 !Print_results("Integrity indicator = ",Integrity,"")
10640 Print_results("FER Test2 Pass or Fail, 0=Pass: ",Fer_test,"")
10650 Print_results("FER Ratio",Fer_ratio,"%")
10660 Print_results("FER Errors Count",Fer_count,"frames")
10670 Print_results("Frames Tested",Frames_tested,"")
10680 PRINT
10690 !
10700 !FER Test3 9600bps,FCH -15.6 dB
10710 PRINT "FCH Demodulation with AWGN Test3 9.6kbps, FCH=-15.6dB"
10720 OUTPUT Testset;"CALL:FCHANNEL:LEVEL:SELECTED ";-15.6
10730 OUTPUT Testset;"READ:CFERROR?"
10740 ENTER Testset;Integrity,Fer_test,Fer_ratio,Fer_count,Frames_tested
10750 !Print_results("Integrity indicator = ",Integrity,"")
10760 Print_results("FER Test3 Pass or Fail, 0=Pass: ",Fer_test,"")
10770 Print_results("FER Ratio",Fer_ratio,"%")
10780 Print_results("FER Errors Count",Fer_count,"frames")
10790 Print_results("Frames Tested",Frames_tested,"")
10800 PRINT
10810 !
10820 !FER Test4 4800bps,FCH -19.1 dB
10830 PRINT "FHC Demodulation with AWGN Test4 4.8kbps, FCH=-19.1dB"
10840 OUTPUT Testset;"CALL:TRAF:DRAT HALF"
10850 OUTPUT Testset;"CALL:FCHANNEL:LEVEL:SELECTED ";-19.1
10860 OUTPUT Testset;"READ:CFERROR?"
10870 ENTER Testset;Integrity,Fer_test,Fer_ratio,Fer_count,Frames_tested
10880 !Print_results("Integrity indicator = ",Integrity,"")
10890 Print_results("FER Test4 Pass or Fail, 0=Pass: ",Fer_test,"")
10900 Print_results("FER Ratio",Fer_ratio,"%")
10910 Print_results("FER Errors Count",Fer_count,"frames")
10920 Print_results("Frames Tested",Frames_tested,"")
10930 PRINT
10940 !
10950 !FER Test5 2400bps,FCH -21.6 dB CMU200 can't do
10960 PRINT "FHC Demodulation with AWGN Test5 2.4kbps, FCH=-21.6dB"
10970 OUTPUT Testset;"CALL:TRAF:DRAT QUARter"
10980 OUTPUT Testset;"CALL:FCHANNEL:LEVEL:SELECTED ";-21.6
10990 OUTPUT Testset;"READ:CFERROR?"
11000 ENTER Testset;Integrity,Fer_test,Fer_ratio,Fer_count,Frames_tested
11010 !Print_results("Integrity indicator = ",Integrity,"")
11020 Print_results("FER Test5 Pass or Fail, 0=Pass: ",Fer_test,"")
11030 Print_results("FER Ratio",Fer_ratio,"%")
11040 Print_results("FER Errors Count",Fer_count,"frames")
11050 Print_results("Frames Tested",Frames_tested,"")
11060 PRINT
11070 !
11080 !FER Test6 1200bps,FCH -24.5 dB
11090 PRINT "FHC Demodulation with AWGN Test6 1.2kbps, FCH=-24.5dB"
11100 OUTPUT Testset;"CALL:TRAF:DRAT EIGHth"
11110 OUTPUT Testset;"CALL:FCHANNEL:LEVEL:SELECTED ";-24.5
11120 OUTPUT Testset;"READ:CFERROR?"
11130 ENTER Testset;Integrity,Fer_test,Fer_ratio,Fer_count,Frames_tested
11140 !Print_results("Integrity indicator = ",Integrity,"")
11150 Print_results("FER Test6 Pass or Fail, 0=Pass: ",Fer_test,"")
11160 Print_results("FER Ratio",Fer_ratio,"%")
11170 Print_results("FER Errors Count",Fer_count,"frames")
11180 Print_results("Frames Tested",Frames_tested,"")
11190 PRINT
11200 !***Post Test Clean up
11210 End_fer=TIMEDATE
11220 Print_time("FER Test Time=",End_fer-Start_fer)
11230 OUTPUT Testset;"CALL:AWGN:POW:STATE OFF" !Sets AWGN POWER level
11240 RETURN
11250 !
11260 !***********************************************************************
11270 !TDSO FER WITH AWGN
11280 !***********************************************************************
11290 Sch_fer: !
11300 !
11310 !***Set up measurement parameters***
11320 !
11330 Ior=-55 !FORWARD CHANNEL POWER
11340 Ioc=-54 !AWGN POWER
11350 Pilot=-7
11360 Traffic=-7 !FULL RATE TRAFFIC Ec/Ior VALUE
11370 Max_frames=512 !Maximum frames
11380 Conf_limit=.5 !5% confidence limit
11390 Time_out=60 !Timeout for FER measurement
11400 !
11410 GOSUB Endofcall
11420 !
11430 !
11440 OUTPUT Testset;"SETUP:TFERROR:CONTINUOUS OFF" !Sets trigger arm state to single
11450 OUTPUT Testset;"SETUP:TFERROR:COUNT ";Max_frames !Sets MAXIMUM FRAMES FOR TEST
11460 OUTPUT Testset;"SETUP:TFERROR:TIM ";Time_out !Sets mesurement timeout
11470 !
11480 OUTPUT Testset;"CALL:POW ";Ior !Sets Cell Power for Test
11490 !OUTPUT Testset;"CALL:PIL ";Pilot !Sets Pilot channel level
11500 OUTPUT Testset;"CALL:PIL -7" !Sets pilot to default
11510 OUTPUT Testset;"CALL:SYNC -16" !Sets sync to default
11520 OUTPUT Testset;"CALL:PAG -12" !Sets paging to default
11530 OUTPUT Testset;"CALL:FCHANNEL:LEVEL:SELECTED ";Traffic !Sets Traffic channel level
11540 OUTPUT Testset;"CALL:AWGN:POW ";Ioc !Sets AWGN POWER level
11550 OUTPUT Testset;"CALL:CELL:RCONFIG F3R3"
11560 OUTPUT Testset;"CALL:CELL:SOPTION SOFS32"
11570 !
11580 OUTPUT Testset;"CALL:SCHANNEL:FORWARD:DRATE:RCONFIG3 BPS19200"
11590 OUTPUT Testset;"CALL:SCHANNEL:FORWARD:SLEVEL:SELECTED -13.6"
11600 !
11610 GOSUB Connect
11620 !
11630 PRINT "SCH TDSO Test"
11640 !
11650 PRINT "TDSO SCH FER Test1(TIA/EIA-98D Test 82)/RC3, SCH=-13.6dB, 19.2kbps"
11660 !!!TDSO FER Test1 19200bps,SCH -13.6 dB TIA/EIA 98D Test 82,83,84,85
11670 Start_schfer=TIMEDATE
11680 !
11690 OUTPUT Testset;"READ:TFERROR?"
11700 !returns Integrity, frame error rate, received
11710 !good frames, received blank frames, transmitted
11720 !good frames, transmitted blank frames,
11730 !frame error rate confidence)
11740 ENTER Testset;Integrity,Fer_test,Goodframe,Blankframe,Trgood,Tranblank,Frconfidence
11750 !Print_results("Integrity indicator = ",Integrity,"")
11760 !
11770 Print_results("SCH FER Ratio",Fer_test,"%")
11780 Print_results("Received Good Frame",Goodframe,"")
11790 Print_results("Received Blank Frame",Blankframe,"")
11800 Print_results("Transmitted Good Frame",Trgood,"")
11810 Print_results("Transmitted Blank Frames",Tranblank,"")
11820 Print_results("SCH FER Confidence=",Frconfidence,"")
11830 End_schfer=TIMEDATE
11840 Print_time("TDSO SCH FER Test1 Test Time=",End_schfer-Start_schfer)
11850 !PRINT
11860 !
11870 OUTPUT Testset;"CALL:END"
11880 !8960 can not change SCH data rate during call connection
11890 !!!TDSO FER Test2 38400bps,SCH -10.3 dB
11900 PRINT "TDSO SCH FER Test2(TIA/EIA-98D Test 83)/RC3, SCH=-10.3dB, 38.4kbps"
11910 OUTPUT Testset;"CALL:SCHANNEL:FORWARD:DRATE:RCONFIG3 BPS38400"
11920 OUTPUT Testset;"CALL:SCHANNEL:FORWARD:SLEVEL:SELECTED -10.3"
11930 !
11940 GOSUB Connect
11950 OUTPUT Testset;"READ:TFERROR?"
11960 ENTER Testset;Integrity,Fer_test,Goodframe,Blankframe,Trgood,Tranblank,Frconfidence
11970 !Print_results("Integrity indicator = ",Integrity,"")
11980 !
11990 Print_results("SCH FER Ratio",Fer_test,"%")
12000 Print_results("Received Good Frame",Goodframe,"")
12010 Print_results("Received Blank Frame",Blankframe,"")
12020 Print_results("Transmitted Good Frame",Trgood,"")
12030 Print_results("Transmitted Blank Frames",Tranblank,"")
12040 Print_results("SCH FER Confidence=",Frconfidence,"")
12050 !
12060 OUTPUT Testset;"CALL:END"
12070 !!!TDSO FER Test3 76800bps,SCH -7.0 dB
12080 PRINT "TDSO SCH FER Test3(TIA/EIA-98D Test 84)/RC3, SCH=-7.0dB, 76.8kbps"
12090 OUTPUT Testset;"CALL:SCHANNEL:FORWARD:DRATE:RCONFIG3 BPS76800"
12100 OUTPUT Testset;"CALL:SCHANNEL:FORWARD:SLEVEL:SELECTED -7.0"
12110 !
12120 GOSUB Connect
12130 OUTPUT Testset;"READ:TFERROR?"
12140 ENTER Testset;Integrity,Fer_test,Goodframe,Blankframe,Trgood,Tranblank,Frconfidence
12150 !Print_results("Integrity indicator = ",Integrity,"")
12160 !
12170 Print_results("SCH FER Ratio",Fer_test,"%")
12180 Print_results("Received Good Frame",Goodframe,"")
12190 Print_results("Received Blank Frame",Blankframe,"")
12200 Print_results("Transmitted Good Frame",Trgood,"")
12210 Print_results("Transmitted Blank Frames",Tranblank,"")
12220 Print_results("SCH FER Confidence=",Frconfidence,"")
12230 !
12240 OUTPUT Testset;"CALL:END"
12250 !!!TDSO FER Test4 153.6Kbps,SCH -3.7 dB CMU200 can't do it since FCH <-7.0dB)
12260 PRINT "TDSO SCH FER Test4(TIA/EIA-98D Test 85)/RC3, SCH=-3.7dB, 153.6kbps!CMU200 CAN'T DO"
12270 OUTPUT Testset;"CALL:SCHANNEL:FORWARD:DRATE:RCONFIG3 BPS153600"
12280 WAIT 2
12290 OUTPUT Testset;"CALL:SCHANNEL:FORWARD:SLEVEL:SELECTED -3.7"
12300 !
12310 GOSUB Connect
12320 OUTPUT Testset;"READ:TFERROR?"
12330 ENTER Testset;Integrity,Fer_test,Goodframe,Blankframe,Trgood,Tranblank,Frconfidence
12340 !Print_results("Integrity indicator = ",Integrity,"")
12350 !
12360 Print_results("SCH FER Ratio",Fer_test,"%")
12370 Print_results("Received Good Frame",Goodframe,"")
12380 Print_results("Received Blank Frame",Blankframe,"")
12390 Print_results("Transmitted Good Frame",Trgood,"")
12400 Print_results("Transmitted Blank Frames",Tranblank,"")
12410 Print_results("SCH FER Confidence=",Frconfidence,"")
12420 !
12430 OUTPUT Testset;"CALL:END"
12440 PRINT
12450 !
12460 !
12470 RETURN
12480 !
12490 !***************************************************************************************
12500 ! MEASURE CHANNEL POWER SUB-ROUTINE. IMPLEMENTS SIMPLE RANGING INCASE OVER/UNDER RANGE,
12510 ! Set to Faster
12520 !***************************************************************************************
12530 !
12540 Meas_chan_pow: !
12550 !
12560 FOR I=1 TO 5
12570 !OUTPUT Testset;"INITIATE:CPOWER" !Initiates a channel power measurement
12580 !OUTPUT Testset;"FETCh:CPOWER?" !Read channel power measurement
12590 OUTPUT Testset;"READ:CPOWER?"
12600 ENTER Testset;Integrity,Channel_power
12610 ! Read Integrity bit and channel power result
12620 IF (Integrity=6 OR Integrity=5) AND 30>Channel_power>-80 THEN
12630 !Measuement out of-range, recover by setting Receiver control to manual and entering
12640 !measured level as expected level
12650 OUTPUT Testset;"RFANALYZER:CONTROL:POWER:AUTO OFF"
12660 OUTPUT Testset;"RFANALYZER:MANUAL:POWER:SELECTED ";INT(Channel_power);" DBM"
12670 !Set receiver control from Auto to manual to the measured level
12680 ELSE
12690 I=5
12700 END IF
12710 !
12720 NEXT I
12730 !
12740 RETURN
12750 !
12760 !***************************************************************************************
12770 ! RC1 to RC3
12780 !***************************************************************************************
12790 Change_rc3: !
12800 !
12810 Start_rc=TIMEDATE
12820 PRINT "Chang RC1 to RC3"
12830 OUTPUT Testset;"CALL:CELL:SOPTION:RCONFIG3 SO2"
12840 !Service_opt$!Sets service option for selected System Type and Radio Configuration
12850 OUTPUT Testset;"CALL:CELL:RCONFIG F3R3"
12860 OUTPUT Testset;"CALL:CELL:RCONFIG?"
12870 ENTER Testset;A$
12880 PRINT "Current RC=";A$
12890 !
12900 End_rc=TIMEDATE
12910 Print_time("Change RC1 to RC3 Time=",End_rc-Start_rc)
12920 PRINT
12930 RETURN
12940 !
12950 !***************************************************************************************
12960 ! RC3 to RC1
12970 !***************************************************************************************
12980 Change_rc1: !
12990 !
13000 Start_rc=TIMEDATE
13010 PRINT "Change RC3 to RC1"
13020 OUTPUT Testset;"CALL:CELL:RCONFIG F1R1"
13030 OUTPUT Testset;"CALL:CELL:RCONFIG?"
13040 ENTER Testset;A$
13050 PRINT "Current RC=";A$
13060 !
13070 End_rc=TIMEDATE
13080 Print_time("Change RC3 to RC1 Time=",End_rc-Start_rc)
13090 PRINT
13100 RETURN
13110 !
13120 !*****************************************************************
13130 !Code Domain Power Measurement
13140 !*****************************************************************
13150 Codedomain: !
13160 !
13170 Start_code=TIMEDATE
13180 !
13190 PRINT "Code Domain Power Measurement"
13200 !*****************************************************************
13210 ! WAVEFORM/Code Domain QUALITY TEST setup
13220 !*****************************************************************
13230 !***Specify test parameters for waveform quality test***
13240 Ior=-75 !Cell power
13250 Pilot=-7 !Pilot channel code domain power level for waveform quality test
13260 Traffic=-7.4 !Traffic channel code domain power level for waveform quality test
13270 !
13280 !***Set up measurement parameters***
13290 OUTPUT Testset;"SETUP:WQUALITY:CONTINUOUS OFF" !Sets trigger arm state to single
13300 OUTPUT Testset;"CALL:POW ";Ior !Sets Cell Power for Test
13310 OUTPUT Testset;"CALL:PIL ";Pilot !Sets Pilot channel level
13320 OUTPUT Testset;"CALL:FCH ";Traffic
13330 !Sets Fundamental (Traffic) channel level
13340 OUTPUT Testset;"SETUP:WQU:TIMEOUT:STIME 10 S"
13350 !Sets waveform quality measurement timeout to 10 seconds
13360 !***Obtain and display measurement results***
13370 OUTPUT Testset;"SYST:SYNC?"
13380 !SYST:SYNC? ensures that previous sequencial commands have executed before going on in program
13390 ENTER Testset;Syst_sync$
13400 !
13410 OUTPUT Testset;"INITIATE:WQUALITY"
13420 !OUTPUT Testset;"INITIATE:WQUALITY"!Initiates a Waveform Quality measurement
13430 !WAIT .25
13440 OUTPUT Testset;"FETCh:WQUality:CDPower:IQINactive?"
13450 ENTER Testset;Iq_passfail
13460 PRINT "Iq_PASSFail";Iq_passfail
13470 !
13480 SELECT Iq_passfail
13490 CASE 0
13500 PRINT "Code Domain Power Measurement Passed"
13510 CASE 1
13520 PRINT "Code Domain Power Measurement Failed"
13530 END SELECT
13540 !***Obtain and display code domain power measurement results (I-channel)***
13550 !DIM Cdp$[1000]
13560 !OUTPUT Testset;"FETCH:WQUALITY:CDPOWER:PILOT?"
13570 !Queries the reverse pilot code domain power information.
13580 !ENTER Testset;Cdp$
13590 !Comma=1
13600 !A=VAL(Cdp$[Comma;16])
13610 !SELECT A
13620 ! CASE 0
13630 ! PRINT "Pilot Channel --- I"
13640 ! CASE 1
13650 ! PRINT "Pilot Channel --- Q"
13660 !END SELECT
13670 !Comma=Comma+17
13680 !Print_results(" Walsh Channel Number = ",VAL(Cdp$[Comma;16]),"")
13690 !Comma=Comma+17
13700 !Print_results(" Spread Factor = ",VAL(Cdp$[Comma;16]),"")
13710 !Comma=Comma+17
13720 !Print_results(" Power Level = ",VAL(Cdp$[Comma;16]),"dB")
13730 End_code=TIMEDATE
13740 Print_time("Code Domain Power Test Time=",End_code-Start_code)
13750 PRINT
13760 RETURN
13770 !
13780 !*****************************************************************
13790 ! End of call
13800 !*****************************************************************
13810 Endofcall: !
13820 !
13830 OUTPUT Testset;"CALL:END"
13840 OUTPUT Testset;"CALL:STAT:STAT?"
13850 ENTER Testset;Call_status$
13860 PRINT "Call Ended, Status:",Call_status$
13870 RETURN
13880 !
13890 !*****************************************************************
13900 ! End of All Testing Cleanup
13910 !*****************************************************************
13920 End_program: !
13930 !***End Call and Return to default call processing settings***
13940 !
13950 !OUTPUT Testset;"CALL:POW -50" ! Returns cell power to -50 dBm/1.23 MHz
13960 !OUTPUT Testset;"CALL:REGISTER:TIMER:STATE ON"
13970 !Turns on timer-based registrations
13980 OUTPUT Testset;"CALL:END"
13990 OUTPUT Testset;"CALL:STAT:STAT?"
14000 ENTER Testset;Call_status$
14010 PRINT "Call Ended, Status:",Call_status$
14020 !Print_results("Total Test Time= ",End_time-Start_time," Seconds")
14030 !
14040 !OUTPUT Testset;"CALL:CHAN ";Channel
14050 !Sets Primary RF Channel for selected System Type and Cell Band
14060 !
14070 PRINT "End of Program"
14080 END
14090 !
14100 !*****************************************************************
14110 ! Sub-program Section
14120 !*****************************************************************
14130 !
14140 Timeout: SUB Timeout ! Global timeout handler (from Step 1)
14150 COM Testset
14160 PRINT "Program timed out"
14170 CLEAR 7
14180 CLEAR Testset
14190 STOP
14200 SUBEND
14210 !
14220 Print_results: SUB Print_results(Meas_name$,Res1,Units$)
14230 !
14240 PRINT USING "5X,50A,5X,M8D.4D,1X,15A";Meas_name$;Res1;Units$
14250 !
14260 SUBEND
14270 !
14280 Print_res_str: SUB Print_res_str(String_name$,Results$)
14290 !
14300 PRINT USING "5X,30A,5X,20A";String_name$;Results$
14310 !
14320 SUBEND
14330 !
14340 DEF FNConnected
14350 COM Testset
14360 OUTPUT Testset;"CALL:CONN:STAT?"
14370 ENTER Testset;Call_status
14380 RETURN Call_status
14390 !
14400 FNEND
14410 !
14420 Print_time: SUB Print_time(Meas_name$,Res1)
14430 !
14440 PRINT USING "5X,60A,1X,M8D.4D,1X,8A";Meas_name$,Res1,"seconds"
14450 !
14460 SUBEND