blob: 4a2d8e4a4fd9dec55b99e37b6963170562e508f5 [file] [log] [blame]
wdenke2211742002-11-02 23:30:20 +00001/***********************************************************************
2 *
3M* Modul: lwmon.c
4M*
5M* Content: LWMON specific U-Boot commands.
6 *
7 * (C) Copyright 2001, 2002
8 * DENX Software Engineering
9 * Wolfgang Denk, wd@denx.de
10 * All rights reserved.
11 *
12D* Design: wd@denx.de
13C* Coding: wd@denx.de
14V* Verification: dzu@denx.de
15 *
16 * See file CREDITS for list of people who contributed to this
17 * project.
18 *
19 * This program is free software; you can redistribute it and/or
20 * modify it under the terms of the GNU General Public License as
21 * published by the Free Software Foundation; either version 2 of
22 * the License, or (at your option) any later version.
23 *
24 * This program is distributed in the hope that it will be useful,
25 * but WITHOUT ANY WARRANTY; without even the implied warranty of
26 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
27 * GNU General Public License for more details.
28 *
29 * You should have received a copy of the GNU General Public License
30 * along with this program; if not, write to the Free Software
31 * Foundation, Inc., 59 Temple Place, Suite 330, Boston,
32 * MA 02111-1307 USA
33 ***********************************************************************/
34
35/*---------------------------- Headerfiles ----------------------------*/
36#include <common.h>
37#include <mpc8xx.h>
38#include <commproc.h>
39#include <i2c.h>
40#include <command.h>
wdenke2211742002-11-02 23:30:20 +000041#include <malloc.h>
42#include <post.h>
wdenk281e00a2004-08-01 22:48:16 +000043#include <serial.h>
wdenke2211742002-11-02 23:30:20 +000044
45#include <linux/types.h>
46#include <linux/string.h> /* for strdup */
47
Wolfgang Denkd87080b2006-03-31 18:32:53 +020048DECLARE_GLOBAL_DATA_PTR;
49
wdenke2211742002-11-02 23:30:20 +000050/*------------------------ Local prototypes ---------------------------*/
51static long int dram_size (long int, long int *, long int);
wdenk4532cb62003-04-27 22:52:51 +000052static void kbd_init (void);
53static int compare_magic (uchar *kbd_data, uchar *str);
wdenke2211742002-11-02 23:30:20 +000054
55
56/*--------------------- Local macros and constants --------------------*/
57#define _NOT_USED_ 0xFFFFFFFF
58
wdenk4532cb62003-04-27 22:52:51 +000059#ifdef CONFIG_MODEM_SUPPORT
60static int key_pressed(void);
61extern void disable_putc(void);
62#endif /* CONFIG_MODEM_SUPPORT */
63
wdenke2211742002-11-02 23:30:20 +000064/*
65 * 66 MHz SDRAM access using UPM A
66 */
67const uint sdram_table[] =
68{
69#if defined(CFG_MEMORY_75) || defined(CFG_MEMORY_8E)
70 /*
71 * Single Read. (Offset 0 in UPM RAM)
72 */
73 0x1F0DFC04, 0xEEAFBC04, 0x11AF7C04, 0xEFBAFC00,
74 0x1FF5FC47, /* last */
75 /*
76 * SDRAM Initialization (offset 5 in UPM RAM)
77 *
wdenk8bde7f72003-06-27 21:31:46 +000078 * This is no UPM entry point. The following definition uses
79 * the remaining space to establish an initialization
80 * sequence, which is executed by a RUN command.
wdenke2211742002-11-02 23:30:20 +000081 *
82 */
83 0x1FF5FC34, 0xEFEABC34, 0x1FB57C35, /* last */
84 /*
85 * Burst Read. (Offset 8 in UPM RAM)
86 */
87 0x1F0DFC04, 0xEEAFBC04, 0x10AF7C04, 0xF0AFFC00,
88 0xF0AFFC00, 0xF1AFFC00, 0xEFBAFC00, 0x1FF5FC47, /* last */
89 _NOT_USED_, _NOT_USED_, _NOT_USED_, _NOT_USED_,
90 _NOT_USED_, _NOT_USED_, _NOT_USED_, _NOT_USED_,
91 /*
92 * Single Write. (Offset 18 in UPM RAM)
93 */
94 0x1F2DFC04, 0xEEABBC00, 0x01B27C04, 0x1FF5FC47, /* last */
95 _NOT_USED_, _NOT_USED_, _NOT_USED_, _NOT_USED_,
96 /*
97 * Burst Write. (Offset 20 in UPM RAM)
98 */
99 0x1F0DFC04, 0xEEABBC00, 0x10A77C00, 0xF0AFFC00,
100 0xF0AFFC00, 0xE1BAFC04, 0x01FF5FC47, /* last */
101 _NOT_USED_,
102 _NOT_USED_, _NOT_USED_, _NOT_USED_, _NOT_USED_,
103 _NOT_USED_, _NOT_USED_, _NOT_USED_, _NOT_USED_,
104 /*
105 * Refresh (Offset 30 in UPM RAM)
106 */
107 0x1FFD7C84, 0xFFFFFC04, 0xFFFFFC04, 0xFFFFFC04,
108 0xFFFFFC84, 0xFFFFFC07, /* last */
109 _NOT_USED_, _NOT_USED_,
110 _NOT_USED_, _NOT_USED_, _NOT_USED_, _NOT_USED_,
111 /*
112 * Exception. (Offset 3c in UPM RAM)
113 */
114 0x7FFFFC07, /* last */
115 0xFFFFFCFF, 0xFFFFFCFF, 0xFFFFFCFF,
116#endif
117#ifdef CFG_MEMORY_7E
118 /*
119 * Single Read. (Offset 0 in UPM RAM)
120 */
121 0x0E2DBC04, 0x11AF7C04, 0xEFBAFC00, 0x1FF5FC47, /* last */
122 _NOT_USED_,
123 /*
124 * SDRAM Initialization (offset 5 in UPM RAM)
125 *
wdenk8bde7f72003-06-27 21:31:46 +0000126 * This is no UPM entry point. The following definition uses
127 * the remaining space to establish an initialization
128 * sequence, which is executed by a RUN command.
wdenke2211742002-11-02 23:30:20 +0000129 *
130 */
131 0x1FF5FC34, 0xEFEABC34, 0x1FB57C35, /* last */
132 /*
133 * Burst Read. (Offset 8 in UPM RAM)
134 */
135 0x0E2DBC04, 0x10AF7C04, 0xF0AFFC00, 0xF0AFFC00,
136 0xF1AFFC00, 0xEFBAFC00, 0x1FF5FC47, /* last */
wdenk8bde7f72003-06-27 21:31:46 +0000137 _NOT_USED_,
wdenke2211742002-11-02 23:30:20 +0000138 _NOT_USED_, _NOT_USED_, _NOT_USED_, _NOT_USED_,
139 _NOT_USED_, _NOT_USED_, _NOT_USED_, _NOT_USED_,
140 /*
141 * Single Write. (Offset 18 in UPM RAM)
142 */
143 0x0E29BC04, 0x01B27C04, 0x1FF5FC47, /* last */
144 _NOT_USED_,
145 _NOT_USED_, _NOT_USED_, _NOT_USED_, _NOT_USED_,
146 /*
147 * Burst Write. (Offset 20 in UPM RAM)
148 */
149 0x0E29BC04, 0x10A77C00, 0xF0AFFC00, 0xF0AFFC00,
150 0xE1BAFC04, 0x1FF5FC47, /* last */
wdenk8bde7f72003-06-27 21:31:46 +0000151 _NOT_USED_, _NOT_USED_,
wdenke2211742002-11-02 23:30:20 +0000152 _NOT_USED_, _NOT_USED_, _NOT_USED_, _NOT_USED_,
153 _NOT_USED_, _NOT_USED_, _NOT_USED_, _NOT_USED_,
154 /*
155 * Refresh (Offset 30 in UPM RAM)
156 */
157 0x1FFD7C84, 0xFFFFFC04, 0xFFFFFC04, 0xFFFFFC04,
158 0xFFFFFC84, 0xFFFFFC07, /* last */
159 _NOT_USED_, _NOT_USED_,
160 _NOT_USED_, _NOT_USED_, _NOT_USED_, _NOT_USED_,
161 /*
162 * Exception. (Offset 3c in UPM RAM)
163 */
164 0x7FFFFC07, /* last */
165 0xFFFFFCFF, 0xFFFFFCFF, 0xFFFFFCFF,
166#endif
167};
168
169/*
170 * Check Board Identity:
171 *
172 */
173
174/***********************************************************************
175F* Function: int checkboard (void) P*A*Z*
176 *
177P* Parameters: none
178P*
179P* Returnvalue: int - 0 is always returned
180 *
181Z* Intention: This function is the checkboard() method implementation
182Z* for the lwmon board. Only a standard message is printed.
183 *
184D* Design: wd@denx.de
185C* Coding: wd@denx.de
186V* Verification: dzu@denx.de
187 ***********************************************************************/
188int checkboard (void)
189{
Wolfgang Denkee073a52005-07-21 13:53:44 +0200190 puts ("Board: LICCON Konsole LCD3\n");
wdenke2211742002-11-02 23:30:20 +0000191 return (0);
192}
193
194/***********************************************************************
Becky Bruce9973e3c2008-06-09 16:03:40 -0500195F* Function: phys_size_t initdram (int board_type) P*A*Z*
wdenke2211742002-11-02 23:30:20 +0000196 *
197P* Parameters: int board_type
198P* - Usually type of the board - ignored here.
199P*
200P* Returnvalue: long int
201P* - Size of initialized memory
202 *
203Z* Intention: This function is the initdram() method implementation
204Z* for the lwmon board.
205Z* The memory controller is initialized to access the
206Z* DRAM.
207 *
208D* Design: wd@denx.de
209C* Coding: wd@denx.de
210V* Verification: dzu@denx.de
211 ***********************************************************************/
Becky Bruce9973e3c2008-06-09 16:03:40 -0500212phys_size_t initdram (int board_type)
wdenke2211742002-11-02 23:30:20 +0000213{
214 volatile immap_t *immr = (immap_t *) CFG_IMMR;
215 volatile memctl8xx_t *memctl = &immr->im_memctl;
216 long int size_b0;
217 long int size8, size9;
218 int i;
219
220 /*
221 * Configure UPMA for SDRAM
222 */
223 upmconfig (UPMA, (uint *)sdram_table, sizeof(sdram_table)/sizeof(uint));
224
225 memctl->memc_mptpr = CFG_MPTPR;
226
227 /* burst length=4, burst type=sequential, CAS latency=2 */
228 memctl->memc_mar = CFG_MAR;
229
230 /*
231 * Map controller bank 3 to the SDRAM bank at preliminary address.
232 */
233 memctl->memc_or3 = CFG_OR3_PRELIM;
234 memctl->memc_br3 = CFG_BR3_PRELIM;
235
236 /* initialize memory address register */
237 memctl->memc_mamr = CFG_MAMR_8COL; /* refresh not enabled yet */
238
239 /* mode initialization (offset 5) */
240 udelay (200); /* 0x80006105 */
241 memctl->memc_mcr = MCR_OP_RUN | MCR_MB_CS3 | MCR_MLCF (1) | MCR_MAD (0x05);
242
243 /* run 2 refresh sequence with 4-beat refresh burst (offset 0x30) */
244 udelay (1); /* 0x80006130 */
245 memctl->memc_mcr = MCR_OP_RUN | MCR_MB_CS3 | MCR_MLCF (1) | MCR_MAD (0x30);
246 udelay (1); /* 0x80006130 */
247 memctl->memc_mcr = MCR_OP_RUN | MCR_MB_CS3 | MCR_MLCF (1) | MCR_MAD (0x30);
248
249 udelay (1); /* 0x80006106 */
250 memctl->memc_mcr = MCR_OP_RUN | MCR_MB_CS3 | MCR_MLCF (1) | MCR_MAD (0x06);
251
wdenk2535d602003-07-17 23:16:40 +0000252 memctl->memc_mamr |= MAMR_PTAE; /* refresh enabled */
wdenke2211742002-11-02 23:30:20 +0000253
254 udelay (200);
255
256 /* Need at least 10 DRAM accesses to stabilize */
257 for (i = 0; i < 10; ++i) {
258 volatile unsigned long *addr =
259 (volatile unsigned long *) SDRAM_BASE3_PRELIM;
260 unsigned long val;
261
262 val = *(addr + i);
263 *(addr + i) = val;
264 }
265
266 /*
267 * Check Bank 0 Memory Size for re-configuration
268 *
269 * try 8 column mode
270 */
Wolfgang Denk77ddac92005-10-13 16:45:02 +0200271 size8 = dram_size (CFG_MAMR_8COL, (long *)SDRAM_BASE3_PRELIM, SDRAM_MAX_SIZE);
wdenke2211742002-11-02 23:30:20 +0000272
273 udelay (1000);
274
275 /*
276 * try 9 column mode
277 */
Wolfgang Denk77ddac92005-10-13 16:45:02 +0200278 size9 = dram_size (CFG_MAMR_9COL, (long *)SDRAM_BASE3_PRELIM, SDRAM_MAX_SIZE);
wdenke2211742002-11-02 23:30:20 +0000279
280 if (size8 < size9) { /* leave configuration at 9 columns */
281 size_b0 = size9;
wdenk2535d602003-07-17 23:16:40 +0000282 memctl->memc_mamr = CFG_MAMR_9COL | MAMR_PTAE;
wdenke2211742002-11-02 23:30:20 +0000283 udelay (500);
284 } else { /* back to 8 columns */
285 size_b0 = size8;
wdenk2535d602003-07-17 23:16:40 +0000286 memctl->memc_mamr = CFG_MAMR_8COL | MAMR_PTAE;
wdenke2211742002-11-02 23:30:20 +0000287 udelay (500);
288 }
289
290 /*
291 * Final mapping:
292 */
293
294 memctl->memc_or3 = ((-size_b0) & 0xFFFF0000) |
295 OR_CSNT_SAM | OR_G5LS | SDRAM_TIMING;
296 memctl->memc_br3 = (CFG_SDRAM_BASE & BR_BA_MSK) | BR_MS_UPMA | BR_V;
297 udelay (1000);
298
299 return (size_b0);
300}
301
302/***********************************************************************
303F* Function: static long int dram_size (long int mamr_value,
304F* long int *base,
305F* long int maxsize) P*A*Z*
306 *
307P* Parameters: long int mamr_value
308P* - Value for MAMR for the test
309P* long int *base
310P* - Base address for the test
311P* long int maxsize
312P* - Maximum size to test for
313P*
314P* Returnvalue: long int
315P* - Size of probed memory
316 *
317Z* Intention: Check memory range for valid RAM. A simple memory test
318Z* determines the actually available RAM size between
319Z* addresses `base' and `base + maxsize'. Some (not all)
320Z* hardware errors are detected:
321Z* - short between address lines
322Z* - short between data lines
323 *
324D* Design: wd@denx.de
325C* Coding: wd@denx.de
326V* Verification: dzu@denx.de
327 ***********************************************************************/
328static long int dram_size (long int mamr_value, long int *base, long int maxsize)
329{
330 volatile immap_t *immr = (immap_t *) CFG_IMMR;
331 volatile memctl8xx_t *memctl = &immr->im_memctl;
wdenke2211742002-11-02 23:30:20 +0000332
333 memctl->memc_mamr = mamr_value;
334
wdenkc83bf6a2004-01-06 22:38:14 +0000335 return (get_ram_size(base, maxsize));
wdenke2211742002-11-02 23:30:20 +0000336}
337
338/* ------------------------------------------------------------------------- */
339
340#ifndef PB_ENET_TENA
341# define PB_ENET_TENA ((uint)0x00002000) /* PB 18 */
342#endif
343
344/***********************************************************************
wdenkc837dcb2004-01-20 23:12:12 +0000345F* Function: int board_early_init_f (void) P*A*Z*
wdenke2211742002-11-02 23:30:20 +0000346 *
347P* Parameters: none
348P*
349P* Returnvalue: int
350P* - 0 is always returned.
351 *
wdenkc837dcb2004-01-20 23:12:12 +0000352Z* Intention: This function is the board_early_init_f() method implementation
wdenke2211742002-11-02 23:30:20 +0000353Z* for the lwmon board.
354Z* Disable Ethernet TENA on Port B.
355 *
356D* Design: wd@denx.de
357C* Coding: wd@denx.de
358V* Verification: dzu@denx.de
359 ***********************************************************************/
wdenkc837dcb2004-01-20 23:12:12 +0000360int board_early_init_f (void)
wdenke2211742002-11-02 23:30:20 +0000361{
362 volatile immap_t *immr = (immap_t *) CFG_IMMR;
363
364 /* Disable Ethernet TENA on Port B
365 * Necessary because of pull up in COM3 port.
366 *
367 * This is just a preliminary fix, intended to turn off TENA
368 * as soon as possible to avoid noise on the network. Once
369 * I²C is running we will make sure the interface is
370 * correctly initialized.
371 */
372 immr->im_cpm.cp_pbpar &= ~PB_ENET_TENA;
373 immr->im_cpm.cp_pbodr &= ~PB_ENET_TENA;
374 immr->im_cpm.cp_pbdat &= ~PB_ENET_TENA; /* set to 0 = disabled */
375 immr->im_cpm.cp_pbdir |= PB_ENET_TENA;
wdenk4532cb62003-04-27 22:52:51 +0000376
wdenke2211742002-11-02 23:30:20 +0000377 return (0);
378}
379
380/* ------------------------------------------------------------------------- */
381
382/***********************************************************************
383F* Function: void reset_phy (void) P*A*Z*
384 *
385P* Parameters: none
386P*
387P* Returnvalue: none
388 *
389Z* Intention: Reset the PHY. In the lwmon case we do this by the
390Z* signaling the PIC I/O expander.
391 *
392D* Design: wd@denx.de
393C* Coding: wd@denx.de
394V* Verification: dzu@denx.de
395 ***********************************************************************/
396void reset_phy (void)
397{
398 uchar c;
399
400#ifdef DEBUG
401 printf ("### Switch on Ethernet for SCC2 ###\n");
402#endif
403 c = pic_read (0x61);
404#ifdef DEBUG
405 printf ("Old PIC read: reg_61 = 0x%02x\n", c);
406#endif
407 c |= 0x40; /* disable COM3 */
408 c &= ~0x80; /* enable Ethernet */
409 pic_write (0x61, c);
410#ifdef DEBUG
411 c = pic_read (0x61);
412 printf ("New PIC read: reg_61 = 0x%02x\n", c);
413#endif
414 udelay (1000);
415}
416
417
418/*------------------------- Keyboard controller -----------------------*/
419/* command codes */
420#define KEYBD_CMD_READ_KEYS 0x01
421#define KEYBD_CMD_READ_VERSION 0x02
422#define KEYBD_CMD_READ_STATUS 0x03
423#define KEYBD_CMD_RESET_ERRORS 0x10
424
425/* status codes */
426#define KEYBD_STATUS_MASK 0x3F
427#define KEYBD_STATUS_H_RESET 0x20
428#define KEYBD_STATUS_BROWNOUT 0x10
429#define KEYBD_STATUS_WD_RESET 0x08
430#define KEYBD_STATUS_OVERLOAD 0x04
431#define KEYBD_STATUS_ILLEGAL_WR 0x02
432#define KEYBD_STATUS_ILLEGAL_RD 0x01
433
434/* Number of bytes returned from Keyboard Controller */
435#define KEYBD_VERSIONLEN 2 /* version information */
436#define KEYBD_DATALEN 9 /* normal key scan data */
437
438/* maximum number of "magic" key codes that can be assigned */
439
440static uchar kbd_addr = CFG_I2C_KEYBD_ADDR;
441
442static uchar *key_match (uchar *);
443
444#define KEYBD_SET_DEBUGMODE '#' /* Magic key to enable debug output */
445
446/***********************************************************************
wdenk4532cb62003-04-27 22:52:51 +0000447F* Function: int board_postclk_init (void) P*A*Z*
wdenke2211742002-11-02 23:30:20 +0000448 *
449P* Parameters: none
450P*
451P* Returnvalue: int
wdenk4532cb62003-04-27 22:52:51 +0000452P* - 0 is always returned.
wdenke2211742002-11-02 23:30:20 +0000453 *
wdenk4532cb62003-04-27 22:52:51 +0000454Z* Intention: This function is the board_postclk_init() method implementation
wdenke2211742002-11-02 23:30:20 +0000455Z* for the lwmon board.
wdenke2211742002-11-02 23:30:20 +0000456 *
wdenke2211742002-11-02 23:30:20 +0000457 ***********************************************************************/
wdenk4532cb62003-04-27 22:52:51 +0000458int board_postclk_init (void)
wdenke2211742002-11-02 23:30:20 +0000459{
wdenk4532cb62003-04-27 22:52:51 +0000460 kbd_init();
461
462#ifdef CONFIG_MODEM_SUPPORT
463 if (key_pressed()) {
464 disable_putc(); /* modem doesn't understand banner etc */
465 gd->do_mdm_init = 1;
466 }
467#endif
468
469 return (0);
470}
471
wdenk281e00a2004-08-01 22:48:16 +0000472struct serial_device * default_serial_console (void)
473{
wdenk281e00a2004-08-01 22:48:16 +0000474 return gd->do_mdm_init ? &serial_scc_device : &serial_smc_device;
475}
476
wdenk4532cb62003-04-27 22:52:51 +0000477static void kbd_init (void)
478{
wdenke2211742002-11-02 23:30:20 +0000479 uchar kbd_data[KEYBD_DATALEN];
480 uchar tmp_data[KEYBD_DATALEN];
wdenke2211742002-11-02 23:30:20 +0000481 uchar val, errcd;
wdenke2211742002-11-02 23:30:20 +0000482 int i;
483
484 i2c_init (CFG_I2C_SPEED, CFG_I2C_SLAVE);
wdenk8bde7f72003-06-27 21:31:46 +0000485
wdenk4532cb62003-04-27 22:52:51 +0000486 gd->kbd_status = 0;
wdenke2211742002-11-02 23:30:20 +0000487
wdenkd1cbe852003-06-28 17:24:46 +0000488 /* Forced by PIC. Delays <= 175us loose */
489 udelay(1000);
490
wdenke2211742002-11-02 23:30:20 +0000491 /* Read initial keyboard error code */
492 val = KEYBD_CMD_READ_STATUS;
493 i2c_write (kbd_addr, 0, 0, &val, 1);
494 i2c_read (kbd_addr, 0, 0, &errcd, 1);
495 /* clear unused bits */
496 errcd &= KEYBD_STATUS_MASK;
497 /* clear "irrelevant" bits. Recommended by Martin Rajek, LWN */
498 errcd &= ~(KEYBD_STATUS_H_RESET|KEYBD_STATUS_BROWNOUT);
499 if (errcd) {
wdenk4532cb62003-04-27 22:52:51 +0000500 gd->kbd_status |= errcd << 8;
wdenke2211742002-11-02 23:30:20 +0000501 }
502 /* Reset error code and verify */
503 val = KEYBD_CMD_RESET_ERRORS;
504 i2c_write (kbd_addr, 0, 0, &val, 1);
505 udelay(1000); /* delay NEEDED by keyboard PIC !!! */
506
507 val = KEYBD_CMD_READ_STATUS;
508 i2c_write (kbd_addr, 0, 0, &val, 1);
509 i2c_read (kbd_addr, 0, 0, &val, 1);
510
511 val &= KEYBD_STATUS_MASK; /* clear unused bits */
512 if (val) { /* permanent error, report it */
wdenk4532cb62003-04-27 22:52:51 +0000513 gd->kbd_status |= val;
514 return;
wdenke2211742002-11-02 23:30:20 +0000515 }
516
517 /*
wdenke2211742002-11-02 23:30:20 +0000518 * Read current keyboard state.
519 *
wdenk8bde7f72003-06-27 21:31:46 +0000520 * After the error reset it may take some time before the
521 * keyboard PIC picks up a valid keyboard scan - the total
522 * scan time is approx. 1.6 ms (information by Martin Rajek,
523 * 28 Sep 2002). We read a couple of times for the keyboard
524 * to stabilize, using a big enough delay.
525 * 10 times should be enough. If the data is still changing,
526 * we use what we get :-(
wdenke2211742002-11-02 23:30:20 +0000527 */
528
529 memset (tmp_data, 0xFF, KEYBD_DATALEN); /* impossible value */
530 for (i=0; i<10; ++i) {
531 val = KEYBD_CMD_READ_KEYS;
532 i2c_write (kbd_addr, 0, 0, &val, 1);
533 i2c_read (kbd_addr, 0, 0, kbd_data, KEYBD_DATALEN);
534
535 if (memcmp(kbd_data, tmp_data, KEYBD_DATALEN) == 0) {
536 /* consistent state, done */
537 break;
538 }
539 /* remeber last state, delay, and retry */
540 memcpy (tmp_data, kbd_data, KEYBD_DATALEN);
541 udelay (5000);
542 }
wdenk4532cb62003-04-27 22:52:51 +0000543}
544
545/***********************************************************************
546F* Function: int misc_init_r (void) P*A*Z*
547 *
548P* Parameters: none
549P*
550P* Returnvalue: int
551P* - 0 is always returned, even in the case of a keyboard
552P* error.
553 *
554Z* Intention: This function is the misc_init_r() method implementation
555Z* for the lwmon board.
556Z* The keyboard controller is initialized and the result
557Z* of a read copied to the environment variable "keybd".
558Z* If KEYBD_SET_DEBUGMODE is defined, a check is made for
559Z* this key, and if found display to the LCD will be enabled.
560Z* The keys in "keybd" are checked against the magic
561Z* keycommands defined in the environment.
562Z* See also key_match().
563 *
564D* Design: wd@denx.de
565C* Coding: wd@denx.de
566V* Verification: dzu@denx.de
567 ***********************************************************************/
568int misc_init_r (void)
569{
wdenk4532cb62003-04-27 22:52:51 +0000570 uchar kbd_data[KEYBD_DATALEN];
Wolfgang Denk77ddac92005-10-13 16:45:02 +0200571 char keybd_env[2 * KEYBD_DATALEN + 1];
wdenk4532cb62003-04-27 22:52:51 +0000572 uchar kbd_init_status = gd->kbd_status >> 8;
573 uchar kbd_status = gd->kbd_status;
574 uchar val;
Wolfgang Denk77ddac92005-10-13 16:45:02 +0200575 char *str;
wdenk4532cb62003-04-27 22:52:51 +0000576 int i;
577
578 if (kbd_init_status) {
579 printf ("KEYBD: Error %02X\n", kbd_init_status);
580 }
581 if (kbd_status) { /* permanent error, report it */
582 printf ("*** Keyboard error code %02X ***\n", kbd_status);
583 sprintf (keybd_env, "%02X", kbd_status);
584 setenv ("keybd", keybd_env);
585 return 0;
586 }
587
588 /*
589 * Now we know that we have a working keyboard, so disable
590 * all output to the LCD except when a key press is detected.
591 */
592
593 if ((console_assign (stdout, "serial") < 0) ||
594 (console_assign (stderr, "serial") < 0)) {
595 printf ("Can't assign serial port as output device\n");
596 }
597
598 /* Read Version */
599 val = KEYBD_CMD_READ_VERSION;
600 i2c_write (kbd_addr, 0, 0, &val, 1);
601 i2c_read (kbd_addr, 0, 0, kbd_data, KEYBD_VERSIONLEN);
602 printf ("KEYBD: Version %d.%d\n", kbd_data[0], kbd_data[1]);
603
604 /* Read current keyboard state */
605 val = KEYBD_CMD_READ_KEYS;
606 i2c_write (kbd_addr, 0, 0, &val, 1);
607 i2c_read (kbd_addr, 0, 0, kbd_data, KEYBD_DATALEN);
wdenke2211742002-11-02 23:30:20 +0000608
609 for (i = 0; i < KEYBD_DATALEN; ++i) {
610 sprintf (keybd_env + i + i, "%02X", kbd_data[i]);
611 }
612 setenv ("keybd", keybd_env);
613
Wolfgang Denk77ddac92005-10-13 16:45:02 +0200614 str = strdup ((char *)key_match (kbd_data)); /* decode keys */
wdenke2211742002-11-02 23:30:20 +0000615#ifdef KEYBD_SET_DEBUGMODE
616 if (kbd_data[0] == KEYBD_SET_DEBUGMODE) { /* set debug mode */
617 if ((console_assign (stdout, "lcd") < 0) ||
618 (console_assign (stderr, "lcd") < 0)) {
619 printf ("Can't assign LCD display as output device\n");
620 }
621 }
622#endif /* KEYBD_SET_DEBUGMODE */
623#ifdef CONFIG_PREBOOT /* automatically configure "preboot" command on key match */
624 setenv ("preboot", str); /* set or delete definition */
625#endif /* CONFIG_PREBOOT */
626 if (str != NULL) {
627 free (str);
628 }
629 return (0);
630}
631
632#ifdef CONFIG_PREBOOT
633
634static uchar kbd_magic_prefix[] = "key_magic";
635static uchar kbd_command_prefix[] = "key_cmd";
636
wdenk4532cb62003-04-27 22:52:51 +0000637static int compare_magic (uchar *kbd_data, uchar *str)
638{
639 uchar compare[KEYBD_DATALEN-1];
wdenkeedcd072004-09-08 22:03:11 +0000640 char *nxt;
wdenk4532cb62003-04-27 22:52:51 +0000641 int i;
642
643 /* Don't include modifier byte */
644 memcpy (compare, kbd_data+1, KEYBD_DATALEN-1);
645
Wolfgang Denk77ddac92005-10-13 16:45:02 +0200646 for (; str != NULL; str = (*nxt) ? (uchar *)(nxt+1) : (uchar *)nxt) {
wdenk4532cb62003-04-27 22:52:51 +0000647 uchar c;
648 int k;
649
Wolfgang Denk77ddac92005-10-13 16:45:02 +0200650 c = (uchar) simple_strtoul ((char *)str, (char **) (&nxt), 16);
wdenk4532cb62003-04-27 22:52:51 +0000651
wdenkeedcd072004-09-08 22:03:11 +0000652 if (str == (uchar *)nxt) { /* invalid character */
wdenk4532cb62003-04-27 22:52:51 +0000653 break;
654 }
655
656 /*
657 * Check if this key matches the input.
658 * Set matches to zero, so they match only once
659 * and we can find duplicates or extra keys
660 */
661 for (k = 0; k < sizeof(compare); ++k) {
662 if (compare[k] == '\0') /* only non-zero entries */
663 continue;
664 if (c == compare[k]) { /* found matching key */
665 compare[k] = '\0';
666 break;
667 }
668 }
669 if (k == sizeof(compare)) {
670 return -1; /* unmatched key */
671 }
672 }
673
674 /*
675 * A full match leaves no keys in the `compare' array,
676 */
677 for (i = 0; i < sizeof(compare); ++i) {
678 if (compare[i])
679 {
680 return -1;
681 }
682 }
683
684 return 0;
685}
686
wdenke2211742002-11-02 23:30:20 +0000687/***********************************************************************
688F* Function: static uchar *key_match (uchar *kbd_data) P*A*Z*
689 *
690P* Parameters: uchar *kbd_data
691P* - The keys to match against our magic definitions
692P*
693P* Returnvalue: uchar *
694P* - != NULL: Pointer to the corresponding command(s)
695P* NULL: No magic is about to happen
696 *
697Z* Intention: Check if pressed key(s) match magic sequence,
698Z* and return the command string associated with that key(s).
699Z*
700Z* If no key press was decoded, NULL is returned.
701Z*
702Z* Note: the first character of the argument will be
703Z* overwritten with the "magic charcter code" of the
704Z* decoded key(s), or '\0'.
705Z*
706Z* Note: the string points to static environment data
707Z* and must be saved before you call any function that
708Z* modifies the environment.
709 *
710D* Design: wd@denx.de
711C* Coding: wd@denx.de
712V* Verification: dzu@denx.de
713 ***********************************************************************/
714static uchar *key_match (uchar *kbd_data)
715{
Wolfgang Denk77ddac92005-10-13 16:45:02 +0200716 char magic[sizeof (kbd_magic_prefix) + 1];
wdenk4532cb62003-04-27 22:52:51 +0000717 uchar *suffix;
Wolfgang Denk77ddac92005-10-13 16:45:02 +0200718 char *kbd_magic_keys;
wdenke2211742002-11-02 23:30:20 +0000719
720 /*
721 * The following string defines the characters that can pe appended
722 * to "key_magic" to form the names of environment variables that
723 * hold "magic" key codes, i. e. such key codes that can cause
724 * pre-boot actions. If the string is empty (""), then only
725 * "key_magic" is checked (old behaviour); the string "125" causes
726 * checks for "key_magic1", "key_magic2" and "key_magic5", etc.
727 */
728 if ((kbd_magic_keys = getenv ("magic_keys")) == NULL)
729 kbd_magic_keys = "";
730
731 /* loop over all magic keys;
732 * use '\0' suffix in case of empty string
733 */
Wolfgang Denk77ddac92005-10-13 16:45:02 +0200734 for (suffix=(uchar *)kbd_magic_keys; *suffix || suffix==(uchar *)kbd_magic_keys; ++suffix) {
wdenke2211742002-11-02 23:30:20 +0000735 sprintf (magic, "%s%c", kbd_magic_prefix, *suffix);
736#if 0
737 printf ("### Check magic \"%s\"\n", magic);
738#endif
Wolfgang Denk77ddac92005-10-13 16:45:02 +0200739 if (compare_magic(kbd_data, (uchar *)getenv(magic)) == 0) {
740 char cmd_name[sizeof (kbd_command_prefix) + 1];
wdenke2211742002-11-02 23:30:20 +0000741 char *cmd;
742
743 sprintf (cmd_name, "%s%c", kbd_command_prefix, *suffix);
744
745 cmd = getenv (cmd_name);
746#if 0
747 printf ("### Set PREBOOT to $(%s): \"%s\"\n",
748 cmd_name, cmd ? cmd : "<<NULL>>");
749#endif
750 *kbd_data = *suffix;
Wolfgang Denk77ddac92005-10-13 16:45:02 +0200751 return ((uchar *)cmd);
wdenke2211742002-11-02 23:30:20 +0000752 }
753 }
754#if 0
755 printf ("### Delete PREBOOT\n");
756#endif
757 *kbd_data = '\0';
758 return (NULL);
759}
760#endif /* CONFIG_PREBOOT */
761
762/*---------------Board Special Commands: PIC read/write ---------------*/
763
Jon Loeligerc508a4c2007-07-09 18:31:28 -0500764#if defined(CONFIG_CMD_BSP)
wdenke2211742002-11-02 23:30:20 +0000765/***********************************************************************
766F* Function: int do_pic (cmd_tbl_t *cmdtp, int flag,
767F* int argc, char *argv[]) P*A*Z*
768 *
769P* Parameters: cmd_tbl_t *cmdtp
770P* - Pointer to our command table entry
771P* int flag
772P* - If the CMD_FLAG_REPEAT bit is set, then this call is
773P* a repetition
774P* int argc
775P* - Argument count
776P* char *argv[]
777P* - Array of the actual arguments
778P*
779P* Returnvalue: int
780P* - 0 The command was handled successfully
781P* 1 An error occurred
782 *
783Z* Intention: Implement the "pic [read|write]" commands.
784Z* The read subcommand takes one argument, the register,
785Z* whereas the write command takes two, the register and
786Z* the new value.
787 *
788D* Design: wd@denx.de
789C* Coding: wd@denx.de
790V* Verification: dzu@denx.de
791 ***********************************************************************/
792int do_pic (cmd_tbl_t *cmdtp, int flag, int argc, char *argv[])
793{
794 uchar reg, val;
795
796 switch (argc) {
797 case 3: /* PIC read reg */
798 if (strcmp (argv[1], "read") != 0)
799 break;
800
801 reg = simple_strtoul (argv[2], NULL, 16);
802
803 printf ("PIC read: reg %02x: %02x\n\n", reg, pic_read (reg));
804
805 return 0;
806 case 4: /* PIC write reg val */
807 if (strcmp (argv[1], "write") != 0)
808 break;
809
810 reg = simple_strtoul (argv[2], NULL, 16);
811 val = simple_strtoul (argv[3], NULL, 16);
812
813 printf ("PIC write: reg %02x val 0x%02x: %02x => ",
814 reg, val, pic_read (reg));
815 pic_write (reg, val);
816 printf ("%02x\n\n", pic_read (reg));
817 return 0;
818 default:
819 break;
820 }
821 printf ("Usage:\n%s\n", cmdtp->usage);
822 return 1;
823}
wdenk0d498392003-07-01 21:06:45 +0000824U_BOOT_CMD(
825 pic, 4, 1, do_pic,
wdenk8bde7f72003-06-27 21:31:46 +0000826 "pic - read and write PIC registers\n",
827 "read reg - read PIC register `reg'\n"
828 "pic write reg val - write value `val' to PIC register `reg'\n"
829);
wdenke2211742002-11-02 23:30:20 +0000830
831/***********************************************************************
832F* Function: int do_kbd (cmd_tbl_t *cmdtp, int flag,
833F* int argc, char *argv[]) P*A*Z*
834 *
835P* Parameters: cmd_tbl_t *cmdtp
836P* - Pointer to our command table entry
837P* int flag
838P* - If the CMD_FLAG_REPEAT bit is set, then this call is
839P* a repetition
840P* int argc
841P* - Argument count
842P* char *argv[]
843P* - Array of the actual arguments
844P*
845P* Returnvalue: int
846P* - 0 is always returned.
847 *
848Z* Intention: Implement the "kbd" command.
849Z* The keyboard status is read. The result is printed on
850Z* the console and written into the "keybd" environment
851Z* variable.
852 *
853D* Design: wd@denx.de
854C* Coding: wd@denx.de
855V* Verification: dzu@denx.de
856 ***********************************************************************/
857int do_kbd (cmd_tbl_t *cmdtp, int flag, int argc, char *argv[])
858{
859 uchar kbd_data[KEYBD_DATALEN];
Wolfgang Denk77ddac92005-10-13 16:45:02 +0200860 char keybd_env[2 * KEYBD_DATALEN + 1];
wdenke2211742002-11-02 23:30:20 +0000861 uchar val;
862 int i;
863
wdenk4532cb62003-04-27 22:52:51 +0000864#if 0 /* Done in kbd_init */
wdenke2211742002-11-02 23:30:20 +0000865 i2c_init (CFG_I2C_SPEED, CFG_I2C_SLAVE);
wdenk4532cb62003-04-27 22:52:51 +0000866#endif
wdenke2211742002-11-02 23:30:20 +0000867
868 /* Read keys */
869 val = KEYBD_CMD_READ_KEYS;
870 i2c_write (kbd_addr, 0, 0, &val, 1);
871 i2c_read (kbd_addr, 0, 0, kbd_data, KEYBD_DATALEN);
872
873 puts ("Keys:");
874 for (i = 0; i < KEYBD_DATALEN; ++i) {
875 sprintf (keybd_env + i + i, "%02X", kbd_data[i]);
876 printf (" %02x", kbd_data[i]);
877 }
878 putc ('\n');
879 setenv ("keybd", keybd_env);
880 return 0;
881}
882
wdenk0d498392003-07-01 21:06:45 +0000883U_BOOT_CMD(
884 kbd, 1, 1, do_kbd,
wdenk8bde7f72003-06-27 21:31:46 +0000885 "kbd - read keyboard status\n",
886 NULL
887);
888
wdenke2211742002-11-02 23:30:20 +0000889/* Read and set LSB switch */
wdenkd0fb80c2003-01-11 09:48:40 +0000890#define CFG_PC_TXD1_ENA 0x0008 /* PC.12 */
wdenke2211742002-11-02 23:30:20 +0000891
892/***********************************************************************
893F* Function: int do_lsb (cmd_tbl_t *cmdtp, int flag,
894F* int argc, char *argv[]) P*A*Z*
895 *
896P* Parameters: cmd_tbl_t *cmdtp
897P* - Pointer to our command table entry
898P* int flag
899P* - If the CMD_FLAG_REPEAT bit is set, then this call is
900P* a repetition
901P* int argc
902P* - Argument count
903P* char *argv[]
904P* - Array of the actual arguments
905P*
906P* Returnvalue: int
907P* - 0 The command was handled successfully
908P* 1 An error occurred
909 *
910Z* Intention: Implement the "lsb [on|off]" commands.
911Z* The lsb is switched according to the first parameter by
912Z* by signaling the PIC I/O expander.
913Z* Called with no arguments, the current setting is
914Z* printed.
915 *
916D* Design: wd@denx.de
917C* Coding: wd@denx.de
918V* Verification: dzu@denx.de
919 ***********************************************************************/
920int do_lsb (cmd_tbl_t *cmdtp, int flag, int argc, char *argv[])
921{
922 uchar val;
923 immap_t *immr = (immap_t *) CFG_IMMR;
924
925 switch (argc) {
926 case 1: /* lsb - print setting */
927 val = pic_read (0x60);
928 printf ("LSB is o%s\n", (val & 0x20) ? "n" : "ff");
929 return 0;
930 case 2: /* lsb on or lsb off - set switch */
931 val = pic_read (0x60);
932
933 if (strcmp (argv[1], "on") == 0) {
934 val |= 0x20;
935 immr->im_ioport.iop_pcpar &= ~(CFG_PC_TXD1_ENA);
936 immr->im_ioport.iop_pcdat |= CFG_PC_TXD1_ENA;
937 immr->im_ioport.iop_pcdir |= CFG_PC_TXD1_ENA;
938 } else if (strcmp (argv[1], "off") == 0) {
939 val &= ~0x20;
940 immr->im_ioport.iop_pcpar &= ~(CFG_PC_TXD1_ENA);
941 immr->im_ioport.iop_pcdat &= ~(CFG_PC_TXD1_ENA);
942 immr->im_ioport.iop_pcdir |= CFG_PC_TXD1_ENA;
943 } else {
944 break;
945 }
946 pic_write (0x60, val);
947 return 0;
948 default:
949 break;
950 }
951 printf ("Usage:\n%s\n", cmdtp->usage);
952 return 1;
953}
954
wdenk0d498392003-07-01 21:06:45 +0000955U_BOOT_CMD(
956 lsb, 2, 1, do_lsb,
wdenk8bde7f72003-06-27 21:31:46 +0000957 "lsb - check and set LSB switch\n",
958 "on - switch LSB on\n"
959 "lsb off - switch LSB off\n"
960 "lsb - print current setting\n"
961);
962
Jon Loeligerd39b5742007-07-10 10:48:22 -0500963#endif
wdenke2211742002-11-02 23:30:20 +0000964
965/*----------------------------- Utilities -----------------------------*/
966/***********************************************************************
967F* Function: uchar pic_read (uchar reg) P*A*Z*
968 *
969P* Parameters: uchar reg
970P* - Register to read
971P*
972P* Returnvalue: uchar
973P* - Value read from register
974 *
975Z* Intention: Read a register from the PIC I/O expander.
976 *
977D* Design: wd@denx.de
978C* Coding: wd@denx.de
979V* Verification: dzu@denx.de
980 ***********************************************************************/
981uchar pic_read (uchar reg)
982{
983 return (i2c_reg_read (CFG_I2C_PICIO_ADDR, reg));
984}
985
986/***********************************************************************
987F* Function: void pic_write (uchar reg, uchar val) P*A*Z*
988 *
989P* Parameters: uchar reg
990P* - Register to read
991P* uchar val
992P* - Value to write
993P*
994P* Returnvalue: none
995 *
996Z* Intention: Write to a register on the PIC I/O expander.
997 *
998D* Design: wd@denx.de
999C* Coding: wd@denx.de
1000V* Verification: dzu@denx.de
1001 ***********************************************************************/
1002void pic_write (uchar reg, uchar val)
1003{
1004 i2c_reg_write (CFG_I2C_PICIO_ADDR, reg, val);
1005}
1006
1007/*---------------------- Board Control Functions ----------------------*/
1008/***********************************************************************
1009F* Function: void board_poweroff (void) P*A*Z*
1010 *
1011P* Parameters: none
1012P*
1013P* Returnvalue: none
1014 *
1015Z* Intention: Turn off the battery power and loop endless, so this
1016Z* should better be the last function you call...
1017 *
1018D* Design: wd@denx.de
1019C* Coding: wd@denx.de
1020V* Verification: dzu@denx.de
1021 ***********************************************************************/
1022void board_poweroff (void)
1023{
1024 /* Turn battery off */
1025 ((volatile immap_t *)CFG_IMMR)->im_ioport.iop_pcdat &= ~(1 << (31 - 13));
1026
1027 while (1);
1028}
wdenk4532cb62003-04-27 22:52:51 +00001029
1030#ifdef CONFIG_MODEM_SUPPORT
1031static int key_pressed(void)
1032{
1033 uchar kbd_data[KEYBD_DATALEN];
1034 uchar val;
1035
1036 /* Read keys */
1037 val = KEYBD_CMD_READ_KEYS;
1038 i2c_write (kbd_addr, 0, 0, &val, 1);
1039 i2c_read (kbd_addr, 0, 0, kbd_data, KEYBD_DATALEN);
1040
Wolfgang Denk77ddac92005-10-13 16:45:02 +02001041 return (compare_magic(kbd_data, (uchar *)CONFIG_MODEM_KEY_MAGIC) == 0);
wdenk4532cb62003-04-27 22:52:51 +00001042}
1043#endif /* CONFIG_MODEM_SUPPORT */
wdenk8564acf2003-07-14 22:13:32 +00001044
1045#ifdef CONFIG_POST
wdenk945af8d2003-07-16 21:53:01 +00001046/*
wdenk8564acf2003-07-14 22:13:32 +00001047 * Returns 1 if keys pressed to start the power-on long-running tests
1048 * Called from board_init_f().
1049 */
wdenk27b207f2003-07-24 23:38:38 +00001050int post_hotkeys_pressed(void)
wdenk8564acf2003-07-14 22:13:32 +00001051{
1052 uchar kbd_data[KEYBD_DATALEN];
1053 uchar val;
1054
1055 /* Read keys */
1056 val = KEYBD_CMD_READ_KEYS;
1057 i2c_write (kbd_addr, 0, 0, &val, 1);
1058 i2c_read (kbd_addr, 0, 0, kbd_data, KEYBD_DATALEN);
1059
Wolfgang Denk77ddac92005-10-13 16:45:02 +02001060 return (compare_magic(kbd_data, (uchar *)CONFIG_POST_KEY_MAGIC) == 0);
wdenk8564acf2003-07-14 22:13:32 +00001061}
1062#endif