#include "opcode.h"
#include <ctype.h>
#include <string.h>

#define debug 1

#define OPNUM 93
#define SETOP(num, _mne, _IMM, _ZM, _ZMX, _ZMY, _IND, _INX, _INY, _ABS, _IMPL) \
{opcodes[num].mnemonic[3] = '\0'; strncpy(opcodes[num].mnemonic, _mne, 3); \
opcodes[num].imm = _IMM; \
opcodes[num].zm = _ZM; opcodes[num].zmx = _ZMX; opcodes[num].zmy = _ZMY; \
opcodes[num].ind = _IND; opcodes[num].inx = _INX; opcodes[num].iny = _INY; \
opcodes[num].abs = _ABS; opcodes[num].impl = _IMPL;}


struct fixup {
	struct fixup *nxt;
	struct label *l;
	uint64_t adr;
};

struct label {
	struct label* nxt;
	uint64_t adr;
	uint8_t def;
	char name[1];
};
static char tstr[2048];
struct label *labels = 0;
struct fixup *fixups = 0;
uint8_t defined = 0;
struct label *mklabel(const char *name, uint64_t adr, uint8_t def) {
	struct label *l;
	for (l = labels; l; l = l->nxt) {
		if (!strcasecmp(name, l->name)) {
			if (def) {
				if (l->def) {
					printf("oof, you cannot redefine the label: %s\n", name);
					defined = 1;
				} else {
					defined = 0;
				}
				l->def = def;
				l->adr = adr;
			}
			return l;
		}
	}
	l = malloc(sizeof(*l) + strlen(name));
	l->def = def;
	l->adr = adr;
	strcpy(l->name, name);
	l->nxt = labels;
	labels = l;
	defined = 0;
	return l;
}

uint64_t use_label(const char *name, uint64_t adr) {
	struct label *l = mklabel(name, 0, 0);
	adr++;
	if (l->def) {
		addr[adr] = l->adr & 0xFF;
		if (l->adr & 0xFF00)
			addr[adr+1] = l->adr >> 8;
		if (l->adr & 0xFF000000) {
			addr[adr+2] = l->adr >> 16;
			addr[adr+3] = l->adr >> 24;
		}
		if (l->adr & 0xFF00000000000000) {
			addr[adr+4] = l->adr >> 32;
			addr[adr+5] = l->adr >> 40;
			addr[adr+6] = l->adr >> 48;
			addr[adr+7] = l->adr >> 56;
		}
		return l->adr;
	} else {
		printf("oof, label %s, does not exist, yet.\n", name);
		struct fixup *f = malloc(sizeof(*f));
		f->nxt = fixups;
		f->adr = adr;
		f->l = l;
		fixups = f;
		return adr-1;
	}
}
void reslv_fixups(void) {
	struct fixup *f;
	for (f = fixups; f; f = f->nxt) {
		if (f->l->def) {
			addr[f->adr] = f->l->adr & 0xFF;
			if (f->l->adr & 0xFF00)
				addr[f->adr+1] = f->l->adr >> 8;
			if (f->l->adr & 0xFF000000) {
				addr[f->adr+2] = f->l->adr >> 16;
				addr[f->adr+3] = f->l->adr >> 24;
			}
			if (f->l->adr & 0xFF00000000000000) {
				addr[f->adr+4] = f->l->adr >> 32;
				addr[f->adr+5] = f->l->adr >> 40;
				addr[f->adr+6] = f->l->adr >> 48;
				addr[f->adr+7] = f->l->adr >> 56;
			}
		} else {
			printf("oof, undefined reference to '%s', at $%016llx.\n", f->l->name, f->adr);
		}
	}
}
void viewmem(uint64_t address) {
	printf("\t\t\t");
	for (int ind = 0; ind < 0x10; ind++) {
		printf("%02x", ind);
		if (ind < 0x0F)
			printf(" ");
	}
	printf("\n\n");
	for (int hi = 0; hi < 0x10; hi++) {
		printf("%016llx:\t", (address & ~0xF)+(hi*0x10));
		for (int lo = 0; lo < 0x10; lo++) {
			printf("%02x", addr[(address & ~0xF)+lo+(hi*0x10)]);
			if (lo < 0x0F)
				printf(" ");
		}
		printf("\n");
	}
}
int asmmon(const char *fn) {
	opent opcodes[OPNUM];
	/*	   mne	  IMM	 ZM   ZMX   ZMY	  IND   INX   INY   ABS	 IMPL*/
	SETOP( 0, "CPS", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00);
	SETOP( 1, "ADC", 0x01, 0x05, 0x00, 0x00, 0x00, 0x00, 0x00, 0x03, 0x00);
	SETOP( 2, "AAB", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x02);
	SETOP( 3, "PHB", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x06);
	SETOP( 4, "PHP", 0x08, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00);
	SETOP( 5, "PHA", 0x09, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00);
	SETOP( 6, "PHY", 0x0A, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00);
	SETOP( 7, "TAY", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x0B);
	SETOP( 8, "PHX", 0x0C, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00);
	SETOP( 9, "TAX", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x0D);
	SETOP(10, "TYX", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x0E);
	SETOP(11, "JMP", 0x00, 0xD0, 0x00, 0x00, 0x04, 0x14, 0x24, 0x10, 0x00);
	SETOP(12, "SBC", 0x11, 0x15, 0x00, 0x00, 0x00, 0x00, 0x00, 0x13, 0x00);
	SETOP(13, "SAB", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x12);
	SETOP(14, "PLB", 0x16, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00);
	SETOP(15, "PLP", 0x18, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00);
	SETOP(16, "PLA", 0x19, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00);
	SETOP(17, "PLY", 0x1A, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00);
	SETOP(18, "TYA", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x1B);
	SETOP(19, "PLX", 0x1C, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00);
	SETOP(20, "TXA", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x1D);
	SETOP(21, "TXY", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x1E);
	SETOP(22, "JSR", 0x00, 0x20, 0x00, 0x00, 0x34, 0x44, 0x54, 0x00, 0x00);
	SETOP(23, "AND", 0x21, 0x25, 0x00, 0x00, 0x00, 0x00, 0x00, 0x23, 0x00);
	SETOP(24, "ABA", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x22);
	SETOP(25, "STT", 0x28, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00);
	SETOP(26, "TAB", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x26);
	SETOP(27, "TSX", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x2E);
	SETOP(28, "BPO", 0x00, 0x64, 0x00, 0x00, 0x00, 0x00, 0x00, 0x30, 0x00);
	SETOP(29, "ORA", 0x31, 0x35, 0x00, 0x00, 0x00, 0x00, 0x00, 0x33, 0x00);
	SETOP(30, "OAB", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x32);
	SETOP(31, "TBA", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x36);
	SETOP(32, "SEI", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x38);
	SETOP(33, "TXS", 0x3E, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00);
	SETOP(34, "BNG", 0x00, 0x74, 0x00, 0x00, 0x00, 0x00, 0x00, 0x40, 0x00);
	SETOP(35, "XOR", 0x41, 0x45, 0x00, 0x00, 0x00, 0x00, 0x00, 0x43, 0x00);
	SETOP(36, "XAB", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x42);
	SETOP(37, "CLI", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x48);
	SETOP(38, "BCS", 0x00, 0x84, 0x00, 0x00, 0x00, 0x00, 0x00, 0x50, 0x00);
	SETOP(39, "LSL", 0x51, 0x55, 0x00, 0x00, 0x00, 0x00, 0x00, 0x53, 0x00);
	SETOP(40, "LLB", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x52);
	SETOP(41, "STB", 0x00, 0x7F, 0x8F, 0x9F, 0xAF, 0xBF, 0xCF, 0x5F, 0x00);
	SETOP(42, "SEC", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x58);
	SETOP(43, "STA", 0x00, 0x7B, 0x8B, 0x9B, 0xAB, 0xBB, 0xCB, 0x5B, 0x00);
	SETOP(44, "STY", 0x00, 0x7D, 0x8D, 0x00, 0xAD, 0xBD, 0x00, 0x5D, 0x00);
	SETOP(45, "STX", 0x00, 0x7E, 0x00, 0x9E, 0xAE, 0x00, 0xCE, 0x5E, 0x00);
	SETOP(46, "BCC", 0x00, 0x94, 0x00, 0x00, 0x00, 0x00, 0x00, 0x60, 0x00);
	SETOP(47, "LSR", 0x61, 0x65, 0x00, 0x00, 0x00, 0x00, 0x00, 0x63, 0x00);
	SETOP(48, "LRB", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x62);
	SETOP(49, "LDB", 0x66, 0x76, 0x86, 0x96, 0xA6, 0xB6, 0xC6, 0x56, 0x00);
	SETOP(50, "CLC", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x68);
	SETOP(51, "LDA", 0x69, 0x79, 0x89, 0x99, 0xA9, 0xB9, 0xC9, 0x59, 0x00);
	SETOP(52, "LDY", 0x6A, 0x7A, 0x8A, 0x00, 0xAA, 0xBA, 0x00, 0x5A, 0x00);
	SETOP(53, "LDX", 0x6C, 0x7C, 0x00, 0x9C, 0xAC, 0x00, 0xCC, 0x5C, 0x00);
	SETOP(54, "BEQ", 0x00, 0x46, 0x00, 0x00, 0x00, 0x00, 0x00, 0x70, 0x00);
	SETOP(55, "ROL", 0x71, 0x75, 0x00, 0x00, 0x00, 0x00, 0x00, 0x73, 0x00);
	SETOP(56, "RLB", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x72);
	SETOP(57, "SSP", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x78);
	SETOP(58, "BNE", 0x00, 0x0F, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0x00);
	SETOP(59, "ROR", 0x81, 0x85, 0x00, 0x00, 0x00, 0x00, 0x00, 0x83, 0x00);
	SETOP(60, "RRB", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x82);
	SETOP(61, "CSP", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x88);
	SETOP(62, "BVS", 0x00, 0x1F, 0x00, 0x00, 0x00, 0x00, 0x00, 0x90, 0x00);
	SETOP(63, "MUL", 0x91, 0x95, 0x00, 0x00, 0x00, 0x00, 0x00, 0x93, 0x00);
	SETOP(64, "MAB", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x92);
	SETOP(65, "SEV", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x98);
	SETOP(66, "BVC", 0x00, 0x2F, 0x00, 0x00, 0x00, 0x00, 0x00, 0xA0, 0x00);
	SETOP(67, "DIV", 0xA1, 0xA5, 0x00, 0x00, 0x00, 0x00, 0x00, 0xA3, 0x00);
	SETOP(68, "DAB", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xA2);
	SETOP(69, "CLV", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xA8);
	SETOP(70, "RTS", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xB0);
	SETOP(71, "CMP", 0xB1, 0xB5, 0x00, 0x00, 0xE9, 0xEB, 0xED, 0xB3, 0x00);
	SETOP(72, "CAB", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xB2);
	SETOP(73, "CPY", 0x2A, 0x3B, 0x00, 0x00, 0xEA, 0xFA, 0x00, 0x2B, 0x00);
	SETOP(74, "CPX", 0xBC, 0x3D, 0x00, 0x00, 0xEC, 0x00, 0xFC, 0x2D, 0x00);
	SETOP(75, "CPB", 0xD6, 0xF6, 0x00, 0x00, 0xDF, 0xEF, 0xFF, 0xE6, 0x00);
	SETOP(76, "ENT", 0xB8, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00);
	SETOP(77, "RTI", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xC0);
	SETOP(78, "INC", 0x00, 0xC5, 0x00, 0x00, 0x00, 0x00, 0x00, 0xC3, 0xC1);
	SETOP(79, "IAB", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xC2);
	SETOP(80, "INY", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x3A);
	SETOP(81, "INX", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x3C);
	SETOP(82, "DEC", 0x00, 0xD5, 0x00, 0x00, 0x00, 0x00, 0x00, 0xD3, 0xD1);
	SETOP(83, "DBA", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xD2);
	SETOP(84, "DEY", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x4A);
	SETOP(85, "DEX", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x4C);
	SETOP(86, "WAI", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xD8);
	SETOP(87, "JSL", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xE0, 0x00);
	SETOP(88, "ASR", 0xE1, 0xE5, 0x00, 0x00, 0x00, 0x00, 0x00, 0xE3, 0x00);
	SETOP(89, "ARB", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xE2);
	SETOP(90, "NOP", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xE8);
	SETOP(91, "RTL", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xF0);
	SETOP(92, "BRK", 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xF8);
	FILE *fp;
	if (strcasecmp(fn, "stdin") != 0) {
		fp = fopen(fn, "r");
		if (fp == NULL)
			return 2;
	}
	uint8_t done = 0;
	uint64_t address = 0x0000;
	while (!(done & 1)) {
		char *buf = NULL;
		char *ins;
		char *postfix;
		char mode[3];
		opent op;
		uint8_t addrmode = 0;
		uint64_t value = 0;
		char *oprand;
		char *cmd;
		char ir[2] = ""; /* Index register. */
		int a = 0;
		char *tmp = malloc(sizeof(char *)*128);
		size_t size;
		done &= ~0x1F;
		if (!strcasecmp(fn, "stdin")) {
			getline(&buf, &size, stdin);
		} else {
			getline(&buf, &size, fp);
		}
		cmd = strtok_r(buf, "\n", &tmp);
		if (cmd != NULL) {
			if (strcasecmp(cmd, "done") == 0) {
				done |= 1;
			} else {
				ins = strtok(buf, "\t\n ");
				if (ins != NULL) {
					oprand = strtok(NULL, "\t\n");
					strtok_r(ins, ".", &postfix);
					if (oprand != NULL) {
						for (int i = 0; i < strlen(oprand); i++) {
							if (oprand[i] == '(')
								addrmode = 6;
							if (oprand[i] == '"')
								break;
							if (a && oprand[a] == ',') {
								if (oprand[i] == 'x' || oprand[i] == 'X') {
									ir[0] = 'x';
									ir[1] = '\0';
								}
								if (oprand[i] == 'y' || oprand[i+1] == 'Y') {
									ir[0] = 'y';
									ir[1] = '\0';
								}
							}
							if (oprand[i] == ',' || oprand[i] == ';')
								a = i;
						}
						if (a)
							oprand[a] = '\0';
					}
				}
				if (!strcasecmp(cmd, "quit") || !strcasecmp(cmd, "q")) {
					return 2;
				}
				if (!strcasecmp(cmd, "viewmem") || !strcasecmp(cmd, "vm") || !strcasecmp(cmd, "v")) {
					done |= 4;
					viewmem(address);
				}
				if (oprand == NULL && ins == NULL && postfix == NULL) {
					done |= 2;
				}
				if (ins != NULL) {
					for (int i = 0; i < strlen(ins); i++) {
						if (i && ins[i] == ':') {
							ins[i] = '\0';
							mklabel(ins, address, 1);
							#if debug
							printf("Created label with the name %s, at address: $%llx\n", ins, address);
							#endif
							done |= 6;
							break;
						}
						if (ins[i] == ';') {
							if (i && (ins[i-1] == ' ' || ins[i-1] == '\t'))
								ins[i] = '\0';
							else
								done |=6;
							break;
						}
					}
					if (strcasecmp(ins, ".org") == 0) {
						done |= 6;
						oprand = strtok(oprand, "$");
						address = strtoull(oprand, NULL, 16);
						#if debug
						printf("Origin for program code is now at address $%llx.\n", address);
						#endif
					}
					if (strcasecmp(ins, ".byte") == 0 || strcasecmp(ins, ".word") == 0 || strcasecmp(ins, ".dword") == 0 || strcasecmp(ins, ".qword") == 0) {
						done |= 6;
						uint8_t qstr = 0;
						uint64_t staddr = address;
						uint16_t slen = 0;
						char *tmpstr = tstr;
						char c;
						for (int i = 0; i < strlen(oprand); i++) {
							if (!qstr) {
								if ((isalnum(oprand[i]) || oprand[i] == '_') && oprand[i] != '"') {
									qstr = 0;
									value = use_label(oprand, address);
									sprintf(oprand, "%llx", value);
									break;
								}
								if (oprand[i] == '"' && !strcasecmp(ins, ".byte")) {
									qstr = 1;
									continue;
								}
								if (oprand[i] == '$') {
									qstr = 0;
									oprand = strtok(oprand, "$");
									value = strtoull(oprand, NULL, 16);
									break;
								}
								if (oprand[i] == ';') {
									qstr = 0;
									done |= 16;
									break;
								}
							} else if (qstr == 1) {
								switch (oprand[i]) {
									case 0:
										puts("oof, unterminated string.");
										qstr = 2;
										break;
									case '"':
										value = '\0';
										c = '\0';
										tmpstr[slen++] = '\0';
										qstr = 3;
										break;
									case '\\':
										switch (oprand[i+1]) {
											case 'n':
												value = '\n';
												c = '\n';
												tmpstr[slen++] = '\\';
												tmpstr[slen++] = 'n';
												break;
											case 't':
												value = '\t';
												c = '\t';
												tmpstr[slen++] = '\\';
												tmpstr[slen++] = 't';
												break;
											case 'r':
												value = '\r';
												c = '\r';
												tmpstr[slen++] = '\\';
												tmpstr[slen++] = 'r';
												break;
											case '0':
												break;
											default:
												value = oprand[i];
												tmpstr[slen++] = '\\';
												tmpstr[slen++] = oprand[i];
												break;
										}
										i++;
										break;
									default:
										value = oprand[i];
										c = oprand[i];
										tmpstr[slen++] = c;
										break;
								}
								addr[address++] = value & 0xFF;
							}
						}
						if (strcasecmp(ins, ".byte") == 0 && !qstr)
							addr[address++] = value & 0xFF;
						if (strcasecmp(ins, ".word") == 0) {
							addr[address] = value & 0xFF;
							addr[address+1] = value >> 8;
							address+=2;
						}
						if (strcasecmp(ins, ".dword") == 0) {
							addr[address] = value & 0xFF;
							addr[address+1] = value >> 8;
							addr[address+2] = value >> 16;
							addr[address+3] = value >> 24;
							address+=4;
						}
						if (strcasecmp(ins, ".qword") == 0) {
							addr[address] = value & 0xFF;
                	        	                addr[address+1] = value >> 8;
                	        	                addr[address+2] = value >> 16;
                	        	                addr[address+3] = value >> 24;
                	        	                addr[address+4] = value >> 32;
                	        	                addr[address+5] = value >> 40;
                	        	                addr[address+6] = value >> 48;
                	        	                addr[address+7] = value >> 56;
							address+=8;
						}
						#if debug
						if (!qstr) {
							printf("The value $%llx was placed at address%s ", value, (staddr != address-1) ? "es" : "");
							if (staddr == address-1)
								printf("$%llx.\n", staddr);
							else
								printf("$%llx-$%llx.\n", staddr, address-1);
						} else {
							printf("The string \"%s\", was placed at address%s ", tmpstr, (staddr != address-1) ? "es" : "");
							if (staddr == address-1)
								printf("$%llx.\n", staddr);
							else
								printf("$%llx-$%llx.\n", staddr, address-1);
						}
						#endif
					}
				}

				if (oprand == NULL && !strcasecmp(ins, "TXS")) {
					addrmode = 1;
					done |= 32;
				}
				else if (oprand != NULL && !strcasecmp(ins, "TXS"))
					addr[address++] = 0x17;
				if (!(done & 2) && oprand != NULL) {
					mode[0] = oprand[0];
					mode[1] = oprand[1];
					if (oprand[0] == '#' || oprand[0] == '$' || oprand[0] == '(') {
						oprand = strtok(oprand, "#($%");
						if (mode[0] == '#') {
							addrmode = 1;
							done |= 32;
							if (mode[1] == '$')
								value = strtoull(oprand, NULL, 16);
							else if (mode[1] == '%')
								value = strtoull(oprand, NULL, 2);
							else
								value = strtoull(oprand, NULL, 10);
						} else {
							if (mode[0] == '$' || mode[1] == '$')
								value = strtoull(oprand, NULL, 16);
							else if (mode[0] == '%' || mode[1] == '%')
								value = strtoull(oprand, NULL, 2);
							else
								value = strtoull(oprand, NULL, 10);
							if (mode[0] != '(') {
								if (value & 0xFFFFFFFF || !value) {
									addrmode = 2;
								} else if (value & 0xFFFFFFFF00000000) {
									addrmode = 5;
								}
							}
							if ((addrmode == 2 || addrmode == 6) && ir != NULL) {
								switch (ir[0]) {
									case 'x':
										if (addrmode == 2)
											addrmode = 3;
										else if (addrmode == 6)
											addrmode = 7;
										break;
									case 'y':
										if (addrmode == 2)
											addrmode = 4;
										else if (addrmode == 6)
											addrmode = 8;
										break;
									default:
										done |= 32;
										break;
								}
							}
						}
					} else {
						for (int i = 0; i < strlen(oprand); i++) {
							if (oprand[i] == ';') {
								done |= 16;
								break;
							}
							if ((isalnum(oprand[i]) || oprand[i] == '_') && oprand[i] != '"') {
								value = use_label(oprand, address);
								if (mode[0] != '(') {
									if (value & 0xFFFFFFFF || !value) {
										addrmode = 2;
									} else if (value & 0xFFFFFFFF00000000) {
										addrmode = 5;
									}
								}
								if ((addrmode == 2 || addrmode == 6) && ir != NULL && a) {
									switch (ir[0]) {
										case 'x':
											if (addrmode == 2)
												addrmode = 3;
											else if (addrmode == 6)
												addrmode = 7;
											break;
										case 'y':
											if (addrmode == 2)
												addrmode = 4;
											else if (addrmode == 6)
												addrmode = 8;
											break;
										default:
											done |= 32;
											break;
									}
								}
								sprintf(oprand, "%llx", value);
								break;
							}
						}
					}
				}
				if (ins != NULL && !(done & 6)) {
					uint8_t i;
					for (i = 0; i < OPNUM; i++) {
						if (strcasecmp(opcodes[i].mnemonic, ins) == 0) {
							if (addrmode == 0 && (opcodes[i].impl || opcodes[i].impl == CPS)) {
								done |= 8;
							} else if (addrmode == 1) {
								switch (opcodes[i].imm) {
									case PHP:
									case PHA:
									case PHY:
									case PHX:
									case PLP:
									case PLA:
									case PLY:
									case PLX:
									case STT:
									case TXS:
									case LSL:
									case LSR:
									case ROL:
									case ROR:
									case ASR:
									case ENT:
										done |= 8;
										break;
								}
							} else {
								if (strcasecmp(ins, "JMP") == 0)
									done |=8;
								if (strcasecmp(ins, "JSR") == 0)
									done |=8;
								if (strcasecmp(ins, "JSL") == 0)
									done |=8;
								if (strcasecmp(ins, "INC") == 0)
									done |=8;
								if (strcasecmp(ins, "BPO") == 0)
									done |=8;
								if (strcasecmp(ins, "BNG") == 0)
									done |=8;
								if (strcasecmp(ins, "BCS") == 0)
									done |=8;
								if (strcasecmp(ins, "BCC") == 0)
									done |=8;
								if (strcasecmp(ins, "BEQ") == 0)
									done |=8;
								if (strcasecmp(ins, "BNE") == 0)
									done |=8;
								if (strcasecmp(ins, "BVS") == 0)
									done |=8;
								if (strcasecmp(ins, "BVC") == 0)
									done |=8;
							}
							op = opcodes[i];
							break;
						}
					}
					if (postfix != NULL && !(done & 8)) {
						if (!strcasecmp(postfix, "w") || !strcasecmp(postfix, "2")) {
							addr[address++] = 0x17;
						} else if (!strcasecmp(postfix, "d") || !strcasecmp(postfix, "4")) {
							addr[address++] = 0x27;
						} else if (!strcasecmp(postfix, "q") || !strcasecmp(postfix, "8")) {
							addr[address++] = 0x37;
						} else {
							done |=8;
						}
					} else if (postfix == NULL && !(done & 8)) {
							done |=8;
					}
					uint8_t r;
					if (!(done & 8))
						r = addr[address-1];
					else
						r = 0;
					switch (addrmode) {
						case 0:
							if (op.impl || op.impl == CPS) {
								addr[address++] = op.impl;
								break;
							} else {
								fprintf(stderr, "oof, %s requires an operand.\n", op.mnemonic);
							}
							break;
						case 1:
							if (op.imm) {
								if (addr[address-1] == 0x17 && op.imm == TXS)
									r = 0x17;
								addr[address++] = op.imm;
								switch (op.imm) {
									case PHP:
									case PHA:
									case PHY:
									case PHX:
									case PLP:
									case PLA:
									case PLY:
									case PLX:
									case STT:
									case LSL:
									case LSR:
									case ROL:
									case ROR:
									case ASR:
									case ENT:
										addr[address++] = value & 0xFF;
										break;
									case TXS:
										if (r == 0x17) {
											addr[address] = value & 0xFF;
											addr[address+2] = value >> 8;
											address+=2;
										}
										break;
									default:
										addr[address] = value & 0xFF;
										if (r & 0x10)
                	        	        					addr[address+1] = value >> 8;
										if (r & 0x20)
                	        	        					addr[address+2] = value >> 16;
                	        	        					addr[address+3] = value >> 24;
										if (r & 0x30)
                	        	        					addr[address+4] = value >> 32;
                	        	        					addr[address+5] = value >> 40;
                	        	        					addr[address+6] = value >> 48;
                	        	        					addr[address+7] = value >> 56;

										address+=(1 << ((r & 0x30) >> 4));
										break;
								}
								break;
							} else {
								fprintf(stderr, "oof, %s does not use Immediate data.\n", op.mnemonic);
							}
							break;
						case 2:
							if (op.zm) {
								addr[address++] = op.zm;
								addr[address] = value & 0xFF;
                	        	        		addr[address+1] = value >> 8;
                	        	        		addr[address+2] = value >> 16;
                	        	        		addr[address+3] = value >> 24;
								address+=4;
								break;
							} else {
								fprintf(stderr, "oof, %s does not use Zero Matrix.\n", op.mnemonic);
							}
							break;
						case 3:
							if (op.zmx) {
								addr[address++] = op.zmx;
								addr[address] = value & 0xFF;
                	        	        		addr[address+1] = value >> 8;
                	        	        		addr[address+2] = value >> 16;
                	        	        		addr[address+3] = value >> 24;
								address+=4;
								break;
							} else {
								fprintf(stderr, "oof, %s does not use Zero Matrix, indexed with x.\n", op.mnemonic);
							}
							break;
						case 4:
							if (op.zmy) {
								addr[address++] = op.zmy;
								addr[address] = value & 0xFF;
                	        	        		addr[address+1] = value >> 8;
                	        	        		addr[address+2] = value >> 16;
                	        	        		addr[address+3] = value >> 24;
								address+=4;
								break;
							} else {
								fprintf(stderr, "oof, %s does not use Zero Matrix, indexed with y.\n", op.mnemonic);
							}
							break;
						case 5:
							if (op.abs) {
								addr[address++] = op.abs;
								addr[address] = value & 0xFF;
                	        	        		addr[address+1] = value >> 8;
                	        	        		addr[address+2] = value >> 16;
                	        	        		addr[address+3] = value >> 24;
                	        	        		addr[address+4] = value >> 32;
                	        	        		addr[address+5] = value >> 40;
                	        	        		addr[address+6] = value >> 48;
                	        	        		addr[address+7] = value >> 56;
								address+=8;
								break;
							} else {
								fprintf(stderr, "oof, %s cannot be an absolute dictator.\n", op.mnemonic);
							}
							break;
						case 6:
							if (op.ind) {
								addr[address++] = op.ind;
								addr[address] = value & 0xFF;
                	        	        		addr[address+1] = value >> 8;
                	        	        		addr[address+2] = value >> 16;
                	        	        		addr[address+3] = value >> 24;
								address+=4;
								break;
							} else {
								fprintf(stderr, "oof, %s cannot use pointers.\n", op.mnemonic);
							}
							break;
						case 7:
							if (op.inx) {
								addr[address++] = op.inx;
								addr[address] = value & 0xFF;
                	        	        		addr[address+1] = value >> 8;
                	        	        		addr[address+2] = value >> 16;
                	        	        		addr[address+3] = value >> 24;
								address+=4;
								break;
							} else {
								fprintf(stderr, "oof, %s does not use Indexed Indirect.\n", op.mnemonic);
							}
							break;
						case 8:
							if (op.iny) {
								addr[address++] = op.iny;
								addr[address] = value & 0xFF;
                	        	        		addr[address+1] = value >> 8;
                	        	        		addr[address+2] = value >> 16;
                	        	        		addr[address+3] = value >> 24;
								address+=4;
								break;
							} else {
								fprintf(stderr, "oof, %s does not use Indirect Indexed.\n", op.mnemonic);
							}
							break;
					}
					#if debug
					if (!(done & 6)) {
						printf("instruction: %s, ", ins);
						#if (!__GLIBC__) || (__TINYC__)
						printf("Postfix: %s, ", (postfix != NULL) ? postfix : "none");
						#else
						printf("Postfix: %s, ", (postfix[0] != '\0') ? postfix : "none");
						#endif
						printf("Operand: %s, ", (oprand != NULL && !(done & 16)) ? oprand : "none");
						printf("Index Register: %s, ", (ir != NULL && !(done & 32)) ? ir : "none");
						printf("Address: $%llx\n", address);
					}
					#endif
				}
			}
		}
	}
	reslv_fixups();
	return 0;
}