BSD 4_3_Tahoe release

[unix-history] / usr / src / new / np100 / npload.c

/*
* Copyright (c) 1986 MICOM-Interlan, Inc., Boxborough Mass.
* All rights reserved.  The Berkeley software License Agreement
* specifies the terms and conditions for redistribution.
*
*/
#ifndef lint
char copyright[] =
"@(#) Copyright (c) 1986 MICOM-Interlan, Inc., Boxborough Mass.\n\
All rights reserved.\n";
#endif not lint

#ifndef lint
static char sccsid[] = "@(#)npload.c    6.2 (Berkeley) 2/20/86";
#endif not lint

#include <stdio.h>
#include <fcntl.h>
#include "npcmd.h"
#include <sys/ioctl.h>

extern int errno;

main(argc,argv)
int argc;
char **argv;
{

       int     ret;
       int     ed;
       int     fd;
       int     nbyte;
       char    *fname;
       char    ibuf[1024];
       char    obuf[1024];
       long    stadd = 0x400;
       char    *devname = "/dev/np00";

       switch (argc) {
       case 3:
               /* Pathname for device to be loaded */
               devname = argv[2];
       case 2:
               /* Name of the image file to be loaded */
               fname = argv[1];
               break;
       default:
               printf("usage: npload imagefile [device]\n");
               exit(1);
       }
       /* Open the device to be loaded */

       if((ed = open(devname,O_RDWR)) == -1) {
               char fullpath[50];
               (void) sprintf(fullpath, "/dev/%s", devname);
               if((ed = open(devname,O_RDWR)) == -1) {
                       fprintf(stderr,
                               "%s unable to open device %s errno = %d\n",
                               argv[0], devname, errno);
                       exit(2);
               }
       }
       
       /* Open the image file */

       if((fd = open(fname,O_RDONLY)) == -1) {
               fprintf(stderr,"%s: unable to open file %s errno = %d\n",
                   argv[0],fname,errno);
               exit(3);
       }

       /* Reset the specified device */

       if(ioctl(ed,NPRESET | IOC_VOID,&stadd) == -1) {
               fprintf(stderr,"unable to reset %s errno = %d\n",devname,errno);
               exit(4);
       }

       /* Seek to address 400 on the device */

       if(lseek(ed,(long)0x400,0) == -1) {
               fprintf(stderr,"seek failed on %s errno = %d.\n",devname,errno);
               exit(5);        
       }

       /* Seek to address 400 on the image file */

       if(lseek(fd,(long)0x400,0) == -1) {
               fprintf(stderr,"seek failed on %s errno = %d.\n",fname,errno);
               exit(6);        
       }

       /* Read from the image file and write to the device */
       
       while((nbyte = read(fd,ibuf,1024)) > 0) { 
               
               if((ret = write(ed,ibuf,nbyte)) == -1) {
                       fprintf(stderr,"Bad write to %s errno = %d\n",
                           argv[0],errno);
                       exit(7);
               }
       }

       /* Issue a begin execution command to the device */

       if(ioctl(ed,NPSTART | IOC_VOID,&stadd) == -1) {
               fprintf(stderr,"Start error on %s errno = %d.\n",devname,errno);
               exit(8);
       }

       close(fd);
       close(ed);

       exit(0);
}