Home | History | Annotate | Line # | Download | only in xxboot
bootxx.c revision 1.1.12.1
      1  1.1.12.1  wrstuden /* $NetBSD: bootxx.c,v 1.1.12.1 1999/12/27 18:34:11 wrstuden Exp $ */
      2       1.1     ragge /*-
      3       1.1     ragge  * Copyright (c) 1982, 1986 The Regents of the University of California.
      4       1.1     ragge  * All rights reserved.
      5       1.1     ragge  *
      6       1.1     ragge  * Redistribution and use in source and binary forms, with or without
      7       1.1     ragge  * modification, are permitted provided that the following conditions
      8       1.1     ragge  * are met:
      9       1.1     ragge  * 1. Redistributions of source code must retain the above copyright
     10       1.1     ragge  *    notice, this list of conditions and the following disclaimer.
     11       1.1     ragge  * 2. Redistributions in binary form must reproduce the above copyright
     12       1.1     ragge  *    notice, this list of conditions and the following disclaimer in the
     13       1.1     ragge  *    documentation and/or other materials provided with the distribution.
     14       1.1     ragge  * 3. All advertising materials mentioning features or use of this software
     15       1.1     ragge  *    must display the following acknowledgement:
     16       1.1     ragge  *	This product includes software developed by the University of
     17       1.1     ragge  *	California, Berkeley and its contributors.
     18       1.1     ragge  * 4. Neither the name of the University nor the names of its contributors
     19       1.1     ragge  *    may be used to endorse or promote products derived from this software
     20       1.1     ragge  *    without specific prior written permission.
     21       1.1     ragge  *
     22       1.1     ragge  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     23       1.1     ragge  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     24       1.1     ragge  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     25       1.1     ragge  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     26       1.1     ragge  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     27       1.1     ragge  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     28       1.1     ragge  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     29       1.1     ragge  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     30       1.1     ragge  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     31       1.1     ragge  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     32       1.1     ragge  * SUCH DAMAGE.
     33       1.1     ragge  *
     34       1.1     ragge  *	@(#)boot.c	7.15 (Berkeley) 5/4/91
     35       1.1     ragge  */
     36       1.1     ragge 
     37       1.1     ragge #include "sys/param.h"
     38       1.1     ragge #include "sys/reboot.h"
     39       1.1     ragge #include "sys/disklabel.h"
     40       1.1     ragge 
     41       1.1     ragge #include "lib/libsa/stand.h"
     42       1.1     ragge #include "lib/libsa/ufs.h"
     43       1.1     ragge 
     44       1.1     ragge #include "../include/pte.h"
     45       1.1     ragge #include "../include/sid.h"
     46       1.1     ragge #include "../include/mtpr.h"
     47       1.1     ragge #include "../include/reg.h"
     48       1.1     ragge #include "../include/rpb.h"
     49       1.1     ragge 
     50       1.1     ragge #include "../mba/mbareg.h"
     51       1.1     ragge #include "../mba/hpreg.h"
     52       1.1     ragge 
     53       1.1     ragge #define NRSP 1 /* Kludge */
     54       1.1     ragge #define NCMD 1 /* Kludge */
     55       1.1     ragge 
     56  1.1.12.1  wrstuden #include "dev/mscp/mscp.h"
     57  1.1.12.1  wrstuden #include "dev/mscp/mscpreg.h"
     58       1.1     ragge 
     59       1.1     ragge int	command(int, int);
     60       1.1     ragge 
     61       1.1     ragge /*
     62       1.1     ragge  * Boot program... argume passed in r10 and r11 determine whether boot
     63       1.1     ragge  * stops to ask for system name and which device boot comes from.
     64       1.1     ragge  */
     65       1.1     ragge 
     66       1.1     ragge volatile u_int  devtype, bootdev;
     67       1.1     ragge unsigned        opendev, boothowto, bootset, memsz;
     68       1.1     ragge 
     69  1.1.12.1  wrstuden struct open_file file;
     70  1.1.12.1  wrstuden 
     71       1.1     ragge unsigned *bootregs;
     72       1.1     ragge struct	rpb *rpb;
     73       1.1     ragge int	vax_cputype;
     74       1.1     ragge 
     75       1.1     ragge /*
     76       1.1     ragge  * The boot block are used by 11/750, 8200, MicroVAX II/III, VS2000,
     77       1.1     ragge  * VS3100/??, VS4000 and VAX6000/???, and only when booting from disk.
     78       1.1     ragge  */
     79       1.1     ragge Xmain()
     80       1.1     ragge {
     81       1.1     ragge 	int io;
     82       1.1     ragge 	char *scbb;
     83       1.1     ragge 	char *new, *bqo;
     84       1.1     ragge 	char *hej = "/boot";
     85       1.1     ragge 
     86       1.1     ragge 	vax_cputype = (mfpr(PR_SID) >> 24) & 0xFF;
     87       1.1     ragge 
     88  1.1.12.1  wrstuden 	/*
     89  1.1.12.1  wrstuden 	 */
     90       1.1     ragge         switch (vax_cputype) {
     91       1.1     ragge 
     92       1.1     ragge         case VAX_TYP_UV2:
     93       1.1     ragge         case VAX_TYP_CVAX:
     94       1.1     ragge 	case VAX_TYP_RIGEL:
     95       1.1     ragge 	case VAX_TYP_NVAX:
     96       1.1     ragge 	case VAX_TYP_SOC:
     97       1.1     ragge 		/*
     98       1.1     ragge 		 * now relocate rpb/bqo (which are used by ROM-routines)
     99       1.1     ragge 		 */
    100       1.1     ragge 		rpb = (void*)XXRPB;
    101       1.1     ragge 		bcopy ((void*)bootregs[11], rpb, 512);
    102       1.1     ragge 		rpb->rpb_base = rpb;
    103       1.1     ragge 		bqo = (void*)(512+(int)rpb);
    104       1.1     ragge 		bcopy ((void*)rpb->iovec, bqo, rpb->iovecsz);
    105       1.1     ragge 		rpb->iovec = (int)bqo;
    106       1.1     ragge 		bootregs[11] = (int)rpb;
    107       1.1     ragge 		bootdev = rpb->devtyp;
    108       1.1     ragge 		memsz = rpb->pfncnt << 9;
    109       1.1     ragge 
    110       1.1     ragge                 break;
    111       1.1     ragge 	case VAX_8200:
    112       1.1     ragge         case VAX_750:
    113       1.1     ragge 		bootdev = bootregs[10];
    114       1.1     ragge 		memsz = 0;
    115       1.1     ragge 
    116       1.1     ragge                 break;
    117       1.1     ragge 	default:
    118       1.1     ragge 		asm("halt");
    119       1.1     ragge         }
    120       1.1     ragge 
    121       1.1     ragge 	bootset = getbootdev();
    122       1.1     ragge 
    123       1.1     ragge 	io = open(hej, 0);
    124       1.1     ragge 
    125  1.1.12.1  wrstuden 	read(io, (void *)0x10000, 0x10000);
    126  1.1.12.1  wrstuden 	bcopy((void *) 0x10000, 0, 0xffff);
    127  1.1.12.1  wrstuden 	hoppabort(32, boothowto, bootset);
    128  1.1.12.1  wrstuden 	asm("halt");
    129       1.1     ragge }
    130       1.1     ragge 
    131       1.1     ragge getbootdev()
    132       1.1     ragge {
    133       1.1     ragge 	int i, adaptor, controller, unit, partition, retval;
    134       1.1     ragge 
    135       1.1     ragge 	adaptor = controller = unit = partition = 0;
    136       1.1     ragge 
    137       1.1     ragge 	switch (vax_cputype) {
    138       1.1     ragge 	case VAX_TYP_UV2:
    139       1.1     ragge 	case VAX_TYP_CVAX:
    140       1.1     ragge 	case VAX_TYP_RIGEL:
    141  1.1.12.1  wrstuden 		if (rpb->devtyp == BDEV_SD) {
    142  1.1.12.1  wrstuden 			unit = rpb->unit / 100;
    143  1.1.12.1  wrstuden 			controller = (rpb->csrphy & 0x100 ? 1 : 0);
    144  1.1.12.1  wrstuden 		} else {
    145  1.1.12.1  wrstuden 			controller = ((rpb->csrphy & 017777) == 0xDC)?1:0;
    146  1.1.12.1  wrstuden 			unit = rpb->unit;			/* DUC, DUD? */
    147  1.1.12.1  wrstuden 		}
    148       1.1     ragge 		break;
    149       1.1     ragge 
    150       1.1     ragge 	case VAX_TYP_8SS:
    151       1.1     ragge 	case VAX_TYP_750:
    152  1.1.12.1  wrstuden 		controller = bootregs[1];
    153       1.1     ragge 		unit = bootregs[3];
    154       1.1     ragge 		break;
    155       1.1     ragge 	}
    156       1.1     ragge 
    157       1.1     ragge 	switch (B_TYPE(bootdev)) {
    158       1.1     ragge 	case BDEV_HP:			/* massbuss boot */
    159       1.1     ragge 		adaptor = (bootregs[1] & 0x6000) >> 17;
    160       1.1     ragge 		break;
    161       1.1     ragge 
    162       1.1     ragge 	case BDEV_UDA:		/* UDA50 boot */
    163       1.1     ragge 		if (vax_cputype == VAX_750)
    164       1.1     ragge 			adaptor = (bootregs[1] & 0x40000 ? 0 : 1);
    165       1.1     ragge 		break;
    166       1.1     ragge 
    167       1.1     ragge 	case BDEV_TK:		/* TK50 boot */
    168       1.1     ragge 	case BDEV_CNSL:		/* Console storage boot */
    169       1.1     ragge 	case BDEV_RD:		/* RD/RX on HDC9224 (MV2000) */
    170  1.1.12.1  wrstuden 	case BDEV_ST:		/* SCSI-tape on NCR5380 (MV2000) */
    171  1.1.12.1  wrstuden 	case BDEV_SD:		/* SCSI-disk on NCR5380 (3100/76) */
    172       1.1     ragge 		break;
    173       1.1     ragge 
    174       1.1     ragge 	case BDEV_KDB:		/* DSA disk on KDB50 (VAXBI VAXen) */
    175       1.1     ragge 		bootdev = (bootdev & ~B_TYPEMASK) | BDEV_UDA;
    176       1.1     ragge 		break;
    177       1.1     ragge 
    178       1.1     ragge 	default:
    179       1.1     ragge 		boothowto |= (RB_SINGLE | RB_ASKNAME);
    180       1.1     ragge 	}
    181       1.1     ragge 	return MAKEBOOTDEV(bootdev, adaptor, controller, unit, partition);
    182       1.1     ragge }
    183       1.1     ragge 
    184       1.1     ragge int     romstrategy __P((void *, int, daddr_t, size_t, void *, size_t *));
    185       1.1     ragge 
    186  1.1.12.1  wrstuden /*
    187  1.1.12.1  wrstuden  * Write an extremely limited version of a (us)tar filesystem, suitable
    188  1.1.12.1  wrstuden  * for loading secondary-stage boot loader.
    189  1.1.12.1  wrstuden  * - Can only load file "boot".
    190  1.1.12.1  wrstuden  * - Must be the first file on tape.
    191  1.1.12.1  wrstuden  */
    192  1.1.12.1  wrstuden int tar_open(char *path, struct open_file *f);
    193  1.1.12.1  wrstuden ssize_t tar_read(struct open_file *f, void *buf, size_t size, size_t *resid);
    194       1.1     ragge 
    195  1.1.12.1  wrstuden int
    196  1.1.12.1  wrstuden tar_open(path, f)
    197  1.1.12.1  wrstuden 	char *path;
    198  1.1.12.1  wrstuden 	struct open_file *f;
    199  1.1.12.1  wrstuden {
    200  1.1.12.1  wrstuden 	char *buf = alloc(512);
    201  1.1.12.1  wrstuden 
    202  1.1.12.1  wrstuden 	bzero(buf, 512);
    203  1.1.12.1  wrstuden 	romstrategy(0, 0, 8192, 512, buf, 0);
    204  1.1.12.1  wrstuden 	if (bcmp(buf, "boot", 5) || bcmp(&buf[257], "ustar", 5))
    205  1.1.12.1  wrstuden 		return EINVAL; /* Not a ustarfs with "boot" first */
    206  1.1.12.1  wrstuden 	return 0;
    207  1.1.12.1  wrstuden }
    208  1.1.12.1  wrstuden 
    209  1.1.12.1  wrstuden ssize_t
    210  1.1.12.1  wrstuden tar_read(f, buf, size, resid)
    211  1.1.12.1  wrstuden 	struct open_file *f;
    212  1.1.12.1  wrstuden 	void *buf;
    213  1.1.12.1  wrstuden 	size_t size;
    214  1.1.12.1  wrstuden 	size_t *resid;
    215  1.1.12.1  wrstuden {
    216  1.1.12.1  wrstuden 	romstrategy(0, 0, (8192+512), size, buf, 0);
    217  1.1.12.1  wrstuden 	*resid = size;
    218  1.1.12.1  wrstuden }
    219       1.1     ragge 
    220       1.1     ragge struct disklabel lp;
    221       1.1     ragge int part_off = 0;		/* offset into partition holding /boot */
    222       1.1     ragge char io_buf[MAXBSIZE];
    223       1.1     ragge volatile struct uda {
    224       1.1     ragge 	struct  mscp_1ca uda_ca;           /* communications area */
    225       1.1     ragge 	struct  mscp uda_rsp;     /* response packets */
    226       1.1     ragge 	struct  mscp uda_cmd;     /* command packets */
    227       1.1     ragge } uda;
    228  1.1.12.1  wrstuden struct udadevice {u_short udaip;u_short udasa;};
    229       1.1     ragge volatile struct udadevice *csr;
    230       1.1     ragge 
    231       1.1     ragge devopen(f, fname, file)
    232       1.1     ragge 	struct open_file *f;
    233       1.1     ragge 	const char    *fname;
    234       1.1     ragge 	char          **file;
    235       1.1     ragge {
    236       1.1     ragge 	extern char	start;
    237       1.1     ragge 	char           *msg;
    238       1.1     ragge 	int		i, err, off;
    239       1.1     ragge 	char		line[64];
    240       1.1     ragge 
    241       1.1     ragge 	*file = (char *)fname;
    242       1.1     ragge 
    243       1.1     ragge 	/*
    244       1.1     ragge 	 * On uVAX we need to init [T]MSCP ctlr to be able to use it.
    245       1.1     ragge 	 */
    246       1.1     ragge 	if (vax_cputype == VAX_TYP_UV2 || vax_cputype == VAX_TYP_CVAX) {
    247       1.1     ragge 		switch (bootdev) {
    248       1.1     ragge 		case BDEV_UDA:	/* MSCP */
    249       1.1     ragge 		case BDEV_TK:	/* TMSCP */
    250       1.1     ragge 			csr = (struct udadevice *)rpb->csrphy;
    251       1.1     ragge 
    252       1.1     ragge 			csr->udaip = 0; /* Start init */
    253       1.1     ragge 			while((csr->udasa & MP_STEP1) == 0);
    254       1.1     ragge 			csr->udasa = 0x8000;
    255       1.1     ragge 			while((csr->udasa & MP_STEP2) == 0);
    256       1.1     ragge 			csr->udasa = (short)(((u_int)&uda)&0xffff) + 8;
    257       1.1     ragge 			while((csr->udasa & MP_STEP3) == 0);
    258       1.1     ragge 			csr->udasa = 0x10;
    259       1.1     ragge 			while((csr->udasa & MP_STEP4) == 0);
    260       1.1     ragge 			csr->udasa = 0x0001;
    261       1.1     ragge 
    262       1.1     ragge 			uda.uda_ca.ca_rspdsc =
    263       1.1     ragge 			    (int) &uda.uda_rsp.mscp_cmdref;
    264       1.1     ragge 			uda.uda_ca.ca_cmddsc =
    265       1.1     ragge 			    (int) &uda.uda_cmd.mscp_cmdref;
    266       1.1     ragge 			if (bootdev == BDEV_TK)
    267       1.1     ragge 				uda.uda_cmd.mscp_vcid = 1;
    268       1.1     ragge 			command(M_OP_SETCTLRC, 0);
    269       1.1     ragge 			uda.uda_cmd.mscp_unit = rpb->unit;
    270       1.1     ragge 			command(M_OP_ONLINE, 0);
    271       1.1     ragge 		}
    272       1.1     ragge 	}
    273       1.1     ragge 
    274       1.1     ragge 	/*
    275       1.1     ragge 	 * the disklabel _shall_ be at address LABELOFFSET + RELOC in
    276       1.1     ragge 	 * phys memory now, no need at all to reread it again.
    277       1.1     ragge 	 * Actually disklabel is only needed when using hp disks,
    278       1.1     ragge 	 * but it doesn't hurt to always get it.
    279       1.1     ragge 	 */
    280  1.1.12.1  wrstuden 	getdisklabel(LABELOFFSET + &start, &lp);
    281       1.1     ragge 	return 0;
    282       1.1     ragge }
    283       1.1     ragge 
    284       1.1     ragge command(cmd, arg)
    285       1.1     ragge {
    286       1.1     ragge 	volatile int hej;
    287       1.1     ragge 
    288       1.1     ragge 	uda.uda_cmd.mscp_opcode = cmd;
    289       1.1     ragge 	uda.uda_cmd.mscp_modifier = arg;
    290       1.1     ragge 
    291       1.1     ragge 	uda.uda_cmd.mscp_msglen = MSCP_MSGLEN;
    292       1.1     ragge 	uda.uda_rsp.mscp_msglen = MSCP_MSGLEN;
    293       1.1     ragge 	uda.uda_ca.ca_rspdsc |= MSCP_OWN|MSCP_INT;
    294       1.1     ragge 	uda.uda_ca.ca_cmddsc |= MSCP_OWN|MSCP_INT;
    295       1.1     ragge 	hej = csr->udaip;
    296       1.1     ragge 	while (uda.uda_ca.ca_rspdsc < 0);
    297       1.1     ragge 
    298       1.1     ragge }
    299       1.1     ragge 
    300       1.1     ragge int curblock = 0;
    301       1.1     ragge 
    302       1.1     ragge romstrategy(sc, func, dblk, size, buf, rsize)
    303       1.1     ragge 	void    *sc;
    304       1.1     ragge 	int     func;
    305       1.1     ragge 	daddr_t dblk;
    306       1.1     ragge 	size_t	size;
    307       1.1     ragge 	void    *buf;
    308       1.1     ragge 	size_t	*rsize;
    309       1.1     ragge {
    310       1.1     ragge 	int i;
    311       1.1     ragge 	int	block = dblk;
    312       1.1     ragge 	int     nsize = size;
    313       1.1     ragge 
    314       1.1     ragge 	switch (vax_cputype) {
    315       1.1     ragge 	/*
    316       1.1     ragge 	 * case VAX_TYP_UV2:
    317       1.1     ragge 	 * case VAX_TYP_CVAX:
    318       1.1     ragge 	 * case VAX_TYP_RIGEL:
    319       1.1     ragge 	 */
    320       1.1     ragge 	default:
    321       1.1     ragge 		switch (bootdev) {
    322       1.1     ragge 
    323       1.1     ragge 		case BDEV_UDA: /* MSCP */
    324       1.1     ragge 			uda.uda_cmd.mscp_seq.seq_lbn = dblk;
    325       1.1     ragge 			uda.uda_cmd.mscp_seq.seq_bytecount = size;
    326       1.1     ragge 			uda.uda_cmd.mscp_seq.seq_buffer = (int)buf;
    327       1.1     ragge 			uda.uda_cmd.mscp_unit = rpb->unit;
    328       1.1     ragge 			command(M_OP_READ, 0);
    329       1.1     ragge 			break;
    330       1.1     ragge 
    331       1.1     ragge 		case BDEV_TK: /* TMSCP */
    332       1.1     ragge 			if (dblk < curblock) {
    333       1.1     ragge 				uda.uda_cmd.mscp_seq.seq_bytecount =
    334       1.1     ragge 				    curblock - dblk;
    335       1.1     ragge 				command(M_OP_POS, 12);
    336       1.1     ragge 			} else {
    337       1.1     ragge 				uda.uda_cmd.mscp_seq.seq_bytecount =
    338       1.1     ragge 				    dblk - curblock;
    339       1.1     ragge 				command(M_OP_POS, 4);
    340       1.1     ragge 			}
    341       1.1     ragge 			curblock = size/512 + dblk;
    342       1.1     ragge 			for (i = 0 ; i < size/512 ; i++) {
    343       1.1     ragge 				uda.uda_cmd.mscp_seq.seq_lbn = 1;
    344       1.1     ragge 				uda.uda_cmd.mscp_seq.seq_bytecount = 512;
    345       1.1     ragge 				uda.uda_cmd.mscp_seq.seq_buffer =
    346       1.1     ragge 				    (int)buf + i * 512;
    347       1.1     ragge 				uda.uda_cmd.mscp_unit = rpb->unit;
    348       1.1     ragge 				command(M_OP_READ, 0);
    349       1.1     ragge 			}
    350       1.1     ragge 			break;
    351       1.1     ragge 		case BDEV_RD:
    352       1.1     ragge 		case BDEV_ST:
    353       1.1     ragge 		case BDEV_SD:
    354       1.1     ragge 
    355       1.1     ragge 		default:
    356       1.1     ragge 			romread_uvax(block, size, buf, bootregs);
    357       1.1     ragge 			break;
    358       1.1     ragge 
    359       1.1     ragge 		}
    360       1.1     ragge 		break;
    361       1.1     ragge 
    362       1.1     ragge 	case VAX_8200:
    363       1.1     ragge 	case VAX_750:
    364       1.1     ragge 		if (bootdev != BDEV_HP) {
    365       1.1     ragge 			while (size > 0) {
    366       1.1     ragge 				while ((read750(block, bootregs) & 0x01) == 0){
    367       1.1     ragge 				}
    368       1.1     ragge 				bcopy(0, buf, 512);
    369       1.1     ragge 				size -= 512;
    370       1.1     ragge 				buf += 512;
    371       1.1     ragge 				block++;
    372       1.1     ragge 			}
    373       1.1     ragge 		} else
    374       1.1     ragge 			hpread(block, size, buf);
    375       1.1     ragge 		break;
    376       1.1     ragge 	}
    377       1.1     ragge 
    378  1.1.12.1  wrstuden 	if (rsize)
    379  1.1.12.1  wrstuden 		*rsize = nsize;
    380       1.1     ragge 	return 0;
    381       1.1     ragge }
    382       1.1     ragge 
    383       1.1     ragge hpread(block, size, buf)
    384       1.1     ragge 	char           *buf;
    385       1.1     ragge {
    386       1.1     ragge 	volatile struct mba_regs *mr = (void *) bootregs[1];
    387       1.1     ragge 	volatile struct hp_drv *hd = (void*)&mr->mba_md[bootregs[3]];
    388       1.1     ragge 	struct disklabel *dp = &lp;
    389       1.1     ragge 	u_int           pfnum, nsize, mapnr, bn, cn, sn, tn;
    390       1.1     ragge 
    391       1.1     ragge 	pfnum = (u_int) buf >> PGSHIFT;
    392       1.1     ragge 
    393       1.1     ragge 	for (mapnr = 0, nsize = size; (nsize + NBPG) > 0; nsize -= NBPG)
    394       1.1     ragge 		*(int *)&mr->mba_map[mapnr++] = PG_V | pfnum++;
    395       1.1     ragge 	mr->mba_var = ((u_int) buf & PGOFSET);
    396       1.1     ragge 	mr->mba_bc = (~size) + 1;
    397       1.1     ragge 	bn = block;
    398       1.1     ragge 	cn = bn / dp->d_secpercyl;
    399       1.1     ragge 	sn = bn % dp->d_secpercyl;
    400       1.1     ragge 	tn = sn / dp->d_nsectors;
    401       1.1     ragge 	sn = sn % dp->d_nsectors;
    402       1.1     ragge 	hd->hp_dc = cn;
    403       1.1     ragge 	hd->hp_da = (tn << 8) | sn;
    404       1.1     ragge 	hd->hp_cs1 = HPCS_READ;
    405       1.1     ragge 	while (mr->mba_sr & MBASR_DTBUSY);
    406       1.1     ragge 	if (mr->mba_sr & MBACR_ABORT){
    407       1.1     ragge 		return 1;
    408       1.1     ragge 	}
    409       1.1     ragge 	return 0;
    410       1.1     ragge }
    411       1.1     ragge 
    412  1.1.12.1  wrstuden extern char end[];
    413  1.1.12.1  wrstuden static char *top = (char*)end;
    414       1.1     ragge 
    415  1.1.12.1  wrstuden void *
    416  1.1.12.1  wrstuden alloc(size)
    417  1.1.12.1  wrstuden         unsigned size;
    418  1.1.12.1  wrstuden {
    419  1.1.12.1  wrstuden 	void *ut = top;
    420  1.1.12.1  wrstuden 	top += size;
    421  1.1.12.1  wrstuden 	return ut;
    422       1.1     ragge }
    423       1.1     ragge 
    424       1.1     ragge void
    425  1.1.12.1  wrstuden free(ptr, size)
    426  1.1.12.1  wrstuden         void *ptr;
    427  1.1.12.1  wrstuden         unsigned size;
    428       1.1     ragge {
    429       1.1     ragge }
    430       1.1     ragge 
    431  1.1.12.1  wrstuden int
    432  1.1.12.1  wrstuden romclose(f)
    433  1.1.12.1  wrstuden 	struct open_file *f;
    434       1.1     ragge {
    435  1.1.12.1  wrstuden 	return 0;
    436       1.1     ragge }
    437