Text File

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 <jgoerzen@complete.org> 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.