Filter
Top Products
Troubleshooting 55
1510 OUTPUT @Ps;"DIAG:EEPR ’’;Addr(I);’’,’’;Length(I);’’,’’;Init_data(I)
1520 NEXT I
1530 GOTO Cal_off
1540 !
1550 Fact_preset: !
1560 CLEAR SCREEN
1570 PRINT "This program should ONLY be completed if your power supply”
1580 PRINT "EEPROM has been replaced or a component that will effect"
1590 PRINT "the calibration AND the alignment of voltage, overvoltage"
1600 PRINT "and current is complete AND unit has passed the performance"
1610 PRINT "test. Enter C to continue, any other key to abort.”
1620 INPUT Cont_prog$
1630 IF (UPC$(Cont_prog$))< >"C" THEN GOTO Cal_off
1640 !
1650 CLEAR SCREEN
1660 PRINT "Transferring calibration data to factory preset locations."
1670 !
1680 Fact_cal_sour: ! Address of factory calibration data source
1690 DATA 2,6,62,66,20,24,70,74
1700 !
1710 Fact_cal_dest : ! Address of factory calibration data destination
1720 DATA 78,82,86,90,94,98,102,106
1730 !
1740 Fact_cal_len: ! Length of factory calibration data
1750 DATA 4,4,4,4,4,4,4,4,
1760 !
1770 RESTORE Fact_cal_sour
1780 FOR I=1 TO 8
1790 READ Cal_sour_addr(I)
1800 NEXT I
1810 !
1820 RESTORE Fact_cal_dest
1830 FOR I=1 T0 8
1840 READ Cal_dest_addr(I)
1850 NEXT I
1860 !
1870 FOR I=1 T0 8 ! Locations of good data
1880 OUTPUT @Ps;"DIAG:EEPR? ";Cal_sour_addr(I);",";4 ! Read good data
1890 ENTER @Ps;Cal_data$ ! Enter good data
1900 OUTPUT @Ps;"DIAG:EEPR";Cal_dest_addr(I);",";4;",";Cal_data$ ! Write data
1910 NEXT I
1920 !
1930 Cal_off !
1940 CLEAR SCREEN
1950 OUTPUT @Ps;"CaL:STATE OFF" ! Turn off cal mode
1960 !
1970 GOSUB Ps_error ! Check for errors
1980 IF Err THEN
1990 PRINT "An error occurred during the EEPROM read/write, Check for"
2000 PRINT "programming errors. Initialization data may be incorrect."
Figure 3-14. EEPROM Initialization Program (Sheet 4 of 5)