Agilent Technologies E4351B Initialization and Factory Preset Replacement Program Listing sheet

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 !

50DIM Init_data(1:49),Model$[6],Idn$[21]

60INTEGER 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

110DATA 2,6,10,14,18,19,20,24,28,32

120DATA 36,37,38,42,46,50,54,55,56,57

130DATA 64,68,72,76,80,84,88,92,96,100

140DATA 136,137,138,139,140,142,146,148,149,150

150DATA 151,152,153,154,155,156,157,158,160

160!

170 Eprom_data_len: ! Data for word length

180DATA 4,4,4,4,1,1,4,4,4,4

190DATA 1,1,4,4,4,4,1,1,1,1

200DATA 4,4,4,4,4,4,4,4,4,4

210DATA 1,1,1,1,2,4,2,1,1,1

220DATA 1,1,1,1,1,1,1,2,1

230!

240 Eprom_data_50B: ! ! EEPROM data for E4350B

250DATA 56.71,76.42,61.5,0,82,0,409.6,148.05,8.16,0

260DATA 99,3,9.321,27,73,0,83,255,20,10

270DATA 4350,54.39,167,436.44,167,0,10.0,10.0,65,1600

280DATA 5,255,0,0,17,4350,0,20,160,20

290DATA 160,156,37,98,115,15,20,0,96

300!

310 Eprom_data_51B: ! ! EEPROM data for E4351B

320DATA 28.36,40.96,123.0,0,0,82,0,819.2,283.57,4.08,0

330DATA 99,3,5.121,27,140,0,83,255,20,10

340DATA 4351,27.19,167,872.89,167,0,5.0,5.0,130,400

350DATA 5,255,0,0,17,4351,0,20,160,20

360DATA 160,156,37,98,115,15,20,0,96

370!

380RESTORE Eprom_data_addr

390!

400FOR I=1 TO 49

410READ Addr(I)

420NEXT I

430!

440RESTORE Eprom_data_len

450!

460FOR I=1 TO 49

470READ Length(I)

480NEXT I

490!

500INPUT "Input the model number (i.e. E4350B)",Model$

Figure 3-17. Initialization and Factory Preset Replacement Program Listing (Sheet 1 of 3)

20 Service Addendum