1 /* $NetBSD: bootxx.c,v 1.33 2009/03/14 21:04:14 dsl Exp $ */
2
3 /*-
4 * Copyright (c) 1999 The NetBSD Foundation, Inc.
5 * All rights reserved.
6 *
7 * This code is derived from software contributed to The NetBSD Foundation
8 * by Jonathan Stone, Michael Hitch and Simon Burge.
9 *
10 * Redistribution and use in source and binary forms, with or without
11 * modification, are permitted provided that the following conditions
12 * are met:
13 * 1. Redistributions of source code must retain the above copyright
14 * notice, this list of conditions and the following disclaimer.
15 * 2. Redistributions in binary form must reproduce the above copyright
16 * notice, this list of conditions and the following disclaimer in the
17 * documentation and/or other materials provided with the distribution.
18 *
19 * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
20 * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
21 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
22 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
23 * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
24 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
25 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
26 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
27 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
28 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
29 * POSSIBILITY OF SUCH DAMAGE.
30 */
31
32 /*
33 * Copyright (c) 1992, 1993
34 * The Regents of the University of California. All rights reserved.
35 *
36 * This code is derived from software contributed to Berkeley by
37 * Ralph Campbell.
38 *
39 * Redistribution and use in source and binary forms, with or without
40 * modification, are permitted provided that the following conditions
41 * are met:
42 * 1. Redistributions of source code must retain the above copyright
43 * notice, this list of conditions and the following disclaimer.
44 * 2. Redistributions in binary form must reproduce the above copyright
45 * notice, this list of conditions and the following disclaimer in the
46 * documentation and/or other materials provided with the distribution.
47 * 3. Neither the name of the University nor the names of its contributors
48 * may be used to endorse or promote products derived from this software
49 * without specific prior written permission.
50 *
51 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
52 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
53 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
54 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
55 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
56 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
57 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
58 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
59 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
60 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
61 * SUCH DAMAGE.
62 *
63 * @(#)boot.c 8.1 (Berkeley) 6/10/93
64 */
65
66 #include <sys/param.h>
67 #include <sys/exec_elf.h>
68 #include <lib/libsa/stand.h>
69 #include <lib/libkern/libkern.h>
70 #include <machine/dec_prom.h>
71
72 typedef void (*entrypt)(int, char **, int, const void *);
73
74 int main(int, char **);
75 entrypt loadfile(char *path, char *name);
76
77 extern int clear_cache(char *addr, int len);
78
79 /*
80 * This gets arguments from the PROM, calls other routines to open
81 * and load the secondary boot loader called boot, and then transfers
82 * execution to that program.
83 *
84 * Argv[0] should be something like "rz(0,0,0)netbsd" on a DECstation 3100.
85 * Argv[0,1] should be something like "boot 5/rz0/netbsd" on a DECstation 5000.
86 * The argument "-a" means netbsd should do an automatic reboot.
87 */
88 int
main(int argc,char ** argv)89 main(int argc, char **argv)
90 {
91 char *cp;
92 entrypt entry;
93
94 /* check for DS5000 boot */
95 if (strcmp(argv[0], "boot") == 0) {
96 argc--;
97 argv++;
98 }
99 cp = *argv;
100
101 printf("\nNetBSD/pmax " NETBSD_VERS " " BOOTXX_FS_NAME " Primary Bootstrap\n");
102
103 entry = loadfile(cp, "/boot.pmax");
104 if ((int)entry != -1)
105 goto goodload;
106
107 /* Give old /boot a go... */
108 entry = loadfile(cp, "/boot");
109 if ((int)entry != -1)
110 goto goodload;
111
112 /* Booting off an 8.3 filesystem? */
113 entry = loadfile(cp, "/boot.pma");
114 if ((int)entry != -1)
115 goto goodload;
116
117 goto bad;
118 goodload:
119
120 clear_cache((char *)PRIMARY_LOAD_ADDRESS, 1024 * 1024);
121 if (callv == &callvec)
122 entry(argc, argv, 0, 0);
123 else
124 entry(argc, argv, DEC_PROM_MAGIC, callv);
125 bad:
126 /* XXX would calling prom_halt here be cleaner? */
127 return (1);
128 }
129
130 /*
131 * Open 'filename', read in program and return the entry point or -1 if error.
132 */
133 entrypt
loadfile(char * path,char * name)134 loadfile(char *path, char *name)
135 {
136 int fd, i;
137 char c, *buf, bootfname[64];
138 Elf32_Ehdr ehdr;
139 Elf32_Phdr phdr;
140
141 strcpy(bootfname, path);
142 buf = bootfname;
143 while ((c = *buf++) != '\0') {
144 if (c == ')')
145 break;
146 if (c != '/')
147 continue;
148 while ((c = *buf++) != '\0')
149 if (c == '/')
150 break;
151 /*
152 * Make "N/rzY" with no trailing '/' valid by adding
153 * the extra '/' before appending 'bootpmax' to the path.
154 */
155 if (c != '/') {
156 buf--;
157 *buf++ = '/';
158 *buf = '\0';
159 }
160 break;
161 }
162 strcpy(buf, name);
163 if ((fd = open(bootfname, 0)) < 0) {
164 printf("open %s: %d\n", bootfname, errno);
165 goto err;
166 }
167
168 /* read the exec header */
169 i = read(fd, (char *)&ehdr, sizeof(ehdr));
170 if ((i != sizeof(ehdr)) ||
171 (memcmp(ehdr.e_ident, ELFMAG, SELFMAG) != 0) ||
172 (ehdr.e_ident[EI_CLASS] != ELFCLASS32)) {
173 printf("%s: No ELF header\n", bootfname);
174 goto cerr;
175 }
176
177 for (i = 0; i < ehdr.e_phnum; i++) {
178 if (lseek(fd, (off_t) ehdr.e_phoff + i * sizeof(phdr), 0) < 0)
179 goto cerr;
180 if (read(fd, &phdr, sizeof(phdr)) != sizeof(phdr))
181 goto cerr;
182 if (phdr.p_type != PT_LOAD)
183 continue;
184 if (lseek(fd, (off_t)phdr.p_offset, 0) < 0)
185 goto cerr;
186 if (read(fd, (char *)phdr.p_paddr, phdr.p_filesz) != phdr.p_filesz)
187 goto cerr;
188 }
189 return ((entrypt)ehdr.e_entry);
190
191 cerr:
192 #ifndef LIBSA_NO_FS_CLOSE
193 (void) close(fd);
194 #endif
195 err:
196 printf("Can't load '%s'\n", bootfname);
197 return ((entrypt)-1);
198 }
199