main.c

/* Copyright (C) 2013 Lars Brinkhoff <lars@nocrew.org>

    This program is free software: you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation, either version 2 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */

#include <stdio.h>
#include <errno.h>
#include <string.h>
#include <unistd.h>

#include "dis.h"
#include "opcode/pdp10.h"
#include "memory.h"

static void
tape_special (int code)
{
  switch ((code >> 24) & 0xFF)
    {
    case 0x80:
      fprintf (output_file, "Tape error %06x.\n", code & 0xFFFFFF);
      break;
    case 0xFF:
      fprintf (output_file, "Tape gap (%06x).\n", code & 0xFFFFFF);
      break;
    default:
      fprintf (output_file, "Tape special (%08x).\n", code);
      break;
    }
}

static void
usage (char **argv)
{
  fprintf (stderr, "Usage: %s [-6] [-r] [-F<file format>] [-S<symbol mode>] [-W<word format>] [-D<DDT address>] <file>\n\n", argv[0]);
  usage_file_format ();
  usage_word_format ();
  usage_symbols_mode ();
  usage_machine ();
  exit (1);
}

int
main (int argc, char **argv)
{
  int cpu_model = PDP10_KA10_ITS;
  struct pdp10_memory memory;
  FILE *file;
  word_t word, data;
  int opt;
  int ddt = 0;
  int extra;

  output_file = stdout;

  while ((opt = getopt (argc, argv, "6rF:S:W:m:D:")) != -1)
    {
      switch (opt)
	{
	case '6':
	  input_file_format = &dmp_file_format;
	  break;
	case 'r':
	  input_file_format = &raw_file_format;
	  break;
	case 'F':
	  if (parse_input_file_format (optarg))
	    usage (argv);
	  break;
	case 'm':
	  if (parse_machine (optarg, &cpu_model))
	    usage (argv);
	  break;
	case 'S':
	  if (parse_symbols_mode (optarg))
	    usage (argv);
	  break;
	case 'W':
	  if (parse_input_word_format (optarg))
	    usage (argv);
	  break;
	case 'D':
	  ddt = strtol (optarg, NULL, 8);
	  break;
	default:
	  usage (argv);
	}
    }

  if (optind != argc - 1)
    usage (argv);

  file = fopen (argv[optind], "rb");
  if (file == NULL)
    {
      fprintf (stderr, "%s: Error opening %s: %s\n",
	       argv[0], argv[optind], strerror (errno));
      return 1;
    }

  init_memory (&memory);

  tape_hook = tape_special;

  if (!input_file_format)
    guess_input_file_format (file);
  input_file_format->read (file, &memory, cpu_model);

  extra = 0;
  while ((word = get_word (file)) != -1)
    {
      data = word;
      extra++;
    }
  if (extra == 1)
    printf ("(After parsed data, there was one more word: %012llo)\n",
	    data);
  else if (extra > 1)
    printf ("(After parsed data, there were %d more words.)\n", extra);

  if (ddt)
    ntsddt_info (&memory, ddt);

  printf ("\nDisassembly:\n\n");
  dis (&memory, cpu_model);

  return 0;
}