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

AC Flatness Adjustment Procedure (cont’d)
Example Program (cont’d)
4430 ELSE
4440 Block(1)=N
4450 Block(2)=Div
4460 !
4470 OUTPUT @Afg;"CAL:SEC:STATE OFF,"&Secure_code$ !Enable cal
4480 ASSIGN @Afg TO Address;FORMAT OFF
4490 OUTPUT @Afg USING "#,K";"CAL:DATA:FIL TER #0"
4500 OUTPUT @Afg;Block(*)
4510 OUTPUT @Afg USING "#,K";CHR$(10),END
4520 ASSIGN @Afg TO Address !Back to default attributes
4530 OUTPUT @Afg;"CAL:SEC:STATE ON" !Disable cal
4540 !
4550 PRINT "MAGIC NUMBERS STORED: ";N,Div
4560 PRINT
4580 END IF
4590 SUBEND
4600 !
4610 Read_ac_cal_int:SUB Read_ac_cal_int( INT E GE R Ac_cal _i nt( *) )
4620 COM @Afg,@Dmm,@Pwr_mtr,@Analyzer,Secur e_code$
4630 COM /Flat/ INTEGER Num_points,Max_con
4640 !
4650 ALLOCATE Id$[50]
4660 !
4670 OUTPUT @Afg;"*IDN?"
4680 ENTER @Afg;Id$
4690 !
4700 IF POS(Id$,"A.01.00") THEN
4710 Ac_cal_int(1)=4
4720 Ac_cal_int(2)=25000
4730 SUBEXIT
4740 END IF
4750 !
4760 Max_con=2
4770 !
4780 ! IF SIZE(Ac_cal_int,1)<>Max_con OR RANK(Ac_ca l_ in t)<>1 TH EN
4790 !
4800 STATUS @A fg,3;Address
4810 !
4820 OUTPUT @Afg;"CAL:SEC:STATE OFF,"&Secure_code$
4830 OUTPUT @Afg;"CAL:DATA:FILTER?"
4840 ASSIGN @Afg TO Address;FORMAT OFF
4850 ENTER @Afg USING "3A,2(W)";Dummy$[1 ,3],Ac_cal_int(*)
4860 ASSIGN @Afg TO Address
4870 OUTPUT @Afg;"CAL:SEC:STATE ON"
4880 !
4890 PRINT Ac_cal_int(*)
4900 SUBEND
(Continued on next page)
106 Adjustments Agilent E1445A Ser vice Manual