Filter
Top Products
54 Troubleshooting
1010 NEXT I
1020 !
1030 OUTPUT @Ps;"*CLS" ! Clears power supply registers
1040 !
1050 OUTPUT @Ps;"CAL;STATE ON," ! Turn on cal mode, "0" passcode
1060 !
1070 GOSUB Ps_error ! Error if passcode is not "0"!
1080 IF Err THEN
1090 OUTPUT @Ps;"*IDN?" ! Get data from model # location
1100 ENTER @Ps;Idn$
1110 Model=VAL(Idn$[POS(Idn$,”,”)+1] )
1120 ELSE
1130 GOTO Start
1140 END IF
1150 !
1160 OUTPUT @Ps;"CAL:STATE ON,";Model ! Turn on cal mode, passcode =
1170 ! data at model number location
1180 !
1190 GOSUB Ps_error ! Error if passcode is not same as
1200 ! data at model # location
1210 IF Err THEN
1220 OUTPUT @Ps;"CAL:STATE ON,";Model$[l,4] ! Turn on cal mode, passcode =
1230 ! model #
1240 GOSUB Ps_error
1250 IF Err THEN
1260 PRINT "Change pass code to the power supply model # or zero. Restart program."
1270 STOP
1280 ELSE
1290 GOTO Start
1300 END IF
1310 END IF
1320 !
1330 Start: !
1340 !
1350 INPUT “Select Initialization (I) or Factory preset replacement (F).”,Sel$
1360 CLEAR SCREEN
1370 SELECT (UPC$(Sel$))
1380 CASE "I" ! Select Initialization
1390 GOTO Init_eeprom
1400 CASE "F" ! Select install new factory data
1410 GOTO Fact_preset
1420 CASE ELSE
1430 BEEP
1440 GOTO Start
1450 END SELECT
1460 !
1470 Init_eeprom: !
1480 PRINT “Initializing EEPROM”
1490 !
1500 FOR I=1 TO 39
Figure 3-14. EEPROM Initialization Program (Sheet 3 of 5)