date and time created 83/03/09 16:23:32 by ralph

[unix-history] / usr / src / old / flcopy / flcopy.c

static char *sccsid ="@(#)flcopy.c      4.4 (Berkeley) %G%";

int     floppydes;
char    *flopname = "/dev/floppy";
long    dsize = 77 * 26 * 128;
int     hflag;
int     rflag;

main(argc, argv)
       register char **argv;
{
       static char buff[512];
       register long count;
       register startad = -26 * 128;
       register int n, file;
       register char *cp;

       while ((cp = *++argv), --argc > 0) {
               if (*cp++!='-')
                       continue;
               while (*cp)
                       switch(*cp++) {

                       case 'h':
                               hflag++;
                               printf("Halftime!\n");
                               if ((file = open("floppy", 0)) < 0)
                                       printf("can't open \"floppy\"\n"),
                               exit(1);
                               continue;

                       case 't':
                               if (*cp >= '0' && *cp <= '9')
                                       dsize = atoi(cp);
                               else if (argc > 1) {
                                       dsize = atoi(*++argv);
                                       argc--;
                               } else
                                       dsize = 77;
                               if (dsize <= 0 || dsize > 77) {
                                       printf("Bad number of tracks\n");
                                       exit(2);
                               }
                               dsize *= 26 * 128;
                               continue;

                       case 'r':
                               rflag++;
                       }
       }
       if (!hflag) {
               file = creat("floppy", 0666);
               close(file);
               file = open("floppy", 2);
               if (file < 0) {
                       printf("can't open \"floppy\"\n");
                       exit(1);
               }
               for (count = dsize; count > 0 ; count -= 512) {
                       n = count > 512 ? 512 : count;
                       lread(startad, n, buff);
                       write(file, buff, n);
                       startad += 512;
               }
       }
       if (rflag)
               exit(0);
       printf("Change Floppy, Hit return when done.\n");
       gets(buff);
       lseek(file, 0, 0);
       count = dsize;
       startad = -26 * 128;
       for ( ; count > 0 ; count -= 512) {
               n = count > 512 ? 512 : count;
               read(file, buff, n);
               lwrite(startad, n, buff);
               startad += 512;
       }
}

rt_init()
{
       static initized = 0;
       int mode = 2;

       if (initized)
               return;
       if (rflag)
               mode = 0;
       initized = 1;
       if ((floppydes = open(flopname, mode)) < 0) {
               printf("Floppy open failed\n");
               exit(1);
       }
}

/*
* Logical to physical adress translation
*/
long
trans(logical)
       register int logical;
{
       register int sector, bytes, track;

       logical += 26 * 128;
       bytes = (logical & 127);
       logical >>= 7;
       sector = logical % 26;
       if (sector >= 13)
               sector = sector*2 +1;
       else
               sector *= 2;
       sector += 26 + ((track = (logical / 26)) - 1) * 6;
       sector %= 26;
       return ((((track *26) + sector) << 7) + bytes);
}

lread(startad, count, obuff)
       register startad, count;
       register char *obuff;
{
       long trans();
       extern floppydes;

       rt_init();
       while ((count -= 128) >= 0) {
               lseek(floppydes, trans(startad), 0);
               read(floppydes, obuff, 128);
               obuff += 128;
               startad += 128;
       }
}

lwrite(startad, count, obuff)
       register startad, count;
       register char *obuff;
{
       long trans();
       extern floppydes;

       rt_init();
       while ((count -= 128) >= 0) {
               lseek(floppydes, trans(startad), 0);
               write(floppydes, obuff, 128);
               obuff += 128;
               startad += 128;
       }
}