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