diff --git a/asm.c b/asm.c
new file mode 100644
index 0000000..2a53c86
--- /dev/null
+++ b/asm.c
@@ -0,0 +1,465 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <stdint.h>
+#include <stdbool.h>
+#include <string.h>
+#define max_string 255
+
+FILE* source_file;
+bool Reached_EOF;
+uint32_t ip;
+
+struct Token
+{
+	char Text[max_string + 1];
+	char Expression[max_string + 1];
+	uint32_t type;
+	uint32_t size;
+	uint32_t address;
+	struct Token* next;
+	struct Token* prev;
+};
+
+enum type
+{
+	EOL = 1,
+	comment = (1 << 1),
+	address = (1 << 2)
+};
+
+struct Token* newToken()
+{
+	struct Token* p;
+
+	p = calloc (1, sizeof (struct Token));
+	if (NULL == p)
+	{
+		fprintf (stderr, "calloc failed.\n");
+		exit (EXIT_FAILURE);
+	}
+
+	p->size = -1;
+	p->address = 0;
+
+	return p;
+}
+
+void setText(struct Token* p, char Text[])
+{
+	strncpy(p->Text, Text, max_string);
+}
+
+struct Token* addToken(struct Token* head, struct Token* p)
+{
+	if(NULL == head)
+	{
+		return p;
+	}
+	if(NULL == head->next)
+	{
+		head->next = p;
+		p->prev = head;
+	}
+	else
+	{
+		addToken(head->next, p);
+	}
+	return head;
+}
+
+struct Token* Tokenize_Line(struct Token* head)
+{
+	char store[max_string + 1] = {0};
+	int32_t c;
+	uint32_t i;
+	struct Token* p = newToken();
+
+Restart:
+	p->type = p->type & ~(comment);
+
+	for(i = 0; i < max_string; i = i + 1)
+	{
+		c = fgetc(source_file);
+		if(-1 == c)
+		{
+			Reached_EOF = true;
+			goto Token_complete;
+		}
+		else if((10 == c) || (13 == c))
+		{
+			p->type = p->type | EOL;
+			if(1 > i)
+			{
+				goto Restart;
+			}
+			else
+			{
+				goto Token_complete;
+			}
+		}
+		else if((!(p->type & comment)) && ((32 == c) || (9 == c)))
+		{
+			if(2 > i)
+			{
+				goto Restart;
+			}
+			else
+			{
+				goto Token_complete;
+			}
+		}
+		else if((!(p->type & comment )) && ((35 == c) ||(59 == c)))
+		{
+			p->type = p->type | comment;
+			store[i] = (char)c;
+		}
+		else
+		{
+			store[i] = (char)c;
+		}
+	}
+
+Token_complete:
+	setText(p, store);
+	return addToken(head, p);
+}
+
+void setExpression(struct Token* p, char match[], char Exp[], uint32_t size)
+{
+	if(NULL != p->next)
+	{
+		setExpression(p->next, match, Exp, size);
+	}
+
+	/* Leave Comments alone */
+	if((p->type & comment))
+	{
+		return;
+	}
+
+	/* Only if there is an exact match replace */
+	if(0 == strncmp(p->Text, match, max_string))
+	{
+		strncpy(p->Expression, Exp, max_string);
+		p->size = size;
+	}
+}
+
+void assemble(struct Token* p)
+{
+	/* Registers */
+	setExpression(p, "R0", "0", 0);
+	setExpression(p, "R1", "1", 0);
+	setExpression(p, "R2", "2", 0);
+	setExpression(p, "R3", "3", 0);
+	setExpression(p, "R4", "4", 0);
+	setExpression(p, "R5", "5", 0);
+	setExpression(p, "R6", "6", 0);
+	setExpression(p, "R7", "7", 0);
+	setExpression(p, "R8", "8", 0);
+	setExpression(p, "R9", "9", 0);
+	setExpression(p, "R10", "A", 0);
+	setExpression(p, "R11", "B", 0);
+	setExpression(p, "R12", "C", 0);
+	setExpression(p, "R13", "D", 0);
+	setExpression(p, "R14", "E", 0);
+	setExpression(p, "R15", "F", 0);
+
+	/* 4OP Integer Group */
+	setExpression(p, "ADD.CI", "0100", 4);
+	setExpression(p, "ADD.CO", "0101", 4);
+	setExpression(p, "ADD.CIO", "0102", 4);
+	setExpression(p, "ADDU.CI", "0103", 4);
+	setExpression(p, "ADDU.CO", "0104", 4);
+	setExpression(p, "ADDU.CIO", "0105", 4);
+	setExpression(p, "SUB.BI", "0106", 4);
+	setExpression(p, "SUB.BO", "0107", 4);
+	setExpression(p, "SUB.BIO", "0108", 4);
+	setExpression(p, "SUBU.BI", "0109", 4);
+	setExpression(p, "SUBU.BO", "010A", 4);
+	setExpression(p, "SUBU.BIO", "010B", 4);
+	setExpression(p, "MULTIPLY", "010C", 4);
+	setExpression(p, "MULTIPLYU", "010D", 4);
+	setExpression(p, "DIVIDE", "010E", 4);
+	setExpression(p, "DIVIDEU", "010F", 4);
+	setExpression(p, "MUX", "0110", 4);
+	setExpression(p, "NMUX", "0111", 4);
+	setExpression(p, "SORT", "0112", 4);
+	setExpression(p, "SORTU", "0113", 4);
+
+	/* 3OP Integer Group */
+	setExpression(p, "ADD", "05000", 4);
+	setExpression(p, "ADDU", "05001", 4);
+	setExpression(p, "SUB", "05002", 4);
+	setExpression(p, "SUBU", "05003", 4);
+	setExpression(p, "CMP", "05004", 4);
+	setExpression(p, "CMPU", "05005", 4);
+	setExpression(p, "MUL", "05006", 4);
+	setExpression(p, "MULH", "05007", 4);
+	setExpression(p, "MULU", "05008", 4);
+	setExpression(p, "MULUH", "05009", 4);
+	setExpression(p, "DIV", "0500A", 4);
+	setExpression(p, "MOD", "0500B", 4);
+	setExpression(p, "DIVU", "0500C", 4);
+	setExpression(p, "MODU", "0500D", 4);
+	setExpression(p, "MAX", "05010", 4);
+	setExpression(p, "MAXU", "05011", 4);
+	setExpression(p, "MIN", "05012", 4);
+	setExpression(p, "MINU", "05013", 4);
+	setExpression(p, "PACK", "05014", 4);
+	setExpression(p, "UNPACK", "05015", 4);
+	setExpression(p, "PACK8.CO", "05016", 4);
+	setExpression(p, "PACK8U.CO", "05017", 4);
+	setExpression(p, "PACK16.CO", "05018", 4);
+	setExpression(p, "PACK16U.CO", "05019", 4);
+	setExpression(p, "PACK32.CO", "0501A", 4);
+	setExpression(p, "PACK32U.CO", "0501B", 4);
+	setExpression(p, "AND", "05020", 4);
+	setExpression(p, "OR", "05021", 4);
+	setExpression(p, "XOR", "05022", 4);
+	setExpression(p, "NAND", "05023", 4);
+	setExpression(p, "NOR", "05024", 4);
+	setExpression(p, "XNOR", "05025", 4);
+	setExpression(p, "MPQ", "05026", 4);
+	setExpression(p, "LPQ", "05027", 4);
+	setExpression(p, "CPQ", "05028", 4);
+	setExpression(p, "BPQ", "05029", 4);
+	setExpression(p, "SAL", "05030", 4);
+	setExpression(p, "SAR", "05031", 4);
+	setExpression(p, "SL0", "05032", 4);
+	setExpression(p, "SR0", "05033", 4);
+	setExpression(p, "SL1", "05034", 4);
+	setExpression(p, "SR1", "05035", 4);
+	setExpression(p, "ROL", "05036", 4);
+	setExpression(p, "ROR", "05037", 4);
+
+	/* 2OP Integer Group */
+	setExpression(p, "NEG", "090000", 4);
+	setExpression(p, "ABS", "090001", 4);
+	setExpression(p, "NABS", "090002", 4);
+	setExpression(p, "SWAP", "090003", 4);
+	setExpression(p, "COPY", "090004", 4);
+	setExpression(p, "MOVE", "090005", 4);
+	setExpression(p, "BRANCH", "090100", 4);
+	setExpression(p, "CALL", "090101", 4);
+
+	/* 1OP Group */
+	setExpression(p, "READPC", "0D00000", 4);
+	setExpression(p, "READSCID", "0D00001", 4);
+	setExpression(p, "FALSE", "0D00002", 4);
+	setExpression(p, "TRUE", "0D00003", 4);
+	setExpression(p, "JSR_COROUTINE", "0D01000", 4);
+	setExpression(p, "RET", "0D01001", 4);
+	setExpression(p, "PUSHPC", "0D02000", 4);
+	setExpression(p, "POPPC", "0D02001", 4);
+
+	/* 2OPI Group */
+	setExpression(p, "ADDI", "0E", 4);
+	setExpression(p, "ADDUI", "0F", 4);
+	setExpression(p, "SUBI", "10", 4);
+	setExpression(p, "SUBI", "11", 4);
+	setExpression(p, "CMPI", "12", 4);
+	setExpression(p, "LOAD", "13", 4);
+	setExpression(p, "LOAD8", "14", 4);
+	setExpression(p, "LOADU8", "15", 4);
+	setExpression(p, "LOAD16", "16", 4);
+	setExpression(p, "LOADU16", "17", 4);
+	setExpression(p, "LOAD32", "18", 4);
+	setExpression(p, "LOADU32", "19", 4);
+	setExpression(p, "CMPUI", "1F", 4);
+	setExpression(p, "STORE", "20", 4);
+	setExpression(p, "STORE8", "21", 4);
+	setExpression(p, "STOREU8", "22", 4);
+	setExpression(p, "STORE16", "23", 4);
+	setExpression(p, "STOREU16", "24", 4);
+	setExpression(p, "STORE32", "25", 4);
+	setExpression(p, "STOREU32", "26", 4);
+
+	/* 1OPI Group */
+	setExpression(p, "JUMP.C", "2C0", 4);
+	setExpression(p, "JUMP.B", "2C1", 4);
+	setExpression(p, "JUMP.O", "2C2", 4);
+	setExpression(p, "JUMP.G", "2C3", 4);
+	setExpression(p, "JUMP.GE", "2C4", 4);
+	setExpression(p, "JUMP.E", "2C5", 4);
+	setExpression(p, "JUMP.NE", "2C6", 4);
+	setExpression(p, "JUMP.LE", "2C7", 4);
+	setExpression(p, "JUMP.L", "2C8", 4);
+	setExpression(p, "JUMP.Z", "2C9", 4);
+	setExpression(p, "JUMP.NZ", "2CA", 4);
+
+	/* 0OPI Group */
+	setExpression(p, "JUMP", "3C00", 4);
+
+	/* HALCODE Group */
+	setExpression(p, "FOPEN", "42100000", 4);
+	setExpression(p, "FCLOSE", "42100001", 4);
+	setExpression(p, "FSEEK", "42100002", 4);
+	setExpression(p, "REWIND", "42100003", 4);
+	setExpression(p, "FGETC", "42100100", 4);
+	setExpression(p, "FPUTC", "42100200", 4);
+
+	//setExpression(p, "", "");
+	/* 0OP Group*/
+	setExpression(p, "NOP", "00 00 00 00", 4);
+	setExpression(p, "HALT", "FF FF FF FF", 4);
+}
+
+void assign_addresses(struct Token* p)
+{
+	if(-1 == (int32_t)p->size)
+	{
+		p->address = ip;
+	}
+	else if(0 == p->size)
+	{
+		p->address = p->prev->address;
+	}
+	else
+	{
+		p->address = ip;
+		ip = ip + p->size;
+	}
+
+	if(NULL != p->next)
+	{
+		assign_addresses(p->next);
+	}
+}
+
+uint32_t get_address(struct Token* p, char match[])
+{
+	if(0 == strncmp(p->Text, match, max_string))
+	{
+		return p->address;
+	}
+
+	if(NULL != p->next)
+	{
+		return get_address(p->next, match);
+	}
+
+	return -1;
+}
+
+void update_jumps(struct Token* head, struct Token* p)
+{
+	uint32_t dest = -1;
+
+	if('@' == p->Text[0])
+	{
+		dest = get_address(head, p->Text + 1);
+	}
+
+	if(-1 != (int32_t)dest)
+	{
+		int16_t dist = 0;
+		dist = dest - p->address + 4;
+		sprintf(p->Expression, "%04x", (uint16_t)dist);
+	}
+
+	if(NULL != p->next)
+	{
+		update_jumps(head, p->next);
+	}
+}
+
+uint16_t numerate_string(char a[])
+{
+	char *ptr;
+	return (uint16_t)strtol(a, &ptr, 0);
+}
+
+void eval_immediates(struct Token* p)
+{
+	char tmp[max_string + 1] = {0};
+
+	if(0 == strncmp(p->Expression, tmp, max_string))
+	{
+		uint16_t value;
+		value = numerate_string(p->Text);
+
+		if(0 != value)
+		{
+			sprintf(p->Expression, "%04x", value);
+		}
+	}
+
+	if(NULL != p->next)
+	{
+		eval_immediates(p->next);
+	}
+}
+
+void print_text(struct Token* p)
+{
+	fprintf(stdout, " %s", p->Text);
+
+	if((NULL != p->next) && !((p->type & EOL)))
+	{
+		print_text(p->next);
+	}
+}
+
+struct Token* print_Expression(struct Token* p)
+{
+	if(!(p->type & comment))
+	{
+		fprintf(stdout, "%s", p->Expression);
+	}
+	else
+	{
+		return p->next;
+	}
+
+	if((NULL != p->next) && !((p->type & EOL)))
+	{
+		return print_Expression(p->next);
+	}
+
+	return p->next;
+}
+
+void print_hex(struct Token* p)
+{
+	struct Token* n = NULL;
+	fprintf(stdout, "#");
+	print_text(p);
+	fprintf(stdout, "\n");
+	n = print_Expression(p);
+	fprintf(stdout, "\n");
+
+	if(NULL != n)
+	{
+		print_hex(n);
+	}
+}
+
+/* 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");
+
+	Reached_EOF = false;
+	ip = 0;
+	struct Token* head = NULL;
+	while(!Reached_EOF)
+	{
+		head = Tokenize_Line(head);
+	}
+
+	assemble(head);
+	assign_addresses(head);
+	update_jumps(head, head);
+	eval_immediates(head);
+	print_hex(head);
+
+	return EXIT_SUCCESS;
+}