Calibration
102
540 Password is optional - only required if set to non-zero value
550 Default password is four-digit model number
560 !
570 ! LINE 590 PASSWORD MUST BE EDITED FOR MODEL OTHER THAN 6680
580 !
590 OUTPUT @Ps;"CAL:STATE ON, 6680"
600 OUTPUT @Ps;"VOLT:LEV 2"
610 ! Refer to Table A-1 for correct shunt value for model being calibrated
620 !
630 INPUT "ENTER VALUE 0F CURRENT SHUNT BEING USED",Shunt_val
STEPS 640 THROUGH 670 NOT USED ON 664x, 665x and 667x
640 OUTPUT @Ps;"CAL:CURRENT:MONITOR"
650 INPUT "ENTER VOLTAGE MEASUREMENT FROM EXTERNAL VOLTMETER",Volt_read
660 Current=Volt_read/Shunt_val
670 OUTPUT @Ps;"CAL:CURRENT ";Current
680 OUTPUT @Ps;"CAL:CURRENT:LEVEL MIN"
690 INPUT "ENTER VOLTAGE MEASUREMENT FROM EXTERNAL VOLTMETER",Volt_read
700 Current=Volt_read/Shunt_val
710 OUTPUT @Ps;"CAL:CURRENT ";Current
720 OUTPUT @Ps;"CAL:CURRENT:LEVEL MAX"
730 INPUT "ENTER VOLTAGE MEASUREMENT FROM EXTERNAL VOLTMETER",Volt_read
740 Current=Volt_read/Shunt_val
750 OUTPUT @Ps;"CAL:CURRENT ";Current
760 GOSUB Save_cal
770 IF Err_found THEN
780 INPUT "ERRORS have occurred, REPEAT CURRENT CALIBRATION ( Y 0R N )?",Resp$
790 IF TRIM$(UPC$(Resp$[l,1] ))="Y" THEN GOTO Volt_cal
800 END IF
810 IF Err_found THEN
820 PRINT "CURRENT CALIBRATION NOT SAVED"
830 ELSE
840 PRINT "CURRENT CALIBRATION COMPLETE"
850 END IF
860 STOP
870 Save_cal: ! SAVE CALIBRATION
880 REPEAT
890 OUTPUT @Ps;"SYSTEM:ERROR?"
900 ENTER @Ps;Err_num,Err_msg$
910 IF Err_num< >0 THEN
920 PRINT "ERROR: ";Err_msg$
930 Err_found=1
940 END IF
950 UNTIL Err_num=0
960 IF NOT Err_found THEN
970 INPUT "SAVE CALIBRATION CONSTANTS ( Y 0R N )?",Resp$
980 IF TRIM$(UPC$(Resp$[l,1] ))="Y" THEN
990 OUTPUT @Ps;"CAL:SAVE"
1000 END IF
1010 END IF
1020 OUTPUT @Ps;"CAL:STATE OFF"
1030 RETURN
1040 END
Figure A-2. Agilent BASIC Calibration Program (continued)