aboutsummaryrefslogtreecommitdiff
path: root/src/output.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/output.c')
-rw-r--r--src/output.c228
1 files changed, 228 insertions, 0 deletions
diff --git a/src/output.c b/src/output.c
new file mode 100644
index 0000000..3b1809f
--- /dev/null
+++ b/src/output.c
@@ -0,0 +1,228 @@
+/*
+
+ casm - Simple, portable assembler
+
+ Copyright (C) 2003-2015 Ian Cowburn (ianc@noddybox.demon.co.uk)
+
+ 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 3 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/>.
+
+ -------------------------------------------------------------------------
+
+ Various output type handlers.
+
+*/
+#include <stdlib.h>
+#include <stdio.h>
+
+#include "global.h"
+#include "output.h"
+
+
+/* ---------------------------------------- GLOBALS
+*/
+
+enum option_t
+{
+ OPT_OUTPUTFILE,
+ OPT_OUTPUTFORMAT
+};
+
+static const ValueTable option_set[] =
+{
+ {"output-file", OPT_OUTPUTFILE},
+ {"output-format", OPT_OUTPUTFORMAT},
+ {NULL}
+};
+
+typedef enum
+{
+ Raw,
+ SpectrumTap
+} Format;
+
+static char output[4096] = "output";
+static char error[1024];
+static Format format = Raw;
+
+static ValueTable format_table[] =
+{
+ {"raw", Raw},
+ {"spectrum", SpectrumTap},
+ {NULL}
+};
+
+
+/* ---------------------------------------- PRIVATE FUNCTIONS
+*/
+static int OutputRawBinary(const Byte *mem, int min, int max)
+{
+ FILE *fp = fopen(output, "wb");
+
+ if (!fp)
+ {
+ snprintf(error, sizeof error,"Failed to open %s\n", output);
+ return FALSE;
+ }
+
+ fwrite(mem + min, 1, max - min + 1, fp);
+
+ fclose(fp);
+
+ return TRUE;
+}
+
+
+static Byte TapByte(FILE *fp, Byte b, Byte chk)
+{
+ chk ^= b;
+ putc(b, fp);
+ return chk;
+}
+
+
+static Byte TapWord(FILE *fp, int w, Byte chk)
+{
+ chk = TapByte(fp, w & 0xff, chk);
+ chk = TapByte(fp, (w & 0xff00) >> 8, chk);
+ return chk;
+}
+
+
+static Byte TapString(FILE *fp, const char *p, int len, Byte chk)
+{
+ while(len--)
+ {
+ chk = TapByte(fp, *p ? *p++ : ' ', chk);
+ }
+
+ return chk;
+}
+
+
+static int OutputSpectrumTap(const Byte *mem, int min, int max)
+{
+ FILE *fp = fopen(output, "wb");
+ Byte chk = 0;
+ int len = max - min + 1;
+
+ if (!fp)
+ {
+ snprintf(error, sizeof error,"Failed to open %s\n", output);
+ return FALSE;
+ }
+
+ /* Output header
+ */
+ TapWord(fp, 19, 0);
+
+ chk = TapByte(fp, 0, chk);
+ chk = TapByte(fp, 3, chk);
+ chk = TapString(fp, output, 10, chk);
+ chk = TapWord(fp, len, chk);
+ chk = TapWord(fp, min, chk);
+ chk = TapWord(fp, 32768, chk);
+
+ TapByte(fp, chk, 0);
+
+ /* Output file data
+ */
+ TapWord(fp, len + 2, 0);
+
+ chk = 0;
+
+ chk = TapByte(fp, 0xff, chk);
+
+ while(min <= max)
+ {
+ chk = TapByte(fp, mem[min], chk);
+ min++;
+ }
+
+ TapByte(fp, chk, 0);
+
+ fclose(fp);
+
+ return TRUE;
+}
+
+/* ---------------------------------------- INTERFACES
+*/
+
+const ValueTable *OutputOptions(void)
+{
+ return option_set;
+}
+
+
+CommandStatus OutputSetOption(int opt, int argc, char *argv[],
+ int quoted[], char *err, size_t errsize)
+{
+ const ValueTable *val;
+
+ CMD_ARGC_CHECK(1);
+
+ switch(opt)
+ {
+ case OPT_OUTPUTFILE:
+ CopyStr(output, argv[0], sizeof output);
+ break;
+
+ case OPT_OUTPUTFORMAT:
+ CMD_TABLE(argv[0], format_table, val);
+ format = val->value;
+ break;
+
+ default:
+ break;
+ }
+
+ return CMD_OK;
+}
+
+
+int OutputCode(void)
+{
+ int min = GetMinAddressWritten();
+ int max = GetMaxAddressWritten();
+ const Byte *mem = AddressSpace();
+
+ if (max == -1)
+ {
+ fprintf(stderr, "Skipping output; no written memory to write\n");
+ return TRUE;
+ }
+
+ switch(format)
+ {
+ case Raw:
+ return OutputRawBinary(mem, min, max);
+
+ case SpectrumTap:
+ return OutputSpectrumTap(mem, min, max);
+
+ default:
+ break;
+ }
+}
+
+
+const char *OutputError(void)
+{
+ return error;
+}
+
+
+/*
+vim: ai sw=4 ts=8 expandtab
+*/