CASE 11, 14, 24
J$ = "AMPS"
IF I = 14 THEN J$ = "INPUT HI"
PRINT #1, "OUTPUT 4;STBY"
PRINT "Connect calibrator to "; J$; " and INPUT LO jacks."
GOSUB KeyCheck
PRINT #1, "OUTPUT 4;"; Msg$
PRINT #1, "OUTPUT 4;OPER"
END SELECT
IF I > 2 THEN GOSUB Settle
PRINT #1, "OUTPUT 16;"; C$; Cmd$; ";*OPC"
' Send cal command to 2010.
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 16;:CAL:PROT:DATE "; D$
GOSUB ErrCheck
LINE INPUT "Enter calibration due date (yyyy,mm,dd): "; D$
PRINT #1, "OUTPUT 16;:CAL:PROT:NDUE "; D$
GOSUB ErrCheck
PRINT #1, "OUTPUT 16;:CAL:PROT:SAVE" ' Save calibration constants.
GOSUB ErrCheck
PRINT #1, "OUTPUT 16;:CAL:PROT:LOCK" ' Lock out calibration.
PRINT "Calibration completed."
PRINT #1, "OUTPUT 16;: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 16;*ESR?" ' Clear OPC.
PRINT #1, "ENTER 16"
INPUT #2, S
PRINT #1, "SPOLL 16" ' Clear SRQ.
INPUT #2, S
RETURN
'
ErrCheck: ' Error check routine.
Calibration Program
C-5
Содержание 2010
Страница 14: ...1 Performance Verification 1 Performance Verification...
Страница 28: ...2 Calibration 2 Calibration...
Страница 53: ...3 Routine Maintenance 3 Routine Maintenance...
Страница 56: ...4 Troubleshooting 4 Troubleshoot ing...
Страница 74: ...5 Disassembly 5 Disassembly...
Страница 83: ...CONFIDENTIAL PROPRIETARY...
Страница 84: ......
Страница 85: ......
Страница 86: ......
Страница 87: ...6 Replaceable Parts 6 Replaceable Parts...
Страница 98: ...CONFIDENTIAL PROPRIETARY...
Страница 99: ...CONFIDENTIAL PROPRIETARY...
Страница 100: ......
Страница 101: ...A Specifications A Specifications...
Страница 107: ...B Calibration CommandReference B Calibration CommandRef erence...
Страница 125: ...C Calibration Program C Calibration Program...