Keithley 2425 Service Manual page 132

Model 2425 Service Manual
CASE 5, 11
CASE 8
END SELECT
NEXT I
Range = Range * 10
IF J = 1 AND Range = 200 THEN Range = 100
IF J = 2 AND Range > 9 AND Range < 11 THEN
Range = 3
PRINT #1, "OUTPUT 24;:OUTP:STAT OFF"
PRINT #1, "OUTPUT 22;FUNC DCV,AUTO"
PRINT "Connect 1 Ohm resistor and DMM volts input to 2425."
GOSUB KeyCheck
PRINT #1, "OUTPUT 24;:OUTP:STAT ON"
END IF
Source = Range
WEND
NEXT J
PRINT #1, "OUTPUT 24;:OUTP:STAT OFF"
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"
GOSUB ErrCheck
PRINT #1, "OUTPUT 24;:CAL:PROT:LOCK"
PRINT "Calibration completed."
PRINT #1, "OUTPUT 24;*RST"
PRINT #1, "LOCAL 22 24"
CLOSE
END
'
KeyCheck:
WHILE INKEY$ <> "": WEND
PRINT : PRINT "Press any key to continue (ESC to abort program)."
DO: I$ = INKEY$: LOOP WHILE I$ = ""
IF I$ = CHR$(27) THEN GOTO EndProg
RETURN
'
CalEnd:
DO: PRINT #1, "SRQ?"
INPUT #2, S
LOOP UNTIL S
PRINT #1, "OUTPUT 24;*ESR?"
PRINT #1, "ENTER 24"
PRINT #1, "OUTPUT 24;"; Cmd$; Reading$; ";*OPC"
GOSUB ErrCheck
GOSUB CalEnd
PRINT #1, "OUTPUT 24;"; Cmd$
GOSUB ReadDMM
PRINT #1, "OUTPUT 24;"; Cmd$; Source
GOSUB ReadDMM
' Save calibration constants.
' Lock out calibration.
' Check for key press routine.
' Flush keyboard buffer.
' Abort if ESC is pressed.
' Check for cal step completion.
' Request SRQ status.
' Input SRQ status byte.
' Wait for operation complete.
' Clear OPC.
Calibration Programs C-5