1 /*-
2 * SPDX-License-Identifier: BSD-2-Clause
3 *
4 * Copyright (c) 2003-2004 Poul-Henning Kamp
5 * All rights reserved.
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
9 * are met:
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 * notice, this list of conditions and the following disclaimer in the
14 * documentation and/or other materials provided with the distribution.
15 *
16 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
17 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
18 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
19 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
20 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
21 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
22 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
23 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
24 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
25 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
26 * SUCH DAMAGE.
27 */
28
29 #include <sys/param.h>
30 #include <sys/systm.h>
31 #include <sys/timetc.h>
32 #include <sys/bus.h>
33 #include <sys/eventhandler.h>
34 #include <sys/kernel.h>
35 #include <sys/module.h>
36 #include <sys/watchdog.h>
37 #include <dev/pci/pcireg.h>
38 #include <dev/pci/pcivar.h>
39 #include <dev/led/led.h>
40 #include <machine/pc/bios.h>
41
42 static struct bios_oem bios_soekris = {
43 { 0xf0000, 0xf1000 },
44 {
45 { "Soekris", 0, 8 }, /* Soekris Engineering. */
46 { "net4", 0, 8 }, /* net45xx */
47 { "comBIOS", 0, 54 }, /* comBIOS ver. 1.26a 20040819 ... */
48 { NULL, 0, 0 },
49 }
50 };
51
52 static struct bios_oem bios_soekris_55 = {
53 { 0xf0000, 0xf1000 },
54 {
55 { "Soekris", 0, 8 }, /* Soekris Engineering. */
56 { "net5", 0, 8 }, /* net5xxx */
57 { "comBIOS", 0, 54 }, /* comBIOS ver. 1.26a 20040819 ... */
58 { NULL, 0, 0 },
59 }
60 };
61
62 static struct bios_oem bios_pcengines = {
63 { 0xf9000, 0xfa000 },
64 {
65 { "PC Engines WRAP", 0, 28 }, /* PC Engines WRAP.1C v1.03 */
66 { "tinyBIOS", 0, 28 }, /* tinyBIOS V1.4a (C)1997-2003 */
67 { NULL, 0, 0 },
68 }
69 };
70
71 static struct bios_oem bios_pcengines_55 = {
72 { 0xf9000, 0xfa000 },
73 {
74 { "PC Engines ALIX", 0, 28 }, /* PC Engines ALIX */
75 { "tinyBIOS", 0, 28 }, /* tinyBIOS V1.4a (C)1997-2005 */
76 { NULL, 0, 0 },
77 }
78 };
79
80 static struct bios_oem bios_advantech = {
81 { 0xfe000, 0xff000 },
82 {
83 { "**** PCM-582", 5, 33 }, /* PCM-5823 BIOS V1.12 ... */
84 { "GXm-Cx5530", -11, 35 }, /* 06/07/2002-GXm-Cx5530... */
85 { NULL, 0, 0 },
86 }
87 };
88
89 static unsigned cba;
90 static unsigned gpio;
91 static unsigned geode_counter;
92
93 static struct cdev *led1, *led2, *led3;
94 static int led1b, led2b, led3b;
95
96 static void
led_func(void * ptr,int onoff)97 led_func(void *ptr, int onoff)
98 {
99 uint32_t u;
100 int bit;
101
102 bit = *(int *)ptr;
103 if (bit < 0) {
104 bit = -bit;
105 onoff = !onoff;
106 }
107
108 u = inl(gpio + 4);
109 if (onoff)
110 u |= 1 << bit;
111 else
112 u &= ~(1 << bit);
113 outl(gpio, u);
114 }
115
116 static void
cs5536_led_func(void * ptr,int onoff)117 cs5536_led_func(void *ptr, int onoff)
118 {
119 int bit;
120 uint16_t a;
121
122 bit = *(int *)ptr;
123 if (bit < 0) {
124 bit = -bit;
125 onoff = !onoff;
126 }
127
128 a = rdmsr(0x5140000c);
129 if (bit >= 16) {
130 a += 0x80;
131 bit -= 16;
132 }
133
134 if (onoff)
135 outl(a, 1 << bit);
136 else
137 outl(a, 1 << (bit + 16));
138 }
139
140 static unsigned
geode_get_timecount(struct timecounter * tc)141 geode_get_timecount(struct timecounter *tc)
142 {
143 return (inl(geode_counter));
144 }
145
146 static struct timecounter geode_timecounter = {
147 geode_get_timecount,
148 NULL,
149 0xffffffff,
150 27000000,
151 "Geode",
152 1000
153 };
154
155 static uint64_t
geode_cputicks(void)156 geode_cputicks(void)
157 {
158 unsigned c;
159 static unsigned last;
160 static uint64_t offset;
161
162 c = inl(geode_counter);
163 if (c < last)
164 offset += (1LL << 32);
165 last = c;
166 return (offset | c);
167 }
168
169 /*
170 * The GEODE watchdog runs from a 32kHz frequency. One period of that is
171 * 31250 nanoseconds which we round down to 2^14 nanoseconds. The watchdog
172 * consists of a power-of-two prescaler and a 16 bit counter, so the math
173 * is quite simple. The max timeout is 14 + 16 + 13 = 2^43 nsec ~= 2h26m.
174 */
175 static void
geode_watchdog(void * foo __unused,u_int cmd,int * error)176 geode_watchdog(void *foo __unused, u_int cmd, int *error)
177 {
178 u_int u, p, r;
179
180 u = cmd & WD_INTERVAL;
181 if (u >= 14 && u <= 43) {
182 u -= 14;
183 if (u > 16) {
184 p = u - 16;
185 u -= p;
186 } else {
187 p = 0;
188 }
189 if (u == 16)
190 u = (1 << u) - 1;
191 else
192 u = 1 << u;
193 r = inw(cba + 2) & 0xff00;
194 outw(cba + 2, p | 0xf0 | r);
195 outw(cba, u);
196 *error = 0;
197 } else {
198 outw(cba, 0);
199 }
200 }
201
202 /*
203 * We run MFGPT0 off the 32kHz frequency and prescale by 16384 giving a
204 * period of half a second.
205 * Range becomes 2^30 (= 1 sec) to 2^44 (almost 5 hours)
206 */
207 static void
cs5536_watchdog(void * foo __unused,u_int cmd,int * error)208 cs5536_watchdog(void *foo __unused, u_int cmd, int *error)
209 {
210 u_int u, p, s;
211 uint16_t a;
212 uint32_t m;
213
214 a = rdmsr(0x5140000d);
215
216 u = cmd & WD_INTERVAL;
217 if (u >= 30 && u <= 44) {
218 p = 1 << (u - 29);
219
220 /* Set up MFGPT0, 32khz, prescaler 16k, C2 event */
221 outw(a + 6, 0x030e);
222 /* set comparator 2 */
223 outw(a + 2, p);
224 /* reset counter */
225 outw(a + 4, 0);
226 /* Arm reset mechanism */
227 m = rdmsr(0x51400029);
228 m |= (1 << 24);
229 wrmsr(0x51400029, m);
230 /* Start counter */
231 outw(a + 6, 0x8000);
232
233 *error = 0;
234 } else {
235 /*
236 * MFGPT_SETUP is write-once
237 * Check if the counter has been setup
238 */
239 s = inw(a + 6);
240 if (s & (1 << 12)) {
241 /* Stop and reset counter */
242 outw(a + 6, 0);
243 outw(a + 4, 0);
244 }
245 }
246 }
247
248 /*
249 * The Advantech PCM-582x watchdog expects 0x1 at I/O port 0x0443
250 * every 1.6 secs +/- 30%. Writing 0x0 disables the watchdog
251 * NB: reading the I/O port enables the timer as well
252 */
253 static void
advantech_watchdog(void * foo __unused,u_int cmd,int * error)254 advantech_watchdog(void *foo __unused, u_int cmd, int *error)
255 {
256 u_int u;
257
258 u = cmd & WD_INTERVAL;
259 if (u > 0 && u <= WD_TO_1SEC) {
260 outb(0x0443, 1);
261 *error = 0;
262 } else {
263 outb(0x0443, 0);
264 }
265 }
266
267 static int
geode_probe(device_t self)268 geode_probe(device_t self)
269 {
270 #define BIOS_OEM_MAXLEN 80
271 static u_char bios_oem[BIOS_OEM_MAXLEN] = "\0";
272
273 switch (pci_get_devid(self)) {
274 case 0x0515100b:
275 if (geode_counter == 0) {
276 /*
277 * The address of the CBA is written to this register
278 * by the bios, see p161 in data sheet.
279 */
280 cba = pci_read_config(self, 0x64, 4);
281 if (bootverbose)
282 printf("Geode CBA@ 0x%x\n", cba);
283 geode_counter = cba + 0x08;
284 outl(cba + 0x0d, 2);
285 if (bootverbose)
286 printf("Geode rev: %02x %02x\n",
287 inb(cba + 0x3c), inb(cba + 0x3d));
288 tc_init(&geode_timecounter);
289 EVENTHANDLER_REGISTER(watchdog_list, geode_watchdog,
290 NULL, 0);
291 set_cputicker(geode_cputicks, 27000000, false);
292 }
293 break;
294 case 0x0510100b:
295 gpio = pci_read_config(self, PCIR_BAR(0), 4);
296 gpio &= ~0x1f;
297 if (bootverbose)
298 printf("Geode GPIO@ = %x\n", gpio);
299 if (bios_oem_strings(&bios_soekris,
300 bios_oem, sizeof bios_oem) > 0 ) {
301 led1b = 20;
302 led1 = led_create(led_func, &led1b, "error");
303 } else if (bios_oem_strings(&bios_pcengines,
304 bios_oem, sizeof bios_oem) > 0 ) {
305 led1b = -2;
306 led2b = -3;
307 led3b = -18;
308 led1 = led_create(led_func, &led1b, "led1");
309 led2 = led_create(led_func, &led2b, "led2");
310 led3 = led_create(led_func, &led3b, "led3");
311 /*
312 * Turn on first LED so we don't make
313 * people think their box just died.
314 */
315 led_func(&led1b, 1);
316 }
317 if (*bios_oem)
318 printf("Geode %s\n", bios_oem);
319 break;
320 case 0x01011078:
321 if (bios_oem_strings(&bios_advantech,
322 bios_oem, sizeof bios_oem) > 0 ) {
323 printf("Geode %s\n", bios_oem);
324 EVENTHANDLER_REGISTER(watchdog_list, advantech_watchdog,
325 NULL, 0);
326 }
327 break;
328 case 0x20801022:
329 if (bios_oem_strings(&bios_soekris_55,
330 bios_oem, sizeof bios_oem) > 0 ) {
331 led1b = 6;
332 led1 = led_create(cs5536_led_func, &led1b, "error");
333 } else if (bios_oem_strings(&bios_pcengines_55,
334 bios_oem, sizeof bios_oem) > 0 ) {
335 led1b = -6;
336 led2b = -25;
337 led3b = -27;
338 led1 = led_create(cs5536_led_func, &led1b, "led1");
339 led2 = led_create(cs5536_led_func, &led2b, "led2");
340 led3 = led_create(cs5536_led_func, &led3b, "led3");
341 /*
342 * Turn on first LED so we don't make
343 * people think their box just died.
344 */
345 cs5536_led_func(&led1b, 1);
346 }
347 if (*bios_oem)
348 printf("Geode LX: %s\n", bios_oem);
349 if (bootverbose)
350 printf("MFGPT bar: %jx\n", rdmsr(0x5140000d));
351 EVENTHANDLER_REGISTER(watchdog_list, cs5536_watchdog, NULL, 0);
352 break;
353 }
354 return (ENXIO);
355 }
356
357 static int
geode_attach(device_t self)358 geode_attach(device_t self)
359 {
360
361 return(ENODEV);
362 }
363
364 static device_method_t geode_methods[] = {
365 /* Device interface */
366 DEVMETHOD(device_probe, geode_probe),
367 DEVMETHOD(device_attach, geode_attach),
368 DEVMETHOD(device_suspend, bus_generic_suspend),
369 DEVMETHOD(device_resume, bus_generic_resume),
370 DEVMETHOD(device_shutdown, bus_generic_shutdown),
371 {0, 0}
372 };
373
374 static driver_t geode_driver = {
375 "geode",
376 geode_methods,
377 0,
378 };
379
380 DRIVER_MODULE(geode, pci, geode_driver, 0, 0);
381