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