Agilent Technologies 75000 Series C, E1445A 114 Adjustments Agilent E1445A Ser vice Manual

Skew DAC Adjustment Procedure (cont’d)
Example Program (cont’d)
1280 Wrt_skew_con:SUB Wrt_skew_con(INTEGER Cal_word)
1290 COM @Afg,@Analyzer,Secure_code$
1300 DIM Id$[50]
1310 !
1320 !Check firmware rev
1330 OUTPUT @Afg;"*IDN?"
1340 ENTER @Afg;Id$
1350 !
1360 IF POS(Id$,"A.01.00") THEN
1370 PRINT "This rev does not support skew DAC calibration."
1380 CALL Abort_error
1390 END IF
1400 !
1410 STATUS @A fg,3;Address !Get path address
1420 !
1430 OUTPUT @Afg;"CAL:SEC:STAT OFF,"&Secure_cod e$
1440 ASSIGN @Afg TO Address;FORMAT OFF
1450 OUTPUT @Afg USING "#,K";"CAL:DATA:SKEW #0"
1460 OUTPUT @Afg;Cal_word
1470 OUTPUT @Afg USING "#,K";CHR$(10),END
1480 ASSIGN @Afg TO Address
1490 OUTPUT @Afg;"CAL:SEC:STAT ON"
1500 !
1510 PRINT "Skew constant written to AFG."
1520 SUBEND
1530 !
1540 Setup_spec:SUB Setup_spec(Amp_in_dbm $, Cent er $, Span$)
1550 COM @Afg,@Analyzer,Secure_code$
1560 OUTPUT @Analyzer;"IP;RB 100HZ;VB 100HZ" !Preset, set res & vid BW
1570 OUTPUT @Analyzer;"RL "&Amp_in_dbm$ !Set ref level
1580 OUTPUT @Analyzer;"SP "&Span$&"HZ" !Set freq span
1590 OUTPUT @Analyzer;"CF "&Center$ !Set center frequency
1600 SUBEND
1610 !
1620 Get_2nd_harm:SUB Get_2nd_harm(Test_span$)
1630 COM @Afg,@Analyzer,Secure_code$
1640 OUTPUT @Analyzer;"S2;TS;E1" !Peak search
1650 OUTPUT @Analyzer;"MKCF" !Center freq to marker
1660 OUTPUT @Analyzer;"SP "&Test_span$&"HZ" !Narrow span
1670 SUBEND
1680 !
(Continued on next page)
114 Adjustments Agilent E1445A Ser vice Manual