Added High level prototypes for stage1 assembler 1 and 2

High_level_prototypes/stage1_assembler-1.c

@@ -0,0 +1,157 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <stdint.h>
+#include <stdbool.h>
+
+FILE* source_file;
+bool toggle;
+uint8_t holder;
+uint32_t ip;
+
+uint32_t* table;
+
+void storeLabel()
+{
+	int c = fgetc(source_file);
+	table[c] = ip;
+}
+
+void storePointer()
+{
+	ip = ip + 2;
+	int c = fgetc(source_file);
+	int target = table[c];
+	uint8_t first, second;
+	first = (target - ip + 4)/256;
+	second = (target - ip + 4)%256;
+	printf("%c%c", first, second );
+}
+
+void line_Comment()
+{
+	int c = fgetc(source_file);
+	while((10 != c) && (13 != c))
+	{
+		c = fgetc(source_file);
+	}
+}
+
+int8_t hex(int c)
+{
+	switch(c)
+	{
+		case '0' ... '9':
+		{
+			return (c - 48);
+		}
+		case 'a' ... 'z':
+		{
+			return (c - 87);
+		}
+		case 'A' ... 'Z':
+		{
+			return (c - 55);
+		}
+		case 35:
+		case 59:
+		{
+			line_Comment();
+			return -1;
+		}
+		default: return -1;
+	}
+
+}
+
+void first_pass()
+{
+	int c;
+	for(c = fgetc(source_file); EOF != c; c = fgetc(source_file))
+	{
+		/* Check for and deal with label */
+		if(58 == c)
+		{
+			storeLabel();
+		}
+
+		/* check for and deal with pointers to labels */
+		if(64 == c)
+		{
+			c = fgetc(source_file);
+			ip = ip + 2;
+		}
+		else
+		{
+			if(0 <= hex(c))
+			{
+				if(toggle)
+				{
+					ip = ip + 1;
+				}
+
+				toggle = !toggle;
+			}
+		}
+	}
+}
+
+void second_pass()
+{
+	int c;
+	for(c = fgetc(source_file); EOF != c; c = fgetc(source_file))
+	{
+		if(58 == c)
+		{
+			c = fgetc(source_file);
+		}
+		else if(64 == c)
+		{
+			storePointer();
+		}
+		else
+		{
+			if(0 <= hex(c))
+			{
+				if(toggle)
+				{
+					printf("%c",((holder * 16)) + hex(c));
+					ip = ip + 1;
+					holder = 0;
+				}
+				else
+				{
+					holder = hex(c);
+				}
+
+				toggle = !toggle;
+			}
+		}
+	}
+}
+
+/* Standard C main program */
+int main(int argc, char **argv)
+{
+	/* Make sure we have a program tape to run */
+	if (argc < 2)
+	{
+		fprintf(stderr, "Usage: %s $FileName\nWhere $FileName is the name of the paper tape of the program being run\n", argv[0]);
+		return EXIT_FAILURE;
+	}
+
+	source_file = fopen(argv[1], "r");
+
+	table = calloc(256, sizeof(uint32_t));
+	toggle = false;
+	ip = 0;
+	holder = 0;
+
+	first_pass();
+	rewind(source_file);
+	toggle = false;
+	ip = 0;
+	holder = 0;
+	second_pass();
+
+	return EXIT_SUCCESS;
+}

High_level_prototypes/stage1_assembler-2.c

@@ -0,0 +1,214 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <stdint.h>
+#include <stdbool.h>
+#include <string.h>
+#define max_string 60
+
+FILE* source_file;
+bool toggle;
+uint8_t holder;
+uint32_t ip;
+
+struct entry
+{
+	uint32_t target;
+	char name[max_string + 1];
+};
+
+char temp[max_string + 1];
+struct entry table[256];
+
+uint32_t GetTarget(char* c)
+{
+	int i = -1;
+	do
+	{
+		i = i + 1;
+	} while (0 != strncmp(table[i].name, c, max_string));
+
+	return table[i].target;
+}
+
+void storeLabel()
+{
+	int c = fgetc(source_file);
+	int i = 0;
+	int index = -1;
+
+	do
+	{
+		index = index + 1;
+	} while(0 != table[index].name[0]);
+
+	while((' ' != c) && ('\t' != c) && ('\n' != c))
+	{
+		table[index].name[i] = c;
+		i = i + 1;
+		c = fgetc(source_file);
+	}
+
+	table[index].target = ip;
+}
+
+void storePointer()
+{
+	ip = ip + 2;
+	int c = fgetc(source_file);
+	int i = 0;
+
+	while(0 != temp[i])
+	{
+		temp[i] = 0;
+		i = i+1;
+	}
+
+	i = 0;
+
+	while((' ' != c) && ('\t' != c) && ('\n' != c))
+	{
+		temp[i] = c;
+		i = i + 1;
+		c = fgetc(source_file);
+	}
+
+	int target = GetTarget(temp);
+	uint8_t first, second;
+	first = (target - ip + 4)/256;
+	second = (target - ip + 4)%256;
+	printf("%c%c", first, second );
+}
+
+void line_Comment()
+{
+	int c = fgetc(source_file);
+	while((10 != c) && (13 != c))
+	{
+		c = fgetc(source_file);
+	}
+}
+
+int8_t hex(int c)
+{
+	switch(c)
+	{
+		case '0' ... '9':
+		{
+			return (c - 48);
+		}
+		case 'a' ... 'z':
+		{
+			return (c - 87);
+		}
+		case 'A' ... 'Z':
+		{
+			return (c - 55);
+		}
+		case 35:
+		case 59:
+		{
+			line_Comment();
+			return -1;
+		}
+		default: return -1;
+	}
+
+}
+
+void first_pass()
+{
+	int c;
+	for(c = fgetc(source_file); EOF != c; c = fgetc(source_file))
+	{
+		/* Check for and deal with label */
+		if(58 == c)
+		{
+			storeLabel();
+		}
+
+		/* check for and deal with pointers to labels */
+		if(64 == c)
+		{
+			while((' ' != c) && ('\t' != c) && ('\n' != c))
+			{
+				c = fgetc(source_file);
+			}
+			ip = ip + 2;
+		}
+		else
+		{
+			if(0 <= hex(c))
+			{
+				if(toggle)
+				{
+					ip = ip + 1;
+				}
+
+				toggle = !toggle;
+			}
+		}
+	}
+}
+
+void second_pass()
+{
+	int c;
+	for(c = fgetc(source_file); EOF != c; c = fgetc(source_file))
+	{
+		if(58 == c)
+		{
+			while((' ' != c) && ('\t' != c) && ('\n' != c))
+			{
+				c = fgetc(source_file);
+			}
+		}
+		else if(64 == c)
+		{
+			storePointer();
+		}
+		else
+		{
+			if(0 <= hex(c))
+			{
+				if(toggle)
+				{
+					printf("%c",((holder * 16)) + hex(c));
+					ip = ip + 1;
+					holder = 0;
+				}
+				else
+				{
+					holder = hex(c);
+				}
+
+				toggle = !toggle;
+			}
+		}
+	}
+}
+
+/* Standard C main program */
+int main(int argc, char **argv)
+{
+	/* Make sure we have a program tape to run */
+	if (argc < 2)
+	{
+		fprintf(stderr, "Usage: %s $FileName\nWhere $FileName is the name of the paper tape of the program being run\n", argv[0]);
+		return EXIT_FAILURE;
+	}
+
+	source_file = fopen(argv[1], "r");
+
+	toggle = false;
+	ip = 0;
+	holder = 0;
+
+	first_pass();
+	rewind(source_file);
+	toggle = false;
+	ip = 0;
+	holder = 0;
+	second_pass();
+
+	return EXIT_SUCCESS;
+}