use old DS3100 style entry point for SCSI disk I/O

[unix-history] / usr / src / sys / pmax / stand / mkboot.c

/*
* Copyright (c) 1992 Regents of the University of California.
* All rights reserved.
*
* This code is derived from software contributed to Berkeley by
* Ralph Campbell.
*
* %sccs.include.redist.c%
*/

#ifndef lint
char copyright[] =
"@(#) Copyright (c) 1992 Regents of the University of California.\n\
All rights reserved.\n";
#endif not lint

#ifndef lint
static char sccsid[] = "@(#)mkboot.c    7.6 (Berkeley) %G%";
#endif not lint

#include <sys/param.h>
#include <sys/exec.h>
#include <sys/disklabel.h>
#include <stdio.h>

#include <pmax/stand/dec_boot.h>

struct  Dec_DiskBoot decBootInfo;
char    block[DEV_BSIZE];
char    *bootfname, *xxboot, *bootxx;

/*
* This program takes a boot program and splits it into xxboot and bootxx
* files for the disklabel program. The disklabel program should be used to
* label and install the boot program onto a new disk.
*
* mkboot bootprog xxboot bootxx
*/
main(argc, argv)
       int argc;
       char *argv[];
{
       register int i, n;
       int ifd, ofd1, ofd2;
       int nsectors;
       long loadAddr;
       long execAddr;
       long length;

       if (argc != 4)
               usage();
       bootfname = argv[1];
       xxboot = argv[2];
       bootxx = argv[3];
       ifd = open(bootfname, 0, 0);
       if (ifd < 0) {
               perror(bootfname);
               exit(1);
       }
       ofd1 = creat(xxboot, 0666);
       if (ofd1 < 0) {
       xxboot_err:
               perror(xxboot);
               exit(1);
       }
       ofd2 = creat(bootxx, 0666);
       if (ofd2 < 0) {
       bootxx_err:
               perror(bootxx);
               exit(1);
       }

       /*
        * Check for exec header and skip to code segment.
        */
       if (!GetHeader(ifd, &loadAddr, &execAddr, &length)) {
               fprintf(stderr, "Need impure text format (OMAGIC) file\n");
               exit(1);
       }

       /*
        * Write the boot information block.
        */
       decBootInfo.magic = DEC_BOOT_MAGIC;
       decBootInfo.mode = 0;
       decBootInfo.loadAddr = loadAddr;
       decBootInfo.execAddr = execAddr;
       decBootInfo.map[0].numBlocks = nsectors =
               (length + DEV_BSIZE - 1) >> DEV_BSHIFT;
       decBootInfo.map[0].startBlock = 1;
       decBootInfo.map[1].numBlocks = 0;
       if (write(ofd1, (char *)&decBootInfo, sizeof(decBootInfo)) !=
           sizeof(decBootInfo) || close(ofd1) != 0)
               goto xxboot_err;

       printf("load %x, start %x, len %d, nsectors %d\n", loadAddr, execAddr,
               length, nsectors);

       /*
        * Write the boot code to the bootxx file.
        */
       for (i = 0; i < nsectors && length > 0; i++) {
               if (length < DEV_BSIZE) {
                       n = length;
                       bzero(block, DEV_BSIZE);
               } else
                       n = DEV_BSIZE;
               if (read(ifd, block, n) != n) {
                       perror(bootfname);
                       break;
               }
               length -= n;
               if (write(ofd2, block, DEV_BSIZE) != DEV_BSIZE) {
                       perror(bootxx);
                       break;
               }
       }
       if (length > 0)
               printf("Warning: didn't reach end of boot program!\n");
       exit(0);
}

usage()
{
       printf("Usage: mkboot bootprog xxboot bootxx\n");
       printf("where:\n");
       printf("\t\"bootprog\" is a -N format file\n");
       printf("\t\"xxboot\" is the file name for the first boot block\n");
       printf("\t\"bootxx\" is the file name for the remaining boot blocks.\n");
       exit(1);
}

/*
*----------------------------------------------------------------------
*
* GetHeader -
*
*      Check if the header is an a.out file.
*
* Results:
*      Return true if all went ok.
*
* Side effects:
*      bootFID is left ready to read the text & data sections.
*      length is set to the size of the text + data sections.
*
*----------------------------------------------------------------------
*/
GetHeader(bootFID, loadAddr, execAddr, length)
       int bootFID;    /* Handle on the boot program */
       long *loadAddr; /* Address to start loading boot program. */
       long *execAddr; /* Address to start executing boot program. */
       long *length;   /* Length of the boot program. */
{
       struct exec aout;
       int bytesRead;

       if (lseek(bootFID, 0, 0) < 0) {
               perror(bootfname);
               return 0;
       }
       bytesRead = read(bootFID, (char *)&aout, sizeof(aout));
       if (bytesRead != sizeof(aout) || aout.a_magic != OMAGIC)
               return 0;
       *loadAddr = aout.a_entry;
       *execAddr = aout.a_entry;
       *length = aout.a_text + aout.a_data;
       if (lseek(bootFID, N_TXTOFF(aout), 0) < 0) {
               perror(bootfname);
               return 0;
       }
       printf("Input file is a.out format\n");
       return 1;
}