#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];
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] = "";
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;
}
