X-Git-Url: https://jxself.org/git/?p=a56.git;a=blobdiff_plain;f=src%2Ftorom.c;fp=src%2Ftorom.c;h=afb79c2e6d80410e2f1a2c5a5e5d68e9d4146c5f;hp=0000000000000000000000000000000000000000;hb=34923afb4a618598083726717bf2f20d310f4f6e;hpb=c6db6f4c5cb82f5e09472163bf11be0c165965ee

diff --git a/src/torom.c b/src/torom.c
new file mode 100644
index 0000000..afb79c2
--- /dev/null
+++ b/src/torom.c
@@ -0,0 +1,70 @@
+/*******************************************************
+ *
+ *  a56 - a DSP56001 assembler
+ *
+ *  Written by Quinn C. Jensen
+ *  July 1990
+ *
+ *******************************************************\
+
+/*
+ * Copyright (C) 1990-1994 Quinn C. Jensen
+ *
+ * Permission to use, copy, modify, distribute, and sell this software
+ * and its documentation for any purpose is hereby granted without fee,
+ * provided that the above copyright notice appear in all copies and
+ * that both that copyright notice and this permission notice appear
+ * in supporting documentation.  The author makes no representations
+ * about the suitability of this software for any purpose.  It is
+ * provided "as is" without express or implied warranty.
+ *
+ */
+static char *Copyright = "Copyright (C) 1990-1994 Quinn C. Jensen";
+
+/*
+ *  This program converts the a56.out assembler output file into
+ *  raw binary, suitable for conversion to S-records for an EPROM burner.
+ *
+ */
+
+
+#define MAX 256
+
+main(argc,argv)
+int argc;
+char *argv[];
+{
+	char buf[MAX];
+	int curaddr = 0;
+	int line = 0;
+
+	while(gets(buf)) {
+		char seg;
+		int addr, data;
+		line++;
+		if(sscanf(buf, "%c%x%x", &seg, &addr, &data) == 3) {
+			if(seg == 'I') {
+				break;
+			} else {
+				if(addr < curaddr) {
+					fatal("%s: input line %d: can't go back\n", argv[0], line);
+				} else if(addr != curaddr) {
+					while(curaddr < addr) {
+						putword(0);
+						curaddr++;
+					}
+				}
+				putword(data);
+				curaddr++;
+			}
+		}
+	}
+}
+
+putword(data)
+int data;
+{
+	putchar(data >>  0 & 0xFF);
+	putchar(data >>  8 & 0xFF);
+	putchar(data >> 16 & 0xFF);
+}