Agilent Technologies 6625A - Manual (Page 100)

Alignment Procedures 100
Alignment Program (continued)
2610 Irlo=FNDci(I_range) ! Read low output current
2620 !
2630 OUTPUT @Ps;"IRHI";Chan ! Set high readback current
2640 REPEAT ! Wait for supply to finish
2650 UNTIL BIT(SPOLL(@Ps),4) ! Finished when Bit 4 goes true
2660 Irhi=FNDci(I_range) ! Read high output current
2670 !
2680 OUTPUT @Ps;"IRDAT";Chan,Irlo,Irhi ! Send current readback data
2690 !
2700 SUBEND
2710 !
2720 !
2730 !
2740 Cal_sink SUB Cal_sink(I_range,Polarity)
! Subprogram to cal -CC
2750 COM /Ps/ Chan,Other_chan,@Ps,Model$[7]
2760 !
2770 IF I_range= .5 THEN GOTO Sink_rb ! Skip setup instructions
2780 IF Model$="Agilent6625A" AND I_range=2 THEN I_range= .5
2790 ! If a 6625A, 2A output will be
2800 ! set to 5A to match output 1
2810 IF Chan=2 OR Chan=4 THEN GOTO Sink_rb ! Skip setup instructions
2820 !
2830 Output_off
2840 Clear_screen
2850 PRINT “Set up output';Chan;”for ;I_range; “A current SINK cal”
2860 PRINT
2870
PRINT “ Connect outputs”;Chan; “and” ;Other_chan; “together as in”
2880 !
2890
IF I range=2 THEN ! If it is 2A output use setup 5
2900 PRINT " Fig A-5 of the Operating Manual'
2910 PRINT
2920 PRINT " 3458A input is connected to VOLTAGE terminals"
2930 PRINT
2940 PRINT " The current shunt IS used for this part"
2950 PRINT " of the alignment"
2960 ELSE ! If not 6626A 2A use setup 4
2970 PRINT “Fig A-4 of the Operating Manual”
2980 PRINT
2990 PRINT “3458A input is connected to CURRENT terminals”
3000 PRINT
3010 PRINT " The current shunt IS NOT used"
3020 END IF
3030 PRINT
3040 PRINT “The sink readback of both outputs”
3050 PRINT “will be aligned with this setup”
3060 !
3070 PRINT
3080
PRINT "Press CONTINUE when ready”
3090 PAUSE
3100 !
3110 Sink_rb
3120 Clear_screen