Keithley 237

GOSUB
KeyCheck
PRINT
IAI, “OUTPUT
10;
Z1X“
•
Enable 193A
zero
PRINT
‘Connect
236/237
output
to
test fixture.“
GOSUB
KeyCheck
PRINT
IAI,
“OUTPUT
16;NIX“
‘
Put 236/237 in
operate.
PRINT
IAI ‚
“OUTPUT 16
;
COX“
• Enter ca
1
mode.
PRINT
“Performing
lOOmA
range calibration
procedure.“
PRINT
“Presz
ESC
to
abort
procedure
and restart program.“
FOR 1
= 34
TO
41
•
Loop for
all
lOOmA
cal
points.
IN$ =
INKEY$:
IF
IN$
CHR$(27)
THEN
PRINT #1,
“CLEAR“:
GOTO
SeiCal
PRINT
1/1 ‚
“OtJTPUT
16
;
C“
;
1
;
“X“ •
Send
cal
command
to
236/237.
GOSUB Delay
• Settl ing
delay.
PRINT
lfl,
“ENTER
10“
• Get
reading
from 193A.
INPUT
112, Vmsr
Imsr
=
Vmsr 1 RIO
•
•*
1NA 1OMA CURRENT
RANGE
CALIBRATION
ROUTINES
•
•
263 amps,auto
range,guard on.
I=1+1
PRINT
1,
1 ‚
“OUTPUT
NEXT 1
PR 1 NT
# 1 ‚ “OUTPUT
PR 1 NT
11 1 ‚
“OUTPUT
PRINT
IFI ‚ “OUTPUT
RETURN
•
Compute cal
current.
•
Increment
C command value,
1 6
;
C“
;
1
;
“ ‚ “ ;
1
msr
;
“X“ •
Send
ca 1 val
ue to
236
1237.
•
Loop
back
for
next
cal point,
16;CS9X“
•
Exit cal
procedure.
I6;NOX“
•
Put
236/237
in
standby,
IO;ZOR5X“
‘
Disable
I93A
zero, 1000V
range,
CalLow:
CLS
PRINT
“lnA —
lOmA
Current
Range
Calibration.“
PRINT
“Hake
sure
263
and 236
1237
are
properly connected
( see Service Manual
)‚“
PRINT
GOSUB
KeyCheck
PRINT
IAI,
“OUTPUT
O6;F1ROW1X“
•
1
NPUT
263 CHARACTER
1
ZAT
ION
PARANETERS
CharCheck:
INPUT
“Enter
263
characterization
parameters
(y/n)“;
IN$
IN$ =
LEFT$( IN$ ‚
1)
IF
IN$
=
“N“
OR IN$ =
“n“
THEN GOTO
NoChar
IF
IN$
<>
“y“
AND
IN$
<>
“Y“
THEN BEEP:
OOTO CharCheck
PRINT
InChar:
PRINT
“Enter
ehe
following 263 characterization
parameters.“
PRINT “See
Service
Manual for
263
characterization
procedure.“
PR 1 NT
FOR
1 =
1
TO
5
‘
Loop
for
all
parameters
PRINT
“Enter
parameter for
263
“
;
char$(
1
); “ “
;
‘
Prompt
for
parameter,
INPUT char(
1
)
•
Input parameter.
NEXT
1
‘
Loop
back
for
next
parameter.
NoChar:
FOR 1 = 1
TO
5
IF
char(1)
0 THEN
BEEP
PRINT “Improper
characterization parameters
are presently entered,“
GOTO
InChar