/*      $NetBSD: bootmain.c,v 1.14 2019/06/14 14:17:58 isaki Exp $      */

/*-
* Copyright (c) 1993, 1994 Takumi Nakamura.
* Copyright (c) 1999, 2000 Itoh Yasufumi.
* Copyright (c) 2001 Minoura Makoto.
*
* 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. All advertising materials mentioning features or use of this software
*    must display the following acknowledgement:
*      This product includes software developed by Takumi Nakamura.
* 4. 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.
*/

#include <sys/param.h>
#include <sys/reboot.h>
#include <sys/types.h>
#include <sys/exec_aout.h>
#include <ufs/ufs/dinode.h>
#include <ufs/ffs/fs.h>
#include <ufs/ufs/dir.h>
#include <machine/cpu.h>
#include <machine/bootinfo.h>
#ifdef SCSI_ADHOC_BOOTPART
#include <machine/disklabel.h>
#endif
#include <lib/libsa/stand.h>

#include "boot_ufs.h"
#include "readufs.h"
#include "exec_image.h"
#include "../../x68k/iodevice.h"
#define IODEVbase ((volatile struct IODEVICE *)INTIOBASE)

/* for debug; ��ư���Υ쥸��������äƤ��� */
unsigned int startregs[16];

#ifdef SCSI_ADHOC_BOOTPART
static int get_scsi_part (void);
#endif
#ifdef BOOT_DEBUG
static int get_scsi_host_adapter (char *);
#else
static int get_scsi_host_adapter (void);
#endif

#ifdef BOOT_DEBUG
void print_hex (unsigned int, int);
#endif

static int load_file (const char*, unsigned int, struct exec *);
static int load_file_ino (ino32_t, const char*, unsigned int, struct exec *);

void bootufs (void) __attribute__ ((__noreturn__));

#ifdef BOOT_DEBUG
void
print_hex(unsigned int x, int l)
       /* x:    ɽ������� */
       /* l:            ɽ�������� */
{

       if (l > 0) {
               print_hex(x >> 4, l - 1);
               x &= 0x0F;
               if (x > 9)
                       x += 7;
               B_PUTC((unsigned int) '0' + x);
       }
}
#endif

#ifdef SCSI_ADHOC_BOOTPART
/*
* get partition # from partition start position
*/

#define NPART           15
#define PARTTBL_TOP     ((unsigned)4)   /* pos of part inf in 512byte-blocks */
#define MAXPART         6
const unsigned char partition_conv[MAXPART + 1] = { 0, 1, 3, 4, 5, 6, 7 };

static int
get_scsi_part(void)
{
       struct {
               u_int32_t       magic;          /* 0x5836384B ("X68K") */
               u_int32_t       parttotal;
               u_int32_t       diskblocks;
               u_int32_t       diskblocks2;    /* backup? */
               struct dos_partition parttbl[NPART];
               unsigned char   formatstr[256];
               unsigned char   rest[512];
       } partbuf;
       int i;
       u_int32_t part_top;

#ifdef BOOT_DEBUG
       B_PRINT("seclen: ");
       print_hex(SCSI_BLKLEN, 8);      /* 0: 256, 1: 512, 2: 1024 */
       B_PRINT(", topsec: ");
       print_hex(SCSI_PARTTOP, 8);     /* partition top in sector */
#endif
       /*
        * read partition table
        */
       RAW_READ0(&partbuf, PARTTBL_TOP, sizeof partbuf);

       part_top = SCSI_PARTTOP >> (2 - SCSI_BLKLEN);
       for (i = 0; i < MAXPART; i++)
               if ((u_int32_t) partbuf.parttbl[i].dp_start == part_top)
                       goto found;

       BOOT_ERROR("Can't boot from this partition");
       /* NOTREACHED */
found:
#ifdef BOOT_DEBUG
       B_PRINT("; sd");
       B_PUTC(ID + '0');       /* SCSI ID (not NetBSD unit #) */
       B_PUTC((unsigned int) partition_conv[i] + 'a');
       B_PRINT("\r\n");
#endif
       return partition_conv[i];
}
#endif  /* SCSI_ADHOC_BOOTPART */

/*
* Check the type of SCSI interface
*/
#ifdef BOOT_DEBUG
static int
get_scsi_host_adapter(devstr)
       char *devstr;
#else
static int
get_scsi_host_adapter(void)
#endif
{
       char *bootrom;
       int ha;

#ifdef BOOT_DEBUG
       B_PRINT(" at ");
       *(int *)devstr = '/' << 24 | 's' << 16 | 'p' << 8 | 'c';
       *(int *)(devstr + 4) = '@' << 24 | '0' << 16 | '/' << 8 | 's';
       *(int *)(devstr + 8) = 'd' << 24 | '@' << 16 | '0' << 8 | ',';
       *(int *)(devstr + 12) = '0' << 24 | ':' << 16 | 'a' << 8 | '\0';
#endif

       bootrom = (char *) (BOOT_INFO & 0x00ffffe0);
       /*
        * bootrom+0x24 "SCSIIN" ... Internal SCSI (spc@0)
        *              "SCSIEX" ... External SCSI (spc@1 or mha@0)
        */
       if (*(u_short *)(bootrom + 0x24 + 4) == 0x494e) {       /* "IN" */
#ifdef BOOT_DEBUG
               B_PRINT("spc0");
#endif
               ha = (X68K_BOOT_SCSIIF_SPC << 4) | 0;
       } else if (badbaddr(&IODEVbase->io_exspc.bdid)) {
#ifdef BOOT_DEBUG
               B_PRINT("mha0");
#endif
               ha = (X68K_BOOT_SCSIIF_MHA << 4) | 0;
#ifdef BOOT_DEBUG
               *(int *)devstr = '/' << 24 | 'm' << 16 | 'h' << 8 | 'a';
#endif
       } else {
#ifdef BOOT_DEBUG
               B_PRINT("spc1");
#endif
               ha = (X68K_BOOT_SCSIIF_SPC << 4) | 1;
#ifdef BOOT_DEBUG
               devstr[5] = '1';
#endif
       }

#ifdef BOOT_DEBUG
       B_PRINT("\r\n");
#endif

       return ha;
}

static int
load_file(const char *path, unsigned int addr, struct exec *header)
{

       return load_file_ino(ufs_lookup_path(path), path, addr, header);
}

static int
load_file_ino(ino32_t ino, const char *fn, unsigned int addr, struct exec *header)
       /* fn:           for message only */
{
       union ufs_dinode dinode;

       /* look-up the file */
       if (ino == 0 || ufs_get_inode(ino, &dinode)) {
               B_PRINT(fn);
               B_PRINT(": not found\r\n");
               return 0;
       }

       ufs_read(&dinode, (void *)addr, 0, sizeof(struct exec));
       memcpy(header, (void *)addr, sizeof(struct exec));

       if ((N_GETMAGIC(*header) != OMAGIC) ||
           (N_GETMID(*header) != MID_M68K)) {
               B_PRINT(fn);
               B_PRINT(": inappropriate format\r\n");
               return 0;
       }

       /* read text and data */
       ufs_read(&dinode, ((char *)addr)-sizeof(struct exec), 0,/* XXX */
                header->a_text+header->a_data);

       /* clear out bss */
       memset((char*) addr + header->a_text+header->a_data,
              0, header->a_bss);

       /* PLANNED: fallback NMAGIC loader for the kernel. */

       /* return the image size. */
       return header->a_text+header->a_data+header->a_bss;
}


void
bootufs(void)
{
       int bootdev;
#ifdef BOOT_DEBUG
       int i;
       char bootdevstr[16];
#endif
       struct exec header;
       int size;
       extern const char bootprog_name[], bootprog_rev[];

#ifdef BOOT_DEBUG
       /* for debug; �쥸�����ξ��֤�ץ��Ȥ��� */
       for (i = 0; i < 16; i++) {
               print_hex(startregs[i], 8);
               B_PRINT((i & 7) == 7 ? "\r\n" : " ");
       }
#endif

       B_PRINT(bootprog_name);
       B_PRINT(" rev.");       B_PRINT(bootprog_rev);
       B_PRINT("\r\n");

       /*
        * get boot device
        */
       if (BINF_ISFD(&BOOT_INFO)) {
               /* floppy */
#ifdef BOOT_DEBUG
               *(int *)bootdevstr = ('f' << 24 | 'd' << 16 | '@' << 8 | '0') +
                                       (BOOT_INFO & 3);
               bootdevstr[4] = '\0';
#endif
               bootdev = X68K_MAKEBOOTDEV(X68K_MAJOR_FD, BOOT_INFO & 3,
                               (FDSECMINMAX.minsec.N == 3) ? 0 : 2);
       } else {
               /* SCSI */
               int part, ha;

#ifdef SCSI_ADHOC_BOOTPART
               if (SCSI_PARTTOP == 0)
                       part = 0;
               else
                       part = get_scsi_part();
#else
               part = 0;                       /* sd?a only */
#endif
#ifndef BOOT_DEBUG
               ha = get_scsi_host_adapter();
#else
               ha = get_scsi_host_adapter(bootdevstr);
               bootdevstr[10] = '0' + (ID & 7);
               bootdevstr[14] = 'a' + part;
#endif
               bootdev = X68K_MAKESCSIBOOTDEV(X68K_MAJOR_SD, ha >> 4, ha & 15,
                                               ID & 7, 0, part);
       }
#ifdef BOOT_DEBUG
       B_PRINT("boot device: ");
       B_PRINT(bootdevstr);
#endif
       B_PRINT("\r\n");

       /* initialize filesystem code */
       if (ufs_init()) {
               BOOT_ERROR("bogus super block: "
                          "�롼�ȥե����륷���ƥब����Ƥ��ޤ���");
               /* NOTREACHED */
       }
#if defined(BOOT_DEBUG) && defined(USE_FFS) && defined(USE_LFS)
       B_PRINT("file system: ");
       B_PUTC(ufs_info.fstype == UFSTYPE_FFS ?
                       (unsigned int) 'F' : (unsigned int) 'L');
       B_PRINT("FS\r\n");
#endif

#ifdef BOOT_DEBUG
       B_PRINT("\r\nlooking up secondary boot... ");
#endif

       /*
        * Look for the 2nd stage boot.
        */

       /* Try "boot" first */
       size = load_file("boot", BOOT_TEXTADDR, &header);
#ifdef BOOT_DEBUG
       B_PRINT("done.\r\n");
#endif
       if (size > 0)
               exec_image(BOOT_TEXTADDR, /* image loaded at */
                          BOOT_TEXTADDR, /* image executed at */
                          header.a_entry, /* entry point */
                          size, /* image size */
                          bootdev, RB_SINGLE); /* arguments */

       B_PRINT("can't load the secondary bootstrap.;"
               "trying /netbsd...\r\n");

       /* fallback to /netbsd. */
       /* always fails since NMAGIC loader is not yet implemented. */

       size = load_file("netbsd", 0x6000, &header);
       if (size > 0) {
               if (*((short *)(0x6000 + header.a_entry - 2)) != 0) {
                       B_PRINT("boot interface of /netbsd is too new!\r\n");
                       goto fail;
               }
               exec_image(0x6000, /* image loaded at */
                          0,   /* image executed at */
                          header.a_entry, /* entry point */
                          size, /* image size */
                          bootdev, RB_SINGLE); /* arguments */
               /* NOTREACHED */
       }

fail:
       BOOT_ERROR("can't load the secondary bootstrap nor the kernel.");
       /* NOTREACHED */
}

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.