2 * Copyright (c) 1998 Michael Smith (msmith@freebsd.org)
4 * Redistribution and use in source and binary forms, with or without
5 * modification, are permitted provided that the following conditions
7 * 1. Redistributions of source code must retain the above copyright
8 * notice, this list of conditions and the following disclaimer.
9 * 2. Redistributions in binary form must reproduce the above copyright
10 * notice, this list of conditions and the following disclaimer in the
11 * documentation and/or other materials provided with the distribution.
13 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
14 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
15 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
16 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
17 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
18 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
19 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
20 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
21 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
22 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
26 #include <sys/cdefs.h>
27 __FBSDID("$FreeBSD$");
30 #include <bootstrap.h>
31 #include <machine/cpufunc.h>
32 #include <dev/ic/ns16550.h>
33 #include <dev/pci/pcireg.h>
36 #define COMC_FMT 0x3 /* 8N1 */
37 #define COMC_TXWAIT 0x40000 /* transmit timeout */
38 #define COMC_BPS(x) (115200 / (x)) /* speed to DLAB divisor */
39 #define COMC_DIV2BPS(x) (115200 / (x)) /* DLAB divisor to speed */
48 static void comc_probe(struct console *cp);
49 static int comc_init(int arg);
50 static void comc_putchar(int c);
51 static int comc_getchar(void);
52 static int comc_getspeed(void);
53 static void set_hw_console_hint(void);
54 static int comc_ischar(void);
55 static int comc_parseint(const char *string);
56 static uint32_t comc_parse_pcidev(const char *string);
57 static int comc_pcidev_set(struct env_var *ev, int flags,
59 static int comc_pcidev_handle(uint32_t locator);
60 static int comc_port_set(struct env_var *ev, int flags,
62 static void comc_setup(int speed, int port);
63 static int comc_speed_set(struct env_var *ev, int flags,
66 static int comc_curspeed;
67 static int comc_port = COMPORT;
68 static uint32_t comc_locator;
70 struct console comconsole = {
82 comc_probe(struct console *cp)
89 if (comc_curspeed == 0) {
90 comc_curspeed = COMSPEED;
92 * Assume that the speed was set by an earlier boot loader if
93 * comconsole is already the preferred console.
95 cons = getenv("console");
96 if ((cons != NULL && strcmp(cons, comconsole.c_name) == 0) ||
97 getenv("boot_multicons") != NULL) {
98 comc_curspeed = comc_getspeed();
101 env = getenv("comconsole_speed");
103 speed = comc_parseint(env);
105 comc_curspeed = speed;
108 sprintf(intbuf, "%d", comc_curspeed);
109 unsetenv("comconsole_speed");
110 env_setenv("comconsole_speed", EV_VOLATILE, intbuf, comc_speed_set,
113 env = getenv("comconsole_port");
115 port = comc_parseint(env);
120 sprintf(intbuf, "%d", comc_port);
121 unsetenv("comconsole_port");
122 env_setenv("comconsole_port", EV_VOLATILE, intbuf, comc_port_set,
125 env = getenv("comconsole_pcidev");
127 locator = comc_parse_pcidev(env);
129 comc_pcidev_handle(locator);
132 unsetenv("comconsole_pcidev");
133 env_setenv("comconsole_pcidev", EV_VOLATILE, env, comc_pcidev_set,
136 comc_setup(comc_curspeed, comc_port);
143 comc_setup(comc_curspeed, comc_port);
145 if ((comconsole.c_flags & (C_PRESENTIN | C_PRESENTOUT)) ==
146 (C_PRESENTIN | C_PRESENTOUT))
156 for (wait = COMC_TXWAIT; wait > 0; wait--)
157 if (inb(comc_port + com_lsr) & LSR_TXRDY) {
158 outb(comc_port + com_data, (u_char)c);
166 return (comc_ischar() ? inb(comc_port + com_data) : -1);
172 return (inb(comc_port + com_lsr) & LSR_RXRDY);
176 comc_speed_set(struct env_var *ev, int flags, const void *value)
180 if (value == NULL || (speed = comc_parseint(value)) <= 0) {
181 printf("Invalid speed\n");
185 if ((comconsole.c_flags & (C_ACTIVEIN | C_ACTIVEOUT)) != 0 &&
186 comc_curspeed != speed)
187 comc_setup(speed, comc_port);
189 env_setenv(ev->ev_name, flags | EV_NOHOOK, value, NULL, NULL);
195 comc_port_set(struct env_var *ev, int flags, const void *value)
199 if (value == NULL || (port = comc_parseint(value)) <= 0) {
200 printf("Invalid port\n");
204 if ((comconsole.c_flags & (C_ACTIVEIN | C_ACTIVEOUT)) != 0 &&
206 comc_setup(comc_curspeed, port);
207 set_hw_console_hint();
210 env_setenv(ev->ev_name, flags | EV_NOHOOK, value, NULL, NULL);
216 set_hw_console_hint(void)
220 unsetenv("hw.uart.console");
221 sprintf(intbuf, "io:%d,br:%d", comc_port, comc_curspeed);
222 env_setenv("hw.uart.console", EV_VOLATILE, intbuf,
223 env_noset, env_nounset);
227 * Input: bus:dev:func[:bar]. If bar is not specified, it is 0x10.
228 * Output: bar[24:16] bus[15:8] dev[7:3] func[2:0]
231 comc_parse_pcidev(const char *string)
234 uint8_t bus, dev, func, bar;
238 pres = strtol(string, &p, 0);
239 if (p == string || *p != ':' || pres < 0 )
244 pres = strtol(p1, &p, 0);
245 if (p == string || *p != ':' || pres < 0 )
250 pres = strtol(p1, &p, 0);
251 if (p == string || (*p != ':' && *p != '\0') || pres < 0 )
257 pres = strtol(p1, &p, 0);
258 if (p == string || *p != '\0' || pres <= 0 )
264 locator = (bar << 16) | biospci_locator(bus, dev, func);
269 comc_pcidev_handle(uint32_t locator)
274 if (biospci_read_config(locator & 0xffff,
275 (locator & 0xff0000) >> 16, 2, &port) == -1) {
276 printf("Cannot read bar at 0x%x\n", locator);
279 if (!PCI_BAR_IO(port)) {
280 printf("Memory bar at 0x%x\n", locator);
283 port &= PCIM_BAR_IO_BASE;
285 sprintf(intbuf, "%d", port);
286 unsetenv("comconsole_port");
287 env_setenv("comconsole_port", EV_VOLATILE, intbuf,
288 comc_port_set, env_nounset);
290 comc_setup(comc_curspeed, port);
291 set_hw_console_hint();
292 comc_locator = locator;
298 comc_pcidev_set(struct env_var *ev, int flags, const void *value)
303 if (value == NULL || (locator = comc_parse_pcidev(value)) <= 0) {
304 printf("Invalid pcidev\n");
307 if ((comconsole.c_flags & (C_ACTIVEIN | C_ACTIVEOUT)) != 0 &&
308 comc_locator != locator) {
309 error = comc_pcidev_handle(locator);
313 env_setenv(ev->ev_name, flags | EV_NOHOOK, value, NULL, NULL);
318 comc_setup(int speed, int port)
320 static int TRY_COUNT = 1000000;
323 comc_curspeed = speed;
326 outb(comc_port + com_cfcr, CFCR_DLAB | COMC_FMT);
327 outb(comc_port + com_dlbl, COMC_BPS(speed) & 0xff);
328 outb(comc_port + com_dlbh, COMC_BPS(speed) >> 8);
329 outb(comc_port + com_cfcr, COMC_FMT);
330 outb(comc_port + com_mcr, MCR_RTS | MCR_DTR);
334 inb(comc_port + com_data);
335 while (inb(comc_port + com_lsr) & LSR_RXRDY && ++tries < TRY_COUNT);
337 if (tries < TRY_COUNT)
338 comconsole.c_flags |= (C_PRESENTIN | C_PRESENTOUT);
340 comconsole.c_flags &= ~(C_PRESENTIN | C_PRESENTOUT);
344 comc_parseint(const char *speedstr)
349 speed = strtol(speedstr, &p, 0);
350 if (p == speedstr || *p != '\0' || speed <= 0)
364 cfcr = inb(comc_port + com_cfcr);
365 outb(comc_port + com_cfcr, CFCR_DLAB | cfcr);
367 dlbl = inb(comc_port + com_dlbl);
368 dlbh = inb(comc_port + com_dlbh);
370 outb(comc_port + com_cfcr, cfcr);
372 divisor = dlbh << 8 | dlbl;
374 /* XXX there should be more sanity checking. */
377 return (COMC_DIV2BPS(divisor));