Agilent Technologies 6541A, Service Manual

Page: 71 / 179

Troubleshooting 71
Figure 3-17. Initialization and Factory Preset Replacement Program Listing (Sheet 5 of 6)
2030 !
2040 INPUT "Select Initialization (I) or Factory preset replacement (F).",Sel$
2050 CLEAR SCREEN
2060 SELECT (UPC$(Sel$))
2070 CASE "I" ! Select Initialization
2080 GOTO Init_eeprom
2090 CASE "F" ! Select install new factory data
2100 GOTO Fact_preset
2110 CASE ELSE
2120 BEEP
2130 GOTO Start
2140 END SELECT
2150 !
2160 Init_eeprom: !
2170
PRINT "Initializing EEPROM"
2180 !
2190 FOR I=1 TO 45
2200 OUTPUT @Ps;"DIAG:EEPR '';Addr(I);'','';Length(I);'','';Init_data(I)
2210 NEXT I
2220 GOTO Cal_off
2230 !
2240 !
2250 Fact_preset: !
2260
CLEAR SCREEN
2270 PRINT "This program should ONLY be completed if your power supply"
2280 PRINT "EEPROM has been replaced or a component that will effect"
2290 PRINT "the calibration AND the alignment of voltage, overvoltage"
2300 PRINT "and current is complete AND unit has passed the performance"
2310 PRINT "test. Enter C to continue, any other key to abort."
2320 INPUT Cont_prog$
2330 IF (UPC$(Cont_prog$))< >"C" THEN GOTO Cal_off
2340
!
2350 CLEAR SCREEN
2360 PRINT "Transferring calibration data to factory preset locations."
2370
!
2380 Fact_cal_sour: ! Address of factory calibration data source
2390 DATA 2,6,68,72,20,24,76,80,150
2400
!
2410 Fact_cal_dest: ! Address of factory calibration data destination
2420 DATA 84,88,92,96,100,104,108,112,116
2430
!
2440 Fact_cal_len: ! Length of factory calibration data
2450
DATA 4,4,4,4,4,4,4,4,2
2460 !
2470 RESTORE Fact_cal_sour
2480 F0R I=1 TO 9
2490 READ Cal_sour_addr(I)
2500 NEXT I
2510 !
2520 RESTORE Fact_cal_dest
2530 FOR I=1 T0 9