NetBSD/sys/arch/vax/boot/bootxx.c

/* $NetBSD: bootxx.c,v 1.2 1995/04/25 14:14:22 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 "../mba/mbareg.h"
#include "../mba/hpreg.h"
#include "../include/pte.h"
#include "../include/sid.h"
#include "../include/mtpr.h"

#include "data.h"
#include "vaxstand.h"

#include <a.out.h>

int             romstrategy(), romopen();

/*
 * Boot program... arguments passed in r10 and r11 determine whether boot
 * stops to ask for system name and which device boot comes from.
 * 
 * bertram 22-mar-1995: passing arguments in registers removed. also any
 * asm-declaration for fixed registers.
 */

volatile u_int  devtype, bootdev;
unsigned        opendev, boothowto, bootset;

int             cpu_type, cpunumber;

int 
is_uVAX()
{
	return ((cpunumber == VAX_78032 || cpunumber == VAX_650) ? 1 : 0);
}
int 
is_750()
{
	return (cpunumber == VAX_750 ? 1 : 0);
}

main()
{
	int             io, retry, type, i;

	initData();

#ifdef VERBOSE
	printf("\ncpunumber: %d, cpu_type: %x\n", cpunumber, cpu_type);
#endif
	if (is_uVAX()) {	/* rpb and bootregs[] are */
		bootdev = rpb->devtyp;	/* initialized in init.c */
		boothowto = bootregs[5];
	} else if (is_750()) {	/* code in start.s places bdev */
		bootdev = bootregs[0];	/* in r0/r10, howto in r5/r11 */
		boothowto = bootregs[5];	/* so we can use any
						 * combination */
	} else {		/* not (yet) neccessary ... */
		bootdev = bootregs[10];
		boothowto = bootregs[11];
	}
	bootset = getbootdev();

	printf("\nhowto %x, bdev %x, booting...\n", boothowto, bootdev);
	io = open("boot", 0);
	if (io >= 0 && io < SOPEN_MAX) {
		copyunix(io);
	} else {
		printf("Boot failed. errno %d (%s)\n", errno, strerror(errno));
	}
	asm("halt");
}

/* ARGSUSED */
copyunix(aio)
{
	register int    esym;	/* must be r9 */
	struct exec     x;
	register int    io = aio, i;
	char           *addr;

	i = read(io, (char *) &x, sizeof(x));
	if (i != sizeof(x) || N_BADMAG(x)) {
		printf("Bad format: errno %s\n", strerror(errno));
		return;
	}
	printf("%d", x.a_text);
	if (N_GETMAGIC(x) == ZMAGIC && lseek(io, N_TXTADDR(x), SEEK_SET) == -1)
		goto shread;
	if (read(io, (char *) 0x10000, x.a_text) != x.a_text)
		goto shread;
	addr = (char *) x.a_text;
	if (N_GETMAGIC(x) == ZMAGIC || N_GETMAGIC(x) == NMAGIC)
		while ((int) addr & CLOFSET)
			*addr++ = 0;
	printf("+%d", x.a_data);
	if (read(io, addr + 0x10000, x.a_data) != x.a_data)
		goto shread;
	addr += x.a_data;
	bcopy((void *) 0x10000, 0, (int) addr);
	printf("+%d", x.a_bss);
	for (i = 0; i < x.a_bss; i++)
		*addr++ = 0;
	for (i = 0; i < 128 * 512; i++)	/* slop */
		*addr++ = 0;
	printf(" start 0x%x\n", x.a_entry);
	hoppabort(x.a_entry, boothowto, bootset);
	(*((int (*) ()) x.a_entry)) ();
	return;
shread:
	printf("Short read\n");
	return;
}

getbootdev()
{
	int             i, major, adaptor, controller, unit, partition;

	if (is_uVAX()) {
		adaptor = 0;	/* Q22 is the only Unibus adaptor */
		controller = rpb->slave;	/* e.g. DUA ===> 0, DUB ===>
						 * 1 */
		unit = rpb->unit;	/* e.g. DUB2 ==> 2, DUA0 ==> 0 */
	} else {
		unit = bootregs[3];	/* this is for 11/750 */
		controller = 0;
	}
	partition = 0;

	switch (bootdev) {
	case 0:		/* massbuss boot */
		major = 0;	/* hp / ...  */
		adaptor = (bootregs[1] & 0x6000) >> 17;
		break;

	case 17:		/* UDA50 boot */
		major = 9;	/* ra / mscp  */
		if (!is_uVAX())
			adaptor = (bootregs[1] & 0x40000 ? 0 : 1);
		break;

	case 18:		/* TK50 boot */
		major = 8;	/* tm / tmscp  */
		if (is_uVAX())
			break;

	default:
		printf("Unsupported boot device %d, trying anyway.\n", bootdev);
		boothowto |= (RB_SINGLE | RB_ASKNAME);
	}

	return MAKEBOOTDEV(major, adaptor, controller, unit, partition);
}

struct devsw    devsw[] = {
	SADEV("rom", romstrategy,nullsys,nullsys, noioctl),
};

int             ndevs = (sizeof(devsw) / sizeof(devsw[0]));

struct fs_ops   file_system[] = {
	{ufs_open, ufs_close, ufs_read, ufs_write, ufs_seek, ufs_stat}
};

int             nfsys = (sizeof(file_system) / sizeof(struct fs_ops));
struct disklabel lp;

devopen(f, fname, file)
	struct open_file *f;
	char           *fname;
	char          **file;
{
	char           *msg;
	f->f_dev = &devsw[0];
	*file = fname;

	if (is_uVAX())
		initCtrl();

	msg = getdisklabel((void *) RELOC + LABELOFFSET, &lp);
	if (msg)
		printf("getdisklabel: %s\n", msg);
	return 0;
}

extern int      bulkread630(int lbn, int size, void *buf, int *regs);

extern int      read750(int block, int *regs);
extern int      read630(int block, int *regs);


romstrategy(sc, func, dblk, size, buf, rsize)
	void           *sc;
	int             func;
	daddr_t         dblk;
	char           *buf;
	int             size, *rsize;
{
	int             nsize = size, block = dblk;
	int             (*readblk) (int, int *);

	if (is_uVAX() && (bootdev == 17 || bootdev == 18)) {
		int             res;
		*rsize = nsize;
		res = bulkread630(block, size, buf, bootregs);
		return (res & 0x01 ? 0 : -1);
	}
	if (is_750() && bootdev == 0) {
		*rsize = nsize;
		return hpread(block, size, buf);
	}
	if (is_uVAX())
		readblk = read630;
	else if (is_750())
		readblk = read750;
	else {
		printf("Unuspported VAX-type %d.\n", cpunumber);
		return (1);
	}

	while (size > 0) {
		if (!(readblk(block, bootregs) & 0x01))
			return (1);	/* low-bit clear indicates error */

		bcopy(0, buf, 512);	/* readblk writes at adress 0x0 */
		size -= 512;
		buf += 512;
		block++;
	}
	*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)
		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;
}