Service manual

Troubleshooting 45
10 ! Program to initialize EPROM or move factory preset data in 669xA
20 ! power supplies.
30 ! RE-STORE " INIT_669X"
40 ! Rev A.00.00 dated Feb 2002
50 !
60 DIM Init_data(1:49),Model$[5],Idn$[21],Cal_data$[40]
70 INTEGER Addr(1:49),Length(1:49)
80 ASSIGN @Ps TO 705 ! Supply must be at address 705
90 CLEAR SCREEN
100 !
110 Eprom_data_addr: ! Data address
120 DATA 2,6,10,14,18,19,20,24,28,32
130 DATA 36,37,38,42,46,50,54,55,56,57
140 DATA 64,68,72,76,80,116,l52,153,154,155
150 DATA l56,158,160,162,163,164,165,166,167,168
160 DATA 169,170,171,172,174,176,180,184,188
170 !
180 Eprom_data_len: ! Data for word length
190 DATA 4,4,4,4,1,1,4,4,4,4
200 DATA 1,1,4,4,4,4,1,1,1,1
210 DATA 4,4,4,4,4,1,1,1,1,1
220 DATA 2,2,2,1,1,1,1,1,1,1
230 DATA 1,1,1,2,1,4,4,4,4
240 !
250 Eprom_data_6690: ! ! EEPROM data for 6690A
260 DATA 175,74,15.375,0,83,0,15,73,450,0
270 DATA 98,21,8.7,10,18.0,0,83,255,20,10
280 DATA 6690,162,96,15,96,128,5,255,0,0
290 DATA 1296,6690,0,20,180,20,180,175,33,98
300 DATA 115,30,20,1,127,.002701,.2,.000307,10.25
310 !
320 Eprom_data_6691: ! ! EPROM data for 6691A
330 DATA 116,74,30.75,0,83,0,23,75,225,0
340 DATA 98,21,5.5,10,36.0,0,83,255,20,10
350 DATA 6691,108,96,23,97,128,5,255,0,0
360 DATA 1296,6691,0,20,180,20,180,175,33,98
370 DATA 115,30,20,1,127,.002701,.2,.00042,10.25
380 !
390 Eprom_data_6692: ! ! EEPROM data for 6692A
400 DATA 93,74,61.5,0,83,0,29,70,112,0
410 DATA 98,21,4.6,10,69,0,83,255,20,10
420 DATA 6692,87,97,28,93,128,5,255,0,0
430 DATA 1296,6692,0,20,180,20,180,175,33,98
440 DATA 115,30,20,1,127,.002701,.2,.000333,10.234375
450 !
460 INPUT “Input Power Supply model number. Example:""6691A""",Model$
470 CLEAR SCREEN
480 !
490 RESTORE Eprom_data_addr
500 !
510 FOR I=l T0 49
520 READ Addr(I)
530 NEXT I
540 !
Figure 3-13. Initialization and Factory Preset Replacement Program Listing (Sheet 1 of 4)