Service manual

Troubleshooting 47
1090 Start: !
1100 !
1110 INPUT “Select Initialization (I) or Factory preset replacement (F).”,Sel$
1120 CLEAR SCREEN
1130 SELECT (UPC$(Sel$))
1140 CASE "I" ! Select Initialization
1150 GOTO Init_eeprom
1160 CASE "F" ! Select install new factory data
1170 GOTO Fact_preset
1180 CASE ELSE
1190 BEEP
1200 GOTO Start
1210 END SELECT
1220 !
1230 Init_eeprom: !
1240 PRINT “Initializing EEPROM”
1250 !
1260 FOR I=1 TO 49
1270 OUTPUT @Ps;"DIAG:EEPR '';Addr(I);'','';Length(I);'','';Init_data(I)
1280 NEXT I
1290 GOTO Cal_off
1300 !
1310 Fact_preset: !
1320 CLEAR SCREEN
1330 PRINT "This program should ONLY be completed if your power supply”
1340 PRINT "EEPROM has been replaced or a component that will effect"
1350 PRINT "the calibration AND the alignment of voltage, overvoltage"
1360 PRINT "and current is complete AND unit has passed the performance"
1370 PRINT "test. Enter C to continue, any other key to abort.”
1380 INPUT Cont_prog$
1390 IF (UPC$(Cont_prog$))< >"C" THEN GOTO Cal_off
1400 !
1410 CLEAR SCREEN
1420 PRINT "Transferring calibration data to factory preset locations."
1430 !
1440 Fact_cal_sour: ! Address of factory calibration data source
1450 DATA 2,6,68,72,20,24,76,80,150
1460 !
1470 Fact_cal_dest : ! Address of factory calibration data destination
1480 DATA 84,88,92,96,100,104,108,112,116
1490 !
1500 Fact_cal_len: ! Length of factory calibration data
1510 DATA 4,4,4,4,4,4,4,4,1
1520 !
1530 RESTORE Fact_cal_sour
1540 FOR I=1 TO 9
1550 READ Cal_sour_addr(I)
1560 NEXT I
1570 !
1580 RESTORE Fact_cal_dest
1590 FOR I=1 T0 9
1600 READ Cal_dest_addr(I)
1610 NEXT I
1620 !
Figure 3-13. Initialization and Factory Preset Replacement Program Listing (Sheet 3 of 4)