sync with netbsd -- this involved rearranging things for sanity reasons

and because separate builds of libsa are done.  this is a pretty nice
bootloader.

3 files changed, 684 insertions, 0 deletions

diff --git a/sys/arch/vax/stand/xxboot/Makefile b/sys/arch/vax/stand/xxboot/Makefile
new file mode 100644
index 00000000000..22bef4f3d13
--- /dev/null
+++ b/sys/arch/vax/stand/xxboot/Makefile
@@ -0,0 +1,36 @@
+#	$OpenBSD: Makefile,v 1.1 2000/04/27 02:26:27 bjc Exp $	
+#	$NetBSD: Makefile,v 1.2 1999/10/23 14:40:39 ragge Exp $
+
+S=../../../..
+
+PROG=	xxboot
+LINKS=	${BINDIR}/xxboot ${BINDIR}/raboot 
+LINKS+=	${BINDIR}/xxboot ${BINDIR}/rdboot
+LINKS+=	${BINDIR}/xxboot ${BINDIR}/sdboot
+LINKS+=	${BINDIR}/xxboot ${BINDIR}/hpboot
+
+SRCS=	start.s bootxx.c romread.s urem.s udiv.s str.s
+
+STRIPFLAG=
+CPPFLAGS+=-D_STANDALONE -DLIBSA_NO_FD_CHECKING -DLIBSA_NO_RAW_ACCESS \
+	-DLIBSA_NO_TWIDDLE -DLIBSA_SINGLE_DEVICE=rom \
+	-DLIBSA_SINGLE_FILESYSTEM=ufs
+BINDIR=	/usr/mdec
+NOMAN=	1
+
+SA_AS=	library
+.include "${S}/lib/libsa/Makefile.inc"
+LIBSA=	${SALIB}
+
+${PROG}: ${OBJS} ${LIBSA}
+	ld -N -Ttext 100000 -o a.out ${OBJS} ${LIBSA}
+	strip a.out
+	size a.out
+	dd if=a.out of=${PROG} bs=32 skip=1
+#	rm -f a.out
+
+clean::
+	rm -f a.out [Ee]rrs mklog core *.core ${PROG} ${OBJS} ${LOBJS} \
+		${CLEANFILES} 
+
+.include <bsd.prog.mk>
diff --git a/sys/arch/vax/stand/xxboot/bootxx.c b/sys/arch/vax/stand/xxboot/bootxx.c
new file mode 100644
index 00000000000..3a1d48fab9f
--- /dev/null
+++ b/sys/arch/vax/stand/xxboot/bootxx.c
@@ -0,0 +1,448 @@
+/* $OpenBSD: bootxx.c,v 1.1 2000/04/27 02:26:27 bjc Exp $ */
+/* $NetBSD: bootxx.c,v 1.2 1999/10/23 14:40:38 ragge Exp $ */
+/*-
+ * Copyright (c) 1982, 1986 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	7.15 (Berkeley) 5/4/91
+ */
+
+#include "sys/param.h"
+#include "sys/reboot.h"
+#include "sys/disklabel.h"
+
+#include "lib/libsa/stand.h"
+#include "lib/libsa/ufs.h"
+
+#include "../include/pte.h"
+#include "../include/sid.h"
+#include "../include/mtpr.h"
+#include "../include/reg.h"
+#include "../include/rpb.h"
+
+#include "../mba/mbareg.h"
+#include "../mba/hpreg.h"
+
+#define NRSP 1 /* Kludge */
+#define NCMD 1 /* Kludge */
+
+#include "../mscp/mscp.h"
+#include "../mscp/mscpreg.h"
+
+#include "vaxstand.h"
+
+
+int	romstrategy __P((void *, int, daddr_t, size_t, void *, size_t *));
+
+struct fs_ops	file_system[] = {
+	{ ufs_open, ufs_close, ufs_read, ufs_write, ufs_seek, ufs_stat }
+};
+
+struct devsw	devsw[] = {
+	SADEV("rom", romstrategy, nullsys, nullsys, noioctl),
+};
+
+int	nfsys = (sizeof(file_system) / sizeof(struct fs_ops));
+
+int	command __P((int cmd, int arg));
+
+/*
+ * Boot program... argume passed in r10 and r11 determine whether boot
+ * stops to ask for system name and which device boot comes from.
+ */
+
+volatile dev_t	devtype, bootdev;
+unsigned        opendev, boothowto, bootset, memsz;
+
+struct open_file file;
+
+unsigned *bootregs;
+struct	rpb *rpb;
+int	vax_cputype;
+
+/*
+ * The boot block are used by 11/750, 8200, MicroVAX II/III, VS2000,
+ * VS3100/??, VS4000 and VAX6000/???, and only when booting from disk.
+ */
+Xmain()
+{
+	int io;
+	char *scbb;
+	char *new, *bqo;
+	char *hej = "/boot";
+
+	vax_cputype = (mfpr(PR_SID) >> 24) & 0xFF;
+
+	/*
+	 */ 
+	switch (vax_cputype) {
+	case VAX_TYP_UV2:
+	case VAX_TYP_CVAX:
+	case VAX_TYP_RIGEL:
+	case VAX_TYP_NVAX:
+	case VAX_TYP_SOC:
+		/*
+		 * now relocate rpb/bqo (which are used by ROM-routines)
+		 */
+		rpb = (void*)XXRPB;
+		bcopy ((void*)bootregs[11], rpb, 512);
+		rpb->rpb_base = rpb;
+		bqo = (void*)(512+(int)rpb);
+		bcopy ((void*)rpb->iovec, bqo, rpb->iovecsz);
+		rpb->iovec = (int)bqo;
+		bootregs[11] = (int)rpb;
+		bootdev = rpb->devtyp;
+		memsz = rpb->pfncnt << 9;
+		break;
+	case VAX_8200:
+        case VAX_750:
+		bootdev = bootregs[10];
+		memsz = 0;
+		break;
+	default:
+		asm("halt");
+	}
+
+	bootset = getbootdev();
+
+	io = open(hej, 0);
+
+	read(io, (void *)0x10000, 0x10000);
+	bcopy((void *) 0x10000, 0, 0xffff);
+	hoppabort(32, boothowto, bootset);
+	asm("halt");
+}
+
+getbootdev()
+{
+	int i, adaptor, controller, unit, partition, retval;
+
+	adaptor = controller = unit = partition = 0;
+
+	switch (vax_cputype) {
+	case VAX_TYP_UV2:
+	case VAX_TYP_CVAX:
+	case VAX_TYP_RIGEL:
+		if (rpb->devtyp == BDEV_SD) {
+			unit = rpb->unit / 100;
+			controller = (rpb->csrphy & 0x100 ? 1 : 0);
+		} else {
+			controller = ((rpb->csrphy & 017777) == 0xDC)?1:0;
+			unit = rpb->unit;			/* DUC, DUD? */
+		}
+		break;
+
+	case VAX_TYP_8SS:
+	case VAX_TYP_750:
+		controller = bootregs[1];
+		unit = bootregs[3];
+		break;
+	}
+
+	switch (B_TYPE(bootdev)) {
+	case BDEV_HP:			/* massbuss boot */
+		adaptor = (bootregs[1] & 0x6000) >> 17;
+		break;
+
+	case BDEV_UDA:		/* UDA50 boot */
+		if (vax_cputype == VAX_750)
+			adaptor = (bootregs[1] & 0x40000 ? 0 : 1);
+		break;
+
+	case BDEV_TK:		/* TK50 boot */
+	case BDEV_CNSL:		/* Console storage boot */
+	case BDEV_RD:		/* RD/RX on HDC9224 (MV2000) */
+	case BDEV_ST:		/* SCSI-tape on NCR5380 (MV2000) */
+	case BDEV_SD:		/* SCSI-disk on NCR5380 (3100/76) */
+		break;
+
+	case BDEV_KDB:		/* DSA disk on KDB50 (VAXBI VAXen) */
+		bootdev = (bootdev & ~B_TYPEMASK) | BDEV_UDA;
+		break;
+
+	default:
+		boothowto |= (RB_SINGLE | RB_ASKNAME);
+	}
+	return MAKEBOOTDEV(bootdev, adaptor, controller, unit, partition);
+}
+
+/*
+ * Write an extremely limited version of a (us)tar filesystem, suitable
+ * for loading secondary-stage boot loader.
+ * - Can only load file "boot".
+ * - Must be the first file on tape.
+ */
+int tar_open(char *path, struct open_file *f);
+ssize_t tar_read(struct open_file *f, void *buf, size_t size, size_t *resid);
+
+int
+tar_open(path, f)
+	char *path;
+	struct open_file *f;
+{
+	char *buf = alloc(512);
+
+	bzero(buf, 512);
+	romstrategy(0, 0, 8192, 512, buf, 0);
+	if (bcmp(buf, "boot", 5) || bcmp(&buf[257], "ustar", 5))
+		return EINVAL; /* Not a ustarfs with "boot" first */
+	return 0;
+}
+
+ssize_t
+tar_read(f, buf, size, resid)
+	struct open_file *f;
+	void *buf;
+	size_t size;
+	size_t *resid;
+{
+	romstrategy(0, 0, (8192+512), size, buf, 0);
+	*resid = size;
+}
+
+struct disklabel lp;
+int part_off = 0;		/* offset into partition holding /boot */
+char io_buf[DEV_BSIZE];
+volatile struct uda {
+	struct  mscp_1ca uda_ca;           /* communications area */
+	struct  mscp uda_rsp;     /* response packets */
+	struct  mscp uda_cmd;     /* command packets */
+} uda;
+struct udadevice {u_short udaip;u_short udasa;};
+volatile struct udadevice *csr;
+
+devopen(f, fname, file)
+	struct open_file *f;
+	const char    *fname;
+	char          **file;
+{
+	extern char	start;
+	char           *msg;
+	int		i, err, off;
+	char		line[64];
+
+	f->f_dev = &devsw[0];
+	*file = (char *)fname;
+
+	/*
+	 * On uVAX we need to init [T]MSCP ctlr to be able to use it.
+	 */
+	if (vax_cputype == VAX_TYP_UV2 || vax_cputype == VAX_TYP_CVAX) {
+		switch (bootdev) {
+		case BDEV_UDA:	/* MSCP */
+		case BDEV_TK:	/* TMSCP */
+			csr = (struct udadevice *)rpb->csrphy;
+
+			csr->udaip = 0; /* Start init */
+			while((csr->udasa & MP_STEP1) == 0);
+			csr->udasa = 0x8000;
+			while((csr->udasa & MP_STEP2) == 0);
+			csr->udasa = (short)(((u_int)&uda)&0xffff) + 8;
+			while((csr->udasa & MP_STEP3) == 0);
+			csr->udasa = 0x10;
+			while((csr->udasa & MP_STEP4) == 0);
+			csr->udasa = 0x0001;
+
+			uda.uda_ca.ca_rspdsc =
+			    (int) &uda.uda_rsp.mscp_cmdref;
+			uda.uda_ca.ca_cmddsc =
+			    (int) &uda.uda_cmd.mscp_cmdref;
+			if (bootdev == BDEV_TK)
+				uda.uda_cmd.mscp_vcid = 1;
+			command(M_OP_SETCTLRC, 0);
+			uda.uda_cmd.mscp_unit = rpb->unit;
+			command(M_OP_ONLINE, 0);
+		}
+	}
+
+	/* 
+	 * the disklabel _shall_ be at address LABELOFFSET + RELOC in
+	 * phys memory now, no need at all to reread it again.
+	 * Actually disklabel is only needed when using hp disks,
+	 * but it doesn't hurt to always get it.
+	 */
+	getdisklabel(LABELOFFSET + &start, &lp);
+	return 0;
+}
+
+command(cmd, arg)
+{
+	volatile int hej;
+
+	uda.uda_cmd.mscp_opcode = cmd;
+	uda.uda_cmd.mscp_modifier = arg;
+
+	uda.uda_cmd.mscp_msglen = MSCP_MSGLEN;
+	uda.uda_rsp.mscp_msglen = MSCP_MSGLEN;
+	uda.uda_ca.ca_rspdsc |= MSCP_OWN|MSCP_INT;
+	uda.uda_ca.ca_cmddsc |= MSCP_OWN|MSCP_INT;
+	hej = csr->udaip;
+	while (uda.uda_ca.ca_rspdsc < 0);
+
+}
+
+int curblock = 0;
+
+romstrategy(sc, func, dblk, size, buf, rsize)
+	void    *sc;
+	int     func;
+	daddr_t dblk;
+	size_t	size;
+	void    *buf;
+	size_t	*rsize;
+{
+	int i;
+	int	block = dblk;
+	int     nsize = size;
+
+	switch (vax_cputype) {
+	/*
+	 * case VAX_TYP_UV2:
+	 * case VAX_TYP_CVAX:
+	 * case VAX_TYP_RIGEL:
+	 */
+	default:
+		switch (bootdev) {
+
+		case BDEV_UDA: /* MSCP */
+			uda.uda_cmd.mscp_seq.seq_lbn = dblk;
+			uda.uda_cmd.mscp_seq.seq_bytecount = size;
+			uda.uda_cmd.mscp_seq.seq_buffer = (int)buf;
+			uda.uda_cmd.mscp_unit = rpb->unit;
+			command(M_OP_READ, 0);
+			break;
+
+		case BDEV_TK: /* TMSCP */
+			if (dblk < curblock) {
+				uda.uda_cmd.mscp_seq.seq_bytecount =
+				    curblock - dblk;
+				command(M_OP_POS, 12);
+			} else {
+				uda.uda_cmd.mscp_seq.seq_bytecount =
+				    dblk - curblock;
+				command(M_OP_POS, 4);
+			}
+			curblock = size/512 + dblk;
+			for (i = 0 ; i < size/512 ; i++) {
+				uda.uda_cmd.mscp_seq.seq_lbn = 1;
+				uda.uda_cmd.mscp_seq.seq_bytecount = 512;
+				uda.uda_cmd.mscp_seq.seq_buffer =
+				    (int)buf + i * 512;
+				uda.uda_cmd.mscp_unit = rpb->unit;
+				command(M_OP_READ, 0);
+			}
+			break;
+		case BDEV_RD:
+		case BDEV_ST:
+		case BDEV_SD:
+
+		default:
+			romread_uvax(block, size, buf, bootregs);
+			break;
+
+		}
+		break;
+
+	case VAX_8200:
+	case VAX_750:
+		if (bootdev != BDEV_HP) {
+			while (size > 0) {
+				while ((read750(block, bootregs) & 0x01) == 0){
+				}
+				bcopy(0, buf, 512);
+				size -= 512;
+				buf += 512;
+				block++;
+			}
+		} else
+			hpread(block, size, buf);
+		break;
+	}
+
+	if (rsize)
+		*rsize = nsize;
+	return 0;
+}
+
+hpread(block, size, buf)
+	char           *buf;
+{
+	volatile struct mba_regs *mr = (void *) bootregs[1];
+	volatile struct hp_drv *hd = (void*)&mr->mba_md[bootregs[3]];
+	struct disklabel *dp = &lp;
+	u_int           pfnum, nsize, mapnr, bn, cn, sn, tn;
+
+	pfnum = (u_int) buf >> PGSHIFT;
+
+	for (mapnr = 0, nsize = size; (nsize + NBPG) > 0; nsize -= NBPG)
+		*(int *)&mr->mba_map[mapnr++] = PG_V | pfnum++;
+	mr->mba_var = ((u_int) buf & PGOFSET);
+	mr->mba_bc = (~size) + 1;
+	bn = block;
+	cn = bn / dp->d_secpercyl;
+	sn = bn % dp->d_secpercyl;
+	tn = sn / dp->d_nsectors;
+	sn = sn % dp->d_nsectors;
+	hd->hp_dc = cn;
+	hd->hp_da = (tn << 8) | sn;
+	hd->hp_cs1 = HPCS_READ;
+	while (mr->mba_sr & MBASR_DTBUSY);
+	if (mr->mba_sr & MBACR_ABORT){
+		return 1;
+	}
+	return 0;
+}
+
+extern char end[];
+static char *top = (char*)end;
+
+void *
+alloc(size)
+        unsigned size;
+{
+	void *ut = top;
+	top += size;
+	return ut;
+}
+
+void
+free(ptr, size)
+        void *ptr;
+        unsigned size;
+{
+}
+
+int
+romclose(f)
+	struct open_file *f;
+{
+	return 0;
+}
diff --git a/sys/arch/vax/stand/xxboot/start.s b/sys/arch/vax/stand/xxboot/start.s
new file mode 100644
index 00000000000..d20753cf901
--- /dev/null
+++ b/sys/arch/vax/stand/xxboot/start.s
@@ -0,0 +1,200 @@
+/*	$OpenBSD: start.s,v 1.1 2000/04/27 02:26:27 bjc Exp $ */
+/*	$NetBSD: start.s,v 1.2 1999/10/23 14:40:38 ragge Exp $ */
+/*
+ * Copyright (c) 1995 Ludd, University of Lule}, Sweden.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to Ludd by
+ * Bertram Barth.
+ *
+ * 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.
+ */
+
+ /* All bugs are subject to removal without further notice */
+		
+
+#define	_LOCORE
+
+#include "sys/disklabel.h"
+
+#include "../include/mtpr.h"
+#include "../include/asm.h"		
+
+_start:	.globl _start		# this is the symbolic name for the start
+				# of code to be relocated. We can use this
+				# to get the actual/real adress (pc-rel)
+				# or to get the relocated address (abs).
+
+.org	0x00			# uVAX booted from TK50 starts here
+	brb	from_0x00	# continue behind dispatch-block
+
+.org	0x02			# information used by uVAX-ROM
+	.byte (LABELOFFSET + d_end_)/2 # offset in words to identification area 
+	.byte	1		# this byte must be 1
+	.word	0		# logical block number (word swapped) 
+	.word	0		# of the secondary image
+
+.org	0x08			#
+	brb	from_0x08	# skip ...
+
+.org	0x0A			# uVAX booted from disk starts here
+	brb	from_0x0A	# skip ...
+
+.org	0x0C			# 11/750  & 8200 starts here
+	brw	cont_750
+
+
+from_0x00:			# uVAX from TK50 
+from_0x0A:			# uVAX from disk
+	brw	start_uvax	# all(?) uVAXen continue there
+
+from_0x08:			# What comes here???
+	halt
+
+.org	LABELOFFSET - 6
+regmask: 	.word 0x0fff	# using a variable saves 3 bytes !!!
+bootinfo:	.long 0x0	# another 3 bytes if within byte-offset
+
+# the complete area reserved for label
+# must be empty (i.e. filled with zeroes).
+# disklabel(8) checks that before installing
+# the bootblocks over existing label.
+
+/*
+ * Parameter block for uVAX boot.
+ */
+#define VOLINFO         0       /* 1=single-sided  81=double-sided volumes */
+#define SISIZE          16      /* size in blocks of secondary image */
+#define SILOAD          0       /* load offset (usually 0) from the default */
+#define SIOFF           0x0A    /* byte offset into secondary image */
+
+.org    LABELOFFSET + d_end_
+	.byte	0x18		# must be 0x18 
+	.byte	0x00		# must be 0x00 (MBZ) 
+	.byte	0x00		# any value 
+	.byte	0xFF - (0x18 + 0x00 + 0x00)	
+		/* 4th byte holds 1s' complement of sum of previous 3 bytes */
+
+	.byte	0x00		# must be 0x00 (MBZ) 
+	.byte	VOLINFO
+	.byte	0x00		# any value 
+	.byte	0x00		# any value 
+
+	.long	SISIZE		# size in blocks of secondary image 
+	.long	SILOAD		# load offset (usually 0) 
+	.long 	SIOFF		# byte offset into secondary image 
+	.long	(SISIZE + SILOAD + SIOFF)	# sum of previous 3 
+
+/*
+ * After bootblock (LBN0) has been loaded into the first page 
+ * of good memory by 11/750's ROM-code (transfer address
+ * of bootblock-code is: base of good memory + 0x0C) registers
+ * are initialized as:
+ * 	R0:	type of boot-device
+ *			0:	Massbus device
+ *			1:	RK06/RK07
+ *			2:	RL02
+ *			17:	UDA50
+ *			35:	TK50
+ *			64:	TU58
+ *	R1:	(UBA) address of UNIBUS I/O-page
+ *		(MBA) address of boot device's adapter
+ * 	R2:	(UBA) address of the boot device's CSR
+ *		(MBA) controller number of boot device
+ *	R6:	address of driver subroutine in ROM
+ *
+ * cont_750 reads in LBN1-15 for further execution.
+ */
+	.align 2
+cont_750:
+        movl    r0,r10
+        movl    r5, ap	# ap not used here
+        clrl    r5
+        clrl    r4
+        movl    $_start,sp
+1:      incl    r4
+        movl    r4,r8
+        addl2   $0x200,r5
+        cmpl    $16,r4
+        beql    2f
+        pushl   r5
+        jsb     (r6)
+        blbs    r0,1b
+2:      movl	r10, r0
+	movl	r11, r5
+	brw	start_all
+
+
+start_uvax:
+	mtpr	$0, $PR_MAPEN	# Turn off MM, please.
+	movl    $_start, sp
+	movl	48(r11), ap
+	brb	start_all
+
+/*
+ * start_all: stack already at RELOC, we save registers, move ourself
+ * to RELOC and loads boot.
+ */
+start_all:
+	pushr	$0xfff			# save all regs, used later.
+
+	subl3	$_start, $_edata, r0	# get size of text+data (w/o bss)
+	moval	_start, r1		# get actual base-address of code
+	subl3	$_start, $_end, r2	# get complete size (incl. bss)
+	movl	$_start, r3		# get relocated base-address of code
+	movc5	r0, (r1), $0, r2, (r3)	# copy code to new location
+	
+	movl	$relocated, -(sp)	# return-address on top of stack 
+	rsb	 			# can be replaced with new address
+relocated:				# now relocation is done !!!
+	movl	sp, _bootregs
+	movl	ap, _boothowto
+	calls	$0, _Xmain		# call Xmain (gcc workaround)which is 
+	halt				# not intended to return ...
+
+/*
+ * hoppabort() is called when jumping to the newly loaded program.
+ */
+ENTRY(hoppabort, 0)
+	movl    4(ap),r6
+	movl    8(ap),r11
+	movl    0xc(ap),r10
+	movl	_memsz, r8
+	mnegl	$1, ap		# Hack to figure out boot device.
+	jmp	2(r6)
+#	calls   $0,(r6)
+	halt
+
+# A bunch of functions unwanted in boot blocks.
+ENTRY(getchar, 0)
+	halt
+
+ENTRY(putchar, 0)
+	ret
+
+ENTRY(panic, 0)
+	halt