Keithley 2002

Calibration Programs
B-11
Program B-3
Low-level Calibration Program for Use with Fluke 5700A Calibrator (BASIC Version)
' Model 2002 low-level calibration program for use only with the
' Fluke 5700A calibrator.
' Rev. 1.2, 4/7/94
OPEN "IEEE" FOR OUTPUT AS #1 ' Open IEEE-488 output path.
OPEN "IEEE" FOR INPUT AS #2 ' Open IEEE-488 input path.
PRINT #1, "INTERM CRLF" ' Set input terminator.
PRINT #1, "OUTTERM LF" ' Set output terminator.
PRINT #1, "REMOTE 4 16" ' Put 2002,5700A in remote.
PRINT #1, "CLEAR" ' Send DCL.
PRINT #1, "OUTPUT 16;:SYST:PRES;*CLS" ' Initialize 2002.
PRINT #1, "OUTPUT 16;*ESE 1;*SRE 32" ' Enable OPC and SRQ
PRINT #1, "OUTPUT 4;*RST;*CLS" ' Reset 5700A calibrator.
PRINT #1, "OUTPUT 4;CUR_POST NORMAL" ' Normal current output.
C$ = ":CAL:PROT:" ' 2002 partial command header.
'
CLS ' Clear CRT.
PRINT "Model 2002 Multimeter Low-level Calibration Program."
PRINT "This program controls the Fluke 5700A Calibrator."
GOSUB CheckSwitch
GOSUB KeyCheck
RESTORE CmdList
PRINT #1, "OUTPUT 16;:CAL:PROT:INIT" ' Initiate calibration.
'
FOR I = 1 TO 29 ' Loop for all cal points.
READ Msg$, Cmd$ ' Read message, cal strings.
IF I = 17 THEN C$ = ":CAL:PROT:"
SELECT CASE I ' Select cal sequence.
CASE 1, 15, 29
PRINT #1, "OUTPUT 4;STBY"
PRINT Msg$
GOSUB KeyCheck
CASE 2, 17
PRINT "Connect calibrator to INPUT and SENSE jacks."
IF I = 2 THEN PRINT "Wait three minutes."
GOSUB KeyCheck
PRINT #1, "OUTPUT 4;EXTSENSE OFF"
PRINT #1, "OUTPUT 4;"; Msg$
PRINT #1, "OUTPUT 4;OPER"
CASE 3, 11 TO 14, 18 TO 26
PRINT #1, "OUTPUT 4;"; Msg$
PRINT #1, "OUTPUT 4;OPER"
CASE 4 TO 9
PRINT #1, "OUTPUT 4;"; Msg$
PRINT #1, "OUTPUT 4;EXTSENSE ON"
PRINT #1, "OUTPUT 4;OPER"
PRINT #1, "OUTPUT 4;OUT?"
PRINT #1, "ENTER 4"
INPUT #2, R, R$, S
Cmd$ = Cmd$ + " " + STR$(R)
CASE 10, 28
PRINT #1, "OUTPUT 4;STBY"
PRINT "Connect calibrator to AMPS and INPUT LO jacks."
IF I = 28 THEN PRINT "Select FRONT INPUT jacks."
GOSUB KeyCheck
PRINT #1, "OUTPUT 4;"; Msg$
PRINT #1, "OUTPUT 4;OPER"
CASE 16
C$ = ":CAL:"
PRINT Msg$
CASE 27
PRINT Msg$
PRINT "Select REAR INPUTS with FRONT/REAR switch."
PRINT "Wait 3 minutes for thermal equilibrium."
GOSUB KeyCheck
END SELECT