Calibration Programs C-5
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.
INPUT #2, S
RETURN
'
ErrCheck: ' Error check routine.
PRINT #1, "OUTPUT 24;:SYST:ERR?" ' Query error queue.
PRINT #1, "ENTER 24"
INPUT #2, E, Err$
IF E <> 0 THEN PRINT Err$: GOTO EndProg ' Display error.
RETURN
'
ReadDMM: ' Get reading from DMM.
SLEEP 5
PRINT #1, "ENTER 22"
INPUT #2, Reading
RETURN
'
EndProg: ' Close files, end program.
BEEP: PRINT "Calibration aborted."
PRINT #1, "OUTPUT 24;:CAL:PROT:LOCK"
PRINT #1, "OUTPUT 24;*RST"
PRINT #1, "LOCAL 22 24"
CLOSE
END
'
VoltsInit: ' Calibration command lists.
DATA "RST",":SOUR:FUNC VOLT",":SENS:CURR:PROT 0.1"
DATA ":SENSE:CURR:RANG 0.1",":SOUR:VOLT:PROT:LEV MAX",":SYST:RSEN OFF"
DATA ":CAL:PROT:CODE 'KI002400'",":OUTP:STAT ON"
VoltsCal:
DATA ":SOUR:VOLT:RANG ",":SOUR:VOLT"
DATA ":CAL:PROT:SOUR ",":CAL:PROT:SENS ",":SOUR:VOLT 0.0"
DATA ":CAL:PROT:SOUR ",":CAL:PROT:SENS ",":SOUR:VOLT ",":CAL:PROT:SOUR"
DATA ":CAL:PROT:SENSE ",":SOUR:VOLT 0.0",":CAL:PROT:SOUR"
CurrentInit:
DATA ":SOUR:FUNC CURR",":SENS:VOLT:PROT 20",":SENS:VOLT:RANG 20"
DATA ":OUTP:STAT ON"
CurrentCal:
DATA ":SOUR:CURR:RANG ",":SOUR:CUR ",":CAL:PROT:SOUR"
DATA ":CAL:PROT:SENS ",":SOUR:CURR 0.0",":CAL:PROT:SOUR ",":CAL:PROT:SENS"
DATA ":SOUR:CURR ",":CAL:PROT:SOUR ","CAL:PROT:SENS"
DATA ":SOUR:CURR 0.0 ",":CAL:PROT:SOUR"