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; } }