Model 2500 Service Manual Calibration Program C-5
PRINT #1, "OUTPUT 25;:CAL:PROT:SENS1 "; CalPlus; ";*OPC"
GOSUB CalEnd
PRINT #1, "OUTPUT 17;V0X" ' 0 current cal.
PRINT #1, "OUTPUT 25;:CAL:PROT:SENS1 0;*OPC"
GOSUB CalEnd
PRINT #1, "OUTPUT 17;V"; CalMinus; "X" ' - FS current cal.
PRINT #1, "OUTPUT 25;:CAL:PROT:SENS1 "; CalMinus; ";*OPC"
GOSUB CalEnd
GOSUB ErrCheck
Range = Range * 10: CalPlus = CalPlus * 10: CalMinus = CalMinus * 10
NEXT I
PRINT #1, "OUTPUT 17;O0X"
' Channel 2 current calibration
Range = 2E-09: CalPlus = 1.9E-09: CalMinus = -1.9E-09
PRINT "Connect 263 Calibrator output to 2500 channel 2 INPUT jack."
GOSUB KeyCheck
PRINT #1, "OUTPUT 17;O1X"
FOR I = 1 TO 8 ' Loop for all ranges.
PRINT #1, "OUTPUT 25;:SENS2:CURR:RANG "; Range ' Set 2500 range.
PRINT #1, "OUTPUT 17;V"; CalPlus; "X" ' + FS current cal.
PRINT #1, "OUTPUT 25;:CAL:PROT:SENS2 "; CalPlus; ";*OPC"
GOSUB CalEnd
PRINT #1, "OUTPUT 17;V0X" ' 0 current cal.
PRINT #1, "OUTPUT 25;:CAL:PROT:SENS2 0;*OPC"
GOSUB CalEnd
PRINT #1, "OUTPUT 17;V"; CalMinus; "X" ' - FS current cal.
PRINT #1, "OUTPUT 25;:CAL:PROT:SENS2 "; CalMinus; ";*OPC"
GOSUB CalEnd
GOSUB ErrCheck
Range = Range * 10: CalPlus = CalPlus * 10: CalMinus = CalMinus * 10
NEXT I
PRINT #1, "OUTPUT 17;O0X"
LINE INPUT "Enter calibration date (yyyy,mm,dd): "; D$
PRINT #1, "OUTPUT 25;:CAL:PROT:DATE "; D$
LINE INPUT "Enter calibration due date (yyyy,mm,dd): "; D$
PRINT #1, "OUTPUT 25;:CAL:PROT:NDUE "; D$
PRINT #1, "OUTPUT 25;:CAL:PROT:SAVE" ' Save calibration constants.
GOSUB ErrCheck
PRINT #1, "OUTPUT 25;:CAL:PROT:LOCK" ' Lock out calibration.
PRINT "Calibration completed."
PRINT #1, "LOCAL 25 16"
CLOSE
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.
To Next Page
Loading...
Need help?
General
