Keithley 2700 Service Manual page 165

KeyCheck:
WHILE INKEY$ <> "": WEND
PRINT : PRINT "Press any key to continue (ESC to abort program)."
DO: I$ = INKEY$: LOOP WHILE I$ = ""
IF I$ = CHR$(27) THEN GOTO EndProg
RETURN
'
CalEnd:
PRINT "Performing calibration step #"; I
DO: PRINT #1, "SRQ?"
INPUT #2, s
LOOP UNTIL s
PRINT #1, "OUTPUT 16;*ESR?"
PRINT #1, "ENTER 16"
INPUT #2, s
PRINT #1, "SPOLL 16"
INPUT #2, s
RETURN
'
ErrCheck:
PRINT #1, "OUTPUT 16;:SYST:ERR?"
PRINT #1, "ENTER 16"
INPUT #2, E, Err$
IF E <> 0 THEN PRINT Err$: GOTO ErrCheck
RETURN
'
Settle:
DO: PRINT #1, "OUTPUT 4;ISR?"
PRINT #1, "ENTER 4"
INPUT #2, s
LOOP UNTIL (s AND &H1000)
RETURN
'
EndProg:
BEEP: PRINT "Calibration aborted."
PRINT #1, "OUTPUT 4;STBY"
PRINT #1, "OUTPUT 16;:SYST:PRES"
PRINT #1, "LOCAL 4 16"
CLOSE
END
'
CmdList:
DATA "Connect low-thermal short to inputs, wait 3 minutes.","DC:STEP1"
DATA "Disconnect low-thermal short from inputs.","DC:STEP2"
DATA "OUT 10 V,0 HZ","DC:STEP3 10"
DATA "OUT -10 V","DC:STEP4 -10"
DATA "OUT 100 V","DC:STEP5 100"
DATA "OUT 1 KOHM","DC:STEP6"
DATA "OUT 10 KOHM","DC:STEP7"
DATA "OUT 100 KOHM","DC:STEP8"
DATA "OUT 1 MOHM","DC:STEP9"
DATA "OUT 10 MA","DC:STEP10 10E-3"
DATA "OUT 100 MA","DC:STEP11 100E-3"
DATA "OUT 1A","DC:STEP12 1"
Calibration Program
' Check for key press routine.
' Flush keyboard buffer.
' Abort if ESC is pressed.
' Check for cal step completion.
' Request SRQ status.
' Input SRQ status byte.
' Wait for operation complete.
' Clear OPC.
' Clear SRQ.
' Error check routine.
' Query error queue.
' Display error.
' Calibrator settling routine.
' Query status register.
' Test settle bit.
' Close files, end program.
C-5