Agilent Technologies 6625A User Manual
Page 98
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 !