summaryrefslogtreecommitdiff
path: root/sys/arch/hp300
diff options
context:
space:
mode:
authorJason Downs <downsj@cvs.openbsd.org>1997-01-17 08:36:54 +0000
committerJason Downs <downsj@cvs.openbsd.org>1997-01-17 08:36:54 +0000
commit9a24a4df289238add76aa7f4852471dfc45a572c (patch)
tree99d2b9e5ddbe3747da35862a912f64def51001cf /sys/arch/hp300
parent316d268ee39e01f3142870210fbd987b6ff2c560 (diff)
more new files
Diffstat (limited to 'sys/arch/hp300')
-rw-r--r--sys/arch/hp300/stand/inst.c664
-rw-r--r--sys/arch/hp300/stand/rawfs.c221
-rw-r--r--sys/arch/hp300/stand/rawfs.h16
-rw-r--r--sys/arch/hp300/stand/uboot.c143
4 files changed, 1044 insertions, 0 deletions
diff --git a/sys/arch/hp300/stand/inst.c b/sys/arch/hp300/stand/inst.c
new file mode 100644
index 00000000000..4d1b1cfcd02
--- /dev/null
+++ b/sys/arch/hp300/stand/inst.c
@@ -0,0 +1,664 @@
+/* $OpenBSD: inst.c,v 1.1 1997/01/17 08:36:51 downsj Exp $ */
+/* $NetBSD: inst.c,v 1.6 1996/12/21 21:23:43 thorpej Exp $ */
+
+/*
+ * Copyright (c) 1995, 1996 Jason R. Thorpe.
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ * notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ * notice, this list of conditions and the following disclaimer in the
+ * documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ * must display the following acknowledgement:
+ * This product includes software developed for the NetBSD Project
+ * by Jason R. Thorpe.
+ * 4. The name of the author may not be used to endorse or promote products
+ * derived from this software without specific prior written permission.
+ *
+ * Portions of this program are inspired by (and have borrowed code from)
+ * the `editlabel' program that accompanies NetBSD/vax, which carries
+ * the following notice:
+ *
+ * Copyright (c) 1995 Ludd, University of Lule}, Sweden.
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ * notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ * notice, this list of conditions and the following disclaimer in the
+ * documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ * must display the following acknowledgement:
+ * This product includes software developed at Ludd, University of
+ * Lule}, Sweden and its contributors.
+ * 4. The name of the author may not be used to endorse or promote products
+ * derived from this software without specific prior written permission
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
+ * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
+ * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
+ * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
+ * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
+ * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+ * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED
+ * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+ * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+
+#define DKTYPENAMES
+
+#include <sys/param.h>
+#include <sys/reboot.h>
+#include <sys/disklabel.h>
+#include <a.out.h>
+#include "stand.h"
+#include "samachdep.h"
+
+char line[100];
+
+extern u_int opendev;
+extern char *lowram;
+extern int noconsole;
+extern int netio_ask;
+
+char *kernel_name = "/bsd";
+
+void dsklabel __P((void));
+void miniroot __P((void));
+void bootmini __P((void));
+void resetsys __P((void));
+void gethelp __P((void));
+int opendisk __P((char *, char *, int, char, int *));
+void disklabel_edit __P((struct disklabel *));
+void disklabel_show __P((struct disklabel *));
+int disklabel_write __P((char *, int, struct open_file *));
+int a2int __P((char *));
+
+struct inst_command {
+ char *ic_cmd; /* command name */
+ char *ic_desc; /* command description */
+ void (*ic_func) __P((void)); /* handling function */
+} inst_commands[] = {
+ { "disklabel", "place partition map on disk", dsklabel },
+ { "miniroot", "place miniroot on disk", miniroot },
+ { "boot", "boot from miniroot", bootmini },
+ { "reset", "reset the system", resetsys },
+ { "help", "display command list", gethelp },
+};
+#define NCMDS (sizeof(inst_commands) / sizeof(inst_commands[0]))
+
+main()
+{
+ int i, currname = 0;
+
+ /*
+ * We want netopen() to ask for IP address, etc, rather
+ * that using bootparams.
+ */
+ netio_ask = 1;
+
+ printf("\n>> OpenBSD MINIROOT INSTALLATION HP9000/%s CPU\n",
+ getmachineid());
+ printf(">> $OpenBSD: inst.c,v 1.1 1997/01/17 08:36:51 downsj Exp $\n");
+ gethelp();
+
+ for (;;) {
+ printf("sys_inst> ");
+ bzero(line, sizeof(line));
+ gets(line);
+ if (line[0] == '\n' || line[0] == '\0')
+ continue;
+
+ for (i = 0; i < NCMDS; ++i)
+ if (strcmp(line, inst_commands[i].ic_cmd) == 0) {
+ (*inst_commands[i].ic_func)();
+ break;
+ }
+
+
+ if (i == NCMDS)
+ printf("unknown command: %s\n", line);
+ }
+}
+
+void
+gethelp()
+{
+ int i;
+
+ printf(">> Available commands:\n");
+ for (i = 0; i < NCMDS; ++i)
+ printf(">> %s - %s\n", inst_commands[i].ic_cmd,
+ inst_commands[i].ic_desc);
+}
+
+/*
+ * Do all the steps necessary to place a disklabel on a disk.
+ * Note, this assumes 512 byte sectors.
+ */
+void
+dsklabel()
+{
+ struct disklabel *lp;
+ struct open_file *disk_ofp;
+ int dfd, error;
+ size_t xfersize;
+ char block[DEV_BSIZE], diskname[64];
+ extern struct open_file files[];
+
+ printf("
+You will be asked several questions about your disk, most of which
+require prior knowledge of the disk's geometry. There is no easy way
+for the system to provide this information for you. If you do not have
+this information, please consult your disk's manual or another
+informative source.\n\n");
+
+ /* Error message printed by opendisk() */
+ if (opendisk("Disk to label?", diskname, sizeof(diskname),
+ ('a' + RAW_PART), &dfd))
+ return;
+
+ disk_ofp = &files[dfd];
+
+ bzero(block, sizeof(block));
+ if (error = (*disk_ofp->f_dev->dv_strategy)(disk_ofp->f_devdata,
+ F_READ, LABELSECTOR, sizeof(block), block, &xfersize)) {
+ printf("cannot read disk %s, errno = %d\n", diskname, error);
+ return;
+ }
+
+ printf("Sucessfully read %d bytes from %s\n", xfersize, diskname);
+
+ lp = (struct disklabel *)((void *)(&block[LABELOFFSET]));
+
+ disklabel_loop:
+ bzero(line, sizeof(line));
+ printf("(z)ap, (e)dit, (s)how, (w)rite, (d)one > ");
+ gets(line);
+ if (line[0] == '\n' || line[0] == '\0')
+ goto disklabel_loop;
+
+ switch (line[0]) {
+ case 'z':
+ case 'Z': {
+ char zap[DEV_BSIZE];
+ bzero(zap, sizeof(zap));
+ (void)(*disk_ofp->f_dev->dv_strategy)(disk_ofp->f_devdata,
+ F_WRITE, LABELSECTOR, sizeof(zap), zap, &xfersize);
+ }
+ goto out;
+ /* NOTREACHED */
+
+ case 'e':
+ case 'E':
+ disklabel_edit(lp);
+ break;
+
+ case 's':
+ case 'S':
+ disklabel_show(lp);
+ break;
+
+ case 'w':
+ case 'W':
+ /*
+ * Error message will be displayed by disklabel_write()
+ */
+ if (disklabel_write(block, sizeof(block), disk_ofp))
+ goto out;
+ else
+ printf("Sucessfully wrote label to %s\n", diskname);
+ break;
+
+ case 'd':
+ case 'D':
+ goto out;
+ /* NOTREACHED */
+
+ default:
+ printf("unkown command: %s\n", line);
+ }
+
+ goto disklabel_loop;
+ /* NOTREACHED */
+
+ out:
+ /*
+ * Close disk. Marks disk `not alive' so that partition
+ * information will be reloaded upon next open.
+ */
+ (void)close(dfd);
+}
+
+#define GETNUM(out, num) \
+ printf((out), (num)); \
+ bzero(line, sizeof(line)); \
+ gets(line); \
+ if (line[0]) \
+ (num) = atoi(line);
+
+#define GETNUM2(out, num1, num2) \
+ printf((out), (num1), (num2)); \
+ bzero(line, sizeof(line)); \
+ gets(line); \
+ if (line[0]) \
+ (num2) = atoi(line);
+
+#define GETSTR(out, str) \
+ printf((out), (str)); \
+ bzero(line, sizeof(line)); \
+ gets(line); \
+ if (line[0]) \
+ strcpy((str), line);
+
+#define FLAGS(out, flag) \
+ printf((out), lp->d_flags & (flag) ? 'y' : 'n'); \
+ bzero(line, sizeof(line)); \
+ gets(line); \
+ if (line[0] == 'y' || line[0] == 'Y') \
+ lp->d_flags |= (flag); \
+ else \
+ lp->d_flags &= ~(flag);
+
+void
+disklabel_edit(lp)
+ struct disklabel *lp;
+{
+ int i;
+
+ printf("Select disk type. Valid types:\n");
+ for (i = 0; i < DKMAXTYPES; i++)
+ printf("%d %s\n", i, dktypenames[i]);
+ printf("\n");
+
+ GETNUM("Disk type (number)? [%d] ", lp->d_type);
+ GETSTR("Disk model name? [%s] ", lp->d_typename);
+ GETSTR("Disk pack name? [%s] ", lp->d_packname);
+ FLAGS("Bad sectoring? [%c] ", D_BADSECT);
+ FLAGS("Ecc? [%c] ", D_ECC);
+ FLAGS("Removable? [%c] ", D_REMOVABLE);
+
+ printf("\n");
+
+ GETNUM("Interleave? [%d] ", lp->d_interleave);
+ GETNUM("Rpm? [%d] ", lp->d_rpm);
+ GETNUM("Trackskew? [%d] ", lp->d_trackskew);
+ GETNUM("Cylinderskew? [%d] ", lp->d_cylskew);
+ GETNUM("Headswitch? [%d] ", lp->d_headswitch);
+ GETNUM("Track-to-track? [%d] ", lp->d_trkseek);
+ GETNUM("Drivedata 0? [%d] ", lp->d_drivedata[0]);
+ GETNUM("Drivedata 1? [%d] ", lp->d_drivedata[1]);
+ GETNUM("Drivedata 2? [%d] ", lp->d_drivedata[2]);
+ GETNUM("Drivedata 3? [%d] ", lp->d_drivedata[3]);
+ GETNUM("Drivedata 4? [%d] ", lp->d_drivedata[4]);
+
+ printf("\n");
+
+ GETNUM("Bytes/sector? [%d] ", lp->d_secsize);
+ GETNUM("Sectors/track? [%d] ", lp->d_nsectors);
+ GETNUM("Tracks/cylinder? [%d] ", lp->d_ntracks);
+ GETNUM("Sectors/cylinder? [%d] ", lp->d_secpercyl);
+ GETNUM("Cylinders? [%d] ", lp->d_ncylinders);
+
+ printf("
+Enter partition table. Note, sizes and offsets are in sectors.\n\n");
+
+ lp->d_npartitions = MAXPARTITIONS;
+ for (i = 0; i < lp->d_npartitions; ++i) {
+ GETNUM2("%c partition: offset? [%d] ", ('a' + i),
+ lp->d_partitions[i].p_offset);
+ GETNUM(" size? [%d] ", lp->d_partitions[i].p_size);
+ }
+
+ /* Perform magic. */
+ lp->d_magic = lp->d_magic2 = DISKMAGIC;
+
+ /* Calculate disklabel checksum. */
+ lp->d_checksum = 0;
+ lp->d_checksum = dkcksum(lp);
+}
+
+void
+disklabel_show(lp)
+ struct disklabel *lp;
+{
+ int i, npart;
+ struct partition *pp;
+
+ /*
+ * Check for valid disklabel.
+ */
+ if (lp->d_magic != DISKMAGIC || lp->d_magic2 != DISKMAGIC) {
+ printf("No disklabel to show.\n");
+ return;
+ }
+
+ if (lp->d_npartitions > MAXPARTITIONS || dkcksum(lp) != 0) {
+ printf("Corrupted disklabel.\n");
+ return;
+ }
+
+ printf("\ndisk type %d (%s), %s: %s%s%s\n", lp->d_type,
+ lp->d_type < DKMAXTYPES ? dktypenames[lp->d_type] :
+ dktypenames[0], lp->d_typename,
+ (lp->d_flags & D_REMOVABLE) ? " removable" : "",
+ (lp->d_flags & D_ECC) ? " ecc" : "",
+ (lp->d_flags & D_BADSECT) ? " badsect" : "");
+
+ printf("interleave %d, rpm %d, trackskew %d, cylinderskew %d\n",
+ lp->d_interleave, lp->d_rpm, lp->d_trackskew, lp->d_cylskew);
+
+ printf("headswitch %d, track-to-track %d, drivedata: %d %d %d %d %d\n",
+ lp->d_headswitch, lp->d_trkseek, lp->d_drivedata[0],
+ lp->d_drivedata[1], lp->d_drivedata[2], lp->d_drivedata[3],
+ lp->d_drivedata[4]);
+
+ printf("\nbytes/sector: %d\n", lp->d_secsize);
+ printf("sectors/track: %d\n", lp->d_nsectors);
+ printf("tracks/cylinder: %d\n", lp->d_ntracks);
+ printf("sectors/cylinder: %d\n", lp->d_secpercyl);
+ printf("cylinders: %d\n", lp->d_ncylinders);
+
+ printf("\n%d partitions:\n", lp->d_npartitions);
+ printf(" size offset\n");
+ pp = lp->d_partitions;
+ for (i = 0; i < lp->d_npartitions; i++) {
+ printf("%c: %d, %d\n", 97 + i, lp->d_partitions[i].p_size,
+ lp->d_partitions[i].p_offset);
+ }
+ printf("\n");
+}
+
+int
+disklabel_write(block, len, ofp)
+ char *block;
+ int len;
+ struct open_file *ofp;
+{
+ int error = 0;
+ size_t xfersize;
+
+ if (error = (*ofp->f_dev->dv_strategy)(ofp->f_devdata, F_WRITE,
+ LABELSECTOR, len, block, &xfersize))
+ printf("cannot write disklabel, errno = %d\n", error);
+
+ return (error);
+}
+
+int
+opendisk(question, diskname, len, partition, fdp)
+ char *question, *diskname;
+ int len;
+ char partition;
+ int *fdp;
+{
+ char fulldiskname[64], *filename;
+ int i, error = 0;
+
+ getdiskname:
+ printf("%s ", question);
+ bzero(diskname, len);
+ bzero(fulldiskname, sizeof(fulldiskname));
+ gets(diskname);
+ if (diskname[0] == '\n' || diskname[0] == '\0')
+ goto getdiskname;
+
+ /*
+ * devopen() is picky. Make sure it gets the sort of string it
+ * wants.
+ */
+ bcopy(diskname, fulldiskname,
+ len < sizeof(fulldiskname) ? len : sizeof(fulldiskname));
+ for (i = 0; fulldiskname[i + 1] != '\0'; ++i)
+ /* Nothing. */ ;
+ if (fulldiskname[i] < '0' || fulldiskname[i] > '9') {
+ printf("invalid disk name %s\n", diskname);
+ goto getdiskname;
+ }
+ fulldiskname[++i] = partition; fulldiskname[++i] = ':';
+
+ /*
+ * We always open for writing.
+ */
+ if ((*fdp = open(fulldiskname, 1)) < 0) {
+ printf("cannot open %s\n", diskname);
+ return (1);
+ }
+
+ return (0);
+}
+
+/*
+ * Copy a miniroot image from an NFS server or tape to the `b' partition
+ * of the specified disk. Note, this assumes 512 byte sectors.
+ */
+void
+miniroot()
+{
+ int sfd, dfd, i, nblks;
+ char diskname[64], minirootname[128];
+ char block[DEV_BSIZE];
+ char tapename[64];
+ int fileno;
+ struct stat st;
+ size_t xfersize;
+ struct open_file *disk_ofp;
+ extern struct open_file files[];
+
+ /* Error message printed by opendisk() */
+ if (opendisk("Disk for miniroot?", diskname, sizeof(diskname),
+ 'b', &dfd))
+ return;
+
+ disk_ofp = &files[dfd];
+
+ getsource:
+ printf("Source? (N)FS, (t)ape, (d)one > ");
+ bzero(line, sizeof(line));
+ gets(line);
+ if (line[0] == '\0')
+ goto getsource;
+
+ switch (line[0]) {
+ case 'n':
+ case 'N':
+ name_of_nfs_miniroot:
+ printf("Name of miniroot file? ");
+ bzero(line, sizeof(line));
+ bzero(minirootname, sizeof(minirootname));
+ gets(line);
+ if (line[0] == '\0')
+ goto name_of_nfs_miniroot;
+ (void)strcat(minirootname, "le0a:");
+ (void)strcat(minirootname, line);
+ if ((sfd = open(minirootname, 0)) < 0) {
+ printf("can't open %s\n", line);
+ return;
+ }
+
+ /*
+ * Find out how big the miniroot is. Make sure it's
+ * an even number of blocks...
+ */
+ if (fstat(sfd, &st) < 0) {
+ printf("can't stat %s\n", line);
+ goto done;
+ }
+ if (st.st_size % DEV_BSIZE) {
+ printf("Miniroot size must be an even multiple of %d\n",
+ DEV_BSIZE);
+ return;
+ }
+ nblks = (int)(st.st_size / sizeof(block));
+
+ printf("Copying %d blocks from %s to %s...", nblks, line,
+ diskname);
+ break;
+
+ case 't':
+ case 'T':
+ name_of_tape_miniroot:
+ printf("Which tape device? ");
+ bzero(line, sizeof(line));
+ bzero(minirootname, sizeof(minirootname));
+ bzero(tapename, sizeof(tapename));
+ gets(line);
+ if (line[0] == '\0')
+ goto name_of_tape_miniroot;
+ strcat(minirootname, line);
+ strcat(tapename, line);
+
+ printf("File number (first == 1)? ");
+ bzero(line, sizeof(line));
+ gets(line);
+ fileno = a2int(line);
+ if (fileno < 1 || fileno > 8) {
+ printf("Invalid file number: %s\n", line);
+ goto getsource;
+ }
+ for (i = 0; i < sizeof(minirootname); ++i) {
+ if (minirootname[i] == '\0')
+ break;
+ }
+ if (i == sizeof(minirootname) ||
+ (sizeof(minirootname) - i) < 8) {
+ printf("Invalid device name: %s\n", tapename);
+ goto getsource;
+ }
+ minirootname[i++] = 'a' + (fileno - 1);
+ minirootname[i++] = ':';
+ strcat(minirootname, "XXX"); /* lameness in open() */
+
+ printf("Copy how many %d byte blocks? ", DEV_BSIZE);
+ bzero(line, sizeof(line));
+ gets(line);
+ nblks = a2int(line);
+ if (nblks < 0) {
+ printf("Invalid block count: %s\n", line);
+ goto getsource;
+ } else if (nblks == 0) {
+ printf("Zero blocks? Ok, aborting.\n");
+ return;
+ }
+
+ if ((sfd = open(minirootname, 0)) < 0) {
+ printf("can't open %s file %c\n", tapename, fileno);
+ return;
+ }
+
+ printf("Copying %s file %c to %s...", tapename, fileno,
+ diskname);
+ break;
+
+ case 'd':
+ case 'D':
+ return;
+
+ default:
+ printf("Unknown source: %s\n", line);
+ goto getsource;
+ }
+
+ /*
+ * Copy loop...
+ * This is fairly slow... if someone wants to speed it
+ * up, they'll get no complaints from me.
+ */
+ for (i = 0; i < nblks; ++i) {
+ if (read(sfd, block, sizeof(block)) != sizeof(block)) {
+ printf("Short read, errno = %d\n", errno);
+ goto done;
+ }
+ if ((*disk_ofp->f_dev->dv_strategy)(disk_ofp->f_devdata,
+ F_WRITE, i, sizeof(block), block, &xfersize) ||
+ xfersize != sizeof(block)) {
+ printf("Bad write at block %d, errno = %d\n",
+ i, errno);
+ goto done;
+ }
+ }
+ printf("done\n");
+
+ printf("Successfully copied miniroot image.\n");
+
+ done:
+ close(sfd);
+ close(dfd);
+}
+
+/*
+ * Boot the kernel from the miniroot image into single-user.
+ */
+void
+bootmini()
+{
+ char diskname[64], bootname[64];
+ int i;
+
+ getdiskname:
+ printf("Disk to boot from? ");
+ bzero(diskname, sizeof(diskname));
+ bzero(bootname, sizeof(bootname));
+ gets(diskname);
+ if (diskname[0] == '\n' || diskname[0] == '\0')
+ goto getdiskname;
+
+ /*
+ * devopen() is picky. Make sure it gets the sort of string it
+ * wants.
+ */
+ (void)strcat(bootname, diskname);
+ for (i = 0; bootname[i + 1] != '\0'; ++i)
+ /* Nothing. */ ;
+ if (bootname[i] < '0' || bootname[i] > '9') {
+ printf("invalid disk name %s\n", diskname);
+ goto getdiskname;
+ }
+ bootname[++i] = 'b'; bootname[++i] = ':';
+ (void)strcat(bootname, kernel_name);
+
+ howto = RB_SINGLE; /* _Always_ */
+
+ printf("booting: %s -s\n", bootname);
+ exec(bootname, lowram, howto);
+ printf("boot: %s\n", strerror(errno));
+}
+
+/*
+ * Reset the system.
+ */
+void
+resetsys()
+{
+
+ call_req_reboot();
+ printf("panic: can't reboot, halting\n");
+ asm("stop #0x2700");
+}
+
+/*
+ * XXX Should have a generic atoi for libkern/libsa.
+ */
+int
+a2int(cp)
+ char *cp;
+{
+ int i = 0;
+
+ if (*cp == '\0')
+ return (-1);
+
+ while (*cp != '\0')
+ i = i * 10 + *cp++ - '0';
+ return (i);
+}
diff --git a/sys/arch/hp300/stand/rawfs.c b/sys/arch/hp300/stand/rawfs.c
new file mode 100644
index 00000000000..769b1fc84c2
--- /dev/null
+++ b/sys/arch/hp300/stand/rawfs.c
@@ -0,0 +1,221 @@
+/* $OpenBSD: rawfs.c,v 1.1 1997/01/17 08:36:52 downsj Exp $ */
+/* $NetBSD: rawfs.c,v 1.2 1996/10/06 19:07:53 thorpej Exp $ */
+
+/*
+ * Copyright (c) 1995 Gordon W. Ross
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ * notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ * notice, this list of conditions and the following disclaimer in the
+ * documentation and/or other materials provided with the distribution.
+ * 3. The name of the author may not be used to endorse or promote products
+ * derived from this software without specific prior written permission.
+ * 4. All advertising materials mentioning features or use of this software
+ * must display the following acknowledgement:
+ * This product includes software developed by Gordon W. Ross
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
+ * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
+ * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
+ * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
+ * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
+ * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+ * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+ * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+ * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
+ * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ */
+
+/*
+ * Raw file system - for stream devices like tapes.
+ * No random access, only sequential read allowed.
+ * This exists only to allow upper level code to be
+ * shielded from the fact that the device must be
+ * read only with whole block position and size.
+ */
+
+#include <sys/param.h>
+#include <stand.h>
+#include <rawfs.h>
+
+extern int debug;
+
+/* Our devices are generally willing to do 8K transfers. */
+#define RAWFS_BSIZE 0x2000
+
+/*
+ * In-core open file.
+ */
+struct rawfs_file {
+ daddr_t fs_nextblk; /* block number to read next */
+ int fs_len; /* amount left in f_buf */
+ char * fs_ptr; /* read pointer into f_buf */
+ char fs_buf[RAWFS_BSIZE];
+};
+
+static int
+rawfs_get_block __P((struct open_file *));
+
+int
+rawfs_open(path, f)
+ char *path;
+ struct open_file *f;
+{
+ struct rawfs_file *fs;
+
+ /*
+ * The actual tape driver has already been opened.
+ * Just allocate the I/O buffer, etc.
+ */
+ fs = alloc(sizeof(struct rawfs_file));
+ fs->fs_nextblk = 0;
+ fs->fs_len = 0;
+ fs->fs_ptr = fs->fs_buf;
+
+#ifdef DEBUG_RAWFS
+ printf("rawfs_open: fs=0x%x\n", (u_long)fs);
+#endif
+
+ f->f_fsdata = fs;
+ return (0);
+}
+
+int
+rawfs_close(f)
+ struct open_file *f;
+{
+ struct rawfs_file *fs;
+
+ fs = (struct rawfs_file *) f->f_fsdata;
+ f->f_fsdata = (void *)0;
+
+#ifdef DEBUG_RAWFS
+ printf("rawfs_close: fs=0x%x\n", (u_long)fs);
+#endif
+
+ if (fs != (struct rawfs_file *)0)
+ free(fs, sizeof(*fs));
+
+ return (0);
+}
+
+int
+rawfs_read(f, start, size, resid)
+ struct open_file *f;
+ void *start;
+ u_int size;
+ u_int *resid;
+{
+ struct rawfs_file *fs = (struct rawfs_file *)f->f_fsdata;
+ char *addr = start;
+ int error = 0;
+ size_t csize;
+
+#ifdef DEBUG_RAWFS
+ printf("rawfs_read: file=0x%x, start=0x%x, size=%d, resid=0x%x\n",
+ (u_long)f, (u_long)start, size, resid);
+ printf(" fs=0x%x\n", (u_long)fs);
+#endif
+
+ while (size != 0) {
+
+ if (fs->fs_len == 0)
+ if ((error = rawfs_get_block(f)) != 0)
+ break;
+
+ if (fs->fs_len <= 0)
+ break; /* EOF */
+
+ csize = size;
+ if (csize > fs->fs_len)
+ csize = fs->fs_len;
+
+ bcopy(fs->fs_ptr, addr, csize);
+ fs->fs_ptr += csize;
+ fs->fs_len -= csize;
+ addr += csize;
+ size -= csize;
+ }
+ if (resid)
+ *resid = size;
+ return (error);
+}
+
+int
+rawfs_write(f, start, size, resid)
+ struct open_file *f;
+ void *start;
+ size_t size;
+ size_t *resid; /* out */
+{
+#ifdef DEBUG_RAWFS
+ printf("rawfs_write: YOU'RE NOT SUPPOSED TO GET HERE!\n");
+#endif
+ return (EROFS);
+}
+
+off_t
+rawfs_seek(f, offset, where)
+ struct open_file *f;
+ off_t offset;
+ int where;
+{
+#ifdef DEBUG_RAWFS
+ printf("rawfs_seek: YOU'RE NOT SUPPOSED TO GET HERE!\n");
+#endif
+ return (EFTYPE);
+}
+
+int
+rawfs_stat(f, sb)
+ struct open_file *f;
+ struct stat *sb;
+{
+#ifdef DEBUG_RAWFS
+ printf("rawfs_stat: I'll let you live only because of exec.c\n");
+#endif
+ /*
+ * Clear out the stat buffer so that the uid check
+ * won't fail. See sys/lib/libsa/exec.c
+ */
+ bzero(sb, sizeof(*sb));
+
+ return (EFTYPE);
+}
+
+/*
+ * Read a block from the underlying stream device
+ * (In our case, a tape drive.)
+ */
+static int
+rawfs_get_block(f)
+ struct open_file *f;
+{
+ struct rawfs_file *fs;
+ int error, len;
+
+ fs = (struct rawfs_file *)f->f_fsdata;
+ fs->fs_ptr = fs->fs_buf;
+
+ twiddle();
+#ifdef DEBUG_RAWFS
+ printf("rawfs_get_block: calling strategy\n");
+#endif
+ error = f->f_dev->dv_strategy(f->f_devdata, F_READ,
+ fs->fs_nextblk, RAWFS_BSIZE, fs->fs_buf, &len);
+#ifdef DEBUG_RAWFS
+ printf("rawfs_get_block: strategy returned %d\n", error);
+#endif
+
+ if (!error) {
+ fs->fs_len = len;
+ fs->fs_nextblk += (RAWFS_BSIZE / DEV_BSIZE);
+ }
+
+ return (error);
+}
diff --git a/sys/arch/hp300/stand/rawfs.h b/sys/arch/hp300/stand/rawfs.h
new file mode 100644
index 00000000000..f5f2f2b1e20
--- /dev/null
+++ b/sys/arch/hp300/stand/rawfs.h
@@ -0,0 +1,16 @@
+/* $OpenBSD: rawfs.h,v 1.1 1997/01/17 08:36:52 downsj Exp $ */
+/* $NetBSD: rawfs.h,v 1.1 1996/06/26 17:44:36 thorpej Exp $ */
+
+/*
+ * Raw file system - for stream devices like tapes.
+ * No random access, only sequential read allowed.
+ */
+
+int rawfs_open __P((char *path, struct open_file *f));
+int rawfs_close __P((struct open_file *f));
+int rawfs_read __P((struct open_file *f, void *buf,
+ u_int size, u_int *resid));
+int rawfs_write __P((struct open_file *f, void *buf,
+ u_int size, u_int *resid));
+off_t rawfs_seek __P((struct open_file *f, off_t offset, int where));
+int rawfs_stat __P((struct open_file *f, struct stat *sb));
diff --git a/sys/arch/hp300/stand/uboot.c b/sys/arch/hp300/stand/uboot.c
new file mode 100644
index 00000000000..e29d7dd76de
--- /dev/null
+++ b/sys/arch/hp300/stand/uboot.c
@@ -0,0 +1,143 @@
+/* $OpenBSD: uboot.c,v 1.1 1997/01/17 08:36:53 downsj Exp $ */
+/* $NetBSD: uboot.c,v 1.2 1996/10/14 07:33:45 thorpej Exp $ */
+
+/*-
+ * Copyright (c) 1982, 1986, 1990, 1993
+ * The Regents of the University of California. All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ * notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ * notice, this list of conditions and the following disclaimer in the
+ * documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ * must display the following acknowledgement:
+ * This product includes software developed by the University of
+ * California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ * may be used to endorse or promote products derived from this software
+ * without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ *
+ * @(#)boot.c 8.1 (Berkeley) 6/10/93
+ */
+
+#include <sys/param.h>
+#include <sys/reboot.h>
+#include <a.out.h>
+#include "stand.h"
+#include "samachdep.h"
+
+/*
+ * Boot program... bits in `howto' determine whether boot stops to
+ * ask for system name. Boot device is derived from ROM provided
+ * information.
+ */
+
+char line[100];
+
+extern u_int opendev;
+extern char *lowram;
+extern int noconsole;
+
+/*
+ * XXX UFS accepts a /, NFS doesn't.
+ */
+char *name;
+char *names[] = {
+ "bsd", "obsd", "bsd.old",
+};
+#define NUMNAMES (sizeof(names) / sizeof(char *))
+
+static int bdev, badapt, bctlr, bunit, bpart;
+
+main()
+{
+ int currname = 0;
+
+ printf("\n>> OpenBSD UNIFIED BOOT HP9000/%s CPU\n",
+ getmachineid());
+ printf(">> $OpenBSD: uboot.c,v 1.1 1997/01/17 08:36:53 downsj Exp $\n");
+ printf(">> Enter \"reset\" to reset system.\n");
+
+ bdev = B_TYPE(bootdev);
+ badapt = B_ADAPTOR(bootdev);
+ bctlr = B_CONTROLLER(bootdev);
+ bunit = B_UNIT(bootdev);
+ bpart = B_PARTITION(bootdev);
+
+ for (;;) {
+ name = names[currname++];
+ if (currname == NUMNAMES)
+ currname = 0;
+
+ if (!noconsole) {
+ howto = 0;
+ getbootdev(&howto);
+ } else
+ printf(": %s\n", name);
+
+ exec(name, lowram, howto);
+ printf("boot: %s\n", strerror(errno));
+ }
+}
+
+getbootdev(howto)
+ int *howto;
+{
+ char c, *ptr = line;
+
+ printf("Boot: [[[%s%d%c:]%s][-s][-a][-d]] :- ",
+ devsw[bdev].dv_name, bctlr + (8 * badapt), 'a' + bpart, name);
+
+ if (tgets(line)) {
+ if (strcmp(line, "reset") == 0) {
+ call_req_reboot(); /* reset machine */
+ printf("panic: can't reboot, halting\n");
+ asm("stop #0x2700");
+ }
+ while (c = *ptr) {
+ while (c == ' ')
+ c = *++ptr;
+ if (!c)
+ return;
+ if (c == '-')
+ while ((c = *++ptr) && c != ' ')
+ switch (c) {
+ case 'a':
+ *howto |= RB_ASKNAME;
+ continue;
+ case 's':
+ *howto |= RB_SINGLE;
+ continue;
+ case 'd':
+ *howto |= RB_KDB;
+ continue;
+ case 'b':
+ *howto |= RB_HALT;
+ continue;
+ }
+ else {
+ name = ptr;
+ while ((c = *++ptr) && c != ' ');
+ if (c)
+ *ptr++ = 0;
+ }
+ }
+ } else
+ printf("\n");
+}