/*      $NetBSD: autoconf.c,v 1.14 2021/07/05 13:41:08 tsutsui Exp $    */

/*
* Copyright (c) 1988 University of Utah.
* Copyright (c) 1990, 1993
*      The Regents of the University of California.  All rights reserved.
*
* This code is derived from software contributed to Berkeley by
* the Systems Programming Group of the University of Utah Computer
* Science Department.
*
* 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.
* 3. Neither the name of the University nor the names of its contributors
*    may be used to endorse or promote products derived from this software
*    without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE REGENTS 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 REGENTS 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.
*
* from: Utah Hdr: autoconf.c 1.16 92/05/29
*
*      @(#)autoconf.c  8.1 (Berkeley) 6/10/93
*/

#include <sys/param.h>
#include <sys/reboot.h>

#include <hp300/stand/common/samachdep.h>
#include <hp300/stand/common/rominfo.h>
#include <hp300/stand/common/device.h>
#include <hp300/stand/common/hpibvar.h>
#include <hp300/stand/common/scsireg.h>
#include <hp300/stand/common/scsivar.h>

#include <hp300/dev/dioreg.h>
#include <hp300/dev/intioreg.h>

/*
* Mapping of ROM MSUS types to BSD major device numbers
* WARNING: major numbers must match bdevsw indices in hp300/conf.c.
*/
static const char rom2mdev[] = {
       0, 0,                                           /* 0-1: none */
       6,      /* 2: network device; special */
       0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,                /* 3-13: none */
       4,      /* 14: SCSI disk */
       0,      /* 15: none */
       2,      /* 16: CS/80 device on HPIB */
       2,      /* 17: CS/80 device on HPIB */
       0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,       /* 18-31: none */
};

struct hp_hw sc_table[MAXCTLRS];
int cpuspeed;

static u_long msustobdev(void);
static void find_devs(void);

#ifdef PRINTROMINFO
void
printrominfo(void)
{
       struct rominfo *rp = (struct rominfo *)ROMADDR;

       printf("boottype %x, name %s, lowram %x, sysflag %x\n",
              rp->boottype, rp->name, rp->lowram, rp->sysflag&0xff);
       printf("rambase %x, ndrives %x, sysflag2 %x, msus %x\n",
              rp->rambase, rp->ndrives, rp->sysflag2&0xff, rp->msus);
}
#endif

void
configure(void)
{

       switch (machineid) {
       case HP_320:
       case HP_330:
       case HP_340:
               cpuspeed = MHZ_16;
               break;
       case HP_350:
       case HP_360:
       case HP_362:
               cpuspeed = MHZ_25;
               break;
       case HP_370:
               cpuspeed = MHZ_33;
               break;
       case HP_375:
       case HP_400:
               cpuspeed = MHZ_50;
               break;
       case HP_380:
       case HP_382:
       case HP_425:
               cpuspeed = MHZ_25 * 2;  /* XXX */
               break;
       case HP_385:
       case HP_433:
               cpuspeed = MHZ_33 * 2;  /* XXX */
               break;
       default:        /* assume the fastest (largest delay value) */
               cpuspeed = MHZ_50;
               break;
       }
       find_devs();
       cninit();
#ifdef PRINTROMINFO
       printrominfo();
#endif
       hpibinit();
       scsiinit();
       if ((bootdev & B_MAGICMASK) != B_DEVMAGIC)
               bootdev = msustobdev();
}

/*
* Convert HP MSUS to a valid bootdev layout:
*      TYPE comes from MSUS device type as mapped by rom2mdev
*      PARTITION is set to 0 ('a')
*      UNIT comes from MSUS unit (almost always 0)
*      CONTROLLER comes from MSUS primary address
*      ADAPTER comes from SCSI/HPIB driver logical unit number
*              (passed back via unused hw_pa field)
*/
static u_long
msustobdev(void)
{
       struct rominfo *rp = (struct rominfo *) ROMADDR;
       u_long bdev = 0;
       struct hp_hw *hw;
       int sc, type, ctlr, slave, punit;

       sc = (rp->msus >> 8) & 0xFF;
       for (hw = sc_table; hw < &sc_table[MAXCTLRS]; hw++)
               if (hw->hw_sc == sc)
                       break;

       type  = rom2mdev[(rp->msus >> 24) & 0x1F];
       ctlr  = (int)hw->hw_pa;
       slave = (rp->msus & 0xFF);
       punit = ((rp->msus >> 16) & 0xFF);

       bdev  = MAKEBOOTDEV(type, ctlr, slave, punit, 0);

#ifdef PRINTROMINFO
       printf("msus %x -> bdev %x\n", rp->msus, bdev);
#endif
       return bdev;
}

int
sctoaddr(int sc)
{

       if (sc == -1)
               return INTIOBASE + FB_BASE;
       if (sc == 7 && internalhpib)
               return internalhpib ;
       if (sc < 32)
               return DIOBASE + sc * DIOCSIZE ;
       if (sc >= DIOII_SCBASE)
               return DIOIIBASE + (sc - DIOII_SCBASE) * DIOIICSIZE ;
       return sc;
}

/*
* Probe all DIO select codes (0 - 32), the internal display address,
* and DIO-II select codes (132 - 256).
*
* Note that we only care about displays, LANCEs, SCSIs and HP-IBs.
*/
static void
find_devs(void)
{
       short sc, sctop;
       u_char *id_reg;
       void *addr;
       struct hp_hw *hw;

       hw = sc_table;
       sctop = DIO_SCMAX(machineid);
       for (sc = -1; sc < sctop; sc++) {
               if (DIO_INHOLE(sc))
                       continue;
               addr = (void *)sctoaddr(sc);
               if (badaddr(addr))
                       continue;

               id_reg = (u_char *)addr;
               hw->hw_pa = 0;  /* XXX used to pass back LUN from driver */
               if (sc >= DIOII_SCBASE)
                       hw->hw_size = DIOII_SIZE(id_reg);
               else
                       hw->hw_size = DIOCSIZE;
               hw->hw_kva = addr;
               hw->hw_id = DIO_ID(id_reg);
               hw->hw_sc = sc;

               /*
                * Not all internal HP-IBs respond rationally to id requests
                * so we just go by the "internal HPIB" indicator in SYSFLAG.
                */
               if (sc == 7 && internalhpib) {
                       hw->hw_type = C_HPIB;
                       hw++;
                       continue;
               }

               switch (hw->hw_id) {
               case 5:         /* 98642A */
               case 5+128:     /* 98642A remote */
                       hw->hw_type = D_COMMDCM;
                       break;
               case 8:         /* 98625B */
               case 128:       /* 98624A */
                       hw->hw_type = C_HPIB;
                       break;
               case 21:        /* LANCE */
                       hw->hw_type = D_LAN;
                       break;
               case 57:        /* Displays */
                       hw->hw_type = D_BITMAP;
                       hw->hw_secid = id_reg[0x15];
                       switch (hw->hw_secid) {
                       case 4: /* renaissance */
                       case 8: /* davinci */
                               sc++;           /* occupy 2 select codes */
                               break;
                       }
                       break;
               case 9:
                       hw->hw_type = D_KEYBOARD;
                       break;
               case 7:
               case 7+32:
               case 7+64:
               case 7+96:
                       hw->hw_type = C_SCSI;
                       break;
               default:        /* who cares */
                       hw->hw_type = D_MISC;
                       break;
               }
               hw++;
       }
}