A large commit.

[pdp8.git] / sw / dumprest / original / blkdectp.c

diff --git a/sw/dumprest/original/blkdectp.c b/sw/dumprest/original/blkdectp.c
new file mode 100644 (file)
index 0000000..3673b84
--- /dev/null
+++ b/sw/dumprest/original/blkdectp.c
@@ -0,0 +1,72 @@
+/* This program converts between the old 128 words/block DECtape images
+   and the new 129 words/block DECtape image format.
+   to run execute blkdectp infile outfile
+   It will convert the infile to the opposite format and write to outfile.
+*/
+#ifdef PC
+#include <io.h>
+#else
+#include <unistd.h>
+#define O_BINARY 0
+#endif
+#include <stdio.h>
+#include <string.h>
+#include <stdlib.h>
+#include <sys/stat.h>
+#include <sys/types.h>
+#include <fcntl.h>
+
+main(int argc, char *argv[])
+{
+   int fdin,fdout;
+   struct stat statbuf;
+   unsigned short buf[129];
+   int rc;
+   int insize,outsize;
+
+   if (argc != 3) {
+      printf("Usage: %s infile outfile\n",argv[0]);
+      exit(1);
+   }
+   fdin = open(argv[1],O_RDONLY | O_BINARY);
+   if (fdin < 0) {
+      perror("Unable to open input file");
+      exit(1);
+   }
+   fdout = open(argv[2],O_WRONLY | O_CREAT | O_BINARY, 0666);
+   if (fdout < 0) {
+      perror("Unable to open output file");
+      exit(1);
+   }
+   if (fstat(fdin, &statbuf) < 0) {
+      perror("Unable to get size of input file");
+      exit(1);
+   }
+   if (statbuf.st_size % (129*2) == 0) {
+      insize = 129;
+      outsize = 128;
+   } else if (statbuf.st_size % (128*2) == 0) {
+      insize = 128;
+      outsize = 129;
+   } else {
+      printf("Input file is not a multiple of 128 or 129 words, can't convert\n");
+      exit(1);
+   }
+
+   memset(buf, 0, sizeof(buf));
+   do {
+      rc = read(fdin, buf, insize*2);
+      if (rc == insize*2) {
+         if (write(fdout, buf, outsize*2) != outsize*2) {
+            perror("Error writing to output file");
+            exit(1);
+         }
+      } else if (rc < 0) {
+         perror("Error reading input file");
+         exit(1);
+      } else if (rc != 0) {
+         printf("Short read on input file %d\n",rc);
+         exit(1);
+      }
+   } while (rc > 0);
+}