BSD 4 release

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

static char *sccsid ="@(#)flcopy.c      4.3 (Berkeley) 10/20/80";
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("failed to open floppy image, for reading\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("failed to open floppy image"),
               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);
       }
}
               
long trans(logical)
register int logical;
{
       /*  Logical to physical adress translation */
       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;
               }
}