bootst: from Dale Rahn.
This commit is contained in:
chuck
parent
008b8c0664
commit
62a58e8eaa
|
|
@ -0,0 +1,39 @@
|
|||
# from: @(#)Makefile 8.1 (Berkeley) 6/10/93
|
||||
# $OpenBSD$
|
||||
|
||||
RELOC=0x3F0000
|
||||
|
||||
S= ${.CURDIR}/../../../..
|
||||
DEFS=
|
||||
INCPATH=-I${.CURDIR} -I${.CURDIR}/../libsa -I${.CURDIR}/../libbug \
|
||||
-I${.CURDIR}/../../include -I${S} -I${S}/lib/libsa
|
||||
CFLAGS= -O2 ${INCPATH} ${DEFS} ${COPTS}
|
||||
CLEANFILES+=stboot bootst bootst.bug
|
||||
|
||||
.include "${S}/arch/${MACHINE}/stand/libsa/Makefile.inc"
|
||||
.include "${S}/arch/${MACHINE}/stand/libbug/Makefile.inc"
|
||||
.include "${S}/arch/${MACHINE}/stand/bugcrt/Makefile.inc"
|
||||
.include "${S}/arch/${MACHINE}/stand/wrtvid/Makefile.inc"
|
||||
|
||||
SRCS= bootst.c
|
||||
|
||||
LIBS= ${LIBSA} ${LIBBUG}
|
||||
|
||||
OBJS= ${SRCS:N*.h:R:S/$/.o/g}
|
||||
|
||||
BOOTS= bootst stboot
|
||||
ALL= ${BOOTS}
|
||||
|
||||
all: ${ALL}
|
||||
|
||||
bootst.bug: ${OBJS} ${BUGCRT} ${LIBS}
|
||||
${LD} -s -N -T ${RELOC} ${BUGCRT} ${OBJS} ${LIBS} -o $@
|
||||
@size bootst.bug
|
||||
|
||||
bootst stboot: bootst.bug ${WRTVID}
|
||||
${WRTVID} bootst.bug
|
||||
|
||||
install:
|
||||
install -c -m 555 -g bin -o bin ${BOOTS} ${DESTDIR}${MDEC_DIR}
|
||||
|
||||
.include <bsd.prog.mk>
|
||||
|
|
@ -0,0 +1,315 @@
|
|||
/* $OpenBSD$ */
|
||||
|
||||
#include <sys/types.h>
|
||||
#include <sys/param.h>
|
||||
#include <sys/reboot.h>
|
||||
#include <sys/exec.h>
|
||||
#include <machine/prom.h>
|
||||
|
||||
#include "stand.h"
|
||||
#include "libsa.h"
|
||||
|
||||
int load_kern();
|
||||
int read_tape_block __P((short ctrl, short dev, short *status,
|
||||
void *addr, int *cnt, int blk_num, u_char *flags, int verbose));
|
||||
|
||||
struct kernel {
|
||||
void *entry;
|
||||
void *symtab;
|
||||
void *esym;
|
||||
int bflags;
|
||||
int bdev;
|
||||
char *kname;
|
||||
void *smini;
|
||||
void *emini;
|
||||
u_int end_loaded;
|
||||
} kernel;
|
||||
|
||||
typedef(*kernel_entry) __P((struct mvmeprom_args *, struct kernel *));
|
||||
|
||||
int
|
||||
main()
|
||||
{
|
||||
kernel_entry addr;
|
||||
struct mvmeprom_args *pbugargs;
|
||||
|
||||
pbugargs = &bugargs;
|
||||
/*
|
||||
print_bugargs(pbugargs);
|
||||
print_time();
|
||||
print_brdid();
|
||||
print_memory();
|
||||
*/
|
||||
parse_args(&kernel.kname, &kernel.bflags);
|
||||
if (load_kern(pbugargs) == 1) {
|
||||
printf("unsuccessful in loading kernel\n");
|
||||
} else {
|
||||
addr = kernel.entry;
|
||||
|
||||
#if 0
|
||||
printf("kernel loaded at %x\n", addr);
|
||||
printf("kernel.entry %x\n", kernel.entry);
|
||||
printf("kernel.symtab %x\n", kernel.symtab);
|
||||
printf("kernel.esym %x\n", kernel.esym);
|
||||
printf("kernel.bflags %x\n", kernel.bflags);
|
||||
printf("kernel.bdev %x\n", kernel.bdev);
|
||||
if (kernel.kname)
|
||||
printf("kernel.kname <%s>\n", kernel.kname);
|
||||
else
|
||||
printf("kernel.kname <null>\n");
|
||||
printf("kernel.end_loaded %x\n", kernel.end_loaded);
|
||||
#endif
|
||||
|
||||
if (kernel.bflags & RB_MINIROOT)
|
||||
loadmini(kernel.end_loaded, pbugargs);
|
||||
|
||||
#if 0
|
||||
printf("kernel.smini %x\n", kernel.smini);
|
||||
printf("kernel.emini %x\n", kernel.emini);
|
||||
printf("kernel.end_loaded %x\n", kernel.end_loaded);
|
||||
#endif
|
||||
if (kernel.bflags & RB_HALT)
|
||||
_rtt();
|
||||
if (((u_long)addr &0xf) == 0x2) {
|
||||
(addr)(pbugargs, &kernel);
|
||||
} else {
|
||||
/* is type fixing anything like price fixing? */
|
||||
typedef (* kernel_start) __P((int, int, void *,void *, void *));
|
||||
kernel_start addr1;
|
||||
addr1 = (void *)addr;
|
||||
(addr1)(kernel.bflags, 0, kernel.esym, kernel.smini, kernel.emini
|
||||
);
|
||||
}
|
||||
|
||||
}
|
||||
return (0);
|
||||
}
|
||||
|
||||
#define MVMEPROM_SCALE (512/MVMEPROM_BLOCK_SIZE)
|
||||
|
||||
int
|
||||
read_tape_block(ctrl, dev, status, addr, cnt, blk_num, flags, verbose)
|
||||
short ctrl;
|
||||
short dev;
|
||||
short *status;
|
||||
void *addr;
|
||||
int *cnt;
|
||||
int blk_num;
|
||||
u_char *flags;
|
||||
int verbose;
|
||||
{
|
||||
struct mvmeprom_dskio dio;
|
||||
int ret;
|
||||
|
||||
dio.ctrl_lun = ctrl;
|
||||
dio.dev_lun = dev;
|
||||
dio.status = *status;
|
||||
dio.pbuffer = addr;
|
||||
dio.blk_num = blk_num;
|
||||
dio.blk_cnt = *cnt / (512 / MVMEPROM_SCALE);
|
||||
dio.flag = *flags;
|
||||
dio.addr_mod = 0;
|
||||
|
||||
if (verbose)
|
||||
printf("saddr %x eaddr %x", dio.pbuffer,
|
||||
(int) dio.pbuffer + (dio.blk_cnt * MVMEPROM_BLOCK_SIZE));
|
||||
ret = mvmeprom_diskrd(&dio);
|
||||
|
||||
*status = dio.status;
|
||||
*cnt = (dio.blk_cnt / MVMEPROM_SCALE) * 512;
|
||||
if (verbose) {
|
||||
printf("status %x ret %d ", *status, ret);
|
||||
printf("flags %x blocks read %x cnt %x\n",
|
||||
*flags, dio.blk_cnt, *cnt);
|
||||
}
|
||||
return (ret);
|
||||
}
|
||||
#ifdef DEBUG
|
||||
int verbose = 1;
|
||||
#else
|
||||
int verbose = 0;
|
||||
#endif
|
||||
|
||||
int
|
||||
load_kern(pbugargs)
|
||||
struct mvmeprom_args *pbugargs;
|
||||
{
|
||||
int ret;
|
||||
char *addr;
|
||||
u_char flags;
|
||||
short status = 0;
|
||||
int blk_num;
|
||||
struct exec *pexec;
|
||||
int magic;
|
||||
int *esym;
|
||||
int *symtab;
|
||||
int cnt, len;
|
||||
char buf[512];
|
||||
|
||||
blk_num = 2;
|
||||
/* flags = IGNORE_FILENUM; */
|
||||
flags = 0;
|
||||
cnt = 512;
|
||||
ret = read_tape_block(pbugargs->ctrl_lun, pbugargs->dev_lun, &status,
|
||||
buf, &cnt, blk_num, &flags, verbose);
|
||||
if (ret != 0) {
|
||||
printf("unable to load kernel 1 status %x\n", status);
|
||||
return (1);
|
||||
}
|
||||
pexec = (struct exec *) buf;
|
||||
if (N_GETMID(*pexec) != MID_M68K &&
|
||||
N_GETMID(*pexec) != MID_M68K4K) {
|
||||
printf("invalid mid on kernel\n");
|
||||
return (1);
|
||||
}
|
||||
|
||||
magic = N_GETMAGIC(*pexec);
|
||||
switch (magic) {
|
||||
case ZMAGIC:
|
||||
break;
|
||||
case NMAGIC:
|
||||
printf("NMAGIC not yet supported");
|
||||
case OMAGIC:
|
||||
case QMAGIC:
|
||||
default:
|
||||
printf("Unknown or unsupported magic type <%x>\n", magic);
|
||||
return (1);
|
||||
}
|
||||
if (magic == ZMAGIC) {
|
||||
status = 0;
|
||||
addr = (char *) (pexec->a_entry & ~0x0FFF);
|
||||
|
||||
bcopy(&buf, addr, 512);
|
||||
/* 2nd block of exe */
|
||||
addr += 512;
|
||||
|
||||
printf("text 0x%x data 0x%x bss 0x%x\n",
|
||||
pexec->a_text, pexec->a_data, pexec->a_bss);
|
||||
|
||||
len = (pexec->a_text - 512); /* XXX */
|
||||
len += (pexec->a_data);
|
||||
|
||||
printf("loading [ %x + %x ", pexec->a_text, pexec->a_data);
|
||||
|
||||
cnt = len;
|
||||
flags = IGNORE_FILENUM;
|
||||
ret = read_tape_block(pbugargs->ctrl_lun, pbugargs->dev_lun,
|
||||
&status, addr, &cnt, blk_num, &flags, verbose);
|
||||
if (ret != 0 || cnt != len) {
|
||||
printf("unable to load kernel 2 status %x\n", status);
|
||||
return 1;
|
||||
}
|
||||
addr += len;
|
||||
|
||||
/* Skip over text and data and zero bss. */
|
||||
len = pexec->a_bss;
|
||||
printf("+ %x", len);
|
||||
#ifdef DEBUG
|
||||
printf("bss %x - %x\n", addr, addr + pexec->a_bss);
|
||||
#endif
|
||||
bzero(addr, pexec->a_bss);
|
||||
addr += len;
|
||||
|
||||
if (pexec->a_syms != 0 && !(kernel.bflags & RB_NOSYM)) {
|
||||
printf(" + [ %x", pexec->a_syms);
|
||||
addr += 4; /* skip over _end symbol */
|
||||
symtab = (void *) pexec->a_syms;
|
||||
len = pexec->a_syms;
|
||||
cnt = ((len + (512 - 1)) / 512) * 512;
|
||||
flags = IGNORE_FILENUM;
|
||||
ret = read_tape_block(pbugargs->ctrl_lun,
|
||||
pbugargs->dev_lun, &status, addr,
|
||||
&cnt, blk_num, &flags, verbose);
|
||||
if (ret != 0 || cnt != ((len + (512 - 1)) / 512) * 512) {
|
||||
printf("unable to load kernel 3\n");
|
||||
return 1;
|
||||
}
|
||||
/* this value should have already been loaded XXX */
|
||||
esym = (void *) ((u_int) addr + pexec->a_syms);
|
||||
if ((int) addr + cnt <= (int) esym) {
|
||||
printf("missed loading count of symbols\n");
|
||||
return 1;
|
||||
}
|
||||
addr += cnt;
|
||||
|
||||
|
||||
len = *esym;
|
||||
#if 0
|
||||
printf("start load %x end load %x %x\n", addr,
|
||||
len, addr + len);
|
||||
printf("esym %x *esym %x\n", esym, len);
|
||||
#endif
|
||||
/* dont load tail of already loaded */
|
||||
len -= (u_int) addr - (u_int) esym;
|
||||
|
||||
if (len > 0) {
|
||||
printf(" + %x", *esym);
|
||||
esym = (void *) (addr + len);
|
||||
cnt = ((len + (512 - 1)) / 512) * 512;
|
||||
flags = IGNORE_FILENUM;
|
||||
ret = read_tape_block(pbugargs->ctrl_lun,
|
||||
pbugargs->dev_lun, &status, addr,
|
||||
&cnt, blk_num, &flags, verbose);
|
||||
if (ret != 0 || cnt != ((len + (512-1)) / 512)*512) {
|
||||
printf("unable to load kernel 4\n");
|
||||
return (1);
|
||||
}
|
||||
addr += len;
|
||||
printf(" ]");
|
||||
} else {
|
||||
printf("+ %x ]", *esym);
|
||||
}
|
||||
esym = (int *) (((int) esym) + *esym);
|
||||
|
||||
kernel.symtab = symtab;
|
||||
kernel.esym = esym;
|
||||
} else {
|
||||
kernel.symtab = 0;
|
||||
kernel.esym = 0;
|
||||
}
|
||||
kernel.end_loaded = (int) addr;
|
||||
flags = IGNORE_FILENUM | END_OF_FILE;
|
||||
cnt = 8192;
|
||||
printf("removing pad [");
|
||||
ret = read_tape_block(pbugargs->ctrl_lun, pbugargs->dev_lun,
|
||||
&status, addr, &cnt, blk_num, &flags, verbose);
|
||||
if (ret != 0) {
|
||||
printf("unable to load kernel 5\n");
|
||||
return (1);
|
||||
}
|
||||
printf(" %d ]", cnt);
|
||||
|
||||
printf("]\n");
|
||||
}
|
||||
kernel.entry = (void *) pexec->a_entry;
|
||||
return (0);
|
||||
}
|
||||
|
||||
int
|
||||
loadmini(addr, pbugargs)
|
||||
u_int addr;
|
||||
struct mvmeprom_args *pbugargs;
|
||||
{
|
||||
int cnt, ret, blk_num = 3;
|
||||
short status = 0;
|
||||
u_char flags;
|
||||
|
||||
/* align addr to some boundary */
|
||||
#define ALIGN_F 0x4
|
||||
addr = (u_int) ((((int) addr + ALIGN_F - 1) / ALIGN_F) * ALIGN_F);
|
||||
#undef ALIGN_F
|
||||
flags = END_OF_FILE;
|
||||
cnt = 6144 * 512; /* some abserdly large value. (3meg) */
|
||||
printf("loading miniroot[ ");
|
||||
ret = read_tape_block(pbugargs->ctrl_lun, pbugargs->dev_lun,
|
||||
&status, (void *) addr, &cnt, blk_num, &flags, verbose);
|
||||
if (ret != 0) {
|
||||
printf("unable to load miniroot\n");
|
||||
return (1);
|
||||
}
|
||||
kernel.smini = (void *)addr;
|
||||
printf("%d ]\n", cnt);
|
||||
kernel.emini = (void *) ((u_int) addr + cnt);
|
||||
kernel.end_loaded = (u_int) kernel.emini;
|
||||
return (0);
|
||||
}
|
||||
Loading…
Reference in New Issue