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