Keithley SourceMeter 2400, Service Manual, Page: 126 / 137

C-4 Calibration Programs
PRINT #1, "OUTPUT 22;FUNC DCI,AUTO"
PRINT "Connect DMM current input to 2400 INPUT/OUTPUT jacks."
GOSUB KeyCheck
END IF
FOR I = 1 TO Max: READ Cmd$: PRINT #1, "OUTPUT 24;"; Cmd$: NEXT I
WHILE Range <= Limit
If J = 1 THEN RESTORE VoltsCal ELSE RESTORE CurrentCal
IF J = 1 THEN PRINT "Calibrating volts." ELSE PRINT "Calibrating current."
FOR I = 1 TO 12
READ Cmd$
SELECT CASE I
CASE 1
PRINT #1, "OUTPUT 24;"; Cmd$; Range
Case 2
PRINT #1, "OUTPUT 24;"; Cmd$; -Range
GOSUB ReadDMM
CASE 3, 4, 6, 7, 9, 10, 12
PRINT #1, "OUTPUT 24;"; Cmd$; Reading; ";*OPC”
GOSUB CalEnd
GOSUB ErrCheck
CASE 5, 11
PRINT #1, "OUTPUT 24;"; Cmd$
GOSUB ReadDMM
CASE 8
PRINT #1, "OUTPUT 24;"; Cmd$; Range
GOSUB ReadDMM
END SELECT
NEXT I
Range = Range * 10
WEND
NEXT J
LINE INPUT "Enter calibration date (yyyy,mm,dd): "; D$
PRINT #1, "OUTPUT 24;:CAL:PROT:DATE "; D$
LINE INPUT "Enter calibration due date (yyyy,mm,dd): "; D$
PRINT #1, "OUTPUT 24;:CAL:PROT:NDUE "; D$
PRINT #1, "OUTPUT 24;:CAL:PROT:SAVE" ' Save calibration constants.
GOSUB ErrCheck
PRINT #1, "OUTPUT 24;:CAL:PROT:LOCK" ' Lock out calibration.
PRINT "Calibration completed."
PRINT #1, "OUTPUT 24;*RST"
PRINT #1, "LOCAL 22 24"
CLOSE
END
'
KeyCheck: ' Check for key press routine.
WHILE INKEY$ <> "": WEND ' Flush keyboard buffer.
PRINT : PRINT "Press any key to continue (ESC to abort program)."
DO: I$ = INKEY$: LOOP WHILE I$ = ""
IF I$ = CHR$(27) THEN GOTO EndProg ' Abort if ESC is pressed.
RETURN
'