10! Program to initialize EPROM or move factory preset data in 668xA
20! power supplies.
30!
40! Rev A.00.00 dated 09 Nov 1993
50!
60DIM Init_data(1:49),Model$[5],Idn$[21],Cal_data$[40]
70INTEGER Addr(1:49),Length(1:49)
80 | ASSIGN @Ps TO 705 | ! Supply must be at address 705 |
90CLEAR SCREEN
100!
110 Eprom_data_addr: | ! Data address |
120DATA 2,6,10,14,18,19,20,24,28,32
130DATA 36,37,38,42,46,50,54,55,56,57
140DATA 64,68,72,76,80,116,l52,153,154,155
150DATA l56,158,160,162,163,164,165,166,167,168
160DATA 169,170,171,172,174,176,180,184,188
170!
180 Eprom_data_len: | ! Data for word length |
190DATA 4,4,4,4,1,1,4,4,4,4
200DATA 1,1,4,4,4,4,1,1,1,1
210DATA 4,4,4,4,4,1,1,1,1,1
220DATA 2,2,2,1,1,1,1,1,1,1
230DATA 1,1,1,2,1,4,4,4,4
240!
250 Eprom_data_6680: | ! | ! EEPROM data for 6680A |
260DATA 729,71,5.125,0,83,0,4.235,72,895,0
270DATA 98,3,36,17,6.25,0,83,255,20,10
280DATA 6680,708,94,4.13,92,128,5,255,0,0
290DATA 1296,6680,0,20,180,20,180,175,33,98
300DATA 115,30,20,1,58,.002701,.2,.0017346,10.2286
310!
320 Eprom_data_6681: ! | ! EEPROM data for 6681A |
330DATA 463,75,8.19,0,83,0,6.333,70,592,0
340DATA 98,3,22.16,17.75,10.0,0,,83,255,20,10
350DATA 6681,430,95,6.3645,92,128,5,255,0,0
360DATA 1296,6681,0,20,180,20,180,175,33,98
370DATA 115,30,20,1,58,.002701,.2,.0017346,10.2286
380!
390 Eprom_data_6682: ! | ! EEPROM data for 6682A |
400DATA 175,74,21.5,0,83,0,15,73,246,0
410DATA 98,21,8.7,10,26.3,0,83,255,20,10
420DATA 6682,162,96,15,96,128,5,255,0,0
430DATA 1296,6682,0,20,180,20,180,175,33,98
440DATA 115,30,20,1,127,.002701,.2,.000307,10.25
450!
460 Eprom_data_6683: ! | ! EPROM data for 6683A |
470DATA 116,74,32.8,0,83,0,23,75,164,0
480DATA 98,21,5.5,10,40.0,0,83,255,20,10
490DATA 6683,108,96,23,97,128,5,255,0,0
500DATA 1296,6683,0,20,180,20,180,175,33,98