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

diff --git a/src/subs.c b/src/subs.c
new file mode 100644
index 0000000..5166717
--- /dev/null
+++ b/src/subs.c
@@ -0,0 +1,183 @@
+/*******************************************************
+ *
+ *  a56 - a DSP56001 assembler
+ *
+ *  Written by Quinn C. Jensen
+ *  July 1990
+ *
+ *******************************************************\
+
+/*
+ * Copyright (C) 2008 Robert Millan <rmh@aybabtu.com>
+ * Copyright (C) 2012 Thorsten Alteholz <debian@alteholz.de>
+ *
+ * This file 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/>.
+ *
+ * This file incorporates work covered by the following copyright and
+ * permission notice:
+ *
+ * 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";
+
+/*
+ *  subs.c - Some subroutines for the assembler.
+ *
+ */
+
+#include "a56.h"
+
+#define MAX 1024
+
+FILE *open_read(file)
+char *file;
+{
+	FILE *fp;
+
+	if(strcmp(file, "-") == 0)
+		fp = stdin;
+	else if ((fp = fopen(file, "r")) == NULL) {
+		perror(file);
+		exit(1);
+	}	
+	return fp;
+}
+
+FILE *open_write(file)
+char *file;
+{
+	FILE *fp;
+	if ((fp = fopen(file, "w")) == NULL) {
+		perror(file);
+		exit(1);
+	}	
+	return fp;
+}
+
+FILE *open_append(file)
+char *file;
+{
+	FILE *fp;
+	if ((fp = fopen(file, "a")) == NULL) {
+		perror(file);
+		exit(1);
+	}	
+	return fp;
+}
+
+fatal(c, a1, a2, a3, a4, a5, a6, a7, a8)
+char *c, *a1, *a2, *a3, *a4, *a5, *a6, *a7, *a8;
+{
+	fprintf(stderr, c, a1, a2, a3, a4, a5, a6, a7, a8);
+	exit(1);
+}
+
+#define TABS 8
+#define MAX_BUF 256
+
+char tabbuf[MAX_BUF], *untabn();
+char *untab(s)	/* expand tabs in s */
+register char *s;
+{
+	return untabn(s, TABS);
+}
+
+char *untabn(s, stops)	/* expand tabs in s */
+register char *s;
+register int stops;
+{
+	char *o = s;
+
+	/* copy input string into buffer to scan while input string is modified */
+
+	register char *b = tabbuf;
+	
+	strncpy(b, s, MAX_BUF);
+
+	/* iterate until the copy of the input string is depleted */
+
+	while(*b) {
+		if(*b == '\t') {
+			do
+				*s = ' ';
+			while ((++s - o) % stops);
+		} else {
+			*s = *b; s++;
+		}
+		b++;
+	}
+
+	/* null terminate the resultant string */
+
+	*s = '\0';
+
+	return o;
+}
+
+char *alloc(size)
+int size;
+{
+	char *p = (char *)malloc(size);
+	if(NOT p)
+		fatal("alloc:  insufficient virtual memory to allocate %d bytes\n", 
+			size);
+	return p;
+}
+
+#define ascii2n(c)  \
+	((c) >= 'a' ? (c) - 'a' + 10 : ((c) >= 'A' ? (c) - 'A' + 10 : (c) - '0'))
+
+#define valid(c) ((c) >= '0' && (c) <= '9' || \
+	(c) >= 'A' && (c) <= 'Z' || \
+	(c) >= 'a' && (c) <= 'z')
+
+a56_strtol(s, p, base)
+register char *s, **p;
+register int base;
+{
+	register long result = 0;
+	register int sign = 0;
+
+	while(*s == ' ' || *s == '\t')
+		s++;
+
+	if(*s == '-') {
+		s++;
+		sign++;
+	}
+
+	while(valid(*s)) {
+		register int dig = ascii2n(*s);
+		if(dig >= base)
+			break;
+		result *= base;
+		result += dig;
+ 		s++;
+	}
+
+	if(p)
+		*p = s;
+
+	return sign ? -result : result;
+}