9 Aug
2015
9 Aug
'15
9:46 a.m.
I've got a version that looks for label records and names and dates the
parts appropriately.
Probably not of any interest to UNIX-ers as the tape handling of that
system was abysmally primitive, compared to other mainframe systems.
--Chuck
On 08/09/2015 08:08 AM, Al Kossow wrote:
On 8/8/15 9:16 PM, Chuck Guzis wrote:
--
--Chuck
-------------------------------------------------------------
"The first thing we do, let's kill all the spammers."
On 08/08/2015 08:14 PM, Jay Jaeger wrote:
this bursts a tape into raw sequentially numbered files
#include <stdio.h>
FILE *fp;
main()
{
unsigned int len, len2;
unsigned int i;
unsigned int filenum = 0;
char fname[20];
sprintf(fname,"%05d",filenum++);
fp = fopen(fname,"w");
do{
len = getchar();
if(feof(stdin)) exit(1);
len = len | (getchar()<<8);
len = len | (getchar()<<16);
len = len | (getchar()<<24);
if(len == -1){
fprintf(stderr,"65535 byte record in file %d\n",filenum);
getchar();getchar();getchar();getchar();
continue;
}
if(len == 0){
fprintf(stderr,"Tape Mark\n");
fclose(fp);
sprintf(fname,"%05d",filenum++);
fp = fopen(fname,"w");
continue;
}
for(i = len; i; i--)
fputc(getchar(), fp);
len2 = getchar();
len2 = len2 | (getchar()<<8);
len2 = len2 | (getchar()<<16);
len2 = len2 | (getchar()<<24);
if(len != len2){
fprintf(stderr, "front and back lengths differ!\n");
exit(1);
}
} while(!feof(stdin));
}
If anyone is interested, I have code for a Linux
SCSI tape to
AWSTAPE program, and a program that translates aws format to a raw
byte stream. Not sure if I have one that translates to the SimH .tap
format, though. GNU C.
I've got a Linux utility to translate SIMH .tap to raw binary, if
that's interesting to anyone. I would have thought that such
utilities existed already.
--Chuck