1 Calibration Procedures
56 Keysight E3632A Service Guide
970   OUTPUT @Dmm;"MEAS:VOLT:DC?"               ! measure output with Dmm and
980   ENTER @Dmm;Dmm_rdg           ! store in variable Dmm_rdg
990   PRINT Dmm_rdg
1000  OUTPUT @Pwrsupply;"CAL:VOLT:DATA ";Dmm_rdg  ! send stored value to Power 
Supply
1010  OUTPUT @Pwrsupply;"OUTP OFF"
1020  OUTPUT @Pwrsupply;"SYST:ERR?"
1030  ENTER @Pwrsupply;Error$
1040  !
1050  ! Check to see if there is an error.  If there is an error,
1060  ! display the error and exit the program.
1070  !
1080  CLEAR SCREEN
1090  IF Error$="+0,""No error""" THEN
1100    PRINT "Voltage calibration completed for Power Supply "
1110  ELSE
1120    PRINT "ERROR:";Error$;"Voltage not Calibrated"
1130    BEEP
1140    GOTO 2250
1150  END IF
1160  PRINT TABXY(10,5),"VOLTAGE CALIBRATION COMPLETE"
1170  PRINT TABXY(10,7),"BEGIN OVP CALIBRATION"
1180  WAIT 4
1190  CLEAR SCREEN
1200  OUTPUT @Pwrsupply;"OUTP ON"               ! Turn on Power Supply output
1210  OUTPUT @Pwrsupply;"CAL:VOLT:PROT"         ! Perform OVP circuit calibration
1220  WAIT 9              ! Allow OVP calibration to finish
1230  OUTPUT @Pwrsupply;"OUTP OFF"              ! Turn off Power Supply output
1240  OUTPUT @Pwrsupply;"SYST:ERR?"
1250  ENTER @Pwrsupply;Error$
1260  !
1270  ! Check to see if there is an error.  If there is an error,
1280  ! display the error and exit the program.
1290  !
1300  CLEAR SCREEN
1310  IF Error$="+0,""No error""" THEN
1320    PRINT "OVP calibration completed for Power Supply "
1330  ELSE
1340    PRINT "ERROR:";Error$;"OVP not Calibrated"
1350    BEEP
1360    GOTO 2250
1370  END IF
1380  CLEAR SCREEN
1390  PRINT TABXY(10,5),"DAC ERROR CORRECTION AND VOLTAGE/OVP CALIBRATION 
COMPLETE"
1400  WAIT 4
1410  !
1420  ! Perform the Current calibration and OCP calibration. Alert the operator 
to
1430  ! hook up the connection before calibrating.
1440  !
1450  ! Alert operator to connect lead
1460  PRINT 
TABXY(10,10),"*********************************************************"
1470  PRINT TABXY(10,11)," Connect a CURRENT SHUNT to the Dmm input for 
measuring"
1480  PRINT TABXY(10,12)," current. Connect the output to the shunt. Observe 
Polarity!"
1490  PRINT