Filter
Top Products
Troubleshooting 67
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)