CASE 3
PRINT "Connect calibrator to CHANNEL 1 input."
PRINT "Wait 2 minutes."
GOSUB KeyCheck
PRINT #1, "OUTPUT 4;EXTSENSE OFF"
PRINT #1, "OUTPUT 4;"; Msg$
PRINT #1, "OUTPUT 4;OPER"
CASE 4, 5
PRINT #1, "OUTPUT 4;"; Msg$
PRINT #1, "OUTPUT 4;OPER"
END SELECT
IF I > 2 THEN GOSUB Settle
PRINT #1, "OUTPUT 7;"; C$; Cmd$; ";*OPC" ' Send cal command to 2182.
GOSUB CalEnd
' Wait until cal step ends.
GOSUB ErrCheck
' Check for cal error.
NEXT I
'
PRINT #1, "OUTPUT 4;STBY"
LINE INPUT "Enter calibration date (yyyy,mm,dd): "; D$
PRINT #1, "OUTPUT 7;:CAL:PROT:DATE "; D$
LINE INPUT "Enter calibration due date (yyyy,mm,dd): "; D$
PRINT #1, "OUTPUT 7;:CAL:PROT:NDUE "; D$
PRINT #1, "OUTPUT 7;:CAL:PROT:SAVE"
' Save calibration constants.
GOSUB ErrCheck
PRINT #1, "OUTPUT 7;:CAL:PROT:LOCK"
' Lock out calibration.
PRINT "Calibration completed."
PRINT #1, "OUTPUT 7;:SYST:PRES"
END
'
KeyCheck:
' Check for key press routine.
WHILE INKEY$ <> "": WEND
' Flush keyboard buffer.
PRINT : PRINT "Press any key to continue (ESC to abort program)."
DO: I$ = INKEY$: LOOP WHILE I$ = ""
IF I$ = CHR$(27) THEN GOTO EndProg
' Abort if ESC is pressed.
RETURN
'
CalEnd:
'
Check
for
cal
step
completion.
PRINT "Performing calibration step #"; I
DO: PRINT #1, "SRQ?"
' Request SRQ status.
INPUT #2, S
' Input SRQ status byte.
LOOP UNTIL S
' Wait for operation complete.
PRINT #1, "OUTPUT 7;*ESR?"
' Clear OPC.
PRINT #1, "ENTER 7"
INPUT #2, S
PRINT #1, "SPOLL 7"
' Clear SRQ.
INPUT #2, S
RETURN
'
C-4
Calibration Program
Summary of Contents for 2182
Page 10: ......
Page 14: ...1 Performance Verification Performance Verification...
Page 25: ...1 12 Performance Verification...
Page 26: ...2 Calibration Calibration...
Page 43: ...2 18 Calibration...
Page 44: ...3 Routine Maintenance RoutineMain tenance...
Page 47: ...3 4 Routine Maintenance...
Page 48: ...4 Troubleshooting Troubleshoot ing...
Page 64: ...5 Disassembly Disassembly...
Page 73: ...5 10 Disassembly...
Page 74: ......
Page 75: ......
Page 76: ......
Page 77: ......
Page 78: ......
Page 79: ...6 Replaceable Parts Replaceable Parts...
Page 89: ......
Page 90: ......
Page 91: ......
Page 92: ...A Specifications Specifica tions...
Page 96: ...B CalibrationReference Calibration Reference...
Page 109: ...B 14 Calibration Reference...
Page 110: ...C CalibrationProgram Calibration Program...
Page 115: ...C 6 Calibration Program...
Page 119: ......