Agilent Technologies 6681A Video Gaming Accessories User Manual


 
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)