Keithley SourceMeter 3A 2420 Service Manual page 130

C-6 Calibration Programs
INPUT #2, S
RETURN
'
ErrCheck:
PRINT #1, "OUTPUT 24;:SYST:ERR?"
PRINT #1, "ENTER 24"
INPUT #2, E, Err$
IF E <> 0 THEN PRINT Err$: GOTO EndProg' Display error.
RETURN
'
ReadDMM:
SLEEP 5
PRINT #1, "ENTER 22"
INPUT #2, Reading$
IF J = 2 AND Range = 3 THEN Reading$ = STR$(VAL(Reading$) / OneOhm)
RETURN
'
EndProg:
BEEP: PRINT "Calibration aborted."
PRINT #1, "OUTPUT 24;:CAL:PROT:LOCK"
PRINT #1, "OUTPUT 24;*RST"
PRINT #1, "LOCAL 22 24"
CLOSE
END
'
VoltsInit:
DATA "*RST",":SOUR:FUNC VOLT",":SENS:CURR:PROT 0.1"
DATA ":SENS:CURR:RANG 0.1",":SOUR:VOLT:PROT:LEV MAX",":SYST:RSEN OFF"
DATA ":CAL:PROT:CODE 'KI002420'",":OUTP:STAT ON"
VoltsCal:
DATA ":SOUR:VOLT:RANG ",":SOUR:VOLT "
DATA ":CAL:PROT:SOUR ",":CAL:PROT:SENS ",":SOUR:VOLT 0.0"
DATA ":CAL:PROT:SOUR ",":CAL:PROT:SENS ",":SOUR:VOLT ",":CAL:PROT:SOUR "
DATA ":CAL:PROT:SENS ",":SOUR:VOLT 0.0",":CAL:PROT:SOUR "
CurrentInit:
DATA ":SOUR:FUNC CURR",":SENS:VOLT:PROT 20",":SENS:VOLT:RANG 20"
DATA ":OUTP:STAT ON"
CurrentCal:
DATA ":SOUR:CURR:RANG ",":SOUR:CURR ",":CAL:PROT:SOUR "
DATA ":CAL:PROT:SENS ",":SOUR:CURR 0.0",":CAL:PROT:SOUR ",":CAL:PROT:SENS "
DATA ":SOUR:CURR ",":CAL:PROT:SOUR ",":CAL:PROT:SENS "
DATA ":SOUR:CURR 0.0",":CAL:PROT:SOUR "
' Error check routine.
' Query error queue.
' Get reading from DMM.
' Close files, end program.
' Calibration command lists.