1 /* $NetBSD: bootxx.c,v 1.39 2022/04/25 15:06:34 mlelstv Exp $ */
2
3 /*-
4 * Copyright (c) 1982, 1986 The Regents of the University of California.
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 * 3. Neither the name of the University nor the names of its contributors
16 * may be used to endorse or promote products derived from this software
17 * without specific prior written permission.
18 *
19 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
20 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
21 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
22 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
23 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
24 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
25 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
26 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
27 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
28 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
29 * SUCH DAMAGE.
30 *
31 * @(#)boot.c 7.15 (Berkeley) 5/4/91
32 */
33
34 #include <sys/param.h>
35 #include <sys/reboot.h>
36 #include <sys/disklabel.h>
37 #include <sys/exec.h>
38 #include <sys/exec_elf.h>
39 #include <sys/exec_aout.h>
40
41 #include <lib/libsa/stand.h>
42 #include <lib/libsa/ufs.h>
43 #include <lib/libsa/cd9660.h>
44 #include <lib/libsa/ustarfs.h>
45
46 #include <lib/libkern/libkern.h>
47
48 #include <machine/pte.h>
49 #include <machine/sid.h>
50 #include <machine/mtpr.h>
51 #include <machine/reg.h>
52 #include <machine/rpb.h>
53 #include "../vax/gencons.h"
54
55 #include "../mba/mbareg.h"
56 #include "../mba/hpreg.h"
57
58 #define NRSP 1 /* Kludge */
59 #define NCMD 1 /* Kludge */
60
61 #include <dev/mscp/mscp.h>
62 #include <dev/mscp/mscpreg.h>
63
64 #include "../boot/data.h"
65
66 #define RF_PROTECTED_SECTORS 64 /* XXX refer to <.../rf_optnames.h> */
67
68 void Xmain(void);
69 void hoppabort(int);
70 void romread_uvax(int lbn, int size, void *buf, struct rpb *rpb);
71 void hpread(int block);
72 int read750(int block, int *regs);
73 int unit_init(int, struct rpb *, int);
74
75 struct open_file file;
76
77 unsigned *bootregs;
78 struct rpb *rpb;
79 struct bqo *bqo;
80 int vax_cputype;
81 int vax_load_failure;
82 struct udadevice {u_short udaip;u_short udasa;};
83 volatile struct udadevice *csr;
84 static int moved;
85
86 extern int from;
87 #define FROM750 1
88 #define FROMMV 2
89 #define FROMVMB 4
90
91 /*
92 * The boot block are used by 11/750, 8200, MicroVAX II/III, VS2000,
93 * VS3100/??, VS4000 and VAX6000/???, and only when booting from disk.
94 */
95 void
Xmain(void)96 Xmain(void)
97 {
98 union {
99 struct exec aout;
100 Elf32_Ehdr elf;
101 } hdr;
102 int io;
103 u_long entry;
104
105 vax_cputype = (mfpr(PR_SID) >> 24) & 0xFF;
106 moved = 0;
107 /*
108 */
109 rpb = (void *)0xf0000; /* Safe address right now */
110 bqo = (void *)0xf1000;
111 if (from == FROMMV) {
112 /*
113 * now relocate rpb/bqo (which are used by ROM-routines)
114 */
115 bcopy ((void *)bootregs[11], rpb, sizeof(struct rpb));
116 bcopy ((void*)rpb->iovec, bqo, rpb->iovecsz);
117 } else {
118 memset(rpb, 0, 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, (char *)&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 *) hdr.elf.e_entry, ph.p_filesz);
171 memset((void *) (hdr.elf.e_entry + 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 { ffsv1_open, 0, ffsv1_read, 0, 0, ffsv1_stat },
190 { ffsv2_open, 0, ffsv2_read, 0, 0, ffsv2_stat },
191 #endif
192 #ifdef NEED_CD9660
193 { cd9660_open, 0, cd9660_read, 0, 0, cd9660_stat },
194 #endif
195 #ifdef NEED_USTARFS
196 { ustarfs_open, 0, ustarfs_read, 0, 0, ustarfs_stat },
197 #endif
198 };
199
200 int nfsys = __arraycount(file_system);
201
202 #if 0
203 int tar_open(char *path, struct open_file *f);
204 ssize_t tar_read(struct open_file *f, void *buf, size_t size, size_t *resid);
205
206 int
207 tar_open(char *path, struct open_file *f)
208 {
209 char *buf = alloc(512);
210
211 memset(buf, 0, 512);
212 romstrategy(0, 0, 8192, 512, buf, 0);
213 if (memcmp(buf, "boot", 5) || memcmp(&buf[257], "ustar", 5))
214 return EINVAL; /* Not a ustarfs with "boot" first */
215 return 0;
216 }
217
218 ssize_t
219 tar_read(struct open_file *f, void *buf, size_t size, size_t *resid)
220 {
221 romstrategy(0, 0, (8192+512), size, buf, 0);
222 *resid = size;
223 return 0; /* XXX */
224 }
225 #endif
226
227
228 int
devopen(struct open_file * f,const char * fname,char ** file)229 devopen(struct open_file *f, const char *fname, char **file)
230 {
231 *file = (char *)fname;
232
233 if (from == FROM750)
234 return 0;
235 /*
236 * Reinit the VMB boot device.
237 */
238 if (bqo->unit_init && (moved++ == 0)) {
239 int initfn;
240
241 initfn = rpb->iovec + bqo->unit_init;
242 if (rpb->devtyp == BDEV_UDA || rpb->devtyp == BDEV_TK) {
243 /*
244 * This reset do not seem to be done in the
245 * ROM routines, so we have to do it manually.
246 */
247 csr = (struct udadevice *)rpb->csrphy;
248 csr->udaip = 0;
249 while ((csr->udasa & MP_STEP1) == 0)
250 ;
251 }
252 /*
253 * AP (R12) have a pointer to the VMB argument list,
254 * wanted by bqo->unit_init.
255 */
256 unit_init(initfn, rpb, bootregs[12]);
257 }
258 return 0;
259 }
260
261 extern struct disklabel romlabel;
262
263 int
romstrategy(void * sc,int func,daddr_t dblk,size_t size,void * buf,size_t * rsize)264 romstrategy(void *sc, int func, daddr_t dblk, size_t size, void *buf, size_t *rsize)
265 {
266 int block = dblk;
267 int nsize = size;
268 char *cbuf;
269
270 cbuf = (char *)buf;
271
272 if (romlabel.d_magic == DISKMAGIC && romlabel.d_magic2 == DISKMAGIC) {
273 if (romlabel.d_npartitions > 1) {
274 block += romlabel.d_partitions[0].p_offset;
275 if (romlabel.d_partitions[0].p_fstype == FS_RAID) {
276 block += RF_PROTECTED_SECTORS;
277 }
278 }
279 }
280
281 if (from == FROMMV) {
282 romread_uvax(block, size, cbuf, rpb);
283 } else /* if (from == FROM750) */ {
284 while (size > 0) {
285 if (rpb->devtyp == BDEV_HP)
286 hpread(block);
287 else
288 read750(block, (int *)bootregs);
289 memcpy(cbuf, 0, 512);
290 size -= 512;
291 cbuf += 512;
292 block++;
293 }
294 }
295
296 if (rsize)
297 *rsize = nsize;
298 return 0;
299 }
300
301 int
romioctl(struct open_file * f,u_long cmd,void * data)302 romioctl(struct open_file *f, u_long cmd, void *data)
303 {
304 return ENOTTY;
305 }
306
307 /*
308 * The 11/750 boot ROM for Massbus disks doesn't seen to have layout info
309 * for all RP disks (not RP07 at least) so therefore a very small and dumb
310 * device driver is used. It assumes that there is a label on the disk
311 * already that has valid layout info. If there is no label, we can't boot
312 * anyway.
313 */
314
315 #define MBA_WCSR(reg, val) \
316 ((void)(*(volatile u_int32_t *)((adpadr) + (reg)) = (val)));
317 #define MBA_RCSR(reg) \
318 (*(volatile u_int32_t *)((adpadr) + (reg)))
319 #define HP_WCSR(reg, val) \
320 ((void)(*(volatile u_int32_t *)((unitadr) + (reg)) = (val)));
321 #define HP_RCSR(reg) \
322 (*(volatile u_int32_t *)((unitadr) + (reg)))
323
324 void
hpread(int bn)325 hpread(int bn)
326 {
327 int adpadr = bootregs[1];
328 int unitadr = adpadr + MUREG(bootregs[3], 0);
329 u_int cn, sn, tn;
330 struct disklabel *dp;
331 extern char start;
332
333 dp = (struct disklabel *)(LABELOFFSET + &start);
334 MBA_WCSR(MAPREG(0), PG_V);
335
336 MBA_WCSR(MBA_VAR, 0);
337 MBA_WCSR(MBA_BC, (~512) + 1);
338 #ifdef __GNUC__
339 /*
340 * Avoid four subroutine calls by using hardware division.
341 */
342 __asm("clrl %%r1;"
343 "movl %3,%%r0;"
344 "ediv %4,%%r0,%0,%1;"
345 "movl %1,%%r0;"
346 "ediv %5,%%r0,%2,%1"
347 : "=g"(cn),"=g"(sn),"=g"(tn)
348 : "g"(bn),"g"(dp->d_secpercyl),"g"(dp->d_nsectors)
349 : "r0","r1","cc");
350 #else
351 cn = bn / dp->d_secpercyl;
352 sn = bn % dp->d_secpercyl;
353 tn = sn / dp->d_nsectors;
354 sn = sn % dp->d_nsectors;
355 #endif
356 HP_WCSR(HP_DC, cn);
357 HP_WCSR(HP_DA, (tn << 8) | sn);
358 HP_WCSR(HP_CS1, HPCS_READ);
359
360 while (MBA_RCSR(MBA_SR) & MBASR_DTBUSY)
361 ;
362 return;
363 }
364
365 extern char end[];
366 static char *top = (char*)end;
367
368 void *
alloc(size_t size)369 alloc(size_t size)
370 {
371 void *ut = top;
372 top += size;
373 return ut;
374 }
375
376 void
dealloc(void * ptr,size_t size)377 dealloc(void *ptr, size_t size)
378 {
379 }
380
381 int
romclose(struct open_file * f)382 romclose(struct open_file *f)
383 {
384 return 0;
385 }
386
387 #ifdef USE_PRINTF
388 void
putchar(int ch)389 putchar(int ch)
390 {
391 /*
392 * On KA88 we may get C-S/C-Q from the console.
393 * Must obey it.
394 */
395 while (mfpr(PR_RXCS) & GC_DON) {
396 if ((mfpr(PR_RXDB) & 0x7f) == 19) {
397 while (1) {
398 while ((mfpr(PR_RXCS) & GC_DON) == 0)
399 ;
400 if ((mfpr(PR_RXDB) & 0x7f) == 17)
401 break;
402 }
403 }
404 }
405
406 while ((mfpr(PR_TXCS) & GC_RDY) == 0)
407 ;
408 mtpr(0, PR_TXCS);
409 mtpr(ch & 0377, PR_TXDB);
410 if (ch == 10)
411 putchar(13);
412 }
413 #endif
414