Aucbvax.4284
fa.unix-wizards
utzoo!decvax!ucbvax!unix-wizards
Tue Oct 6 16:28:27 1981
Re: TOPS-10 Interchange Backup Tapes
>From sdcarl!rusty@Berkeley Tue Oct 6 16:17:08 1981
This was written by Julius Smith last summer
to read a DUMP format tape written on Stanford's
Sail system. It is a quick-and-dirty but worked.
# include <STDIO.H>
# define NIN 512*5
# define NOUT 512*5
char mt[] = "/dev/nrmt0";
main(argc, argv)
char **argv;
{
char t[NOUT],c[NIN];
register char *pt, *pc;
register int fid;
register int i, j;
if ((fid = open(mt, 0)) == -1) {
perror(mt);
exit(1);
}
while (read(fid, &c[0], NIN) > 0) {
for(j = 0; j > (i+1)) & (0177 >> i);
# ifdef DEBUG
printf(" -> %o\n", *pt);
# endif DEBUG
*pt++ |= (*(pc++ -1) << 0177; & |="((*(pc-1)" } *(PT-1) (7-I))>> 1) & 07);
}
*pt = '\n';
printf("%s", t);
}
}
-----------------------------------------------------------------
gopher://quux.org/ conversion by John Goerzen <
[email protected]>
of
http://communication.ucsd.edu/A-News/
This Usenet Oldnews Archive
article may be copied and distributed freely, provided:
1. There is no money collected for the text(s) of the articles.
2. The following notice remains appended to each copy:
The Usenet Oldnews Archive: Compilation Copyright (C) 1981, 1996
Bruce Jones, Henry Spencer, David Wiseman.