blob: d37e5dab3524839af18a05ed920ce804537d0efb [file] [log] [blame]
wdenkc6097192002-11-03 00:24:07 +00001/*
Wolfgang Denk57cac1f2006-01-29 19:12:41 +01002 * (C) Copyright 2002-2006
wdenkc6097192002-11-03 00:24:07 +00003 * Wolfgang Denk, DENX Software Engineering, wd@denx.de.
4 *
5 * (C) Copyright 2002
6 * Sysgo Real-Time Solutions, GmbH <www.elinos.com>
7 * Marius Groeger <mgroeger@sysgo.de>
8 *
9 * See file CREDITS for list of people who contributed to this
10 * project.
11 *
12 * This program is free software; you can redistribute it and/or
13 * modify it under the terms of the GNU General Public License as
14 * published by the Free Software Foundation; either version 2 of
15 * the License, or (at your option) any later version.
16 *
17 * This program is distributed in the hope that it will be useful,
18 * but WITHOUT ANY WARRANTY; without even the implied warranty of
19 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 * GNU General Public License for more details.
21 *
22 * You should have received a copy of the GNU General Public License
23 * along with this program; if not, write to the Free Software
24 * Foundation, Inc., 59 Temple Place, Suite 330, Boston,
25 * MA 02111-1307 USA
26 */
27
Wolfgang Denk57cac1f2006-01-29 19:12:41 +010028/*
29 * To match the U-Boot user interface on ARM platforms to the U-Boot
30 * standard (as on PPC platforms), some messages with debug character
31 * are removed from the default U-Boot build.
32 *
33 * Define DEBUG here if you want additional info as shown below
34 * printed upon startup:
35 *
36 * U-Boot code: 00F00000 -> 00F3C774 BSS: -> 00FC3274
37 * IRQ Stack: 00ebff7c
38 * FIQ Stack: 00ebef7c
39 */
40
wdenkc6097192002-11-03 00:24:07 +000041#include <common.h>
42#include <command.h>
wdenk3595ac42003-06-22 17:18:28 +000043#include <malloc.h>
wdenkc6097192002-11-03 00:24:07 +000044#include <devices.h>
45#include <version.h>
46#include <net.h>
47
wdenkf39748a2004-06-09 13:37:52 +000048#ifdef CONFIG_DRIVER_SMC91111
49#include "../drivers/smc91111.h"
50#endif
51#ifdef CONFIG_DRIVER_LAN91C96
52#include "../drivers/lan91c96.h"
53#endif
54
Markus Klotzbücherb2b43462006-02-10 11:25:41 +010055DECLARE_GLOBAL_DATA_PTR;
56
Jon Loeliger67350562007-07-09 18:05:38 -050057#if defined(CONFIG_CMD_NAND)
wdenkdc7c9a12003-03-26 06:55:25 +000058void nand_init (void);
59#endif
wdenkc6097192002-11-03 00:24:07 +000060
wdenk3b57fe02003-05-30 12:48:29 +000061ulong monitor_flash_len;
62
wdenk2abbe072003-06-16 23:50:08 +000063#ifdef CONFIG_HAS_DATAFLASH
64extern int AT91F_DataflashInit(void);
65extern void dataflash_print_info(void);
66#endif
67
wdenk48b42612003-06-19 23:01:32 +000068#ifndef CONFIG_IDENT_STRING
69#define CONFIG_IDENT_STRING ""
70#endif
71
wdenkc6097192002-11-03 00:24:07 +000072const char version_string[] =
wdenk48b42612003-06-19 23:01:32 +000073 U_BOOT_VERSION" (" __DATE__ " - " __TIME__ ")"CONFIG_IDENT_STRING;
wdenkc6097192002-11-03 00:24:07 +000074
75#ifdef CONFIG_DRIVER_CS8900
76extern void cs8900_get_enetaddr (uchar * addr);
77#endif
78
wdenk5ca26792004-06-06 22:11:41 +000079#ifdef CONFIG_DRIVER_RTL8019
wdenkef5a9672003-12-07 00:46:27 +000080extern void rtl8019_get_enetaddr (uchar * addr);
81#endif
82
wdenkc6097192002-11-03 00:24:07 +000083/*
84 * Begin and End of memory area for malloc(), and current "brk"
85 */
86static ulong mem_malloc_start = 0;
87static ulong mem_malloc_end = 0;
88static ulong mem_malloc_brk = 0;
89
wdenka6c7ad22002-12-03 21:28:10 +000090static
wdenka6c7ad22002-12-03 21:28:10 +000091void mem_malloc_init (ulong dest_addr)
wdenkc6097192002-11-03 00:24:07 +000092{
93 mem_malloc_start = dest_addr;
wdenk699b13a2002-11-03 18:03:52 +000094 mem_malloc_end = dest_addr + CFG_MALLOC_LEN;
wdenkc6097192002-11-03 00:24:07 +000095 mem_malloc_brk = mem_malloc_start;
96
97 memset ((void *) mem_malloc_start, 0,
98 mem_malloc_end - mem_malloc_start);
99}
100
101void *sbrk (ptrdiff_t increment)
102{
103 ulong old = mem_malloc_brk;
104 ulong new = old + increment;
105
106 if ((new < mem_malloc_start) || (new > mem_malloc_end)) {
107 return (NULL);
108 }
109 mem_malloc_brk = new;
110
111 return ((void *) old);
112}
113
114/************************************************************************
115 * Init Utilities *
116 ************************************************************************
117 * Some of this code should be moved into the core functions,
118 * or dropped completely,
119 * but let's get it working (again) first...
120 */
121
122static int init_baudrate (void)
123{
Wolfgang Denkd52fb7e2006-03-11 22:53:33 +0100124 char tmp[64]; /* long enough for environment variables */
wdenkc6097192002-11-03 00:24:07 +0000125 int i = getenv_r ("baudrate", tmp, sizeof (tmp));
wdenk3595ac42003-06-22 17:18:28 +0000126 gd->bd->bi_baudrate = gd->baudrate = (i > 0)
wdenkc6097192002-11-03 00:24:07 +0000127 ? (int) simple_strtoul (tmp, NULL, 10)
128 : CONFIG_BAUDRATE;
129
130 return (0);
131}
132
133static int display_banner (void)
134{
wdenkc6097192002-11-03 00:24:07 +0000135 printf ("\n\n%s\n\n", version_string);
Wolfgang Denk57cac1f2006-01-29 19:12:41 +0100136 debug ("U-Boot code: %08lX -> %08lX BSS: -> %08lX\n",
137 _armboot_start, _bss_start, _bss_end);
wdenkc6097192002-11-03 00:24:07 +0000138#ifdef CONFIG_MODEM_SUPPORT
Wolfgang Denk57cac1f2006-01-29 19:12:41 +0100139 debug ("Modem Support enabled\n");
wdenkc6097192002-11-03 00:24:07 +0000140#endif
141#ifdef CONFIG_USE_IRQ
Wolfgang Denk57cac1f2006-01-29 19:12:41 +0100142 debug ("IRQ Stack: %08lx\n", IRQ_STACK_START);
143 debug ("FIQ Stack: %08lx\n", FIQ_STACK_START);
wdenkc6097192002-11-03 00:24:07 +0000144#endif
wdenkf72da342003-10-10 10:05:42 +0000145
wdenkc6097192002-11-03 00:24:07 +0000146 return (0);
147}
148
149/*
150 * WARNING: this code looks "cleaner" than the PowerPC version, but
151 * has the disadvantage that you either get nothing, or everything.
152 * On PowerPC, you might see "DRAM: " before the system hangs - which
153 * gives a simple yet clear indication which part of the
154 * initialization if failing.
155 */
156static int display_dram_config (void)
157{
wdenkc6097192002-11-03 00:24:07 +0000158 int i;
159
Wolfgang Denk57cac1f2006-01-29 19:12:41 +0100160#ifdef DEBUG
wdenka8c7c702003-12-06 19:49:23 +0000161 puts ("RAM Configuration:\n");
wdenkc6097192002-11-03 00:24:07 +0000162
163 for(i=0; i<CONFIG_NR_DRAM_BANKS; i++) {
164 printf ("Bank #%d: %08lx ", i, gd->bd->bi_dram[i].start);
165 print_size (gd->bd->bi_dram[i].size, "\n");
166 }
Wolfgang Denk57cac1f2006-01-29 19:12:41 +0100167#else
168 ulong size = 0;
169
170 for (i=0; i<CONFIG_NR_DRAM_BANKS; i++) {
171 size += gd->bd->bi_dram[i].size;
172 }
173 puts("DRAM: ");
174 print_size(size, "\n");
175#endif
wdenkc6097192002-11-03 00:24:07 +0000176
177 return (0);
178}
179
Markus Klotzbücher69493282006-02-28 18:05:25 +0100180#ifndef CFG_NO_FLASH
wdenkc6097192002-11-03 00:24:07 +0000181static void display_flash_config (ulong size)
182{
183 puts ("Flash: ");
184 print_size (size, "\n");
185}
Markus Klotzbücher69493282006-02-28 18:05:25 +0100186#endif /* CFG_NO_FLASH */
wdenkc6097192002-11-03 00:24:07 +0000187
188
wdenkc6097192002-11-03 00:24:07 +0000189/*
wdenka8c7c702003-12-06 19:49:23 +0000190 * Breathe some life into the board...
wdenkc6097192002-11-03 00:24:07 +0000191 *
wdenkb0639ca2003-09-17 22:48:07 +0000192 * Initialize a serial port as console, and carry out some hardware
wdenkc6097192002-11-03 00:24:07 +0000193 * tests.
194 *
195 * The first part of initialization is running from Flash memory;
196 * its main purpose is to initialize the RAM so that we
197 * can relocate the monitor code to RAM.
198 */
199
200/*
201 * All attempts to come up with a "common" initialization sequence
202 * that works for all boards and architectures failed: some of the
203 * requirements are just _too_ different. To get rid of the resulting
wdenkf6e20fc2004-02-08 19:38:38 +0000204 * mess of board dependent #ifdef'ed code we now make the whole
wdenkc6097192002-11-03 00:24:07 +0000205 * initialization sequence configurable to the user.
206 *
207 * The requirements for any new initalization function is simple: it
208 * receives a pointer to the "global data" structure as it's only
209 * argument, and returns an integer return code, where 0 means
210 * "continue" and != 0 means "fatal error, hang the system".
211 */
212typedef int (init_fnc_t) (void);
213
Wolfgang Denk57cac1f2006-01-29 19:12:41 +0100214int print_cpuinfo (void); /* test-only */
215
wdenkc6097192002-11-03 00:24:07 +0000216init_fnc_t *init_sequence[] = {
217 cpu_init, /* basic cpu dependent setup */
218 board_init, /* basic board dependent setup */
219 interrupt_init, /* set up exceptions */
220 env_init, /* initialize environment */
221 init_baudrate, /* initialze baudrate settings */
222 serial_init, /* serial communications setup */
wdenk3595ac42003-06-22 17:18:28 +0000223 console_init_f, /* stage 1 init of console */
wdenk699b13a2002-11-03 18:03:52 +0000224 display_banner, /* say that we are here */
Wolfgang Denk57cac1f2006-01-29 19:12:41 +0100225#if defined(CONFIG_DISPLAY_CPUINFO)
226 print_cpuinfo, /* display cpu info (and speed) */
227#endif
228#if defined(CONFIG_DISPLAY_BOARDINFO)
229 checkboard, /* display board info */
230#endif
wdenkc6097192002-11-03 00:24:07 +0000231 dram_init, /* configure available RAM banks */
232 display_dram_config,
wdenkc6097192002-11-03 00:24:07 +0000233 NULL,
234};
235
236void start_armboot (void)
237{
wdenkc6097192002-11-03 00:24:07 +0000238 init_fnc_t **init_fnc_ptr;
wdenk3e386912003-04-05 00:53:31 +0000239 char *s;
Wolfgang Denkd52fb7e2006-03-11 22:53:33 +0100240#ifndef CFG_NO_FLASH
241 ulong size;
242#endif
wdenkbc54f302004-07-11 18:10:30 +0000243#if defined(CONFIG_VFD) || defined(CONFIG_LCD)
wdenkc6097192002-11-03 00:24:07 +0000244 unsigned long addr;
245#endif
246
247 /* Pointer is writable since we allocated a register for it */
wdenka8c7c702003-12-06 19:49:23 +0000248 gd = (gd_t*)(_armboot_start - CFG_MALLOC_LEN - sizeof(gd_t));
wdenk93f6a672004-07-01 20:28:03 +0000249 /* compiler optimization barrier needed for GCC >= 3.4 */
250 __asm__ __volatile__("": : :"memory");
251
wdenka8c7c702003-12-06 19:49:23 +0000252 memset ((void*)gd, 0, sizeof (gd_t));
253 gd->bd = (bd_t*)((char*)gd - sizeof(bd_t));
wdenkc6097192002-11-03 00:24:07 +0000254 memset (gd->bd, 0, sizeof (bd_t));
255
wdenkf6e20fc2004-02-08 19:38:38 +0000256 monitor_flash_len = _bss_start - _armboot_start;
wdenk3b57fe02003-05-30 12:48:29 +0000257
wdenkc6097192002-11-03 00:24:07 +0000258 for (init_fnc_ptr = init_sequence; *init_fnc_ptr; ++init_fnc_ptr) {
259 if ((*init_fnc_ptr)() != 0) {
260 hang ();
261 }
262 }
263
Markus Klotzbücher69493282006-02-28 18:05:25 +0100264#ifndef CFG_NO_FLASH
wdenkc6097192002-11-03 00:24:07 +0000265 /* configure available FLASH banks */
266 size = flash_init ();
267 display_flash_config (size);
Markus Klotzbücher69493282006-02-28 18:05:25 +0100268#endif /* CFG_NO_FLASH */
wdenkc6097192002-11-03 00:24:07 +0000269
270#ifdef CONFIG_VFD
wdenka8c7c702003-12-06 19:49:23 +0000271# ifndef PAGE_SIZE
272# define PAGE_SIZE 4096
273# endif
wdenkc6097192002-11-03 00:24:07 +0000274 /*
275 * reserve memory for VFD display (always full pages)
276 */
wdenkbc54f302004-07-11 18:10:30 +0000277 /* bss_end is defined in the board-specific linker script */
278 addr = (_bss_end + (PAGE_SIZE - 1)) & ~(PAGE_SIZE - 1);
wdenkc6097192002-11-03 00:24:07 +0000279 size = vfd_setmem (addr);
280 gd->fb_base = addr;
wdenkc6097192002-11-03 00:24:07 +0000281#endif /* CONFIG_VFD */
282
wdenkbc54f302004-07-11 18:10:30 +0000283#ifdef CONFIG_LCD
wdenk281e00a2004-08-01 22:48:16 +0000284# ifndef PAGE_SIZE
285# define PAGE_SIZE 4096
286# endif
wdenkbc54f302004-07-11 18:10:30 +0000287 /*
288 * reserve memory for LCD display (always full pages)
289 */
290 /* bss_end is defined in the board-specific linker script */
291 addr = (_bss_end + (PAGE_SIZE - 1)) & ~(PAGE_SIZE - 1);
292 size = lcd_setmem (addr);
293 gd->fb_base = addr;
294#endif /* CONFIG_LCD */
295
wdenka8c7c702003-12-06 19:49:23 +0000296 /* armboot_start is defined in the board-specific linker script */
297 mem_malloc_init (_armboot_start - CFG_MALLOC_LEN);
298
Jon Loeliger67350562007-07-09 18:05:38 -0500299#if defined(CONFIG_CMD_NAND)
Markus Klotzbuecherd860c342006-04-25 17:00:33 +0200300 puts ("NAND: ");
wdenkdc7c9a12003-03-26 06:55:25 +0000301 nand_init(); /* go init the NAND */
302#endif
303
wdenk2abbe072003-06-16 23:50:08 +0000304#ifdef CONFIG_HAS_DATAFLASH
305 AT91F_DataflashInit();
306 dataflash_print_info();
307#endif
308
wdenkc6097192002-11-03 00:24:07 +0000309 /* initialize environment */
310 env_relocate ();
311
wdenk6069ff22003-02-28 00:49:47 +0000312#ifdef CONFIG_VFD
313 /* must do this after the framebuffer is allocated */
314 drv_vfd_init();
wdenka8c7c702003-12-06 19:49:23 +0000315#endif /* CONFIG_VFD */
wdenk6069ff22003-02-28 00:49:47 +0000316
wdenkc6097192002-11-03 00:24:07 +0000317 /* IP Address */
wdenka8c7c702003-12-06 19:49:23 +0000318 gd->bd->bi_ip_addr = getenv_IPaddr ("ipaddr");
wdenkc6097192002-11-03 00:24:07 +0000319
320 /* MAC Address */
321 {
322 int i;
323 ulong reg;
324 char *s, *e;
Wolfgang Denkd52fb7e2006-03-11 22:53:33 +0100325 char tmp[64];
wdenkc6097192002-11-03 00:24:07 +0000326
327 i = getenv_r ("ethaddr", tmp, sizeof (tmp));
328 s = (i > 0) ? tmp : NULL;
329
330 for (reg = 0; reg < 6; ++reg) {
wdenka8c7c702003-12-06 19:49:23 +0000331 gd->bd->bi_enetaddr[reg] = s ? simple_strtoul (s, &e, 16) : 0;
wdenkc6097192002-11-03 00:24:07 +0000332 if (s)
333 s = (*e) ? e + 1 : e;
334 }
Wolfgang Denk57cac1f2006-01-29 19:12:41 +0100335
336#ifdef CONFIG_HAS_ETH1
337 i = getenv_r ("eth1addr", tmp, sizeof (tmp));
338 s = (i > 0) ? tmp : NULL;
339
340 for (reg = 0; reg < 6; ++reg) {
341 gd->bd->bi_enet1addr[reg] = s ? simple_strtoul (s, &e, 16) : 0;
342 if (s)
343 s = (*e) ? e + 1 : e;
344 }
345#endif
wdenkc6097192002-11-03 00:24:07 +0000346 }
347
wdenkf54ebdf2003-09-17 15:10:32 +0000348 devices_init (); /* get the devices list going. */
wdenk3595ac42003-06-22 17:18:28 +0000349
Wolfgang Denkc7db9a32005-08-19 00:53:02 +0200350#ifdef CONFIG_CMC_PU2
351 load_sernum_ethaddr ();
352#endif /* CONFIG_CMC_PU2 */
353
wdenk27b207f2003-07-24 23:38:38 +0000354 jumptable_init ();
wdenk3595ac42003-06-22 17:18:28 +0000355
356 console_init_r (); /* fully init console as a device */
357
wdenkc6097192002-11-03 00:24:07 +0000358#if defined(CONFIG_MISC_INIT_R)
359 /* miscellaneous platform dependent initialisations */
360 misc_init_r ();
361#endif
362
363 /* enable exceptions */
364 enable_interrupts ();
365
wdenka8c7c702003-12-06 19:49:23 +0000366 /* Perform network card initialisation if necessary */
Sergey Kubushync74b2102007-08-10 20:26:18 +0200367#ifdef CONFIG_DRIVER_TI_EMAC
368extern void dm644x_eth_set_mac_addr (const u_int8_t *addr);
369 if (getenv ("ethaddr")) {
370 dm644x_eth_set_mac_addr(gd->bd->bi_enetaddr);
371 }
372#endif
373
wdenkc6097192002-11-03 00:24:07 +0000374#ifdef CONFIG_DRIVER_CS8900
wdenk6069ff22003-02-28 00:49:47 +0000375 cs8900_get_enetaddr (gd->bd->bi_enetaddr);
wdenkc6097192002-11-03 00:24:07 +0000376#endif
377
wdenkf39748a2004-06-09 13:37:52 +0000378#if defined(CONFIG_DRIVER_SMC91111) || defined (CONFIG_DRIVER_LAN91C96)
wdenk45219c42003-05-12 21:50:16 +0000379 if (getenv ("ethaddr")) {
380 smc_set_mac_addr(gd->bd->bi_enetaddr);
381 }
wdenkf39748a2004-06-09 13:37:52 +0000382#endif /* CONFIG_DRIVER_SMC91111 || CONFIG_DRIVER_LAN91C96 */
wdenk45219c42003-05-12 21:50:16 +0000383
wdenk3e386912003-04-05 00:53:31 +0000384 /* Initialize from environment */
385 if ((s = getenv ("loadaddr")) != NULL) {
386 load_addr = simple_strtoul (s, NULL, 16);
387 }
Jon Loeliger67350562007-07-09 18:05:38 -0500388#if defined(CONFIG_CMD_NET)
wdenk3e386912003-04-05 00:53:31 +0000389 if ((s = getenv ("bootfile")) != NULL) {
390 copy_filename (BootFile, s, sizeof (BootFile));
391 }
Jon Loeligerb3aff0c2007-07-10 11:19:50 -0500392#endif
wdenk3e386912003-04-05 00:53:31 +0000393
wdenkc837dcb2004-01-20 23:12:12 +0000394#ifdef BOARD_LATE_INIT
395 board_late_init ();
wdenkc6097192002-11-03 00:24:07 +0000396#endif
Jon Loeliger67350562007-07-09 18:05:38 -0500397#if defined(CONFIG_CMD_NET)
Marian Balakowicz63ff0042005-10-28 22:30:33 +0200398#if defined(CONFIG_NET_MULTI)
wdenka1191902005-01-09 17:12:27 +0000399 puts ("Net: ");
Marian Balakowicz63ff0042005-10-28 22:30:33 +0200400#endif
wdenka1191902005-01-09 17:12:27 +0000401 eth_initialize(gd->bd);
402#endif
wdenkc6097192002-11-03 00:24:07 +0000403 /* main_loop() can return to retry autoboot, if so just run it again. */
404 for (;;) {
405 main_loop ();
406 }
407
408 /* NOTREACHED - no way out of command loop except booting */
409}
410
411void hang (void)
412{
413 puts ("### ERROR ### Please RESET the board ###\n");
414 for (;;);
415}
416
417#ifdef CONFIG_MODEM_SUPPORT
Wolfgang Denkd2ed2f62006-03-11 23:07:09 +0100418static inline void mdm_readline(char *buf, int bufsiz);
419
wdenkc6097192002-11-03 00:24:07 +0000420/* called from main loop (common/main.c) */
421extern void dbg(const char *fmt, ...);
422int mdm_init (void)
423{
424 char env_str[16];
425 char *init_str;
426 int i;
427 extern char console_buffer[];
wdenkc6097192002-11-03 00:24:07 +0000428 extern void enable_putc(void);
429 extern int hwflow_onoff(int);
430
431 enable_putc(); /* enable serial_putc() */
432
433#ifdef CONFIG_HWFLOW
434 init_str = getenv("mdm_flow_control");
435 if (init_str && (strcmp(init_str, "rts/cts") == 0))
436 hwflow_onoff (1);
437 else
438 hwflow_onoff(-1);
439#endif
440
441 for (i = 1;;i++) {
442 sprintf(env_str, "mdm_init%d", i);
443 if ((init_str = getenv(env_str)) != NULL) {
444 serial_puts(init_str);
445 serial_puts("\n");
446 for(;;) {
447 mdm_readline(console_buffer, CFG_CBSIZE);
448 dbg("ini%d: [%s]", i, console_buffer);
449
450 if ((strcmp(console_buffer, "OK") == 0) ||
451 (strcmp(console_buffer, "ERROR") == 0)) {
452 dbg("ini%d: cmd done", i);
453 break;
454 } else /* in case we are originating call ... */
455 if (strncmp(console_buffer, "CONNECT", 7) == 0) {
456 dbg("ini%d: connect", i);
457 return 0;
458 }
459 }
460 } else
461 break; /* no init string - stop modem init */
462
463 udelay(100000);
464 }
465
466 udelay(100000);
467
468 /* final stage - wait for connect */
469 for(;i > 1;) { /* if 'i' > 1 - wait for connection
470 message from modem */
471 mdm_readline(console_buffer, CFG_CBSIZE);
472 dbg("ini_f: [%s]", console_buffer);
473 if (strncmp(console_buffer, "CONNECT", 7) == 0) {
474 dbg("ini_f: connected");
475 return 0;
476 }
477 }
478
479 return 0;
480}
481
482/* 'inline' - We have to do it fast */
483static inline void mdm_readline(char *buf, int bufsiz)
484{
485 char c;
486 char *p;
487 int n;
488
489 n = 0;
490 p = buf;
491 for(;;) {
492 c = serial_getc();
493
494 /* dbg("(%c)", c); */
495
496 switch(c) {
497 case '\r':
498 break;
499 case '\n':
500 *p = '\0';
501 return;
502
503 default:
504 if(n++ > bufsiz) {
505 *p = '\0';
506 return; /* sanity check */
507 }
508 *p = c;
509 p++;
510 break;
511 }
512 }
513}
514#endif /* CONFIG_MODEM_SUPPORT */