1/* $NetBSD: bootmain.c,v 1.9 2024/01/07 07:58:34 isaki 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/types.h> 38#include <machine/bootinfo.h> 39#include <machine/disklabel.h> 40#include <lib/libsa/stand.h> 41#include <lib/libsa/loadfile.h> 42 43#include "xxboot.h" 44#include "libx68k.h" 45#include "iocs.h" 46#include "exec_image.h" 47 48#define EXSCSI_BDID ((void *)0x00ea0001) 49 50static int get_scsi_host_adapter(char *); 51int get_scsi_part(void); 52void bootmain(void) __attribute__ ((__noreturn__)); 53 54#if defined(XXBOOT_DEBUG) 55/* Print 'x' as 'width' digit hex number */ 56void 57print_hex(unsigned int x, int width) 58{ 59 60 if (width > 0) { 61 print_hex(x >> 4, width - 1); 62 x &= 0x0F; 63 if (x > 9) 64 x += 7; 65 IOCS_B_PUTC((unsigned int) '0' + x); 66 } 67} 68#endif 69 70/* 71 * Check the type of SCSI interface 72 */ 73static int 74get_scsi_host_adapter(char *devstr) 75{ 76 uint8_t *bootrom; 77 int ha; 78 79#ifdef XXBOOT_DEBUG 80 *(uint32_t *)(devstr + 0) = '/' << 24 | 's' << 16 | 'p' << 8 | 'c'; 81#if defined(CDBOOT) 82 *(uint32_t *)(devstr + 4) = '@' << 24 | '0' << 16 | '/' << 8 | 'c'; 83#else 84 *(uint32_t *)(devstr + 4) = '@' << 24 | '0' << 16 | '/' << 8 | 's'; 85#endif 86 *(uint32_t *)(devstr + 8) = 'd' << 24 | '@' << 16 | '0' << 8 | ','; 87 *(uint32_t *)(devstr + 12) = '0' << 24 | ':' << 16 | 'a' << 8 | '\0'; 88#endif 89 90 bootrom = (uint8_t *)(BOOT_INFO & 0x00ffffe0); 91 /* 92 * bootrom+0x24 "SCSIIN" ... Internal SCSI (spc@0) 93 * "SCSIEX" ... External SCSI (spc@1 or mha@0) 94 */ 95 if (*(uint16_t *)(bootrom + 0x24 + 4) == 0x494e) { /* "IN" */ 96 ha = (X68K_BOOT_SCSIIF_SPC << 4) | 0; 97 } else if (badbaddr(EXSCSI_BDID)) { 98 ha = (X68K_BOOT_SCSIIF_MHA << 4) | 0; 99#ifdef XXBOOT_DEBUG 100 *(uint32_t *)devstr = 101 ('/' << 24) | ('m' << 16) | ('h' << 8) | 'a'; 102#endif 103 } else { 104 ha = (X68K_BOOT_SCSIIF_SPC << 4) | 1; 105#ifdef XXBOOT_DEBUG 106 devstr[5] = '1'; 107#endif 108 } 109 110 return ha; 111} 112 113#define PARTTBL_TOP (4) /* sector pos of part info in 512byte/sector */ 114#define NPART (15) /* total number of Human68k partitions */ 115#define MAXPART (6) 116int 117get_scsi_part(void) 118{ 119 union { 120 char pad[1024]; 121 struct { 122 uint32_t magic; /* 0x5836384b ("X68k") */ 123 uint32_t parttotal; /* total block# -1 */ 124 uint32_t diskblocks; 125 uint32_t diskblocks2; /* backup? */ 126 struct dos_partition parttbl[NPART]; 127 } __packed; 128 } partbuf; 129 int i; 130 int part_top; 131 132 /* 133 * Read partition table. 134 * The actual partition table size we want to read is 256 bytes but 135 * raw_read() for SCSI requires bytelen a multiple of sector size 136 * (SCSI_CAP.blocksize). Human68k supports sector size only 256, 137 * 512 and 1024 so that we always use 1024 bytes fixed length buffer. 138 */ 139 raw_read(PARTTBL_TOP, SCSI_CAP.blocksize, &partbuf); 140 141 if (partbuf.magic != 0x5836384b/*"X68k"*/) { 142 BOOT_ERROR("Bad Human68k partition table"); 143 /* NOTREACHED */ 144 } 145 146 /* 147 * SCSI_PARTTOP is top sector # of this partition in sector size 148 * of this device (normally 512 bytes/sector). 149 * part_top is top block # of this partition in 1024 bytes/block. 150 * Human68k partition table uses 1024 bytes/block unit. 151 */ 152 part_top = SCSI_PARTTOP >> (2 - SCSI_BLKLEN); 153 for (i = 0; i < MAXPART; i++) { 154 if ((uint32_t)partbuf.parttbl[i].dp_start == part_top) 155 goto found; 156 } 157 BOOT_ERROR("Can't find this partition?"); 158 /* NOTREACHED */ 159found: 160 /* bsd disklabel's c: means whole disk. Skip it */ 161 if (i >= 2) 162 i++; 163 return i; 164} 165 166void 167bootmain(void) 168{ 169 int bootdev, fd; 170 char bootdevstr[16]; 171 u_long marks[MARK_MAX]; 172 173 IOCS_B_PRINT(bootprog_name); 174 IOCS_B_PRINT(" rev."); 175 IOCS_B_PRINT(bootprog_rev); 176 IOCS_B_PRINT("\r\n"); 177 178#if defined(XXBOOT_DEBUG) 179 /* Print the initial registers */ 180 int i; 181 for (i = 0; i < __arraycount(startregs); i++) { 182 print_hex(startregs[i], 8); 183 IOCS_B_PRINT((i & 7) == 7 ? "\r\n" : " "); 184 } 185 IOCS_B_PRINT("BOOT_INFO "); 186 print_hex(BOOT_INFO, 8); 187 IOCS_B_PRINT("\r\n"); 188#endif 189 190 if (BINF_ISFD(&BOOT_INFO)) { 191 /* floppy */ 192 int minor; 193 /* fdNa for 1024 bytes/sector, fdNc for 512 bytes/sector */ 194 minor = (FDSEC.minsec.N == 3) ? 0 : 2; 195 bootdev = X68K_MAKEBOOTDEV(X68K_MAJOR_FD, BOOT_INFO & 3, minor); 196#ifdef XXBOOT_DEBUG 197 *(uint32_t *)bootdevstr = 198 ('f' << 24) | ('d' << 16) | ('@' << 8) | 199 ('0' + (BOOT_INFO & 3)); 200 bootdevstr[4] = 'a' + minor; 201 bootdevstr[5] = '\0'; 202#endif 203 } else { 204 /* SCSI */ 205 int major, ha, part; 206 ha = get_scsi_host_adapter(bootdevstr); 207 part = 0; 208#if defined(CDBOOT) 209 major = X68K_MAJOR_CD; 210#else 211 major = X68K_MAJOR_SD; 212 if (SCSI_PARTTOP != 0) 213 part = get_scsi_part(); 214#endif 215 bootdev = X68K_MAKESCSIBOOTDEV(major, ha >> 4, ha & 15, 216 SCSI_ID & 7, 0, part); 217#ifdef XXBOOT_DEBUG 218 bootdevstr[10] = '0' + (SCSI_ID & 7); 219 bootdevstr[14] = 'a' + part; 220#endif 221 } 222 223#ifdef XXBOOT_DEBUG 224 IOCS_B_PRINT("boot device: "); 225 IOCS_B_PRINT(bootdevstr); 226#endif 227 IOCS_B_PRINT("\r\n"); 228 229 marks[MARK_START] = BOOT_TEXTADDR; 230 231#if defined(XXBOOT_USTARFS) 232 /* ustarfs requires mangled filename... */ 233 fd = loadfile("USTAR.volsize.4540", marks, 234 LOAD_TEXT|LOAD_DATA|LOAD_BSS); 235#else 236 /* XXX what is x68k/boot? */ 237 fd = loadfile("x68k/boot", marks, LOAD_TEXT|LOAD_DATA|LOAD_BSS); 238 if (fd < 0) 239 fd = loadfile("boot", marks, LOAD_TEXT|LOAD_DATA|LOAD_BSS); 240#endif 241 if (fd >= 0) { 242 close(fd); 243 exec_image(BOOT_TEXTADDR, /* image loaded at */ 244 BOOT_TEXTADDR, /* image executed at */ 245 BOOT_TEXTADDR, /* XXX: entry point */ 246 0, /* XXX: image size */ 247 bootdev, 0); /* arguments */ 248 } 249 IOCS_B_PRINT("can't load the secondary bootstrap."); 250 exit(0); 251} 252 253int 254devopen(struct open_file *f, const char *fname, char **file) 255{ 256 257 *file = __UNCONST(fname); 258 return DEV_OPEN()(f); 259} 260