/*      $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 */
}