![background image](http://html1.mh-extra.com/html/keithley/sourcemeter-3a-2420/sourcemeter-3a-2420_service-manual_3950476129.webp)
Calibration Programs C-5
GOSUB CalEnd
CASE 5, 11
PRINT #1, "OUTPUT 24;"; Cmd$
GOSUB ReadDMM
CASE 8
PRINT #1, "OUTPUT 24;"; Cmd$; Source
GOSUB ReadDMM
END SELECT
NEXT I
Range = Range * 10
IF J = 1 AND Range = 200 THEN Range = 60
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 2420."
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" ' 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
'
CalEnd: ' Check for cal step completion.
DO: PRINT #1, "SRQ?" ' Request SRQ status.
INPUT #2, S ' Input SRQ status byte.
LOOP UNTIL S ' Wait for operation complete.
PRINT #1, "OUTPUT 24;*ESR?" ' Clear OPC.
PRINT #1, "ENTER 24"
INPUT #2, S
PRINT #1, "SPOLL 24" ' Clear SRQ.
Summary of Contents for SourceMeter 3A 2420
Page 2: ...Model 24203A SourceMeter Service Manual A G R E A T E R M E A S U R E O F C O N F I D E N C E...
Page 15: ...1 Performance Verification...
Page 31: ...2 Calibration...
Page 53: ...3 Routine Maintenance...
Page 56: ...3 4 Routine Maintenance...
Page 57: ...4 Troubleshooting...
Page 70: ...4 14 Troubleshooting...
Page 71: ...5 Disassembly...
Page 78: ...5 8 Disassembly...
Page 79: ......
Page 80: ......
Page 81: ......
Page 82: ......
Page 83: ......
Page 84: ...6 Replaceable Parts...
Page 102: ......
Page 103: ......
Page 104: ......
Page 105: ......
Page 106: ......
Page 107: ...A Specifications...
Page 112: ...A 6 Specifications...
Page 113: ...B Command Reference...
Page 124: ...B 12 Command Reference...
Page 125: ...C Calibration Programs...