Home | History | Annotate | Line # | Download | only in boot
boot.c revision 1.15 
      1 /*	$NetBSD: boot.c,v 1.15 2010/08/25 16:37:02 christos Exp $	*/
      2 
      3 /*
      4  * Copyright (c) 2001 Minoura Makoto
      5  * All rights reserved.
      6  *
      7  * Redistribution and use in source and binary forms, with or without
      8  * modification, are permitted provided that the following conditions
      9  * are met:
     10  * 1. Redistributions of source code must retain the above copyright
     11  *    notice, this list of conditions and the following disclaimer.
     12  * 2. Redistributions in binary form must reproduce the above copyright
     13  *    notice, this list of conditions and the following disclaimer in the
     14  *    documentation and/or other materials provided with the distribution.
     15  *
     16  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
     17  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     18  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     19  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
     20  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     21  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     22  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     23  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     24  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     25  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     26  * SUCH DAMAGE.
     27  */
     28 
     29 #include <sys/param.h>
     30 #include <machine/bootinfo.h>
     31 
     32 #include <lib/libsa/stand.h>
     33 #include <lib/libsa/loadfile.h>
     34 #include <lib/libsa/ufs.h>
     35 #include <lib/libkern/libkern.h>
     36 
     37 #include "libx68k.h"
     38 #include "iocs.h"
     39 
     40 #include "exec_image.h"
     41 
     42 
     43 #define HEAP_START	((void*) 0x00080000)
     44 #define HEAP_END	((void*) 0x000fffff)
     45 #define EXSCSI_BDID	((void*) 0x00ea0001)
     46 #define SRAM_MEMSIZE	(*((long*) 0x00ed0008))
     47 
     48 char default_kernel[20] = "sd0a:netbsd";
     49 int mpu, hostadaptor;
     50 int console_device = -1;
     51 
     52 static void help(void);
     53 static int get_scsi_host_adapter(void);
     54 static void doboot(const char *, int);
     55 static void boot(char *);
     56 static void ls(char *);
     57 int bootmenu(void);
     58 void bootmain(int);
     59 extern int detectmpu(void);
     60 extern int badbaddr(void *);
     61 
     62 /* from boot_ufs/bootmain.c */
     63 static int
     64 get_scsi_host_adapter(void)
     65 {
     66 	char *bootrom;
     67 	int ha;
     68 
     69 	bootrom = (char *) (IOCS_BOOTINF() & 0x00ffffe0);
     70 	/*
     71 	 * bootrom+0x24	"SCSIIN" ... Internal SCSI (spc@0)
     72 	 *		"SCSIEX" ... External SCSI (spc@1 or mha@0)
     73 	 */
     74 	if (*(u_short *)(bootrom + 0x24 + 4) == 0x494e) {	/* "IN" */
     75 		ha = (X68K_BOOT_SCSIIF_SPC << 4) | 0;
     76 	} else if (badbaddr(EXSCSI_BDID)) {
     77 		ha = (X68K_BOOT_SCSIIF_MHA << 4) | 0;
     78 	} else {
     79 		ha = (X68K_BOOT_SCSIIF_SPC << 4) | 1;
     80 	}
     81 
     82 	return ha;
     83 }
     84 
     85 
     86 static void
     87 help(void)
     88 {
     89 	printf("Usage:\n");
     90 	printf("boot [dev:][file] -[flags]\n");
     91 	printf(" dev:   sd<ID><PART>, ID=0-7, PART=a-p\n");
     92 	printf("        cd<ID>a, ID=0-7\n");
     93 	printf("        fd<UNIT>a, UNIT=0-3, format is detected.\n");
     94 	printf(" file:  netbsd, netbsd.gz, etc.\n");
     95 	printf(" flags: abdqsv\n");
     96 	printf("ls [dev:][directory]\n");
     97 	printf("halt\nreboot\n");
     98 }
     99 
    100 static void
    101 doboot(const char *file, int flags)
    102 {
    103 	u_long		marks[MARK_MAX];
    104 	int fd;
    105 	int dev, unit, part;
    106 	char *name;
    107 	short *p;
    108 	int loadflag;
    109 
    110 	printf("Starting %s, flags 0x%x\n", file, flags);
    111 
    112 	loadflag = LOAD_KERNEL;
    113 	if (file[0] == 'f')
    114 		loadflag &= ~LOAD_BACKWARDS;
    115 
    116 	marks[MARK_START] = 0x100000;
    117 	if ((fd = loadfile(file, marks, loadflag)) == -1) {
    118 		printf("loadfile failed\n");
    119 		return;
    120 	}
    121 	close(fd);
    122 
    123 	if (devparse(file, &dev, &unit, &part, &name) != 0) {
    124 		printf("XXX: unknown corruption in /boot.\n");
    125 	}
    126 
    127 	printf("dev = %x, unit = %d, part = %c, name = %s\n",
    128 	       dev, unit, part + 'a', name);
    129 
    130 	if (dev == 0) {		/* SCSI */
    131 		dev = X68K_MAKESCSIBOOTDEV(X68K_MAJOR_SD,
    132 					   hostadaptor >> 4,
    133 					   hostadaptor & 15,
    134 					   unit & 7, 0, 0);
    135 	} else {
    136 		dev = X68K_MAKEBOOTDEV(X68K_MAJOR_FD, unit & 3, 0);
    137 	}
    138 	printf("boot device = %x\n", dev);
    139 	printf("if = %d, unit = %d, id = %d, lun = %d, part = %c\n",
    140 	       B_X68K_SCSI_IF(dev),
    141 	       B_X68K_SCSI_IF_UN(dev),
    142 	       B_X68K_SCSI_ID(dev),
    143 	       B_X68K_SCSI_LUN(dev),
    144 	       B_X68K_SCSI_PART(dev) + 'a');
    145 
    146 	p = ((short*) marks[MARK_ENTRY]) - 1;
    147 	printf("Kernel Version: 0x%x\n", *p);
    148 	if (*p != 0x4e73 && *p != 0) {
    149 		/*
    150 		 * XXX temporary solution; compatibility loader
    151 		 * must be written.
    152 		 */
    153 		printf("This kernel is too new to be loaded by "
    154 		       "this version of /boot.\n");
    155 		return;
    156 	}
    157 
    158 	exec_image(marks[MARK_START], 0, marks[MARK_ENTRY]-marks[MARK_START],
    159 		   marks[MARK_END]-marks[MARK_START], dev, flags);
    160 
    161 	return;
    162 }
    163 
    164 static void
    165 boot(char *arg)
    166 {
    167 	char filename[80];
    168 	char *p;
    169 	int flags = 0;
    170 
    171 	if (*arg == 0 || *arg == '-') {
    172 		strcpy(filename, default_kernel);
    173 		if (*arg == '-')
    174 			if (parseopts(arg, &flags) == 0) {
    175 				help();
    176 				return;
    177 			}
    178 		doboot(filename, flags);
    179 		return;
    180 	} else {
    181 		p = gettrailer(arg);
    182 		if (strchr(arg, ':')) {
    183 			strcpy(filename, arg);
    184 			if (arg[strlen(arg) - 1] == ':')
    185 				strcat(filename, "netbsd");
    186 		} else {
    187 			strcpy(filename, default_kernel);
    188 			strcpy(strchr(filename, ':') + 1, arg);
    189 		}
    190 		if (*p == '-') {
    191 			if (parseopts(p, &flags) == 0)
    192 				return;
    193 		} else if (*p != 0) {
    194 			help();
    195 			return;
    196 		}
    197 
    198 		doboot(filename, flags);
    199 		return;
    200 	}
    201 }
    202 
    203 static void
    204 ls(char *arg)
    205 {
    206 	char filename[80];
    207 
    208 	devopen_open_dir = 1;
    209 	if (*arg == 0) {
    210 		strcpy(filename, default_kernel);
    211 		strcpy(strchr(filename, ':')+1, "/");
    212 	} else if (strchr(arg, ':') == 0) {
    213 		strcpy(filename, default_kernel);
    214 		strcpy(strchr(filename, ':')+1, arg);
    215 	} else {
    216 		strcpy(filename, arg);
    217 		if (*(strchr(arg, ':')+1) == 0)
    218 			strcat(filename, "/");
    219 	}
    220 	ufs_ls(filename);
    221 	devopen_open_dir = 0;
    222 }
    223 
    224 int
    225 bootmenu(void)
    226 {
    227 	char input[80];
    228 	int n = 5, c;
    229 
    230 	printf("Press return to boot now, any other key for boot menu\n");
    231 	printf("booting %s - starting in %d seconds. ",
    232 		default_kernel, n);
    233 	while (n-- > 0 && (c = awaitkey_1sec()) == 0) {
    234 		printf("\r");
    235 		printf("booting %s - starting in %d seconds. ",
    236 		       default_kernel, n);
    237 	}
    238 	printf("\r");
    239 	printf("booting %s - starting in %d seconds. ", default_kernel, 0);
    240 	printf("\n");
    241 
    242 	if (c == 0 || c == '\r') {
    243 		doboot(default_kernel, 0);
    244 		printf("Could not start %s; ", default_kernel);
    245 		strcat(default_kernel, ".gz");
    246 		printf("trying %s.\n", default_kernel);
    247 		doboot(default_kernel, 0);
    248 		printf("Could not start %s; ", default_kernel);
    249 	}
    250 
    251 	printf("Please use the absolute unit# (e.g. SCSI ID)"
    252 	       " instead of the NetBSD logical #.\n");
    253 	for (;;) {
    254 		char *p, *options;
    255 
    256 		printf("> ");
    257 		gets(input);
    258 
    259 		for (p = &input[0]; p - &input[0] < 80 && *p == ' '; p++);
    260 		options = gettrailer(p);
    261 		if (strcmp("boot", p) == 0)
    262 			boot(options);
    263 		else if (strcmp("help", p) == 0 ||
    264 			 strcmp("?", p) == 0)
    265 			help();
    266 		else if ((strcmp("halt", p) == 0) ||(strcmp("reboot", p) == 0))
    267 			exit(0);
    268 		else if (strcmp("ls", p) == 0)
    269 			ls(options);
    270 		else
    271 			printf("Unknown command %s\n", p);
    272 	}
    273 }
    274 
    275 
    276 extern const char bootprog_rev[];
    277 extern const char bootprog_name[];
    278 extern const char bootprog_date[];
    279 extern const char bootprog_maker[];
    280 
    281 /*
    282  * Arguments from the boot block:
    283  *   bootdev - specifies the device from which /boot was read, in
    284  *		bootdev format.
    285  */
    286 void
    287 bootmain(int bootdev)
    288 {
    289 	hostadaptor = get_scsi_host_adapter();
    290 	mpu = detectmpu();
    291 
    292 	if (mpu < 3) {		/* not tested on 68020 */
    293 		printf("This MPU cannot run NetBSD.\n");
    294 		exit(1);
    295 	}
    296 	if (SRAM_MEMSIZE < 4*1024*1024) {
    297 		printf("Main memory too small.\n");
    298 		exit(1);
    299 	}
    300 
    301 	console_device = consio_init(console_device);
    302 	setheap(HEAP_START, HEAP_END);
    303 
    304 	switch (B_TYPE(bootdev)) {
    305 	case X68K_MAJOR_FD:
    306 		default_kernel[0] = 'f';
    307 		default_kernel[2] = '0' + B_UNIT(bootdev);
    308 		default_kernel[3] = 'a';
    309 		break;
    310 	case X68K_MAJOR_SD:
    311 		default_kernel[2] = '0' + B_X68K_SCSI_ID(bootdev);
    312 		default_kernel[3] =
    313 			'a' + sd_getbsdpartition(B_X68K_SCSI_ID(bootdev),
    314 						 B_X68K_SCSI_PART(bootdev));
    315 		break;
    316 	case X68K_MAJOR_CD:
    317 		default_kernel[0] = 'c';
    318 		default_kernel[2] = '0' + B_X68K_SCSI_ID(bootdev);
    319 		default_kernel[3] = 'a';
    320 		break;
    321 	default:
    322 		printf("Warning: unknown boot device: %x\n", bootdev);
    323 	}
    324 	print_title("%s, Revision %s\n\t(%s, %s)",
    325 		    bootprog_name, bootprog_rev,
    326 		    bootprog_maker, bootprog_date);
    327 	bootmenu();
    328 }
    329