unified MX27, MX25, MX37 trees
[karo-tx-redboot.git] / packages / hal / arm / mxc91321 / evb / v2_0 / src / redboot_cmds.c
1 //==========================================================================
2 //
3 //      redboot_cmds.c
4 //
5 //      Board [platform] specific RedBoot commands
6 //
7 //==========================================================================
8 //####ECOSGPLCOPYRIGHTBEGIN####
9 // -------------------------------------------
10 // This file is part of eCos, the Embedded Configurable Operating System.
11 // Copyright (C) 1998, 1999, 2000, 2001, 2002 Red Hat, Inc.
12 //
13 // eCos is free software; you can redistribute it and/or modify it under
14 // the terms of the GNU General Public License as published by the Free
15 // Software Foundation; either version 2 or (at your option) any later version.
16 //
17 // eCos is distributed in the hope that it will be useful, but WITHOUT ANY
18 // WARRANTY; without even the implied warranty of MERCHANTABILITY or
19 // FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
20 // for more details.
21 //
22 // You should have received a copy of the GNU General Public License along
23 // with eCos; if not, write to the Free Software Foundation, Inc.,
24 // 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.
25 //
26 // As a special exception, if other files instantiate templates or use macros
27 // or inline functions from this file, or you compile this file and link it
28 // with other works to produce a work based on this file, this file does not
29 // by itself cause the resulting work to be covered by the GNU General Public
30 // License. However the source code for this file must still be made available
31 // in accordance with section (3) of the GNU General Public License.
32 //
33 // This exception does not invalidate any other reasons why a work based on
34 // this file might be covered by the GNU General Public License.
35 //
36 // Alternative licenses for eCos may be arranged by contacting Red Hat, Inc.
37 // at http://sources.redhat.com/ecos/ecos-license/
38 // -------------------------------------------
39 //####ECOSGPLCOPYRIGHTEND####
40 //==========================================================================
41 #include <redboot.h>
42 #include <cyg/hal/hal_intr.h>
43 #include <cyg/hal/hal_cache.h>
44 #include <cyg/hal/plf_mmap.h>
45 #include <cyg/hal/fsl_board.h>          // Platform specific hardware definitions
46
47 #ifdef CYGSEM_REDBOOT_FLASH_CONFIG
48 #include <flash_config.h>
49
50 #if (REDBOOT_IMAGE_SIZE != CYGBLD_REDBOOT_MIN_IMAGE_SIZE)
51 #error REDBOOT_IMAGE_SIZE != CYGBLD_REDBOOT_MIN_IMAGE_SIZE
52 #endif 
53
54 RedBoot_config_option("Board specifics",
55                       brd_specs,
56                       ALWAYS_ENABLED, 
57                       true,
58                       CONFIG_INT,
59                       0
60                      );
61 #endif  //CYGSEM_REDBOOT_FLASH_CONFIG
62
63 static void runImg(int argc, char *argv[]);
64
65 RedBoot_cmd("run",
66             "Run an image at a location with MMU off",
67             "[<virtual addr>]",
68             runImg
69            );
70
71 void launchRunImg(unsigned long addr)
72 {
73     asm volatile ("mov r12, r0;");
74     HAL_CLEAN_INVALIDATE_L2();
75     HAL_DISABLE_L2();
76     HAL_MMU_OFF();
77     asm volatile (
78                  "mov r0, #0;"
79                  "mov r1, r12;"
80                  "mov r11, #0;"
81                  "mov r12, #0;"
82                  "mrs r10, cpsr;"
83                  "bic r10, r10, #0xF0000000;"
84                  "msr cpsr_f, r10;"
85                  "mov pc, r1"
86                  );
87 }
88
89 extern unsigned long entry_address;
90
91 static void runImg(int argc,char *argv[])
92 {
93     unsigned int virt_addr, phys_addr;
94
95     // Default physical entry point for Symbian
96     if (entry_address == 0xFFFFFFFF)
97         virt_addr = 0x800000;
98     else
99     virt_addr = entry_address;
100
101     if (!scan_opts(argc,argv,1,0,0,(void*)&virt_addr,
102                    OPTION_ARG_TYPE_NUM, "virtual address"))
103         return;
104
105     if (entry_address != 0xFFFFFFFF)
106         diag_printf("load entry_address=0x%lx\n", entry_address);
107     HAL_VIRT_TO_PHYS_ADDRESS(virt_addr, phys_addr);
108
109     diag_printf("virt_addr=0x%x\n",virt_addr);
110     diag_printf("phys_addr=0x%x\n",phys_addr);
111
112     launchRunImg(phys_addr);
113 }
114
115 #if CYGPKG_REDBOOT_NETWORKING
116 #define LAN_BASE        BOARD_CS_LAN_BASE
117
118 #define PP_EE_ADDR_W0   0x001C
119 #define PP_EE_ADDR_W1   0x001D
120 #define PP_EE_ADDR_W2   0x001E
121
122 extern cyg_uint16 read_eeprom(cyg_addrword_t base, cyg_uint16 offset);
123 extern void write_eeprom(cyg_addrword_t base, cyg_uint16 offset, cyg_uint16 data);
124
125 // Exported CLI function(s)
126 static void setMac(int argc, char *argv[]);
127 RedBoot_cmd("setmac",
128             "Set Ethernet MAC address in EEPROM",
129             "[0x##:0x##:0x##:0x##:0x##:0x##]",
130             setMac
131            );
132
133 const static unsigned short RESET_CONFIG_BLOCK[] = {
134     0xA002,
135     0x5E00,
136 };
137
138 #define DRIVER_CONFIG_BASE        0x1C   //Cirrus driver config base
139
140 static unsigned short g_drv_cfg_blk[] = {
141     0xFFFF, //1C - MAC 4,5
142     0xFFFF, //1D - MAC 2,3
143     0xFFFF, //1E - MAC 0,1
144     0x0000, //1F - ISA config
145     0x0000, //20 - PP mem base
146     0x0000, //21 - Boot PROM base
147     0x0000, //22 - Boot PROM mask
148     0x8040, //23 - Tx ctrl: Full duplex, media not required
149     0x0021, //24 - Adapter config: 10Base-T, 10Base-T circuitry
150     0x0001, //25 - EEPROM rev: 1.0
151     0x0000, //26 - resvd
152     0x0A2D, //27 - Mfg date
153     0xFFFF, //28 - copy of 1C
154     0xFFFF, //29 - copy of 1D
155     0xFFFF, //2A - copy of 1E
156     0x0000, //2B - resvd
157     0x0000, //2C - resvd
158     0x0000, //2D - resvd
159     0x0000, //2E - resvd
160     0x0000, //2F - Checksum
161 };
162
163 static void setMac(int argc,char *argv[])
164 {
165     int i, ret, wsize = sizeof(g_drv_cfg_blk) / 2;  // word size
166     unsigned char data[6];
167     unsigned long temp;
168     unsigned short ee_word[3];
169
170     if (argc == 1) {
171         ee_word[0] = read_eeprom(LAN_BASE, PP_EE_ADDR_W0 + 0);
172         ee_word[1] = read_eeprom(LAN_BASE, PP_EE_ADDR_W0 + 1);
173         ee_word[2] = read_eeprom(LAN_BASE, PP_EE_ADDR_W0 + 2);
174         if (ee_word[0] == 0 && ee_word[1] == 0 && ee_word[2] == 0) {
175             diag_printf("Can't read MAC address\n\n");
176             return;
177         }
178
179         diag_printf("MAC address: ");
180         diag_printf("0x%02x:0x%02x:0x%02x:0x%02x:0x%02x:0x%02x\n\n",
181                     (ee_word[0] & 0x00FF), (ee_word[0] >> 8),
182                     (ee_word[1] & 0x00FF), (ee_word[1] >> 8),
183                     (ee_word[2] & 0x00FF), (ee_word[2] >> 8));
184         return;
185     }
186
187     if (argc != 2) {
188         ret = -1; goto error;
189     }
190
191     for (i = 0;  i < 6;  i++) {
192         if (!parse_num(*(&argv[1]), &temp, &argv[1], ":")) {
193             ret = -2; goto error;
194         }
195         if (temp > 0xFF) {
196             ret = -3; goto error;
197         }
198         data[i] = temp & 0xFF;
199     }
200
201     g_drv_cfg_blk[0] = g_drv_cfg_blk[12] = *(unsigned short*)(&data[0]);
202     g_drv_cfg_blk[1] = g_drv_cfg_blk[13] = *(unsigned short*)(&data[2]);
203     g_drv_cfg_blk[2] = g_drv_cfg_blk[14] = *(unsigned short*)(&data[4]);
204
205     // Calculate checksum
206     temp = 0;
207     for (i = 0; i < wsize-1; i++) {
208         temp += g_drv_cfg_blk[i];
209     }
210     temp = (~temp + 1) & 0xFFFF;
211     g_drv_cfg_blk[wsize-1] = temp;
212
213     // Program the EEPROM
214     // Reset config block first
215     for (i = 0; i < sizeof(RESET_CONFIG_BLOCK)/2; i++) {
216         write_eeprom(LAN_BASE, i, RESET_CONFIG_BLOCK[i]);
217     }
218     // Driver config block 2nd
219     for (i = 0; i < wsize; i++) {
220         write_eeprom(LAN_BASE, DRIVER_CONFIG_BASE+i,
221                      g_drv_cfg_blk[i]);
222     }
223     return;
224     error:
225     diag_printf("Wrong value for setMac. Error=%d\n\n", ret);
226 }
227
228 //#define EEPROM_DEBUG
229 #ifdef EEPROM_DEBUG
230 RedBoot_cmd("eefun",
231             "read/write a word into EEPROM",
232             "[0-based IO Base offset:value]",
233             eefun
234            );
235
236 static void eefun(int argc,char *argv[])
237 {
238     int i, ret;
239     unsigned short data[2];
240     unsigned int temp;
241
242     if (argc != 2) {
243         ret=-1; goto error;
244     }
245
246     for (i = 0;  i < 2;  i++) {
247         if (!parse_num(*(&argv[1]), &temp, &argv[1], ":")) {
248             ret=-2; goto error;
249         }
250         if (temp > 0xFFFF) {
251             ret=-3; goto error;
252         }
253         data[i] = (unsigned short)temp;
254     }
255
256     if (data[0] >= 0x30 && data[0] != 0xFFFF) {
257         ret=-4; goto error;
258     }
259
260     if (data[0] == 0xFFFF) {
261         for (i = 0; i < 0x30; i++) {
262             if (i % 8 == 0) diag_printf("0x%02x: ", i);
263             diag_printf("%04x ", read_eeprom(LAN_BASE, i));
264             if (i % 8 == 7) diag_printf("\n");
265         }
266         return;
267     }
268
269     diag_printf("writeEE() Offset: 0x%x, value=0x%x\n", data[0], data[1]);
270     write_eeprom(LAN_BASE, data[0], data[1]);
271     diag_printf("Reading back: 0x%x\n\n", read_eeprom(LAN_BASE, data[0]));
272     return;
273     error:
274     diag_printf("Wrong value %d for writeEE\n\n", ret);
275 }
276 #endif //EEPROM_DEBUG
277
278 #endif //CYGPKG_REDBOOT_NETWORKING
279
280 #if defined(CYGSEM_REDBOOT_FLASH_CONFIG) && defined(CYG_HAL_STARTUP_ROMRAM)
281
282 RedBoot_cmd("romupdate", 
283             "Update Redboot with currently running image", 
284             "",
285             romupdate 
286            );
287
288 extern int flash_program(void *_addr, void *_data, int len, void **err_addr);
289 extern int flash_erase(void *addr, int len, void **err_addr);
290 extern char *flash_errmsg(int err);
291 extern unsigned char *ram_end; //ram end is where the redboot starts FIXME: use PC value
292
293 #ifdef CYGPKG_IO_FLASH
294 void romupdate(int argc, char *argv[])
295 {
296     void *err_addr, *base_addr;
297     int stat;
298
299     if (IS_FIS_FROM_NAND()) {
300         base_addr = (void*)0;
301         diag_printf("Updating ROM in NAND flash\n");
302     } else if (IS_FIS_FROM_NOR()) {
303         base_addr = (void*)BOARD_FLASH_START;
304         diag_printf("Updating ROM in NOR flash\n");
305     } else {
306         diag_printf("romupdate not supported\n");
307         diag_printf("Use \"factive [NOR|NAND]\" to select either NOR or NAND flash\n");
308         return;
309     }
310     // Erase area to be programmed
311     if ((stat = flash_erase((void *)base_addr,
312                             CYGBLD_REDBOOT_MIN_IMAGE_SIZE,
313                             (void **)&err_addr)) != 0) {
314         diag_printf("Can't erase region at %p: %s\n", 
315                     err_addr, flash_errmsg(stat));
316         return;
317     }
318     // Now program it
319     if ((stat = flash_program((void *)base_addr, (void *)ram_end,
320                               CYGBLD_REDBOOT_MIN_IMAGE_SIZE, 
321                               (void **)&err_addr)) != 0) {
322         diag_printf("Can't program region at %p: %s\n", 
323                     err_addr, flash_errmsg(stat));
324     }
325 }
326 RedBoot_cmd("factive", 
327             "Enable one flash media for Redboot", 
328             "[NOR | NAND]",
329             factive 
330            );
331
332 void factive(int argc, char *argv[])
333 {
334     unsigned long phys_addr;
335
336     if (argc != 2) {
337         diag_printf("Invalid factive cmd\n");
338         return;
339     }
340
341     if (strcasecmp(argv[1], "NOR") == 0) {
342 #ifndef MXCFLASH_SELECT_NOR
343         diag_printf("Not supported\n");
344         return;
345 #else
346         MXC_ASSERT_NOR_BOOT();
347 #endif
348     } else if (strcasecmp(argv[1], "NAND") == 0) {
349 #ifndef MXCFLASH_SELECT_NAND
350         diag_printf("Not supported\n");
351         return;
352 #else
353         MXC_ASSERT_NAND_BOOT();
354 #endif
355     } else {
356         diag_printf("Invalid command: %s\n", argv[1]);
357         return;
358     }
359     HAL_VIRT_TO_PHYS_ADDRESS(ram_end, phys_addr);
360
361     launchRunImg(phys_addr);
362 }
363 #endif //CYGPKG_IO_FLASH
364 #endif /* CYG_HAL_STARTUP_ROMRAM */