Agilent Technologies 6626A Welding System User Manual


 
Alignment Procedures
98
Alignment Program (continued)
1570 PRINT "Press CONTINUE when ready
1580 PAUSE
1590 Output_on
1600 !
1610 Cal_v: !
1620 Clear_screen
1630 PRINT "Calibrating the";V_range;"volt range programming”
1640 !
1650 OUTPUT @Ps;"VRSET" ;Chan,V_range ! Set voltage range
1660 !
1670 OUTPUT @Ps; VLO";Chan ! Set to low output voltage
1680 WAIT 1 ! Wait for supply to stabilize
1690 Vlo=FNDcv ! Read low voltage
1700 !
1710 OUTPUT @Ps; “VHI” ;Chan ! Set to high output voltage
1720 WAIT 1 ! Wait for supply to stabilize
1730 Vhi=FNDcv ! Read high voltage
1740 !
1750 OUTPUT @Ps; “VDATA” ;Chan, Vlo, Vhi ! Send output voltage data
1760 !
1770 Clear_screen
1780 PRINT "Calibrating the";V_range,'volt range readback"
1790 !
1800 OUTPUT @Ps; VRLO";Chan ! Set low readback voltage
1810 REPEAT ! Wait for supply to finish
1820 UNTIL BIT(SPOLL(@Ps),4) ! Finished when Bit 4 goes true
1830 Vrlo=FNDcv ! Read low output voltage
1840 !
1850 OUTPUT @Ps; “VRHI”;Chan ! Set high readback voltage
1860 REPEAT ! Wait for supply to finish
1870 UNTIL BIT(SPOLL(@Ps),4) ! Finished when Bit 4 goes true
1880 Vrhi=FNDcv ! Read high output voltage
1890 !
1900 OUTPUT @Ps; “VRDAT”; Chan, Vrlo, Vrhi ! Send voltage readback data
1910 !
1920 SUBEND
1930 !
1940 !
1950 !
1960 Cal_overvoltage:SUB Cal_overvoltage(V_range) ! Sub program to cal OV
1970 COM /Ps/ Chan,Other_chan,@Ps,Model$[7]
1980 !
1990 Clear_screen
2000 PRINT "Calibrating the Overvoltage circuit
2010 !
2020 OUTPUT @Ps;"VRSET";Chan,V_range ! Set voltage range
2030 OUTPUT @Ps;"OVCAL";Chan ! Calibrate Overvoltage
2040 REPEAT ! Wait for supply to finish
2050 UNTIL BIT(SPOLL(@Ps),4) ! Finished when Bit 4 goes true
2060 !
2070 SUBEND
2080 !