Alignment program – Agilent Technologies 6625A User Manual
Page 95
Alignment Procedures
95
Alignment Program
10 ! This program called "ALIGN_6626" will align
20 ! the Agilent6625A, 26, 28 and 29A Power Supplies It
30 ! requires an Agilent3458A DMM and a four terminal
40 ! 0.1 ohm current shunt accurate to +/-50 ppm
50 !
60 ! May 06,l989 Rev A.03.01
70 !
80 Clear_screen
! Call program to clear display
90 !
100 COM /Specs/ Vrng_lo,Vrng_hi,Irng_lo,Irng_hi
110 COM /Ps/ Chan,Other_chan,@Ps,Model$[7]
120 COM /Outputs/ No_of_outputs
130 COM /Vm/ @Vm
140 COM /Shunt/ Shunt_r
150 !
160 ASSIGN @Ps TO 705
! Set Supply address to 705
170 ASSIGN @Vm TO 722
! Set DMM address to 722
180 PRINTER IS 1
! Print to the CRT
190 Shunt_r= 1
! Set value of current shunt
200 !
210 OUTPUT @Ps;"CLR"
! Preset Supply to turn on state
220 OUTPUT @Ps;"ID?"
! Queries Supply model number
230 ENTER @Ps;Model$
! Enter model number
240 !
250 OUTPUT @Vm;"PRESET NORM;TRIG HOLD"
! Preset DMM
260 OUTPUT @Vm; “NPLC 100”
! Set DMM sample
270 !
280 !
290 !
300 OUTPUT @Ps;"CMODE 1"
! Turn on Supply CAL mode
310 !
320 IF Model$="Agilent6625A" OR Model$='Agilent6628A" THEN No_of_outputs=2
330 IF Model$="Agilent6626A" OR Model$="Agilent6629A" THEN No_of_outputs=4
340 !
350 FOR Chan=1 TO No_of_outputs
! Loop to test all outputs
360
Get_data
! Call program with range data
370
Cal_voltage(Vrng_lo)
! Call program to cal low range voltage
380
Cal_voltage(Vrng_hi)
! Call program to cal high range voltage
390
Cal_overvoltage(Vrng_hi)
! Call program to cal overvoltage
400
Cal_current(Irng_lo)
! Call program to cal low range current
410
Cal_current(Irng hi)
! Call program to cal high range current
420 NEXT Chan
! Test next output
430 !
440 Chan=l
! Select channel to cal sink (-CC)
450 Other_chan=2
! Select current source channel
460 Get_data
! Call program with range data
470 Cal_sink(Irng_lo,1)
! Call program to cal low range sink
480
! 1 is + polarity for DMM
490 Chan=2
! Select channel to cal sink (-CC)
500 Other_chan=l
! Select current source channel
510 Get_data
! Call program with range data
520 Cal_sink(Irng_lo,-1)
! Call program to cal low range sink