70 Troubleshooting
Figure 3-17. Initialization and Factory Preset Replacement Program Listing (Sheet 4 of 6)
1530 RESTORE Eprom_data_6x54
1540 CASE "6655A"
1550 RESTORE Eprom_data_6x55
1560 !
1570 CASE ELSE
1580 PRINT "Model number not found. Program is for Agilent models"
1590 PRINT "6541A, 6542A, 6543A, 6544A and 6545A"
1600 PRINT "6641A, 6642A, 6643A, 6644A and 6645A"
1610 PRINT "6551A, 6552A, 6553A, 6554A and 6555A"
1620 PRINT "6651A, 6652A, 6663A, 6654A and 6655A"
1630 STOP
1640 END SELECT
1650 !
1660 FOR I=1 T0 45 ! Read model dependent data
1670 READ Init_data(I)
1680 IF I=21 0R I=32 THEN Init_data(I)=VAL(Model$)
1690 NEXT I
1700 !
1710 OUTPUT @Ps;"*CLS" ! Clears power supply registers
1720 !
1730 OUTPUT @Ps;"CAL;STATE ON," ! Turn on cal mode, "0" passcode
1740 !
1750 G0SUB Ps_error ! Error if passcode is not "0"!
1760 IF Err THEN
1770 OUTPUT @Ps;"*IDN?" ! Get data from model # location
1780 ENTER @Ps;Idn$
1790 Model=VAL(Idn$[POS(Idn$,",")+1] )
1800 ELSE
1810 GOTO Start
1820 END IF
1830 !
1840 OUTPUT @Ps;"CAL:STATE ON,";Model ! Turn on cal mode, passcode =
1850 ! data at model number location
1860 !
1870 G0SUB Ps_error ! Error if passcode is not same as
1880 ! data at model & location
1890 IF Err THEN
1900 OUTPUT @Ps;"CAL:STATE ON,";Model$[1,4] ! Turn on cal mode, passcode =
1910 ! model #
1920 GOSUB Ps_error
1930 IF Err THEN
1940 PRINT "Change pass code to the power supply model # or zero then restart the program."
1950 STOP
1960 ELSE
1970 GOTO Start
1980 END IF
1990 END IF
2000 !
2010 Start: !
2020 !
To Next Page
Loading...
Need help?
General
