Filter
Top Products
Troubleshooting 65
510 DATA 115,30,20,1,127,.002701,.2,.00042,10.25
520 !
530 Eprom_data_6684: ! ! EEPROM data for 6684A
540 DATA 93,74,41,0,83,0,29,70,131,0
550 DATA 98,21,4.6,10,50,0,83,255,20,10
560 DATA 6684,87,97,28,93,128,5,255,0,0
570 DATA 1296,6684,0,20,180,20,180,175,33,98
580 DATA 115,30,20,1,127,.002701,.2,.000333,10.234375
590 !
600 !
610 INPUT “Input Power Supply model number. Example:""6681A""",Model$
620 CLEAR SCREEN
630 !
640 RESTORE Eprom_data_addr
650 !
660 FOR I=l T0 49
670 READ Addr(I)
680 NEXT I
690 !
700 RESTORE Eprom_data_len
710 !
720 FOR I=l T0 49
730 READ Length(I)
740 NEXT I
750 !
760 SELECT TRIM$(UPC$(Model$)) ! Delete leading/trailing zeros and set to uppercase
770 CASE "6680A"
780 RESTORE Eprom_data_6680
790 CASE "6681A"
800 RESTORE Eprom_data_6681
810 CASE "6682A"
820 RESTORE Eprom_data_6682
830 CASE "6683A"
840 RESTORE Eprom_data_6683
850 CASE "6684A"
860 RESTORE Eprom_data_6684
870 !
880 CASE ELSE
890 PRINT "Model number not found. Program is for models"
900 PRINT "Agilent 6680A, 6681A, 6682A, 6683A and 6684A only"
910 STOP
920 END SELECT
930 !
940 FOR I=l T0 49 ! Read model dependent data
950 READ Init_data(I)
960 NEXT I
970 !
980 OUTPUT @Ps;"*CLS" ! Clears power supply registers
990 !
1000 OUTPUT @Ps;"CAL;STATE ON," ! Turn on cal mode, "0" passcode
1010 !
Figure 3-17. Initialization and Factory Preset Replacement Program Listing (Sheet 2 of 5)