idprom.c revision 1.5 
1/*	$NetBSD: idprom.c,v 1.5 2008/04/28 20:23:39 martin Exp $	*/
2
3/*-
4 * Copyright (c) 1998 The NetBSD Foundation, Inc.
5 * All rights reserved.
6 *
7 * This code is derived from software contributed to The NetBSD Foundation
8 * by Adam Glass and Gordon W. Ross.
9 *
10 * Redistribution and use in source and binary forms, with or without
11 * modification, are permitted provided that the following conditions
12 * are met:
13 * 1. Redistributions of source code must retain the above copyright
14 *    notice, this list of conditions and the following disclaimer.
15 * 2. Redistributions in binary form must reproduce the above copyright
16 *    notice, this list of conditions and the following disclaimer in the
17 *    documentation and/or other materials provided with the distribution.
18 *
19 * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
20 * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
21 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
22 * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
23 * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
24 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
25 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
26 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
27 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
28 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
29 * POSSIBILITY OF SUCH DAMAGE.
30 */
31
32/*
33 * Machine ID PROM - system type and serial number
34 */
35
36#include <sys/types.h>
37#include <machine/idprom.h>
38#include <machine/mon.h>
39
40#include "libsa.h"
41
42/*
43 * This driver provides a soft copy of the IDPROM.
44 * It is copied from the device early in startup.
45 * Allow these to be patched (helps with poor old
46 * Sun3/80 boxes with dead NVRAM).
47 */
48u_char cpu_machine_id = 0;
49struct idprom identity_prom = { 0 };
50
51int idprom_cksum(u_char *);
52void idprom_init2(void);
53void idprom_init3(void);
54void idprom_init3x(void);
55
56int
57idprom_cksum(u_char *p)
58{
59	int len, x;
60
61	len = IDPROM_CKSUM_SIZE;
62	x = 0;	/* xor of data */
63	do x ^= *p++;
64	while (--len > 0);
65	return (x);
66}
67
68/* Copy the ethernet address into the passed space. */
69void
70idprom_etheraddr(u_char *eaddrp)
71{
72
73	idprom_init();
74	memcpy(eaddrp, identity_prom.idp_etheraddr, 6);
75}
76
77/* Fetch a copy of the idprom. */
78void
79idprom_init(void)
80{
81
82	if (identity_prom.idp_format == 1)
83		return;
84
85	/* Copy the IDPROM contents and do the checksum. */
86	if (_is3x)
87		idprom_init3x();
88	else if (_is2)
89		idprom_init2();
90	else
91		idprom_init3();
92
93	if (identity_prom.idp_format != 1)
94		panic("idprom: bad version");
95	cpu_machine_id = identity_prom.idp_machtype;
96}
97
98/*
99 * Sun2 version:
100 * Just copy it from control space.
101 */
102void
103idprom_init2(void)
104{
105
106	/* Copy the IDPROM contents and do the checksum. */
107	sun2_getidprom((u_char *) &identity_prom);
108	if (idprom_cksum((u_char *) &identity_prom))
109		printf("idprom: bad checksum\n");
110}
111
112/*
113 * Sun3 version:
114 * Just copy it from control space.
115 */
116void
117idprom_init3(void)
118{
119
120	/* Copy the IDPROM contents and do the checksum. */
121	sun3_getidprom((u_char *) &identity_prom);
122	if (idprom_cksum((u_char *) &identity_prom))
123		printf("idprom: bad checksum\n");
124}
125
126/*
127 * Sun3X version:
128 * Rather than do all the map-in/probe work to find the idprom,
129 * we can cheat!  We _know_ the monitor already made a copy of
130 * the IDPROM in its data page.  All we have to do is find it.
131 *
132 * Yeah, this is sorta gross...  Only used on old PROMs that
133 * do not have a sif_macaddr function (rev < 3.0).  The area
134 * to search was determined from some "insider" info. about
135 * the layout of the PROM data area.
136 */
137void
138idprom_init3x(void)
139{
140	u_char *p;
141
142	printf("idprom: Sun3X search for soft copy...\n");
143
144	for (p = (u_char *)(SUN3X_MONDATA + 0x0400);
145	     p < (u_char *)(SUN3X_MONDATA + 0x1c00); p++)
146	{
147		/* first check for some constants */
148		if (p[0] != 0x01) /* format */
149			continue;
150		if (p[2] != 0x08) /* ether[0] */
151			continue;
152		if (p[3] != 0x00) /* ether[1] */
153			continue;
154		if (p[4] != 0x20) /* ether[2] */
155			continue;
156		if ((p[1] & 0xfc) != IDM_ARCH_SUN3X)
157			continue;
158		/* Looks plausible.  Try the checksum. */
159		if (idprom_cksum(p) == 0)
160			goto found;
161	}
162	panic("idprom: not found in monitor data");
163
164found:
165	printf("idprom: copy found at 0x%x\n", (int)p);
166	memcpy(&identity_prom, p, sizeof(struct idprom));
167}
168