Keithley SourceMeter 3A 2420 Service Manual page 128

C-4 Calibration Programs
Program C-1 Model 2420 calibration program
' Model 2420 calibration program for use with the HP3458A Digital Multimeter.
' Rev. 1.0, 1/16/97
' 2420 primary address = 24. HP3458A primary address = 22.
OPEN "IEEE" FOR OUTPUT AS #1
OPEN "IEEE" FOR INPUT AS #2
PRINT #1, "INTERM CRLF"
PRINT #1, "OUTTERM LF"
PRINT #1, "REMOTE 22 24"
PRINT #1, "CLEAR"
PRINT #1, "OUTPUT 24;*CLS"
PRINT #1, "OUTPUT 24;*ESE 1;*SRE 32"
PRINT #1, "OUTPUT 22;PRESET NORM"
PRINT #1, "OUTPUT 22;NPLC 10;NDIG 7;TRIG LINE;FUNC DCV,AUTO"
'
OneOhm = 1
CLS
PRINT "Model 2420 Calibration Program"
PRINT "Connect DMM volts input to Model 2420 INPUT/OUTPUT jacks."
GOSUB KeyCheck
FOR J = 1 TO 2
IF J = 1 THEN
RESTORE VoltsInit
Max = 8
Range = .2
Limit = 60
ELSE
RESTORE CurrentInit
Max = 4
Range = .00001
Limit = 3
PRINT #1, "OUTPUT 24;:OUTP:STAT OFF"
PRINT #1, "OUTPUT 22;FUNC DCI,AUTO"
PRINT "Connect DMM current input to 2420 INPUT/OUTPUT jacks."
GOSUB KeyCheck
END IF
Source = Range
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
FOR I = 1 TO 12
READ Cmd$
SELECT CASE I
CASE 1
CASE 2
CASE 3, 4, 6, 7, 9, 10, 12
' Open IEEE-488 output path.
' Open IEEE-488 input path.
' Set input terminator.
' Set output terminator.
' Put 2420, 3458A in remote.
' Send DCL.
' Initialize 2420.
' Enable OPC and SRQ.
' Initialize 3458A.
' Use characterized 1 ohm value.
' Select volts/current cal.
PRINT #1, "OUTPUT 24;"; Cmd$; Range
PRINT #1, "OUTPUT 24;"; Cmd$; -Source
GOSUB ReadDMM
PRINT #1, "OUTPUT 24;"; Cmd$; Reading$; ";*OPC"
GOSUB ErrCheck
' Cal all ranges.