AC Flatness Adjustment Procedure (cont’d)
Example Program (cont’d)
1690 !Use register commands to get to 10.8MHz
1700 OUTPUT @Afg;"DIAG:POKE #HE000A1,8,0" !PHASE_A1,0
1710 OUTPUT @Afg;"DIAG:POKE #HE000A3,8,126" !PHASE_A2,126
1720 OUTPUT @Afg;"DIAG:POKE #HE000A5,8,95" ! PHASE_A3,95
1730 OUTPUT @Afg;"DIAG:POKE #HE000A7,8,64" ! PHASE_A4,64
1740 OUTPUT @Afg;"DIAG:POKE #HE0008D,8,0" !LDSTBIND,0
1750 WAIT .1
1760 RETURN
1770 SUBEND
1780 !
1790 Adj_flat:SUB Adj_flat(Results(*),Filter$,Max_ freq)
1800 COM @Afg,@Dmm,@Pwr_mtr,@Analyzer,Secur e_code$
1810 COM /Flat/ INTEGER Num_points,Max_con
1820 INTEGER Cal_problem,Problem
1830 !
1840 Cal_problem=0
1850 Scale_factor=1000
1860 STATUS @A fg,3;Address !Get path address
1870 !
1880 ALLOCATE INTEGER Ac_cal_cons(1:Num_points)
1900 FOR I=1 TO Num_points
1910 Ac_cal_cons(I)=Results(I)*Scale_factor !Scale results array
1920 NEXT I
1930 !
1940 CALL Valid_cons(Results(*),Cal_problem) !Make sure constants are within range
1960 !Transfer "magic numbers" if 10MHz filter
1970 IF Filter$<>"250KHZ" THEN
1980 Load_magic_num(Max_freq,Problem)
1990 IF Problem THEN
2000 PRINT "Problem occurred in Load_magic_num."
2010 Cal_problem=1
2020 END IF
2030 END IF
2040 !
2050 IF NOT Cal_problem THEN
2060 OUTPUT @Afg;"ABORT" !Abort waveform
2070 !
2080 !Store cal constants into eeprom (format off)
2090 OUTPUT @Afg;"CAL:SEC:STATE OFF,"&Secure_code$ !Enable cal
2100 ASSIGN @Afg TO Address;FORMAT OFF
2110 IF Filter$="250KHZ" THEN
2120 PRINT "Changed 250KHz Cal constants"
2130 OUTPUT @Afg USING "#,K";"CAL:DA TA:AC1 #0"
2140 ELSE
2150 PRINT "Changed 10MHz Cal constants"
2160 OUTPUT @Afg USING "#,K";"CAL:DA TA:AC2 #0"
2170 END IF
(Continued on next page)
100 Adjustments Agilent E1445A Ser vice Manual