Programming Example
1 ! String to hold data for MTA uplink upper Limits
2 DIM UL$[100]
3 ! String to hold data for MTA uplink lower Limits
4 DIM LL$[100
5 ! Arry to hold MTA measurement results
6 ! including integrity indicator
7 DIM Mta_levels(20)
8 !
9 !*** Define Pass Fail Limits for all 20 tones ***
10 !
11 UL$="-8,-8,-8,-7,-7,-6,-6,-6,-6,-6,-6,-6,-6,-6,-6,-6,-6,-6,-6,-6"
12 LL$="-12,-12,-12,-11,-11,-10,-10,-10,-10,-10,-10,-11,-11,-11,-13,-13,-13,-16,-16,-18"
13 !
14 !
15 OUTPUT 714;"SETUP:MTA:LEVEL:ALL:LIMIT:UPPER "&Mta_uplink_ul$
16 OUTPUT 714;"SETUP:MTA:LEVEL:ALL:LIMIT:LOWER "&Mta_uplink_ll$
17 !
18 !
19 !*** multi-tone audio measurement setup ***
20 !
21 !UPLINK MEASUREMENT MODE
22 OUTPUT 714;"SETUP:MTAUDIO:MEAS:MODE UPLINK'
23 OUTPUT 714;"CALL:TCH:DOWNLINK:SPEECH NONE"
24 !SET SINAD DISTORTION STATE TO OFF
25 OUTPUT 714;"SETUP:MTAUDIO:SDIS:STATE 0'
26 OUTPUT 714;"SETUP:MTAUDIO:COUNT 20" !averaging of 20
27 OUTPUT 714;"SETUP:MTAUDIO:SETT .1" !SETTLING TIME OF .1 SECONDS
28 !PRESET 100 HZ SPACING
29 OUTPUT 714;"SETUP:MTAUDIO:GEN:FREQ:PRESET MTA100"
30 !TOTAL GENERATOR LEVEL in V
31 OUTPUT 714;"SETUP:MTAUDIO:GEN:LEVEL:UPLINK:ALL:TOTAL 1.2"
32 !
33 OUTPUT 714;"SETUP:MTAUDIO:REF:ABS:LEVEL:UPLINK 7"
34 !
35 !*** Multi-tone audio individual 20 tone level measurements
36 !
37 OUTPUT 714;"INIT:MTA"
38 !
39 OUTPUT 714;"FETCH:MTA:LEVEL?"
40 ENTER 714;Mta_levels(*)
41 !
42 OUTPUT 714;"FETCH:MTA:INTEGRITY?"
43 ENTER 714;Integrity
44 !
45 OUTPUT 714;"FETCH:MTA:VOLTAGE?"
46 ENTER 714;Uplink_volts
47 !
48 OUTPUT 714;"FETCH:MTA:LEVEL:LIMIT:FAIL?"
49 ENTER 714;Pass_fail
50 !
51 SELECT Pass_fail
52 !
53 Case 0
54 Pass_fail$ = "Passed"
55 Case 1
56 Pass_fail$ = "Failed"
57 Case Else
58 Pass_fail$ = "Unknown"
59 End Select
60 !
61 !*** UpLink Distortion Test
62 !
63 OUTPUT 714;"SETUP:MTAUDIO:COUNT 1" !averaging of 3
64 !SET SINAD DISTORTION STATE TO ON
65 OUTPUT 714;"SETUP:MTAUDIO:SDIS:STATE 1"
66 !PRESET SINE 1000 HZ SINGLE TONE
67 OUTPUT 714;"SETUP:MTAUDIO:GEN:FREQ:PRESET SIN1000"
68 !TOTAL GENERATOR LEVEL
69 OUTPUT 714;"SETUP:MTAUDIO:GEN:LEVEL:UPLINK:ALL:TOTAL 1"
70 OUTPUT 714;"SETUP:MTAUDIO:REF:ABS:LEVEL:UPLINK 15"
71 !
72 OUTPUT 714;"INIT:MTA"
73 !
74 OUTPUT 714;"FETCH:MTA:DISTORTION?;SINAD?;VOLTAGE?"
75 ENTER 714;Uplink_dist,Uplink_sinad,Dist_volts
76 !
77 !*** Print Results ***
78 !
79 Print
80 Print_title ("MultiTone Audio Uplink Test")
81 Print_results("Channel= ",Current_chan,"")
82 Print
83 !
84 Print_results("Integrity indicator = ",Integrity,"")
85 Print
86 Print_results("Uplink Audio Level =",Uplink_volts," %")
87 Print
88 !
89 For I = 1 To 20
90 Print_results("Tone "&VAL$(I),Mta_levels(I)," dB")
91 Next I
92 !
93 !
94 Print_res_str("Test Result: ",Pass_fail$)
95 Print
96 !
97 Print_results("Uplink Distortion 1000 Hz =",Uplink_dist," %")
98 Print_results("Uplink SINAD 1000 Hz =",Uplink_sinad," dB")
99 Print_results("Uplink Level 1000 Hz =",Dist_volts," %")