Specifications

21
The following example program demonstrates this
method.
10 ! RE-SAVE “POW_OFFSET”
20 !
30 ! This program calculates and removes the average
amplitude correction
40 ! factor from the 8360 flatness correction array. It
then sets and
50 ! activates this average amplitude as a constant off-
set to the 8360
60 ! power output. The flatness array minus the offset is
then re-written
70 ! to the 8360. The net result output power is the
same (flat test port
80 ! power). However, full ALC range will now be avali-
ble for any power
90 ! or attenuator setting.
100 !
110 DIMDiff(1:801,1),Flat_on(1:801,1), Flat_off(1:801,1)
120 INTEGER I,Preamble,Bytes
130 ASSIGN @Na TO 716
140 ASSIGN @Na_data TO 716;FORMAT OFF
150 ASSIGN @Na_sys TO 717
160 CLEAR SCREEN
170 !
180 PRINT TABXY(0,5)
190 PRINT “NOTICE:”
200 PRINT
210 PRINT “This program will only work in STEP or
RAMP sweep modes. Any”
220 PRINT “number of points may be used (51, 101, 201,
401 or 801).”
230 PRINT
240 PRINT “A test port power flatness calibration must
already be done.”
250 PRINT
260 PRINT “The current instrument state will be saved in
Inst State 5 and”
270 PRINT “recalled at the end of this program.”
280 INPUT “Press <Return> to continue.”,In$
290 CLEAR SCREEN
300 OUTPUT @Na;”SAVE5”
310 GOSUB Get_data
320 GOSUB Process_data
330 OUTPUT @Na;”RECA5; FLATON”
340 !
350 PRINT TABXY(0,5)
360 PRINT “Source PowerOffset=”;PROUND (Offset,–2);”
db”
370 PRINT
380 PRINT “WARNING: Power offset is now on in the
source. This offset is”
390 PRINT “applied to the power setting displayed by the
8510 with flatness”
400 PRINT “turned On OR Off.”
410 PRINT “Power offset will be turned off in the source
if a factory”
420 PRINT “preset is executed OR 8510 power is
cycled. Otherwise it will”
430 PRINT “be applied.”
440 PRINT “Flatness data stored in the source is only
valid with offset”
450 PRINT “on. You must re-do 8510 flatness calibration
(without offset)”
460 PRINT “before running this program again for correct
results.”
470 DISP “Program Complete”
480 LOCAL @Na
490 STOP
500 !
510 Get_data: !
520 OUTPUT @Na;”USER1; LOGM; AVERON 64; FLATON;
SING”
530 OUTPUT @Na;”FORM3; OUTPFORM”
540 ENTER @Na_data;Preamble,Bytes
550 REDIMDiff(1:Bytes/16,1),Flat_on (1:Bytes/16,1),
Flat_off(1:Bytes/16,1)
560 ENTER @Na_data;Flat_on(*) ! Flat_on(*,0) = ampli-
tude db
570 ! Flat_on(*,1) = 0
580 OUTPUT @Na;”FLATOFF; SING; FORM3; OUTPFORM”
590 ENTER
@Na_data;Preamble,Bytes,Flat_off(*) ! Flat_off (*,0) =
amplitude db
600 ! Flat_off(*,1) = 0
610 OUTPUT @Na;”POIN; OUTPACTI”
620 ENTER @Na;Points
630 OUTPUT @Na;”STAR; OUTPACTI”
640 ENTER @Na;Start_freq
650 OUTPUT @Na;”STOP; OUTPACTI”
660 ENTER @Na;Stop_freq
670 RETURN
680 !
690 Process_data: !