Agilent Technologies E4351B Landscape Lighting User Manual


 
Service Addendum20
Initialization and Factory Preset Replacement Program Listing (sheet 1)
10 ! Program to initialize EEPROM data in Models E4350B and E4351B
20 ! RE-STORE "INIT_435X"
30 ! Rev A.00.00 dated Nov, 17,1998
40 !
50 DIM Init_data(1:49),Model$[6],Idn$[21]
60 INTEGER Addr(1:49),Length(1:49)
70 ASSIGN @Ps TO 705 ! Supply must be at address 705
80 CLEAR SCREEN
90 !
100 Eprom_data_addr: ! Data address
110 DATA 2,6,10,14,18,19,20,24,28,32
120 DATA 36,37,38,42,46,50,54,55,56,57
130 DATA 64,68,72,76,80,84,88,92,96,100
140 DATA 136,137,138,139,140,142,146,148,149,150
150 DATA 151,152,153,154,155,156,157,158,160
160 !
170 Eprom_data_len: ! Data for word length
180 DATA 4,4,4,4,1,1,4,4,4,4
190 DATA 1,1,4,4,4,4,1,1,1,1
200 DATA 4,4,4,4,4,4,4,4,4,4
210 DATA 1,1,1,1,2,4,2,1,1,1
220 DATA 1,1,1,1,1,1,1,2,1
230 !
240 Eprom_data_50B: ! ! EEPROM data for E4350B
250 DATA 56.71,76.42,61.5,0,82,0,409.6,148.05,8.16,0
260 DATA 99,3,9.321,27,73,0,83,255,20,10
270 DATA 4350,54.39,167,436.44,167,0,10.0,10.0,65,1600
280 DATA 5,255,0,0,17,4350,0,20,160,20
290 DATA 160,156,37,98,115,15,20,0,96
300 !
310 Eprom_data_51B: ! ! EEPROM data for E4351B
320 DATA 28.36,40.96,123.0,0,0,82,0,819.2,283.57,4.08,0
330 DATA 99,3,5.121,27,140,0,83,255,20,10
340 DATA 4351,27.19,167,872.89,167,0,5.0,5.0,130,400
350 DATA 5,255,0,0,17,4351,0,20,160,20
360 DATA 160,156,37,98,115,15,20,0,96
370 !
380 RESTORE Eprom_data_addr
390 !
400 FOR I=1 TO 49
410 READ Addr(I)
420 NEXT I
430 !
440 RESTORE Eprom_data_len
450 !
460 FOR I=1 TO 49
470 READ Length(I)
480 NEXT I
490 !
500 INPUT "Input the model number (i.e. E4350B)",Model$
Figure 3-17. Initialization and Factory Preset Replacement Program Listing (Sheet 1 of 3)