1998-09-18 00:24:25 +00:00
|
|
|
/*
|
|
|
|
* Copyright (c) 1998, Michael Smith
|
|
|
|
* Copyright (c) 1996, Sujal M. Patel
|
|
|
|
* All rights reserved.
|
|
|
|
*
|
|
|
|
* Redistribution and use in source and binary forms, with or without
|
|
|
|
* modification, are permitted provided that the following conditions
|
|
|
|
* are met:
|
|
|
|
* 1. Redistributions of source code must retain the above copyright
|
|
|
|
* notice, this list of conditions and the following disclaimer.
|
|
|
|
* 2. Redistributions in binary form must reproduce the above copyright
|
|
|
|
* notice, this list of conditions and the following disclaimer in the
|
|
|
|
* documentation and/or other materials provided with the distribution.
|
|
|
|
*
|
|
|
|
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
|
|
|
|
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
|
|
|
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
|
|
|
* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
|
|
|
|
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
|
|
|
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
|
|
|
|
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
|
|
|
|
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
|
|
|
|
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
|
|
|
|
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
|
|
|
* SUCH DAMAGE.
|
|
|
|
*
|
1998-10-21 20:07:05 +00:00
|
|
|
* $Id: isapnp.c,v 1.2 1998/09/26 01:29:13 msmith Exp $
|
1998-09-18 00:24:25 +00:00
|
|
|
*/
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Machine-independant ISA PnP enumerator implementing a subset of the
|
|
|
|
* ISA PnP specification.
|
|
|
|
*/
|
|
|
|
#include <stand.h>
|
|
|
|
#include <string.h>
|
|
|
|
#include <bootstrap.h>
|
|
|
|
#include <isapnp.h>
|
|
|
|
|
|
|
|
#define inb(x) (archsw.arch_isainb((x)))
|
|
|
|
#define outb(x,y) (archsw.arch_isaoutb((x),(y)))
|
|
|
|
|
|
|
|
static void isapnp_write(int d, u_char r);
|
|
|
|
static u_char isapnp_read(int d);
|
|
|
|
static void isapnp_send_Initiation_LFSR();
|
|
|
|
static int isapnp_get_serial(u_int8_t *p);
|
1998-10-21 20:07:05 +00:00
|
|
|
static int isapnp_isolation_protocol(void);
|
|
|
|
static void isapnp_enumerate(void);
|
1998-09-18 00:24:25 +00:00
|
|
|
|
|
|
|
/* PnP read data port */
|
|
|
|
static int pnp_rd_port;
|
|
|
|
|
|
|
|
#define _PNP_ID_LEN 9
|
|
|
|
|
|
|
|
struct pnphandler isapnphandler =
|
|
|
|
{
|
1998-10-21 20:07:05 +00:00
|
|
|
"ISA bus",
|
1998-09-18 00:24:25 +00:00
|
|
|
isapnp_enumerate
|
|
|
|
};
|
|
|
|
|
|
|
|
static void
|
|
|
|
isapnp_write(int d, u_char r)
|
|
|
|
{
|
|
|
|
outb (_PNP_ADDRESS, d);
|
|
|
|
outb (_PNP_WRITE_DATA, r);
|
|
|
|
}
|
|
|
|
|
|
|
|
static u_char
|
|
|
|
isapnp_read(int d)
|
|
|
|
{
|
|
|
|
outb (_PNP_ADDRESS, d);
|
|
|
|
return (inb(3 | (pnp_rd_port <<2)));
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Send Initiation LFSR as described in "Plug and Play ISA Specification",
|
|
|
|
* Intel May 94.
|
|
|
|
*/
|
|
|
|
static void
|
|
|
|
isapnp_send_Initiation_LFSR()
|
|
|
|
{
|
|
|
|
int cur, i;
|
|
|
|
|
|
|
|
/* Reset the LSFR */
|
|
|
|
outb(_PNP_ADDRESS, 0);
|
|
|
|
outb(_PNP_ADDRESS, 0); /* yes, we do need it twice! */
|
|
|
|
|
|
|
|
cur = 0x6a;
|
|
|
|
outb(_PNP_ADDRESS, cur);
|
|
|
|
|
|
|
|
for (i = 1; i < 32; i++) {
|
|
|
|
cur = (cur >> 1) | (((cur ^ (cur >> 1)) << 7) & 0xff);
|
|
|
|
outb(_PNP_ADDRESS, cur);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Get the device's serial number. Returns 1 if the serial is valid.
|
|
|
|
*/
|
|
|
|
static int
|
|
|
|
isapnp_get_serial(u_int8_t *data)
|
|
|
|
{
|
|
|
|
int i, bit, valid = 0, sum = 0x6a;
|
|
|
|
|
|
|
|
bzero(data, _PNP_ID_LEN);
|
|
|
|
outb(_PNP_ADDRESS, SERIAL_ISOLATION);
|
|
|
|
for (i = 0; i < 72; i++) {
|
|
|
|
bit = inb((pnp_rd_port << 2) | 0x3) == 0x55;
|
|
|
|
delay(250); /* Delay 250 usec */
|
|
|
|
|
|
|
|
/* Can't Short Circuit the next evaluation, so 'and' is last */
|
|
|
|
bit = (inb((pnp_rd_port << 2) | 0x3) == 0xaa) && bit;
|
|
|
|
delay(250); /* Delay 250 usec */
|
|
|
|
|
|
|
|
valid = valid || bit;
|
|
|
|
|
|
|
|
if (i < 64)
|
|
|
|
sum = (sum >> 1) |
|
|
|
|
(((sum ^ (sum >> 1) ^ bit) << 7) & 0xff);
|
|
|
|
|
|
|
|
data[i / 8] = (data[i / 8] >> 1) | (bit ? 0x80 : 0);
|
|
|
|
}
|
|
|
|
|
|
|
|
valid = valid && (data[8] == sum);
|
|
|
|
|
|
|
|
return valid;
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
1998-09-26 01:29:13 +00:00
|
|
|
* Format a pnp id as a string in standard ISA PnP format, AAAIIRR
|
|
|
|
* where 'AAA' is the EISA ID, II is the product ID and RR the revision ID.
|
1998-09-18 00:24:25 +00:00
|
|
|
*/
|
|
|
|
static char *
|
|
|
|
isapnp_format(u_int8_t *data)
|
|
|
|
{
|
1998-09-26 01:29:13 +00:00
|
|
|
static char idbuf[8];
|
|
|
|
const char hextoascii[] = "0123456789abcdef";
|
|
|
|
|
|
|
|
idbuf[0] = '@' + ((data[0] & 0x7c) >> 2);
|
|
|
|
idbuf[1] = '@' + (((data[0] & 0x3) << 3) + ((data[1] & 0xe0) >> 5));
|
|
|
|
idbuf[2] = '@' + (data[1] & 0x1f);
|
|
|
|
idbuf[3] = hextoascii[(data[2] >> 4)];
|
|
|
|
idbuf[4] = hextoascii[(data[2] & 0xf)];
|
|
|
|
idbuf[5] = hextoascii[(data[3] >> 4)];
|
|
|
|
idbuf[6] = hextoascii[(data[3] & 0xf)];
|
|
|
|
idbuf[7] = 0;
|
1998-10-21 20:07:05 +00:00
|
|
|
return(idbuf);
|
1998-09-18 00:24:25 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
1998-10-21 20:07:05 +00:00
|
|
|
* Fills the buffer with resource info from the device.
|
|
|
|
* Returns nonzero if the device fails to report
|
1998-09-18 00:24:25 +00:00
|
|
|
*/
|
|
|
|
static int
|
1998-10-21 20:07:05 +00:00
|
|
|
isapnp_get_resource_info(u_int8_t *buffer, int len)
|
1998-09-18 00:24:25 +00:00
|
|
|
{
|
1998-10-21 20:07:05 +00:00
|
|
|
int i, j;
|
|
|
|
u_char temp;
|
|
|
|
|
|
|
|
for (i = 0; i < len; i++) {
|
|
|
|
outb(_PNP_ADDRESS, STATUS);
|
|
|
|
for (j = 0; j < 100; j++) {
|
|
|
|
if ((inb((pnp_rd_port << 2) | 0x3)) & 0x1)
|
|
|
|
break;
|
|
|
|
delay(1);
|
|
|
|
}
|
|
|
|
if (j == 100) {
|
|
|
|
printf("PnP device failed to report resource data\n");
|
|
|
|
return(1);
|
|
|
|
}
|
|
|
|
outb(_PNP_ADDRESS, RESOURCE_DATA);
|
|
|
|
temp = inb((pnp_rd_port << 2) | 0x3);
|
|
|
|
if (buffer != NULL)
|
|
|
|
buffer[i] = temp;
|
|
|
|
}
|
|
|
|
return(0);
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Scan Resource Data for useful information.
|
|
|
|
*
|
|
|
|
* We scan the resource data for compatible device IDs and
|
|
|
|
* identifier strings; we only take the first identifier string
|
|
|
|
* and assume it's for the card as a whole.
|
|
|
|
*
|
|
|
|
* Returns 0 if the scan completed OK, nonzero on error.
|
|
|
|
*/
|
|
|
|
static int
|
|
|
|
isapnp_scan_resdata(struct pnpinfo *pi)
|
|
|
|
{
|
|
|
|
u_char tag, resinfo[8];
|
|
|
|
int large_len, limit;
|
|
|
|
char *str;
|
|
|
|
|
|
|
|
limit = 1000;
|
|
|
|
while ((limit-- > 0) && !isapnp_get_resource_info(&tag, 1)) {
|
|
|
|
if (PNP_RES_TYPE(tag) == 0) {
|
|
|
|
/* Small resource */
|
|
|
|
switch (PNP_SRES_NUM(tag)) {
|
|
|
|
|
|
|
|
case COMP_DEVICE_ID:
|
|
|
|
/* Got a compatible device id resource */
|
|
|
|
if (isapnp_get_resource_info(resinfo, PNP_SRES_LEN(tag)))
|
|
|
|
return(1);
|
|
|
|
pnp_addident(pi, isapnp_format(resinfo));
|
|
|
|
|
|
|
|
case END_TAG:
|
|
|
|
return(0);
|
|
|
|
break;
|
|
|
|
|
|
|
|
default:
|
|
|
|
/* Skip this resource */
|
|
|
|
if (isapnp_get_resource_info(NULL, PNP_SRES_LEN(tag)))
|
|
|
|
return(1);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
} else {
|
|
|
|
/* Large resource */
|
|
|
|
if (isapnp_get_resource_info(resinfo, 2))
|
1998-09-18 00:24:25 +00:00
|
|
|
return(1);
|
1998-10-21 20:07:05 +00:00
|
|
|
|
|
|
|
large_len = resinfo[1];
|
|
|
|
large_len = (large_len << 8) + resinfo[0];
|
|
|
|
|
|
|
|
switch(PNP_LRES_NUM(tag)) {
|
|
|
|
|
|
|
|
case ID_STRING_ANSI:
|
|
|
|
str = malloc(large_len + 1);
|
|
|
|
if (isapnp_get_resource_info(str, large_len)) {
|
|
|
|
free(str);
|
|
|
|
return(1);
|
|
|
|
}
|
|
|
|
str[large_len] = 0;
|
|
|
|
if (pi->pi_desc == NULL) {
|
|
|
|
pi->pi_desc = str;
|
|
|
|
} else {
|
|
|
|
free(str);
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
|
|
|
|
default:
|
|
|
|
/* Large resource, skip it */
|
|
|
|
if (isapnp_get_resource_info(NULL, large_len))
|
|
|
|
return(1);
|
|
|
|
}
|
1998-09-18 00:24:25 +00:00
|
|
|
}
|
|
|
|
}
|
1998-10-21 20:07:05 +00:00
|
|
|
return(1);
|
1998-09-18 00:24:25 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Run the isolation protocol. Use pnp_rd_port as the READ_DATA port
|
|
|
|
* value (caller should try multiple READ_DATA locations before giving
|
|
|
|
* up). Upon exiting, all cards are aware that they should use
|
|
|
|
* pnp_rd_port as the READ_DATA port.
|
|
|
|
*/
|
|
|
|
static int
|
1998-10-21 20:07:05 +00:00
|
|
|
isapnp_isolation_protocol(void)
|
1998-09-18 00:24:25 +00:00
|
|
|
{
|
|
|
|
int csn;
|
|
|
|
struct pnpinfo *pi;
|
|
|
|
u_int8_t cardid[_PNP_ID_LEN];
|
|
|
|
int ndevs;
|
|
|
|
|
|
|
|
isapnp_send_Initiation_LFSR();
|
|
|
|
ndevs = 0;
|
|
|
|
|
|
|
|
isapnp_write(CONFIG_CONTROL, 0x04); /* Reset CSN for All Cards */
|
|
|
|
|
|
|
|
for (csn = 1; ; csn++) {
|
|
|
|
/* Wake up cards without a CSN (ie. all of them) */
|
|
|
|
isapnp_write(WAKE, 0);
|
|
|
|
isapnp_write(SET_RD_DATA, pnp_rd_port);
|
|
|
|
outb(_PNP_ADDRESS, SERIAL_ISOLATION);
|
|
|
|
delay(1000); /* Delay 1 msec */
|
|
|
|
|
|
|
|
if (isapnp_get_serial(cardid)) {
|
|
|
|
isapnp_write(SET_CSN, csn);
|
1998-10-21 20:07:05 +00:00
|
|
|
pi = pnp_allocinfo();
|
1998-09-18 00:24:25 +00:00
|
|
|
ndevs++;
|
1998-10-21 20:07:05 +00:00
|
|
|
pnp_addident(pi, isapnp_format(cardid));
|
1998-09-18 00:24:25 +00:00
|
|
|
/* scan the card obtaining all the identifiers it holds */
|
1998-10-21 20:07:05 +00:00
|
|
|
if (isapnp_scan_resdata(pi)) {
|
|
|
|
pnp_freeinfo(pi); /* error getting data, ignore */
|
|
|
|
} else {
|
|
|
|
pnp_addinfo(pi);
|
1998-09-18 00:24:25 +00:00
|
|
|
}
|
1998-10-21 20:07:05 +00:00
|
|
|
} else {
|
1998-09-18 00:24:25 +00:00
|
|
|
break;
|
1998-10-21 20:07:05 +00:00
|
|
|
}
|
1998-09-18 00:24:25 +00:00
|
|
|
}
|
|
|
|
/* Move all cards to wait-for-key state */
|
1998-10-21 20:07:05 +00:00
|
|
|
while (--csn > 0) {
|
1998-09-18 00:24:25 +00:00
|
|
|
isapnp_send_Initiation_LFSR();
|
|
|
|
isapnp_write(WAKE, csn);
|
|
|
|
isapnp_write(CONFIG_CONTROL, 0x02);
|
|
|
|
delay(1000); /* XXX is it really necessary ? */
|
1998-10-21 20:07:05 +00:00
|
|
|
csn--;
|
1998-09-18 00:24:25 +00:00
|
|
|
}
|
|
|
|
return(ndevs);
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Locate ISA-PnP devices and populate the supplied list.
|
|
|
|
*/
|
|
|
|
static void
|
1998-10-21 20:07:05 +00:00
|
|
|
isapnp_enumerate(void)
|
1998-09-18 00:24:25 +00:00
|
|
|
{
|
|
|
|
int devs;
|
|
|
|
|
|
|
|
for (pnp_rd_port = 0x80; pnp_rd_port < 0xff; pnp_rd_port += 0x10) {
|
1998-10-21 20:07:05 +00:00
|
|
|
|
1998-09-18 00:24:25 +00:00
|
|
|
/* Look for something, quit when we find it */
|
1998-10-21 20:07:05 +00:00
|
|
|
if ((devs = isapnp_isolation_protocol()) > 0)
|
1998-09-18 00:24:25 +00:00
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|