/*      $NetBSD: boot.c,v 1.21 2018/10/14 00:10:11 tsutsui Exp $        */

/*-
* Copyright (C) 1999 Tsubai Masanari.  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.
* 3. The name of the author may not be used to endorse or promote products
*    derived from this software without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``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 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 <lib/libkern/libkern.h>
#include <lib/libsa/stand.h>
#include <lib/libsa/loadfile.h>

#include <machine/apcall.h>
#include <machine/bootinfo.h>
#include <machine/cpu.h>
#include <machine/romcall.h>

void boot(uint32_t, uint32_t, uint32_t, uint32_t, uint32_t, uint32_t);

void mips1_flushicache(void *, int);
extern char _edata[], _end[];

/* version strings in vers.c (generated by newvers.sh) */
extern const char bootprog_name[];
extern const char bootprog_rev[];

struct apbus_sysinfo *_sip;
int apbus;

char *devs[] = { "sd", "fh", "fd", NULL, NULL, "rd", "st" };
char *kernels[] = { "/netbsd", "/netbsd.gz", NULL };

#ifdef BOOT_DEBUG
# define DPRINTF printf
#else
# define DPRINTF while (0) printf
#endif

void
boot(uint32_t a0, uint32_t a1, uint32_t a2, uint32_t a3, uint32_t a4,
   uint32_t a5)
{
       int fd, i;
       char *netbsd = "";
       int maxmem;
       u_long marks[MARK_MAX];
       char devname[32], file[32];
       void (*entry)(uint32_t, uint32_t, uint32_t, uint32_t, uint32_t,
           uint32_t);
       struct btinfo_symtab bi_sym;
       struct btinfo_bootarg bi_arg;
       struct btinfo_bootpath bi_bpath;
       struct btinfo_systype bi_sys;
       int loadflag;

       /* Clear BSS. */
       memset(_edata, 0, _end - _edata);

       /*
        * XXX a3 contains:
        *     maxmem (nws-3xxx)
        *     argv   (apbus-based machine)
        */
       if (a3 >= 0x80000000)
               apbus = 1;
       else
               apbus = 0;

       if (apbus)
               _sip = (void *)a4;

       printf("%s Secondary Boot, Revision %s\n",
           bootprog_name, bootprog_rev);

       if (apbus) {
               char *bootdev = (char *)a1;
               int argc = a2;
               char **argv = (char **)a3;

               DPRINTF("APbus-based system\n");

               DPRINTF("argc = %d\n", argc);
               for (i = 0; i < argc; i++) {
                       DPRINTF("argv[%d] = %s\n", i, argv[i]);
                       if (argv[i][0] != '-' && *netbsd == 0)
                               netbsd = argv[i];
               }
               maxmem = _sip->apbsi_memsize;
               maxmem -= 0x100000;     /* reserve 1MB for ROM monitor */

               DPRINTF("howto = 0x%x\n", a0);
               DPRINTF("bootdev = %s\n", (char *)a1);
               DPRINTF("bootname = %s\n", netbsd);
               DPRINTF("maxmem = 0x%x\n", maxmem);

               /* XXX use "sonic()" instead of "tftp()" */
               if (strncmp(bootdev, "tftp", 4) == 0)
                       bootdev = "sonic";

               strcpy(devname, bootdev);
               if (strchr(devname, '(') == NULL)
                       strcat(devname, "()");
       } else {
               int bootdev = a1;
               char *bootname = (char *)a2;
               int ctlr, unit, part, type;

               DPRINTF("HB system.\n");

               /* bootname is "/boot" by default on HB system. */
               if (bootname && strcmp(bootname, "/boot") != 0)
                       netbsd = bootname;
               maxmem = a3;

               DPRINTF("howto = 0x%x\n", a0);
               DPRINTF("bootdev = 0x%x\n", a1);
               DPRINTF("bootname = %s\n", netbsd);
               DPRINTF("maxmem = 0x%x\n", maxmem);

               ctlr = BOOTDEV_CTLR(bootdev);
               unit = BOOTDEV_UNIT(bootdev);
               part = BOOTDEV_PART(bootdev);
               type = BOOTDEV_TYPE(bootdev);

               if (devs[type] == NULL) {
                       printf("unknown bootdev (0x%x)\n", bootdev);
                       _rtt();
               }

               snprintf(devname, sizeof(devname), "%s(%d,%d,%d)",
                   devs[type], ctlr, unit, part);
       }

       printf("Booting %s%s\n", devname, netbsd);

       /* use user specified kernel name if exists */
       if (*netbsd) {
               kernels[0] = netbsd;
               kernels[1] = NULL;
       }

       loadflag = LOAD_KERNEL;
       if (devname[0] == 'f')  /* XXX */
               loadflag &= ~LOAD_BACKWARDS;

       marks[MARK_START] = 0;

       for (i = 0; kernels[i]; i++) {
               snprintf(file, sizeof(file), "%s%s", devname, kernels[i]);
               DPRINTF("trying %s...\n", file);
               fd = loadfile(file, marks, loadflag);
               if (fd != -1)
                       break;
       }
       if (kernels[i] == NULL)
               _rtt();

       DPRINTF("entry = 0x%x\n", (int)marks[MARK_ENTRY]);
       DPRINTF("ssym = 0x%x\n", (int)marks[MARK_SYM]);
       DPRINTF("esym = 0x%x\n", (int)marks[MARK_END]);

       bi_init(BOOTINFO_ADDR);

       bi_sym.nsym = marks[MARK_NSYM];
       bi_sym.ssym = marks[MARK_SYM];
       bi_sym.esym = marks[MARK_END];
       bi_add(&bi_sym, BTINFO_SYMTAB, sizeof(bi_sym));

       bi_arg.howto = a0;
       bi_arg.bootdev = a1;
       bi_arg.maxmem = maxmem;
       bi_arg.sip = (int)_sip;
       bi_add(&bi_arg, BTINFO_BOOTARG, sizeof(bi_arg));

       strcpy(bi_bpath.bootpath, file);
       bi_add(&bi_bpath, BTINFO_BOOTPATH, sizeof(bi_bpath));

       if (apbus) {
               char *machine = (char *)apcall_getenv("machine");

               bi_sys.type = NEWS5000;
               if (machine != NULL && (strncmp(machine, "news4000", 8) == 0))
                       bi_sys.type = NEWS4000;
       } else {
               bi_sys.type = NEWS3400;
       }
       bi_add(&bi_sys, BTINFO_SYSTYPE, sizeof(bi_sys));

       entry = (void *)marks[MARK_ENTRY];

       if (apbus)
               apcall_flushcache();
       else
               mips1_flushicache(entry, marks[MARK_SYM] - marks[MARK_ENTRY]);

       printf("\n");
       (*entry)(a0, a1, a2, a3, a4, a5);
}

void
putchar(int x)
{
       char c = x;

       if (apbus)
               apcall_write(1, &c, 1);
       else
               rom_write(1, &c, 1);
}

int
getchar(void)
{
       unsigned char c = '\0';
       int i;

       for (;;) {
               i = apbus ? apcall_read(1, &c, 1) : rom_read(1, &c, 1);
               if (i == 1)
                       break;
               if (i != -2 && i != 0)
                       return -1;
       }
       return c;
}

void
_rtt(void)
{
       if (apbus)
               apcall_exit(8);
       else
               rom_halt();

       for (;;);
}

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.