1 /* $NetBSD: bootmain.c,v 1.12 2009/03/18 10:22:38 cegger Exp $ */ 2 3 /*- 4 * Copyright (c) 1993, 1994 Takumi Nakamura. 5 * Copyright (c) 1999, 2000 Itoh Yasufumi. 6 * Copyright (c) 2001 Minoura Makoto. 7 * 8 * Redistribution and use in source and binary forms, with or without 9 * modification, are permitted provided that the following conditions 10 * are met: 11 * 1. Redistributions of source code must retain the above copyright 12 * notice, this list of conditions and the following disclaimer. 13 * 2. Redistributions in binary form must reproduce the above copyright 14 * notice, this list of conditions and the following disclaimer in the 15 * documentation and/or other materials provided with the distribution. 16 * 3. All advertising materials mentioning features or use of this software 17 * must display the following acknowledgement: 18 * This product includes software developed by Takumi Nakamura. 19 * 4. Neither the name of the University nor the names of its contributors 20 * may be used to endorse or promote products derived from this software 21 * without specific prior written permission. 22 * 23 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 24 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 25 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 26 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 27 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 28 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 29 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 30 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 31 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 32 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 33 * SUCH DAMAGE. 34 */ 35 36 #include <sys/param.h> 37 #include <sys/reboot.h> 38 #include <sys/types.h> 39 #include <sys/exec_aout.h> 40 #include <ufs/ufs/dinode.h> 41 #include <ufs/ffs/fs.h> 42 #include <ufs/ufs/dir.h> 43 #include <machine/cpu.h> 44 #include <machine/bootinfo.h> 45 #ifdef SCSI_ADHOC_BOOTPART 46 #include <machine/disklabel.h> 47 #endif 48 #include <lib/libsa/stand.h> 49 50 #include "boot_ufs.h" 51 #include "readufs.h" 52 #include "exec_image.h" 53 #include "../../x68k/iodevice.h" 54 #define IODEVbase ((volatile struct IODEVICE *)INTIOBASE) 55 56 /* for debug; ��ư���Υ쥸���������äƤ��� */ 57 unsigned int startregs[16]; 58 59 #ifdef SCSI_ADHOC_BOOTPART 60 static int get_scsi_part (void); 61 #endif 62 #ifdef BOOT_DEBUG 63 static int get_scsi_host_adapter (char *); 64 #else 65 static int get_scsi_host_adapter (void); 66 #endif 67 68 #ifdef BOOT_DEBUG 69 void print_hex (unsigned int, int); 70 #endif 71 72 static int load_file (const char*, unsigned int, struct exec *); 73 static int load_file_ino (ino32_t, const char*, unsigned int, struct exec *); 74 75 void bootufs (void) __attribute__ ((__noreturn__)); 76 77 #ifdef BOOT_DEBUG 78 void 79 print_hex(unsigned int x, int l) 80 /* x: ɽ��������� */ 81 /* l: ɽ�������� */ 82 { 83 84 if (l > 0) { 85 print_hex(x >> 4, l - 1); 86 x &= 0x0F; 87 if (x > 9) 88 x += 7; 89 B_PUTC((unsigned int) '0' + x); 90 } 91 } 92 #endif 93 94 #ifdef SCSI_ADHOC_BOOTPART 95 /* 96 * get partition # from partition start position 97 */ 98 99 #define NPART 15 100 #define PARTTBL_TOP ((unsigned)4) /* pos of part inf in 512byte-blocks */ 101 #define MAXPART 6 102 const unsigned char partition_conv[MAXPART + 1] = { 0, 1, 3, 4, 5, 6, 7 }; 103 104 static int 105 get_scsi_part(void) 106 { 107 struct { 108 u_int32_t magic; /* 0x5836384B ("X68K") */ 109 u_int32_t parttotal; 110 u_int32_t diskblocks; 111 u_int32_t diskblocks2; /* backup? */ 112 struct dos_partition parttbl[NPART]; 113 unsigned char formatstr[256]; 114 unsigned char rest[512]; 115 } partbuf; 116 int i; 117 u_int32_t part_top; 118 119 #ifdef BOOT_DEBUG 120 B_PRINT("seclen: "); 121 print_hex(SCSI_BLKLEN, 8); /* 0: 256, 1: 512, 2: 1024 */ 122 B_PRINT(", topsec: "); 123 print_hex(SCSI_PARTTOP, 8); /* partition top in sector */ 124 #endif 125 /* 126 * read partition table 127 */ 128 RAW_READ0(&partbuf, PARTTBL_TOP, sizeof partbuf); 129 130 part_top = SCSI_PARTTOP >> (2 - SCSI_BLKLEN); 131 for (i = 0; i < MAXPART; i++) 132 if ((u_int32_t) partbuf.parttbl[i].dp_start == part_top) 133 goto found; 134 135 BOOT_ERROR("Can't boot from this partition"); 136 /* NOTREACHED */ 137 found: 138 #ifdef BOOT_DEBUG 139 B_PRINT("; sd"); 140 B_PUTC(ID + '0'); /* SCSI ID (not NetBSD unit #) */ 141 B_PUTC((unsigned int) partition_conv[i] + 'a'); 142 B_PRINT("\r\n"); 143 #endif 144 return partition_conv[i]; 145 } 146 #endif /* SCSI_ADHOC_BOOTPART */ 147 148 /* 149 * Check the type of SCSI interface 150 */ 151 #ifdef BOOT_DEBUG 152 static int 153 get_scsi_host_adapter(devstr) 154 char *devstr; 155 #else 156 static int 157 get_scsi_host_adapter(void) 158 #endif 159 { 160 char *bootrom; 161 int ha; 162 163 #ifdef BOOT_DEBUG 164 B_PRINT(" at "); 165 *(int *)devstr = '/' << 24 | 's' << 16 | 'p' << 8 | 'c'; 166 *(int *)(devstr + 4) = '@' << 24 | '0' << 16 | '/' << 8 | 's'; 167 *(int *)(devstr + 8) = 'd' << 24 | '@' << 16 | '0' << 8 | ','; 168 *(int *)(devstr + 12) = '0' << 24 | ':' << 16 | 'a' << 8 | '\0'; 169 #endif 170 171 bootrom = (char *) (BOOT_INFO & 0x00ffffe0); 172 /* 173 * bootrom+0x24 "SCSIIN" ... Internal SCSI (spc@0) 174 * "SCSIEX" ... External SCSI (spc@1 or mha@0) 175 */ 176 if (*(u_short *)(bootrom + 0x24 + 4) == 0x494e) { /* "IN" */ 177 #ifdef BOOT_DEBUG 178 B_PRINT("spc0"); 179 #endif 180 ha = (X68K_BOOT_SCSIIF_SPC << 4) | 0; 181 } else if (badbaddr(&IODEVbase->io_exspc.bdid)) { 182 #ifdef BOOT_DEBUG 183 B_PRINT("mha0"); 184 #endif 185 ha = (X68K_BOOT_SCSIIF_MHA << 4) | 0; 186 #ifdef BOOT_DEBUG 187 *(int *)devstr = '/' << 24 | 'm' << 16 | 'h' << 8 | 'a'; 188 #endif 189 } else { 190 #ifdef BOOT_DEBUG 191 B_PRINT("spc1"); 192 #endif 193 ha = (X68K_BOOT_SCSIIF_SPC << 4) | 1; 194 #ifdef BOOT_DEBUG 195 devstr[5] = '1'; 196 #endif 197 } 198 199 return ha; 200 } 201 202 static int 203 load_file(const char *path, unsigned int addr, struct exec *header) 204 { 205 206 return load_file_ino(ufs_lookup_path(path), path, addr, header); 207 } 208 209 static int 210 load_file_ino(ino32_t ino, const char *fn, unsigned int addr, struct exec *header) 211 /* fn: for message only */ 212 { 213 union ufs_dinode dinode; 214 215 /* look-up the file */ 216 if (ino == 0 || ufs_get_inode(ino, &dinode)) { 217 B_PRINT(fn); 218 B_PRINT(": not found\r\n"); 219 return 0; 220 } 221 222 ufs_read(&dinode, (void *)addr, 0, sizeof(struct exec)); 223 memcpy(header, (void *)addr, sizeof(struct exec)); 224 225 if ((N_GETMAGIC(*header) != OMAGIC) || 226 (N_GETMID(*header) != MID_M68K)) { 227 B_PRINT(fn); 228 B_PRINT(": inappropriate format"); 229 return 0; 230 } 231 232 /* read text and data */ 233 ufs_read(&dinode, ((char *)addr)-sizeof(struct exec), 0,/* XXX */ 234 header->a_text+header->a_data); 235 236 /* clear out bss */ 237 memset((char*) addr + header->a_text+header->a_data, 238 0, header->a_bss); 239 240 /* PLANNED: fallback NMAGIC loader for the kernel. */ 241 242 /* return the image size. */ 243 return header->a_text+header->a_data+header->a_bss; 244 } 245 246 247 void 248 bootufs(void) 249 { 250 int bootdev; 251 #ifdef BOOT_DEBUG 252 int i; 253 char bootdevstr[16]; 254 #endif 255 struct exec header; 256 int size; 257 extern const char bootprog_name[], bootprog_rev[]; 258 259 #ifdef BOOT_DEBUG 260 /* for debug; �쥸�����ξ��֤�ץ��Ȥ��� */ 261 for (i = 0; i < 16; i++) { 262 print_hex(startregs[i], 8); 263 B_PRINT((i & 7) == 7 ? "\r\n" : " "); 264 } 265 #endif 266 267 B_PRINT(bootprog_name); 268 B_PRINT(" rev."); B_PRINT(bootprog_rev); 269 B_PRINT("\r\n"); 270 271 /* 272 * get boot device 273 */ 274 if (BINF_ISFD(&BOOT_INFO)) { 275 /* floppy */ 276 #ifdef BOOT_DEBUG 277 *(int *)bootdevstr = ('f' << 24 | 'd' << 16 | '@' << 8 | '0') + 278 (BOOT_INFO & 3); 279 bootdevstr[4] = '\0'; 280 #endif 281 bootdev = X68K_MAKEBOOTDEV(X68K_MAJOR_FD, BOOT_INFO & 3, 282 (FDSECMINMAX.minsec.N == 3) ? 0 : 2); 283 } else { 284 /* SCSI */ 285 int part, ha; 286 287 #ifdef SCSI_ADHOC_BOOTPART 288 if (SCSI_PARTTOP == 0) 289 part = 0; 290 else 291 part = get_scsi_part(); 292 #else 293 part = 0; /* sd?a only */ 294 #endif 295 #ifndef BOOT_DEBUG 296 ha = get_scsi_host_adapter(); 297 #else 298 ha = get_scsi_host_adapter(bootdevstr); 299 bootdevstr[10] = '0' + (ID & 7); 300 bootdevstr[14] = 'a' + part; 301 #endif 302 bootdev = X68K_MAKESCSIBOOTDEV(X68K_MAJOR_SD, ha >> 4, ha & 15, 303 ID & 7, 0, part); 304 } 305 #ifdef BOOT_DEBUG 306 B_PRINT("boot device: "); 307 B_PRINT(bootdevstr); 308 #endif 309 B_PRINT("\r\n"); 310 311 /* initialize filesystem code */ 312 if (ufs_init()) { 313 BOOT_ERROR("bogus super block: " 314 "�롼�ȥե����륷���ƥब����Ƥ��ޤ���"); 315 /* NOTREACHED */ 316 } 317 #if defined(BOOT_DEBUG) && defined(USE_FFS) && defined(USE_LFS) 318 B_PRINT("file system: "); 319 B_PUTC(ufs_info.fstype == UFSTYPE_FFS ? 320 (unsigned int) 'F' : (unsigned int) 'L'); 321 B_PRINT("FS\r\n"); 322 #endif 323 324 #ifdef BOOT_DEBUG 325 B_PRINT("\r\nlooking up secondary boot... "); 326 #endif 327 328 /* 329 * Look for the 2nd stage boot. 330 */ 331 332 /* Try "boot" first */ 333 size = load_file("boot", BOOT_TEXTADDR, &header); 334 #ifdef BOOT_DEBUG 335 B_PRINT("done.\r\n"); 336 #endif 337 if (size > 0) 338 exec_image(BOOT_TEXTADDR, /* image loaded at */ 339 BOOT_TEXTADDR, /* image executed at */ 340 header.a_entry, /* entry point */ 341 size, /* image size */ 342 bootdev, RB_SINGLE); /* arguments */ 343 344 B_PRINT("can't load the secondary bootstrap.;" 345 "trying /netbsd...\r\n"); 346 347 /* fallback to /netbsd. */ 348 /* always fails since NMAGIC loader is not yet implemented. */ 349 350 size = load_file("netbsd", 0x6000, &header); 351 if (size > 0) { 352 if (*((short *)(0x6000 + header.a_entry - 2)) != 0) { 353 B_PRINT("boot interface of /netbsd is too new!\r\n"); 354 goto fail; 355 } 356 exec_image(0x6000, /* image loaded at */ 357 0, /* image executed at */ 358 header.a_entry, /* entry point */ 359 size, /* image size */ 360 bootdev, RB_SINGLE); /* arguments */ 361 /* NOTREACHED */ 362 } 363 364 fail: 365 BOOT_ERROR("can't load the secondary bootstrap nor the kernel."); 366 /* NOTREACHED */ 367 } 368