6502/wdc-utils
1
0
Fork 0
mirror of https://github.com/ksherlock/wdc-utils.git synced 2024-12-12 04:29:05 +00:00
Code Issues Projects Releases Wiki Activity

relexpr, line

Browse Source
This commit is contained in:
Kelvin Sherlock 2016-12-26 21:13:58 -05:00
parent 11e06b844f
commit ade5efec44
1 changed files with 34 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
dumpobj.cpp
View File

@ -295,11 +295,15 @@ bool dump_obj(const char *name, int fd)
switch(op) { switch(op) {
case REC_RELEXP:
case REC_EXPR: case REC_EXPR:
{ {
uint8_t bytes;
uint8_t op = 0; // todo -- pass the relative flag to ()
bytes = read_8(iter); // so it can verify it's appropriate for the opcode.
// todo -- move all this stuff to a separate function.
uint8_t size = read_8(iter);
char buffer[32]; char buffer[32];
@ -310,7 +314,7 @@ bool dump_obj(const char *name, int fd)
// this ignores all precedence... // this ignores all precedence...
for(;;) { for(;;) {
op = read_8(iter); uint8_t op = read_8(iter);
if (op == OP_END) break; if (op == OP_END) break;
switch (op) { switch (op) {
case OP_LOC: { case OP_LOC: {
@ -346,12 +350,28 @@ bool dump_obj(const char *name, int fd)
break; break;
} }
// unary operatos
case OP_NOT:
case OP_NEG:
case OP_FLP: {
static const char *ops[] = {
".NOT.", "-", "/" // ?
};
if (stack.empty()) errx(EX_DATAERR, "%s : stack underflow error", name);
std::string a = std::move(stack.back()); stack.pop_back();
std::string b(ops[op-10]);
stack.emplace_back(b + a);
break;
}
// binary operators
case OP_SHR: case OP_SHR:
case OP_SHL: case OP_SHL:
case OP_ADD: case OP_ADD:
case OP_SUB: { case OP_SUB: {
static const char *ops[] = { static const char *ops[] = {
"**", "*", "/", "%", ">>", "<<", "+", "-", "&", "|", "^", "=", ">", "<" "**", "*", "/", ".MOD.", ">>", "<<", "+", "-", "&", "|", "^", "=", ">", "<"
}; };
if (stack.size() < 2) errx(EX_DATAERR, "%s : stack underflow error", name); if (stack.size() < 2) errx(EX_DATAERR, "%s : stack underflow error", name);
@ -366,7 +386,7 @@ bool dump_obj(const char *name, int fd)
} }
} }
if (stack.size() != 1) errx(EX_DATAERR, "%s stack overflow error.", name); if (stack.size() != 1) errx(EX_DATAERR, "%s stack overflow error.", name);
d(stack.front(), bytes); d(stack.front(), size);
} }
break; break;
@ -456,7 +476,6 @@ bool dump_obj(const char *name, int fd)
break; break;
case REC_SECT: { case REC_SECT: {
d.flush(); d.flush();
d.set_pc(0); d.set_pc(0);
uint8_t sec = read_8(iter); uint8_t sec = read_8(iter);
@ -468,8 +487,8 @@ bool dump_obj(const char *name, int fd)
} }
break; break;
} }
case REC_ORG: {
case REC_ORG: {
d.flush(); d.flush();
uint32_t org = read_32(iter); uint32_t org = read_32(iter);
printf("\t.org\t$%04x\n", org); printf("\t.org\t$%04x\n", org);
@ -479,14 +498,18 @@ bool dump_obj(const char *name, int fd)
case REC_SPACE: { case REC_SPACE: {
d.flush(); d.flush();
uint16_t count = read_32(iter); uint16_t count = read_16(iter);
printf("\tds\t$%04x\n", count); printf("\tds\t$%04x\n", count);
d.set_pc(d.pc() + count); d.set_pc(d.pc() + count);
break; break;
} }
case REC_RELEXP: case REC_LINE: {
case REC_LINE: d.flush();
uint16_t line = read_16(iter);
printf("\t.line\t%d\n", line);
break;
}
default: default:
d.flush(); d.flush();
errx(EX_DATAERR, "%s: unknown opcode %02x", name, op); errx(EX_DATAERR, "%s: unknown opcode %02x", name, op);