bootxx.c revision 1.17
1 /* $NetBSD: bootxx.c,v 1.17 2003/08/07 16:30:06 agc Exp $ */ 2 /*- 3 * Copyright (c) 1982, 1986 The Regents of the University of California. 4 * All rights reserved. 5 * 6 * Redistribution and use in source and binary forms, with or without 7 * modification, are permitted provided that the following conditions 8 * are met: 9 * 1. Redistributions of source code must retain the above copyright 10 * notice, this list of conditions and the following disclaimer. 11 * 2. Redistributions in binary form must reproduce the above copyright 12 * notice, this list of conditions and the following disclaimer in the 13 * documentation and/or other materials provided with the distribution. 14 * 3. Neither the name of the University nor the names of its contributors 15 * may be used to endorse or promote products derived from this software 16 * without specific prior written permission. 17 * 18 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 19 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 20 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 21 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 22 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 23 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 24 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 25 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 26 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 27 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 28 * SUCH DAMAGE. 29 * 30 * @(#)boot.c 7.15 (Berkeley) 5/4/91 31 */ 32 33 #include "sys/param.h" 34 #include "sys/reboot.h" 35 #include "sys/disklabel.h" 36 #include "sys/exec.h" 37 #include "sys/exec_elf.h" 38 39 #include "lib/libsa/stand.h" 40 #include "lib/libsa/ufs.h" 41 #include "lib/libsa/cd9660.h" 42 #include "lib/libsa/ustarfs.h" 43 44 #include "lib/libkern/libkern.h" 45 46 #include "machine/pte.h" 47 #include "machine/sid.h" 48 #include "machine/mtpr.h" 49 #include "machine/reg.h" 50 #include "machine/rpb.h" 51 #include "../vax/gencons.h" 52 53 #include "../mba/mbareg.h" 54 #include "../mba/hpreg.h" 55 56 #define NRSP 1 /* Kludge */ 57 #define NCMD 1 /* Kludge */ 58 59 #include "dev/mscp/mscp.h" 60 #include "dev/mscp/mscpreg.h" 61 62 #include "../boot/data.h" 63 64 #define RF_PROTECTED_SECTORS 64 /* XXX refer to <.../rf_optnames.h> */ 65 66 void Xmain(void); 67 void hoppabort(int); 68 void romread_uvax(int lbn, int size, void *buf, struct rpb *rpb); 69 void hpread(int block); 70 int read750(int block, int *regs); 71 int unit_init(int, struct rpb *, int); 72 73 struct open_file file; 74 75 unsigned *bootregs; 76 struct rpb *rpb; 77 struct bqo *bqo; 78 int vax_cputype; 79 int vax_load_failure; 80 struct udadevice {u_short udaip;u_short udasa;}; 81 volatile struct udadevice *csr; 82 static int moved; 83 84 extern int from; 85 #define FROM750 1 86 #define FROMMV 2 87 #define FROMVMB 4 88 89 /* 90 * The boot block are used by 11/750, 8200, MicroVAX II/III, VS2000, 91 * VS3100/??, VS4000 and VAX6000/???, and only when booting from disk. 92 */ 93 void 94 Xmain() 95 { 96 union { 97 struct exec aout; 98 Elf32_Ehdr elf; 99 } hdr; 100 int io; 101 u_long entry; 102 103 vax_cputype = (mfpr(PR_SID) >> 24) & 0xFF; 104 moved = 0; 105 /* 106 */ 107 rpb = (void *)0xf0000; /* Safe address right now */ 108 bqo = (void *)0xf1000; 109 if (from == FROMMV) { 110 /* 111 * now relocate rpb/bqo (which are used by ROM-routines) 112 */ 113 bcopy ((void *)bootregs[11], rpb, sizeof(struct rpb)); 114 bcopy ((void*)rpb->iovec, bqo, rpb->iovecsz); 115 if (rpb->devtyp == BDEV_SDN) 116 rpb->devtyp = BDEV_SD; /* XXX until driver fixed */ 117 } else { 118 bzero(rpb, sizeof(struct rpb)); 119 rpb->devtyp = bootregs[0]; 120 rpb->unit = bootregs[3]; 121 rpb->rpb_bootr5 = bootregs[5]; 122 rpb->csrphy = bootregs[2]; 123 rpb->adpphy = bootregs[1]; /* BI node on 8200 */ 124 if (rpb->devtyp != BDEV_HP && vax_cputype == VAX_TYP_750) 125 rpb->adpphy = 126 (bootregs[1] == 0xffe000 ? 0xf30000 : 0xf32000); 127 } 128 rpb->rpb_base = rpb; 129 rpb->iovec = (int)bqo; 130 131 io = open("/boot.vax", 0); 132 if (io < 0) 133 io = open("/boot", 0); 134 if (io < 0) 135 asm("halt"); 136 137 read(io, (void *)&hdr.aout, sizeof(hdr.aout)); 138 if (N_GETMAGIC(hdr.aout) == OMAGIC && N_GETMID(hdr.aout) == MID_VAX) { 139 vax_load_failure++; 140 entry = hdr.aout.a_entry; 141 if (entry < sizeof(hdr.aout)) 142 entry = sizeof(hdr.aout); 143 read(io, (void *) entry, hdr.aout.a_text + hdr.aout.a_data); 144 memset((void *) (entry + hdr.aout.a_text + hdr.aout.a_data), 145 0, hdr.aout.a_bss); 146 } else if (memcmp(hdr.elf.e_ident, ELFMAG, SELFMAG) == 0) { 147 Elf32_Phdr ph; 148 size_t off = sizeof(hdr.elf); 149 vax_load_failure += 2; 150 read(io, (caddr_t)(&hdr.elf) + sizeof(hdr.aout), 151 sizeof(hdr.elf) - sizeof(hdr.aout)); 152 if (hdr.elf.e_machine != EM_VAX || hdr.elf.e_type != ET_EXEC 153 || hdr.elf.e_phnum != 1) 154 goto die; 155 vax_load_failure++; 156 entry = hdr.elf.e_entry; 157 if (hdr.elf.e_phoff != sizeof(hdr.elf)) 158 goto die; 159 vax_load_failure++; 160 read(io, &ph, sizeof(ph)); 161 off += sizeof(ph); 162 if (ph.p_type != PT_LOAD) 163 goto die; 164 vax_load_failure++; 165 while (off < ph.p_offset) { 166 u_int32_t tmp; 167 read(io, &tmp, sizeof(tmp)); 168 off += sizeof(tmp); 169 } 170 read(io, (void *) ph.p_paddr, ph.p_filesz); 171 memset((void *) (ph.p_paddr + ph.p_filesz), 0, 172 ph.p_memsz - ph.p_filesz); 173 } else { 174 goto die; 175 } 176 hoppabort(entry); 177 die: 178 asm("halt"); 179 } 180 181 /* 182 * Write an extremely limited version of a (us)tar filesystem, suitable 183 * for loading secondary-stage boot loader. 184 * - Can only load file "boot". 185 * - Must be the first file on tape. 186 */ 187 struct fs_ops file_system[] = { 188 #ifdef NEED_UFS 189 { ufs_open, 0, ufs_read, 0, 0, ufs_stat }, 190 #endif 191 #ifdef NEED_CD9660 192 { cd9660_open, 0, cd9660_read, 0, 0, cd9660_stat }, 193 #endif 194 #ifdef NEED_USTARFS 195 { ustarfs_open, 0, ustarfs_read, 0, 0, ustarfs_stat }, 196 #endif 197 }; 198 199 int nfsys = (sizeof(file_system) / sizeof(struct fs_ops)); 200 201 #if 0 202 int tar_open(char *path, struct open_file *f); 203 ssize_t tar_read(struct open_file *f, void *buf, size_t size, size_t *resid); 204 205 int 206 tar_open(path, f) 207 char *path; 208 struct open_file *f; 209 { 210 char *buf = alloc(512); 211 212 bzero(buf, 512); 213 romstrategy(0, 0, 8192, 512, buf, 0); 214 if (bcmp(buf, "boot", 5) || bcmp(&buf[257], "ustar", 5)) 215 return EINVAL; /* Not a ustarfs with "boot" first */ 216 return 0; 217 } 218 219 ssize_t 220 tar_read(f, buf, size, resid) 221 struct open_file *f; 222 void *buf; 223 size_t size; 224 size_t *resid; 225 { 226 romstrategy(0, 0, (8192+512), size, buf, 0); 227 *resid = size; 228 return 0; /* XXX */ 229 } 230 #endif 231 232 233 int 234 devopen(f, fname, file) 235 struct open_file *f; 236 const char *fname; 237 char **file; 238 { 239 *file = (char *)fname; 240 241 if (from == FROM750) 242 return 0; 243 /* 244 * Reinit the VMB boot device. 245 */ 246 if (bqo->unit_init && (moved++ == 0)) { 247 int initfn; 248 249 initfn = rpb->iovec + bqo->unit_init; 250 if (rpb->devtyp == BDEV_UDA || rpb->devtyp == BDEV_TK) { 251 /* 252 * This reset do not seem to be done in the 253 * ROM routines, so we have to do it manually. 254 */ 255 csr = (struct udadevice *)rpb->csrphy; 256 csr->udaip = 0; 257 while ((csr->udasa & MP_STEP1) == 0) 258 ; 259 } 260 /* 261 * AP (R12) have a pointer to the VMB argument list, 262 * wanted by bqo->unit_init. 263 */ 264 unit_init(initfn, rpb, bootregs[12]); 265 } 266 return 0; 267 } 268 269 extern struct disklabel romlabel; 270 271 int 272 romstrategy(sc, func, dblk, size, buf, rsize) 273 void *sc; 274 int func; 275 daddr_t dblk; 276 size_t size; 277 void *buf; 278 size_t *rsize; 279 { 280 int block = dblk; 281 int nsize = size; 282 283 if (romlabel.d_magic == DISKMAGIC && romlabel.d_magic2 == DISKMAGIC) { 284 if (romlabel.d_npartitions > 1) { 285 block += romlabel.d_partitions[0].p_offset; 286 if (romlabel.d_partitions[0].p_fstype == FS_RAID) { 287 block += RF_PROTECTED_SECTORS; 288 } 289 } 290 } 291 292 if (from == FROMMV) { 293 romread_uvax(block, size, buf, rpb); 294 } else /* if (from == FROM750) */ { 295 while (size > 0) { 296 if (rpb->devtyp == BDEV_HP) 297 hpread(block); 298 else 299 read750(block, bootregs); 300 bcopy(0, buf, 512); 301 size -= 512; 302 (char *)buf += 512; 303 block++; 304 } 305 } 306 307 if (rsize) 308 *rsize = nsize; 309 return 0; 310 } 311 312 /* 313 * The 11/750 boot ROM for Massbus disks doesn't seen to have layout info 314 * for all RP disks (not RP07 at least) so therefore a very small and dumb 315 * device driver is used. It assumes that there is a label on the disk 316 * already that has valid layout info. If there is no label, we can't boot 317 * anyway. 318 */ 319 320 #define MBA_WCSR(reg, val) \ 321 ((void)(*(volatile u_int32_t *)((adpadr) + (reg)) = (val))); 322 #define MBA_RCSR(reg) \ 323 (*(volatile u_int32_t *)((adpadr) + (reg))) 324 #define HP_WCSR(reg, val) \ 325 ((void)(*(volatile u_int32_t *)((unitadr) + (reg)) = (val))); 326 #define HP_RCSR(reg) \ 327 (*(volatile u_int32_t *)((unitadr) + (reg))) 328 329 void 330 hpread(int bn) 331 { 332 int adpadr = bootregs[1]; 333 int unitadr = adpadr + MUREG(bootregs[3], 0); 334 u_int cn, sn, tn; 335 struct disklabel *dp; 336 extern char start; 337 338 dp = (struct disklabel *)(LABELOFFSET + &start); 339 MBA_WCSR(MAPREG(0), PG_V); 340 341 MBA_WCSR(MBA_VAR, 0); 342 MBA_WCSR(MBA_BC, (~512) + 1); 343 #ifdef __GNUC__ 344 /* 345 * Avoid four subroutine calls by using hardware division. 346 */ 347 asm("clrl %%r1;" 348 "movl %3,%%r0;" 349 "ediv %4,%%r0,%0,%1;" 350 "movl %1,%%r0;" 351 "ediv %5,%%r0,%2,%1" 352 : "=g"(cn),"=g"(sn),"=g"(tn) 353 : "g"(bn),"g"(dp->d_secpercyl),"g"(dp->d_nsectors) 354 : "r0","r1","cc"); 355 #else 356 cn = bn / dp->d_secpercyl; 357 sn = bn % dp->d_secpercyl; 358 tn = sn / dp->d_nsectors; 359 sn = sn % dp->d_nsectors; 360 #endif 361 HP_WCSR(HP_DC, cn); 362 HP_WCSR(HP_DA, (tn << 8) | sn); 363 HP_WCSR(HP_CS1, HPCS_READ); 364 365 while (MBA_RCSR(MBA_SR) & MBASR_DTBUSY) 366 ; 367 return; 368 } 369 370 extern char end[]; 371 static char *top = (char*)end; 372 373 void * 374 alloc(size) 375 unsigned size; 376 { 377 void *ut = top; 378 top += size; 379 return ut; 380 } 381 382 void 383 free(ptr, size) 384 void *ptr; 385 unsigned size; 386 { 387 } 388 389 int 390 romclose(f) 391 struct open_file *f; 392 { 393 return 0; 394 } 395 396 #ifdef USE_PRINTF 397 void 398 putchar(int ch) 399 { 400 /* 401 * On KA88 we may get C-S/C-Q from the console. 402 * Must obey it. 403 */ 404 while (mfpr(PR_RXCS) & GC_DON) { 405 if ((mfpr(PR_RXDB) & 0x7f) == 19) { 406 while (1) { 407 while ((mfpr(PR_RXCS) & GC_DON) == 0) 408 ; 409 if ((mfpr(PR_RXDB) & 0x7f) == 17) 410 break; 411 } 412 } 413 } 414 415 while ((mfpr(PR_TXCS) & GC_RDY) == 0) 416 ; 417 mtpr(0, PR_TXCS); 418 mtpr(ch & 0377, PR_TXDB); 419 if (ch == 10) 420 putchar(13); 421 } 422 #endif 423
Indexes created Sun Sep 28 16:09:52 GMT 2025