Filter
Top Products
Troubleshooting 53
510 !
520 Eprom_data_106a: ! ! EEPROM data for 66106A
530 DATA 16.4035,32.3969,204.75,0,65,0,4403.67,30.0918,0.768,0
540 DATA 67,4,0.9,5.25,240,0,255,100,20,66106
550 DATA 131.18,.248047,35231.2,-28.4202,0,0,4,66106,20,150
560 DATA 20,150,28321,40,20,10,82,84,0
570 !
580 INPUT “Input Power Supply model number. Example:""66101A""",Model$
590 Model$=TRIM$(UPC$(MODEL$))
600 CLEAR SCREEN
610 !
620 PRINT "The Power Supply Module must be in slot 0. Press ""Continue"""
630 PRINT "to resume program."
640 PAUSE
650 CLEAR SCREEN
660 !
670 RESTORE Eprom_data_addr
680 !
690 FOR I=l T0 39
700 READ Addr(I)
710 NEXT I
720 !
730 RESTORE Eprom_data_len
740 !
750 FOR I=l T0 39
760 READ Length(I)
770 NEXT I
780 !
790 SELECT Model$
800 !
810 CASE "66101A"
820 RESTORE Eprom_data_101a
830 CASE "66102A"
840 RESTORE Eprom_data_102a
850 CASE "66103A"
860 RESTORE Eprom_data_103a
870 CASE "66104A"
880 RESTORE Eprom_data_104a
890 CASE "66105A"
900 RESTORE Eprom_data_105a
910 CASE "66106A"
920 RESTORE Eprom_data_106a
930 CASE ELSE
940 PRINT "Model number not found. Program is for Agilent models"
950 PRINT "66101A through 66106A ONLY"
960 STOP
970 END SELECT
980 !
990 FOR I=l T0 39 ! Read model dependent data
1000 READ Init_data(I)
Figure 3-14. EEPROM Initialization Program (Sheet 2 of 5)