Agilent Technologies 6680A, 6684A, 6683A, 6681A, 6682A service manual 1530

1530	CLEAR SCREEN
1540	PRINT "This program should ONLY be completed if your power supply”
1550	PRINT "EEPROM has been replaced or a component that will effect"
1560	PRINT "the calibration AND the alignment of voltage, overvoltage"
1570	PRINT "and current is complete AND unit has passed the performance"
1580	PRINT "test.		Enter C to continue, any other key to abort.”
1590	INPUT Cont_prog$
1600	IF (UPC$(Cont_prog$))< >"C" THEN GOTO Cal_off
1610	!
1620	CLEAR SCREEN
1630	PRINT "Transferring calibration data to factory preset locations."
1640	!
1650	Fact_cal_sour:		! Address of factory calibration data source
1660	DATA 2,6,68,72,20,24,76,80,150
1670	!
1680	Fact_cal_dest	:	! Address of factory calibration data destination
1690	DATA 84,88,92,96,100,104,108,112,116
1700	!
1710	Fact_cal_len:		! Length of factory calibration data
1720	DATA 4,4,4,4,4,4,4,4,1
1730	!
1740	RESTORE Fact_cal_sour
1750	FOR I=1 TO 9
1760	READ Cal_sour_addr(I)
1770	NEXT I
1780	!
1790	RESTORE Fact_cal_dest
1800	FOR I=1 T0 9
1810	READ Cal_dest_addr(I)
1820	NEXT I
1830	!
1840	RESTORE Fact_cal_len
1850	FOR I=1 T0 9
1860	READ Cal_length(I)
1870	NEXT I
1880	!
1890	FOR I=1 T0 9			! Locations of good data
1900	OUTPUT @Ps;"DIAG:EEPR? ";Cal_sour_addr(I);",";Cal_length(I) ! Read good data
1910	ENTER @Ps;Cal_data$			! Enter good data
1920	OUTPUT @Ps;"DIAG:EEPR";Cal_dest_addr(I);",";Cal_length(I);”,”;Cal_data$
! Write good data to factory preset locations
1930	NEXT I
1940	!
1950	!
1960	Cal_off
1970	CLEAR SCREEN
1980	OUTPUT @Ps;"CaL:STATE OFF"			! Turn off cal mode
1990	!
2000	GOSUB Ps_error			! Check for errors

Figure 3-17. Initialization and Factory Preset Replacement Program Listing (Sheet 4 of 5)

Troubleshooting 67