Calibration Procedures 1
Keysight E3632A Service Guide 55
430   PRINT TABXY(10,11)," Prepare for E3632A DAC DNL error correction and"
440   PRINT TABXY(10,12)," Voltage/OVP calibration. Connect the output to the 
DMM."
450   PRINT TABXY(10,13)," Observe Polarity!"
460    PRINT 
TABXY(10,14),"*********************************************************"
470    PRINT TABXY(10,16),"Press 'C' to Continue, 'I' to go to CURRENT 
calibration or"
480   PRINT TABXY(10,17),"'X' to eXit, then press 'Enter'"
490   Ch$="C"
500   INPUT Ch$
510   IF Ch$="X" OR Ch$="x" THEN GOTO 2250
520   IF Ch$="I" OR Ch$="i" THEN
530     CLEAR SCREEN
540     GOTO 1460
550   END IF
560   CLEAR SCREEN
570   PRINT TABXY(10,7),"BEGIN DAC ERROR CORRECTION"
580   WAIT 4
590   CLEAR SCREEN
600   OUTPUT @Pwrsupply;"OUTP ON"        ! Turn on Power Supply output
610   OUTPUT @Pwrsupply;"CAL:DAC:ERROR"         ! Perform DAC DNL error correction
620   WAIT 29        ! Allow DAC error correction to finish
630   OUTPUT @Pwrsupply;"OUTPUT OFF"            ! Turn off Power Supply output
640   OUTPUT @Pwrsupply;"SYST:ERR?"
650   ENTER @Pwrsupply;Error$
660   !
670   ! Check to see if there is an error.  If there is an error,
680   ! display the error and exit the program.
690   !
700   CLEAR SCREEN
710   IF Error$="+0,""No error""" THEN
720     PRINT "DAC DNL Error Correction completed for Power Supply "
730   ELSE
740     PRINT "ERROR:";Error$;"DAC DNL Error not corrected "
750     BEEP
760     GOTO 2250
770   END IF
780   PRINT TABXY(10,5),"DAC DNL ERROR CORRECTION COMPLETE"
790   PRINT TABXY(10,7),"BEGIN VOLTAGE CALIBRATION"
800   WAIT 4
810   OUTPUT @Pwrsupply;"OUTPUT ON"
820   CLEAR SCREEN
830   OUTPUT @Pwrsupply;"CAL:VOLT:LEV MIN"      ! set output to minimum cal value
840   WAIT 2           ! allow output to settle
850   OUTPUT @Dmm;"MEAS:VOLT:DC?"               ! measure output with Dmm and
860   ENTER @Dmm;Dmm_rdg           ! store in variable Dmm_rdg
870   PRINT Dmm_rdg
880   OUTPUT @Pwrsupply;"CAL:VOLT:DATA ";Dmm_rdg  ! send stored value to Power 
Supply
890   OUTPUT @Pwrsupply;"CAL:VOLT:LEV MID"      ! set output to middle cal value
900   WAIT 2           ! allow output to settle
910   OUTPUT @Dmm;"MEAS:VOLT:DC?"               ! measure output with Dmm and
920   ENTER @Dmm;Dmm_rdg           ! store in variable Dmm_rdg
930   PRINT Dmm_rdg
940   OUTPUT @Pwrsupply;"CAL:VOLT:DATA ";Dmm_rdg  ! send stored value to Power 
Supply
950   OUTPUT @Pwrsupply;"CAL:VOLT:LEV MAX"      ! set output to maximum cal value
960   WAIT 2           ! allow output to settle