Keithley 236 Service Manual page 67

PRINT "Voltage Cal ibrat ion Procedure,"
PRINT "See Service Manual for details on test connections,"
FR 1 NT
PRINT "Short 236/237 output and 193A input,"
GOSUB KeyCheck
PRINT In, "OUTPUT 1O;FOROS3GIX"
'
193A DCV, 61/2 digits,auto range.
PRINT 1A1 "OUTPUT 16;N1X"
'
Put 236/237 in operate
PRINT IAI, "OUTPUT 16;COX"
'
Put 236/237 in cal mode.
PRINT "Performing common mode adjustment."
PRINT "Please wait approximately 30 econds for completion."
PRINT
PRINT #1, "OUTPUT 16;C1X"
•
Calibrate 236/237 common mode.
PRINT # 1
‚
"OUTPUT 1 0 ; Z 1 X"
•
Zero 1 9 3A.
BEEP
PRINT #1, "OUTPUT 16;C59X"
•
Remove 236/237 from cal mode
PRINT 111
‚
'OUTPUT 1 6 ; NOX"
Put 236 /237 in standby.
PRINT "Remove short from 236/237 output and 193A input."
PRINT "Make sure 236/237 output is properly connected to 193A input."
PRINT
GOSUB KeyCheck
PRINT 111, "OUTPUT 16;N1X"
•
Put 236/237 in operate.
PRINT #1
‚
"OUTPUT 16 ; COX"
•
Put 236 /237 in cal mode,
PRINT "Performing voltage cal ibration,"
PRINT "Press ESC to abort procedure and restart program."
FOR 1
=
2 TO Cmax
•
Loop for all cal polnts.
IF 1
=
26 THEN PRINT #1, "OUTPUT 1O;R5X"' Put 193A on 1000V range.
IN$
=
INKEY$: IF IN$
CHR$(27) THEN PRINT 111, "CLEAR": GOTO SeiCal
PRINT #1, "OUTPUT 16;C"; 1.; "X"
•
Send cal command to 236/237.
GOSUB Delay
•
Wait for settling.
PRINT #1, "ENTER 10"
•
Get reading from 193A.
INPUT 1/2, Vmr
•
Input 193A reading.
1
=
1
+
1
•
Increment C command value.
PRINT 111, "OUTPtJT 16;C"; 1;
",";
Vmsr; "X"' Send cal value to 236/237.
NEXT 1
•
Loop back for next cal point.
PRINT 1/1, "OUTPUT 16;C59X"
•
Exit calibration procedure.
PRINT 1/1, "OUTPUT 16;NOX"
•
Put 236/237 in standby.
PRINT 1/1, "OUTPUT 1O;ZORSX"
•
Disable 193A zero mode, 100V range.
RETURN
•
f
100MA CURRENT RANGE CALIBRATION ROUTINES
‚
CalHigh:
CLS
PRINT "100 mA Current Range Calibration."
PRINT "See Service Manual for test connections."
PRINT
GOSUB KeyCheck
PRINT
PRINT 1/1, "OUTPUT 1O;FOROS3GIX"
•
193A DCV, 6—1/2 digits,auto range.
InRes: INPUT "Enter characterized value of 10 ehm resistor"; RiO
IF RIO < 9
.
9 OR RiO > 10. 1 THEN BEEP: PRINT "Value out of range.
"
: GOTO InRes
PRINT "Disconnect 236/237 output from test fixture."