Agilent Technologies 6628A Welding System User Manual


 
Alignment Procedures
96
Alignment Program (continued)
530 ! -1 is reverse polarity, this saves
540 ! reversing leads as sink channel
550 ! becomes the source for other channel
560 Chan=1 ! Select channel to cal sink (-CC)
570 Other_chan=2 ! Select current source channel
580 Get_data ! Call program with range data
590 Cal_sink(Irng_hi,1) ! Call program to cal high range sink
600 !
610 Chan=2 ! Select channel to cal sink (-CC)
620 Other_chan=1 ! Select current source channel
630 Get_data ! Call program with range data
640 Cal_sink(Irng_hi,-1) ! Call program to cal high range sink
650 !
660 IF No_of_outputs=4 THEN ! Cal outputs 3 & 4
670 Chan=3 ! Select channel to cal sink (-CC)
680 Other_chan=4 ! Select current source channel
690 Get_data ! Call program with range data
700 Cal_sink(Irng_lo,1) ! Call program to cal low range sink
710 !
720 Chan=4 ! Select channel to cal sink (-CC)
730 Other_chan=3 ! Select current source channel
740 Cal_sink(Irng_lo,-1) ! Call program to cal low range sink
750 !
760 Chan=3 ! Select channel to cal sink (-CC)
770 Other_chan=4 ! Select current source channel
780 Cal_sink(Irng_hi,1) ! Call program to cal high range sink
790 !
800 Chan=4 ! Select channel to cal sink (-CC)
810 Other_chan=3 ! Select current source channel
820 Cal_sink(Irng_hi,-1) ! Call program to cal high range sink
830 END IF
840 :
850 Check_error ! Call error checking program
860 Cal_mode_off ! Call program to turn cal mode off
870 !
880 END
890 !
900 !
910 !
920 SUB Clear_screen ! Subprogram to clear display
930 OUTPUT 2;CHR$(255)&CHR$(75); ! Clear screen
940 SUBEND
950 !
960 !
970 !
980 DEF FNDcv ! Function to r at voltage
990 COM /Vm/ @Vm
1000 OUTPUT @Vm;"DCV" ! Set DMM to read DC voltage
1010 TRIGGER @Vm ! Take a voltage reading
1020 ENTER @Vm;Volts ! Enter the voltage
1030 RETURN Volts ! Return voltage reading
1040 FNEND ! End of voltage function