beautypg.com

Agilent Technologies 6625A User Manual

Page 102

background image

Alignment Procedures

102

Alignment Program (continued)

3650 !
3660 !
3670 Check_error:SUB Check_error

! Subprogram to check for errors

3680

COM /Ps/ Chan,Other_chan,@Ps,Model$[7]

3690

Clear_screen

3700

PRINT “Checking for errors”

3710

OUTPUT @Ps;”ERR?”

! Query supply for errors

3720

ENTER @Ps;Err

! Enter the error number

3730

IF Err>0 THEN

! If an error then print msg

3740

PRINT “Error”;Err;”occurred. Supply may not be calibrated”

3750

PRINT "The alignment program is stopped"

3760

STOP

3770

END IF

3780 SUBEND
3790 !
3800 !
3810 !
3820 Cal_mode_off:SUB Cal_mode_off

! Subprogram to turn off cal mod

3830

COM /Ps/ Chan,Other_chan,@Ps,Model$[7]

3840 Clear_screen
3850

PRINT "wait while calibration constants are stored"

3860

OUTPUT @Ps;”CMODE 0”

! Turn cal mode off, store data

3870

OUTPUT @Ps;”CLR”

! Clear supply

3880

Clear_screen

3890

PRINT "Calibration complete"

3900 SUBEND
3910 !

This manual is related to the following products: