Keithley 2500 - Page 113

C-6 Calibration Program Model 2500 Service Manual
DO: PRINT #1, "SRQ?" ' Request SRQ status.
INPUT #2, S ' Input SRQ status byte.
LOOP UNTIL S ' Wait for operation complete.
PRINT #1, "OUTPUT 25;*ESR?" ' Clear OPC.
PRINT #1, "ENTER 25"
INPUT #2, S
PRINT #1, "SPOLL 25" ' Clear SRQ.
INPUT #2, S
RETURN
'
ErrCheck: ' Error check routine.
PRINT #1, "OUTPUT 25;:SYST:ERR?" ' Query error queue.
PRINT #1, "ENTER 25"
INPUT #2, E, Err$
IF E <> 0 THEN PRINT Err$: GOTO ErrCheck ' Display error.
RETURN
'
ReadDMM: ' Get reading from DMM.
SLEEP 3
PRINT #1, "OUTPUT 16;:READ?"
PRINT #1, "ENTER 16"
INPUT #2, Reading$
RETURN
'
EndProg: ' Close files, end program.
BEEP: PRINT "Calibration aborted."
PRINT #1, "OUTPUT 25;:CAL:PROT:LOCK"
PRINT #1, "OUTPUT 25;*RST"
PRINT #1, "LOCAL 25 16 17"
CLOSE
END
'
CmdList: ' Voltage bias cal commands.
DATA ":CAL:PROT:SOUR1:OFFS"
DATA ":OUTP1 ON",":SOUR1:VOLT:RANG 10",":SOUR1:VOLT 10","CAL:PROT:SOUR1 "
DATA ":SOUR1:VOLT 0",":CAL:PROT:SOUR1 ",":SOUR1:VOLT -10",":CAL:PROT:SOUR1 "
DATA ":SOUR1:VOLT:RANG 100",":SOUR1:VOLT 100","CAL:PROT:SOUR1 "
DATA ":SOUR1:VOLT 0",":CAL:PROT:SOUR1 ",":SOUR1:VOLT -100"
DATA ":CAL:PROT:SOUR1 ",":OUTP1 OFF"
DATA ":CAL:PROT:SOUR2:OFFS"
DATA ":OUTP2 ON",":SOUR2:VOLT:RANG 10",":SOUR2:VOLT 10","CAL:PROT:SOUR2 "
DATA ":SOUR2:VOLT 0",":CAL:PROT:SOUR2 ",":SOUR2:VOLT -10",":CAL:PROT:SOUR2 "
DATA ":SOUR2:VOLT:RANG 100",":SOUR2:VOLT 100","CAL:PROT:SOUR2 "
DATA ":SOUR2:VOLT 0",":CAL:PROT:SOUR2 ",":SOUR2:VOLT -100"
DATA ":CAL:PROT:SOUR2 ",":OUTP2 OFF"