Initialization and Factory Preset Replacement Program Listing (sheet 2)
510CLEAR SCREEN
520!
530SELECT Model$
540CASE "E4350B"
550RESTORE Eprom_data_50B
560CASE "E4351B"
570RESTORE Eprom_data_51B
580CASE ELSE
590DISP "Error in Model number, must be E4350B or E4351B."
600STOP
610END SELECT
620!
630 FOR I=1 TO 49 | ! Read model dependent data |
640READ Init_data(I)
650NEXT 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$ |
|
750Model=VAL(Idn$[POS(Idn$,",")+2])
760ELSE
770GOTO Start
780END 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 # |
880GOSUB Ps_error
890IF Err THEN
900PRINT "Change pass code to the power supply model # or zero then restart the program."
910STOP
920ELSE
930GOTO Start
940END IF
950END IF
960!
970Start: !
980!
990CLEAR SCREEN
1000 PRINT "Initializing EEPROM"
Figure
Service Addendum | 21 |
