* Copyright (c) 1992 OMRON Corporation.

/* $NetBSD: init_main.c,v 1.17 2024/09/24 11:17:54 rin Exp $ */

/*
* Copyright (c) 1992 OMRON Corporation.
*
* This code is derived from software contributed to Berkeley by
* OMRON Corporation.
*
* 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 the University of
* California, Berkeley and its contributors.
* 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.
*
* @(#)init_main.c 8.2 (Berkeley) 8/15/93
*/
/*
* Copyright (c) 1992, 1993
* The Regents of the University of California. All rights reserved.
*
* This code is derived from software contributed to Berkeley by
* OMRON Corporation.
*
* 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.
*
* @(#)init_main.c 8.2 (Berkeley) 8/15/93
*/

#include <sys/param.h>
#include <sys/boot_flag.h>
#include <machine/cpu.h>
#include <luna68k/stand/boot/samachdep.h>
#include <luna68k/stand/boot/romvec.h>
#include <luna68k/stand/boot/status.h>
#include <lib/libsa/loadfile.h>
#ifdef SUPPORT_ETHERNET
#include <lib/libsa/dev_net.h>
#endif

static int get_plane_numbers(void);
static int reorder_dipsw(int);

int cpuspeed; /* for DELAY() macro */
int hz = 60;
int machtype;
char default_file[64];
const char *default_bootdev;
int default_unit;

#define VERS_LOCAL "Phase-31"

int nplane;

/* for command parser */

#define BUFFSIZE 100
#define MAXARGS 30

char buffer[BUFFSIZE];

int argc;
char *argv[MAXARGS];

#define BOOT_TIMEOUT 10
int boot_timeout = BOOT_TIMEOUT;

static const char prompt[] = "boot> ";

/*
* PROM monitor's boot device info
*/

/* LUNA-I monitor's bootinfo structure */
/* This bootinfo data address is investigated on ROM Ver4.22 and Ver4.25 */
#define LUNA1_BOOTINFOADDR 0x000008c0
struct luna1_bootinfo {
uint8_t bi_xxx1[3]; /* 0x08c0: ??? */
uint8_t bi_device; /* 0x08c3: boot device */
#define LUNA1_BTDEV_DK 0 /* Hard-Disk */
#define LUNA1_BTDEV_FB 1 /* Floppy-Disk */
#define LUNA1_BTDEV_SD 2 /* Streamer-Tape */
#define LUNA1_BTDEV_P0 3 /* RS232c */
#define LUNA1_BTDEV_ET 4 /* Ether-net */
#define LUNA1_NBTDEV 5

struct {
uint8_t bd_xxx1; /* 0: ??? */
uint8_t bd_boot; /* 1: 1 == booted */
char bd_name[2]; /* 2: device name (dk, fb, sd ... ) */
uint8_t bd_drv; /* 4: drive number (not ID) */
uint8_t bd_xxx2; /* 5: ??? */
uint8_t bd_xxx3; /* 6: ??? */
uint8_t bd_part; /* 7: dk partition / st record # */
uint8_t bd_xxx4[4]; /* 8: ??? */
uint8_t bd_xxx5[4]; /* 12: ??? */
} bi_devinfo[LUNA1_NBTDEV];
} __packed;

/* LUNA-II monitor's bootinfo structure */
/* This bootinfo data address is investigated on ROM Version 1.11 */
#define LUNA2_BOOTINFOADDR 0x00001d80
struct luna2_bootinfo {
uint8_t bi_xxx1[13]; /* 0x1d80: ??? */
uint8_t bi_device; /* 0x1d8d: boot device */
#define LUNA2_BTDEV_DK 0 /* Hard-Disk */
#define LUNA2_BTDEV_FT 1 /* Floppy-Disk */
#define LUNA2_BTDEV_SD 2 /* Streamer-Tape */
#define LUNA2_BTDEV_P0 3 /* RS232c */
#define LUNA2_NBTDEV 4

struct {
uint8_t bd_xxx1; /* 0: ??? */
uint8_t bd_boot; /* 1: 1 == booted */
char bd_name[4]; /* 2: device name (dk, ft, sd ... ) */
uint8_t bd_xxx2; /* 6: ??? */
uint8_t bd_ctlr; /* 7: SCSI controller number */
uint8_t bd_id; /* 8: SCSI ID number */
uint8_t bd_xxx3; /* 9: device number index? */
uint8_t bd_xxx4; /* 10: ??? */
uint8_t bd_part; /* 11: dk partition / st record # */
uint8_t bd_xxx5[4]; /* 12: ??? */
uint8_t bd_xxx6[4]; /* 16: ??? */
} bi_devinfo[LUNA2_NBTDEV];
} __packed;

/* #define BTINFO_DEBUG */

void
main(void)
{
int i, status = ST_NORMAL;
const char *machstr;
const char *bootdev;
uint32_t howto;
int unit, part;
int bdev, ctlr, id;

/*
* Initialize the console before we print anything out.
*/
if (cputype == CPU_68030) {
machtype = LUNA_I;
machstr = "LUNA-I";
cpuspeed = MHZ_25;
hz = 60;
} else {
machtype = LUNA_II;
machstr = "LUNA-II";
cpuspeed = MHZ_25 * 2; /* XXX */
hz = 100;
}

nplane = get_plane_numbers();

cninit();

printf("\n");
printf(">> %s, Revision %s\n", bootprog_name, bootprog_rev);
printf(">> (based on Stinger ver 0.0 [%s])\n", VERS_LOCAL);
printf("\n");

i = ROM_memsize;
printf("Machine model = %s\n", machstr);
printf("Physical Memory = 0x%x ", i);
i >>= 20;
printf("(%d MB)\n", i);
printf("\n");

/*
* IO configuration
*/

#ifdef SUPPORT_ETHERNET
try_bootp = 1;
#endif

find_devs();
printf("\n");

/* use sd(0,0) for the default boot device */
bootdev = "sd";
unit = 0;
part = 0;

/*
* - LUNA1_BOOTINFOADDR is in the 0-th page [0, 0x1000), which causes
* -Warray-bounds for GCC12 and later.
* - LUNA2_BOOTINFOADDR is also in the 0-th page, if we switch to
* 8KB page.
*/
#pragma GCC diagnostic push
#pragma GCC diagnostic ignored "-Warray-bounds"

if (machtype == LUNA_I) {
const struct luna1_bootinfo *bi1 = (void *)LUNA1_BOOTINFOADDR;

bdev = bi1->bi_device;
switch (bdev) {
case LUNA1_BTDEV_DK:
/* note: bd_drv is not SCSI ID */
ctlr = 0;
id = 6 - bi1->bi_devinfo[bdev].bd_drv;
unit = UNIT(ctlr, id);
break;
case LUNA1_BTDEV_ET:
bootdev = "le";
unit = 0;
break;
default:
/* not supported */
break;
}
#ifdef BTINFO_DEBUG
printf("bi1->bi_device = 0x%02x\n", bi1->bi_device);
printf("bi1->bi_devinfo[bdev].bd_boot = 0x%02x\n",
bi1->bi_devinfo[bdev].bd_boot);
printf("bi1->bi_devinfo[bdev].bd_name = %c%c\n",
bi1->bi_devinfo[bdev].bd_name[0],
bi1->bi_devinfo[bdev].bd_name[1]);
printf("bi1->bi_devinfo[bdev].bd_drv = 0x%02x\n",
bi1->bi_devinfo[bdev].bd_drv);
printf("bi1->bi_devinfo[bdev].bd_part = 0x%02x\n",
bi1->bi_devinfo[bdev].bd_part);
#endif
} else {
const struct luna2_bootinfo *bi2 = (void *)LUNA2_BOOTINFOADDR;

bdev = bi2->bi_device;
switch (bdev) {
case LUNA2_BTDEV_DK:
ctlr = bi2->bi_devinfo[bdev].bd_ctlr;
id = bi2->bi_devinfo[bdev].bd_id;
unit = UNIT(ctlr, id);
break;
default:
/* not supported */
break;
}
#ifdef BTINFO_DEBUG
printf("bi2->bi_device = 0x%02x\n", bi2->bi_device);
printf("bi2->bi_devinfo[bdev].bd_boot = 0x%02x\n",
bi2->bi_devinfo[bdev].bd_boot);
printf("bi2->bi_devinfo[bdev].bd_name = %s\n",
bi2->bi_devinfo[bdev].bd_name);
printf("bi2->bi_devinfo[bdev].bd_ctlr = 0x%02x\n",
bi2->bi_devinfo[bdev].bd_ctlr);
printf("bi2->bi_devinfo[bdev].bd_id = 0x%02x\n",
bi2->bi_devinfo[bdev].bd_id);
printf("bi2->bi_devinfo[bdev].bd_part = 0x%02x\n",
bi2->bi_devinfo[bdev].bd_part);
#endif
}

#pragma GCC diagnostic pop

snprintf(default_file, sizeof(default_file),
"%s(%d,%d)%s", bootdev, unit, part, "netbsd");
default_bootdev = bootdev;
default_unit = unit;

howto = reorder_dipsw(dipsw2);

if ((howto & 0xFE) == 0) {
char c;

printf("Press return to boot now,"
" any other key for boot menu\n");
printf("booting %s - starting in ", default_file);
c = awaitkey("%d seconds. ", boot_timeout, true);
if (c == '\r' || c == '\n' || c == 0) {
printf("auto-boot %s\n", default_file);
bootnetbsd(default_file, 0);
}
}

/*
* Main Loop
*/

printf("type \"help\" for help.\n");

do {
memset(buffer, 0, BUFFSIZE);
if (getline(prompt, buffer) > 0) {
argc = getargs(buffer, argv,
sizeof(argv) / sizeof(char *));

status = parse(argc, argv);
if (status == ST_NOTFOUND)
printf("Command \"%s\" is not found !!\n",
argv[0]);
}
} while (status != ST_EXIT);

exit(0);
}

static int
get_plane_numbers(void)
{
int r = ROM_plane;
int n = 0;

for (; r ; r >>= 1)
if (r & 0x1)
n++;

return n;
}

static int
reorder_dipsw(int dipsw)
{
int i, sw = 0;

for (i = 0; i < 8; i++) {
if ((dipsw & 0x01) == 0)
sw += 1;

if (i == 7)
break;

sw <<= 1;
dipsw >>= 1;
}

return sw;
}