Filter
Top Products
Service Addendum 21
Initialization and Factory Preset Replacement Program Listing (sheet 2)
510 CLEAR SCREEN
520 !
530 SELECT Model$
540 CASE "E4350B"
550 RESTORE Eprom_data_50B
560 CASE "E4351B"
570 RESTORE Eprom_data_51B
580 CASE ELSE
590 DISP "Error in Model number, must be E4350B or E4351B."
600 STOP
610 END SELECT
620 !
630 FOR I=1 TO 49 ! Read model dependent data
640 READ Init_data(I)
650 NEXT I
660 !
670 OUTPUT @Ps;"*CLS" ! Clears power supply registers
680 !
690 OUTPUT @Ps;"CAL:STATE ON," ! Turn on cal mode, "0" passcode
700 !
710 GOSUB Ps_error ! Error if passcode is not "0"!
720 IF Err THEN
730 OUTPUT @Ps;"*IDN?" ! Get data from model # location
740 ENTER @Ps;Idn$
750 Model=VAL(Idn$[POS(Idn$,",")+2])
760 ELSE
770 GOTO Start
780 END IF
790 !
800 OUTPUT @Ps;"CAL:STATE ON,";Model ! Turn on cal mode, passcode =
810 ! data at model number location
820 !
830 GOSUB Ps_error ! Error if passcode is not same as
840 ! data at model # location
850 IF Err THEN
860 OUTPUT @Ps;"CAL:STATE ON,";Model$[1,4] ! Turn on cal mode, passcode =
870 ! model #
880 GOSUB Ps_error
890 IF Err THEN
900 PRINT "Change pass code to the power supply model # or zero then restart the program."
910 STOP
920 ELSE
930 GOTO Start
940 END IF
950 END IF
960 !
970 Start: !
980 !
990 CLEAR SCREEN
1000 PRINT "Initializing EEPROM"
Figure 3-17. Initialization and Factory Preset Replacement Program Listing (Sheet 2 of 3)