Agilent Technologies 6625A - Manual (Page 101)

Alignment Procedures 101
Alignment Program (continued)
3130 PRINT "Calibrating output";Chan;"";I_range;"A current sink readback"
3140 !
3150
OUTPUT @Ps;"IRSET";Chan,I_range;";IRSET";Other chan,I_range
3160 ! Set I range for source and
3170 ! sink range
3180 OUTPUT @Ps; “ISET”;Other_chan,0;”;VSET”;Other_chan,7
3190 ! Set source V & I output
3200 Output_on
3210 WAIT 1 ! Wait for source to stabilize
3220 !
3230 OUTPUT @Ps;"IRLN";Chan ! Set sink readback low
3240 REPEAT ! Wait for supply to finish
3250 UNTIL BIT(SPOLL(@Ps),4) ! Finished when Bit 4 goes true
3260 Ilo=(FNDci(I_range))*Polarity ! Read low sink current
3270 !
3280
OUTPUT @Ps;"ISET";Other_chan,I_range ! Set source output current
3290 WAIT 1
3300 !
3310 OUTPUT @Ps;"IRHN";Chan ! Set sink readback high
3320 REPEAT ! Wait for supply to finish
3330 UNTIL BIT(SPOLL(@Ps),4) ! Finished when Bit 4 goes true
3340 Ihi=(FNDci(I_range))*Polarity ! Read high sink current
3350 !
3360 OUTPUT @Ps; NIDAT”;chan,Ilo,Ihi ! Send current sink data
3370 !
3380 SUBEND
3390 !
3400 !
3410 !
3420 Get_data SUB Get_data
! Subprogram with range data
3430 COM /Specs/ Vrng_lo,Vrng_hi,Irng_lo,Irng_hi
3440 COM /Ps/ Chan,Other_chan,@Ps,Model$[7]
3450 !
3460 IF Model$="Agilent6625A" AND Chan=1 THEN RESTORE Type_1_data
3470 IF Model$="Agilent6625A" AND Chan=2 THEN RESTORE Type_2_data
3480 IF Model$=”Agilent6626A" AND Chan=1 THEN RESTORE Type_1_data
3490 IF Model$="Agilent6626A" AND Chan=2 THEN RESTORE Type 1 data
3500 IF Model$=“Agilent6626A" AND Chan=3 THEN RESTORE Type_2_data
3510 IF Model$=“Agilent6626A" AND Chan=4 THEN RESTORE Type_2_data
3520 IF Model$=“Agilent6628A" OR Model$=“Agilent6629A" THEN RESTORE Type_2_data
3530 !
3540 READ Vrng_lo,Vrng_hi,Irng_lo,Irng_hi ! Read the Range data
3550 !
3560 !
3570 ! Output variables range data
3580 ! Vrng Irng
3590 ! Lo Hi Lo Hi
3600 Type 1 data:DATA 7, 50, .015, .500 ! Type 1 data (25W output)
3610 Type_2_data:DATA 16, 50, .200, 2 ! Type 2 data (50W output)
3620 !
3630 SUBEND
3640 !