Anritsu MT8801C - Page 453

Section 7 Sample Programs
7-38
4) Code module file: ATXMEAS.BAS
1 '----------------------------
2 ' MT88Ø1C GPIB Sample Program
3 ' Analog TX Measure
4 '----------------------------
5'
6'
7'
8 Sub ATX_Measure ()
9 Dim RFFreq$, RFPwr$, RFDev$, AFLvl$, AFDstn$,
AFFreq$
1Ø '
11 Call ibwrt(Ans%, "MEAS ATXSG")'
Moves to the screen of analog TX measure-
ment with signal generator.
12 Call ibwrt(Ans%, "AFREQ1 6ØØØHZ")'
Sets frequency of AF oscillator for SAT
modulation to 6 kHz.
13 Call ibwrt(Ans%, "AOUT1 ON")'
Sets AF oscillator for SAT modulation to On.
14 Call ibwrt(Ans%, "ADEV1 2KHZ")'
Sets SAT modulation to 2 kHz.
15 Call ibwrt(Ans%, "RRLVL ON")'
Sets RF output to On.
16 Call ibwrt(Ans%, "OLVL -5ØDBM")'
Set RF output level to -50 dBm.
17 '
18 Call ibwrt(Ans%, "AOPF2 AF")'
Sets AF oscillator 2 to AF output (for mi-
crophone input use).
19 Call ibwrt(Ans%, "ASIG2 TONE")'
Assigns AF oscillator (for microphone in-
put use) to Tone.
2Ø Call ibwrt(Ans%, "AFREQ2 1ØØ4HZ")'
Sets frequency of AF oscillator (for micro-
phone input use) to 1004 Hz.
21 Call ibwrt(Ans%, "AOUT2 ON")'
Sets AF oscillator (for microphone input
use) to On.
22 Call ibwrt(Ans%, "ALVL2 2ØØMV")'
Sets level of AF oscillator (for microphone
input use) to 200 mV.
23 '
24 Call ibwrt(Ans%, "ADEMP 75Ø")'
Sets Deimphasis to 750 µs