1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
|
// license: BSD-3-Clause
// copyright-holders: Dirk Best
/***************************************************************************
Sanyo LC6500 series disassembler
***************************************************************************/
#include "emu.h"
#include "lc6500_dasm.h"
#define P std::ostream &stream, u32 opcode, const data_buffer &opcodes, u32 pc
struct lc6500_disassembler::instruction
{
using handler = uint32_t (*)(P);
uint8_t value;
uint8_t mask;
handler cb;
};
const lc6500_disassembler::instruction lc6500_disassembler::s_instructions[]
{
{ 0x00, 0xff, [](P) -> uint32_t { util::stream_format(stream, "nop"); return 1; } },
{ 0x01, 0xff, [](P) -> uint32_t { util::stream_format(stream, "ral"); return 1; } },
{ 0x02, 0xff, [](P) -> uint32_t { util::stream_format(stream, "s"); return 1; } },
{ 0x03, 0xff, [](P) -> uint32_t { util::stream_format(stream, "tae"); return 1; } },
{ 0x0c, 0xff, [](P) -> uint32_t { util::stream_format(stream, "ip"); return 1; } },
{ 0x0d, 0xff, [](P) -> uint32_t { util::stream_format(stream, "xae"); return 1; } },
{ 0x0e, 0xff, [](P) -> uint32_t { util::stream_format(stream, "inc"); return 1; } },
{ 0x0f, 0xff, [](P) -> uint32_t { util::stream_format(stream, "dec"); return 1; } },
{ 0x20, 0xff, [](P) -> uint32_t { util::stream_format(stream, "adc"); return 1; } },
{ 0x21, 0xff, [](P) -> uint32_t { util::stream_format(stream, "l"); return 1; } },
{ 0x22, 0xff, [](P) -> uint32_t { util::stream_format(stream, "rti"); return 1 | STEP_OUT; } },
{ 0x23, 0xff, [](P) -> uint32_t { util::stream_format(stream, "xah"); return 1; } },
// special case, need to decide on op1
{ 0x2c, 0xff, [](P) -> uint32_t
{
uint8_t op1 = opcodes.r8(pc + 1);
switch (op1 & 0xf0)
{
case 0x40: util::stream_format(stream, "ci #$%x", op1 & 0x0f); break;
case 0x50: util::stream_format(stream, "cli #$%x", op1 & 0x0f); break;
case 0x80: util::stream_format(stream, "sctl %x", op1 & 0x0f); break;
case 0x90: util::stream_format(stream, "rctl %x", op1 & 0x0f); break;
default: util::stream_format(stream, "? $2c $%02x", op1); break;
}
return 2;
}
},
{ 0x2e, 0xff, [](P) -> uint32_t { util::stream_format(stream, "inm"); return 1; } },
{ 0x2f, 0xff, [](P) -> uint32_t { util::stream_format(stream, "dem"); return 1; } },
{ 0x3c, 0xff, [](P) -> uint32_t { uint8_t p = opcodes.r8(pc + 1); util::stream_format(stream, "bntm $%03x", (pc & 0xf00) | p); return 2 | STEP_COND; } },
{ 0x3d, 0xff, [](P) -> uint32_t { uint8_t p = opcodes.r8(pc + 1); util::stream_format(stream, "bni $%03x", (pc & 0xf00) | p); return 2 | STEP_COND; } },
{ 0x3e, 0xff, [](P) -> uint32_t { uint8_t p = opcodes.r8(pc + 1); util::stream_format(stream, "bnz $%03x", (pc & 0xf00) | p); return 2 | STEP_COND; } },
{ 0x3f, 0xff, [](P) -> uint32_t { uint8_t p = opcodes.r8(pc + 1); util::stream_format(stream, "bnc $%03x", (pc & 0xf00) | p); return 2 | STEP_COND; } },
{ 0x60, 0xff, [](P) -> uint32_t { util::stream_format(stream, "ad"); return 1; } },
{ 0x61, 0xff, [](P) -> uint32_t { util::stream_format(stream, "op"); return 1; } },
{ 0x62, 0xff, [](P) -> uint32_t { util::stream_format(stream, "rt"); return 1 | STEP_OUT; } },
{ 0x63, 0xff, [](P) -> uint32_t { util::stream_format(stream, "rtbl"); return 1; } },
{ 0x7c, 0xff, [](P) -> uint32_t { uint8_t p = opcodes.r8(pc + 1); util::stream_format(stream, "btm $%03x", (pc & 0xf00) | p); return 2 | STEP_COND; } },
{ 0x7d, 0xff, [](P) -> uint32_t { uint8_t p = opcodes.r8(pc + 1); util::stream_format(stream, "bi $%03x", (pc & 0xf00) | p); return 2 | STEP_COND; } },
{ 0x7e, 0xff, [](P) -> uint32_t { uint8_t p = opcodes.r8(pc + 1); util::stream_format(stream, "bz $%03x", (pc & 0xf00) | p); return 2 | STEP_COND; } },
{ 0x7f, 0xff, [](P) -> uint32_t { uint8_t p = opcodes.r8(pc + 1); util::stream_format(stream, "bc $%03x", (pc & 0xf00) | p); return 2 | STEP_COND; } },
{ 0xa0, 0xff, [](P) -> uint32_t { util::stream_format(stream, "x"); return 1; } },
{ 0xc0, 0xff, [](P) -> uint32_t { util::stream_format(stream, "cla"); return 1; } },
{ 0xe1, 0xff, [](P) -> uint32_t { util::stream_format(stream, "clc"); return 1; } },
{ 0xe5, 0xff, [](P) -> uint32_t { util::stream_format(stream, "or"); return 1; } },
{ 0xe6, 0xff, [](P) -> uint32_t { util::stream_format(stream, "daa"); return 1; } },
{ 0xe7, 0xff, [](P) -> uint32_t { util::stream_format(stream, "and"); return 1; } },
{ 0xe9, 0xff, [](P) -> uint32_t { util::stream_format(stream, "tla"); return 1; } },
{ 0xea, 0xff, [](P) -> uint32_t { util::stream_format(stream, "das"); return 1; } },
{ 0xeb, 0xff, [](P) -> uint32_t { util::stream_format(stream, "cma"); return 1; } },
{ 0xee, 0xff, [](P) -> uint32_t { util::stream_format(stream, "ind"); return 1; } },
{ 0xef, 0xff, [](P) -> uint32_t { util::stream_format(stream, "ded"); return 1; } },
{ 0xf0, 0xff, [](P) -> uint32_t { util::stream_format(stream, "xl0"); return 1; } },
{ 0xf1, 0xff, [](P) -> uint32_t { util::stream_format(stream, "stc"); return 1; } },
{ 0xf4, 0xff, [](P) -> uint32_t { util::stream_format(stream, "xl1"); return 1; } },
{ 0xf5, 0xff, [](P) -> uint32_t { util::stream_format(stream, "exl"); return 1; } },
{ 0xf6, 0xff, [](P) -> uint32_t { util::stream_format(stream, "halt"); return 1; } },
{ 0xf7, 0xff, [](P) -> uint32_t { util::stream_format(stream, "tal"); return 1; } },
{ 0xf8, 0xff, [](P) -> uint32_t { util::stream_format(stream, "xh0"); return 1; } },
{ 0xf9, 0xff, [](P) -> uint32_t { util::stream_format(stream, "wttm"); return 1; } },
{ 0xfa, 0xff, [](P) -> uint32_t { util::stream_format(stream, "jpea"); return 1; } },
{ 0xfb, 0xff, [](P) -> uint32_t { util::stream_format(stream, "cm"); return 1; } },
{ 0xfc, 0xff, [](P) -> uint32_t { util::stream_format(stream, "xh1"); return 1; } },
{ 0xfd, 0xff, [](P) -> uint32_t { util::stream_format(stream, "bank"); return 1; } },
{ 0xfe, 0xff, [](P) -> uint32_t { util::stream_format(stream, "xi"); return 1; } },
{ 0xff, 0xff, [](P) -> uint32_t { util::stream_format(stream, "xd"); return 1; } },
{ 0x04, 0xfc, [](P) -> uint32_t { util::stream_format(stream, "spb %x", opcode & 3); return 1; } },
{ 0x08, 0xfc, [](P) -> uint32_t { util::stream_format(stream, "smb %x", opcode & 3); return 1; } },
{ 0x24, 0xfc, [](P) -> uint32_t { util::stream_format(stream, "rpb %x", opcode & 3); return 1; } },
{ 0x28, 0xfc, [](P) -> uint32_t { util::stream_format(stream, "rmb %x", opcode & 3); return 1; } },
{ 0x30, 0xfc, [](P) -> uint32_t { uint8_t p = opcodes.r8(pc + 1); util::stream_format(stream, "bna%x $%03x", opcode & 3, (pc & 0xf00) | p); return 2 | STEP_COND; } },
{ 0x34, 0xfc, [](P) -> uint32_t { uint8_t p = opcodes.r8(pc + 1); util::stream_format(stream, "bnm%x $%03x", opcode & 3, (pc & 0xf00) | p); return 2 | STEP_COND; } },
{ 0x38, 0xfc, [](P) -> uint32_t { uint8_t p = opcodes.r8(pc + 1); util::stream_format(stream, "bnp%x $%03x", opcode & 3, (pc & 0xf00) | p); return 2 | STEP_COND; } },
{ 0x64, 0xfc, [](P) -> uint32_t { util::stream_format(stream, "sb %x", opcode & 3); return 1; } },
{ 0x70, 0xfc, [](P) -> uint32_t { uint8_t p = opcodes.r8(pc + 1); util::stream_format(stream, "ba%x $%03x", opcode & 3, (pc & 0xf00) | p); return 2 | STEP_COND; } },
{ 0x74, 0xfc, [](P) -> uint32_t { uint8_t p = opcodes.r8(pc + 1); util::stream_format(stream, "bm%x $%03x", opcode & 3, (pc & 0xf00) | p); return 2 | STEP_COND; } },
{ 0x78, 0xfc, [](P) -> uint32_t { uint8_t p = opcodes.r8(pc + 1); util::stream_format(stream, "bp%x $%03x", opcode & 3, (pc & 0xf00) | p); return 2 | STEP_COND; } },
{ 0xe0, 0xf3, [](P) -> uint32_t { util::stream_format(stream, "xa%x", (opcode >> 2) & 3); return 1; } },
{ 0x68, 0xf8, [](P) -> uint32_t { uint16_t p = (pc & 0x800) | ((opcode & 0x07) << 8) | opcodes.r8(pc + 1); util::stream_format(stream, "jmp $%03x", p); return 2; } },
{ 0xa0, 0xf8, [](P) -> uint32_t { util::stream_format(stream, "xm #$%x", opcode & 7); return 1; } },
{ 0xa8, 0xf8, [](P) -> uint32_t { uint16_t p = ((opcode & 0x07) << 8) | opcodes.r8(pc + 1); util::stream_format(stream, "cal $%03x", p); return 2 | STEP_OVER; } },
{ 0x10, 0xf0, [](P) -> uint32_t { util::stream_format(stream, "rfb %x", opcode & 0x0f); return 1; } },
{ 0x40, 0xf0, [](P) -> uint32_t { util::stream_format(stream, "lhi #$%x", opcode & 0x0f); return 1; } },
{ 0x50, 0xf0, [](P) -> uint32_t { util::stream_format(stream, "sfb %x", opcode & 0x0f); return 1; } },
{ 0x80, 0xf0, [](P) -> uint32_t { util::stream_format(stream, "ldz #$%x", opcode & 0x0f); return 1; } },
{ 0x90, 0xf0, [](P) -> uint32_t { uint8_t p = opcodes.r8(pc + 1); util::stream_format(stream, "bnf%u $%03x", opcode & 0x0f, (pc & 0xf00) | p); return 2 | STEP_COND; } },
{ 0xb0, 0xf0, [](P) -> uint32_t { util::stream_format(stream, "czp $%03x", opcode & 0x0f); return 1 | STEP_OVER; } },
{ 0xc0, 0xf0, [](P) -> uint32_t { util::stream_format(stream, "li #$%x", opcode & 0x0f); return 1; } },
{ 0xd0, 0xf0, [](P) -> uint32_t { uint8_t p = opcodes.r8(pc + 1); util::stream_format(stream, "bf%u $%03x", opcode & 0x0f, (pc & 0xf00) | p); return 2 | STEP_COND; } },
// fallback
{ 0x00, 0x00, [](P) -> uint32_t { util::stream_format(stream, "? $%02x", opcode); return 1; } },
};
#undef P
uint32_t lc6500_disassembler::opcode_alignment() const
{
return 1;
}
offs_t lc6500_disassembler::disassemble(std::ostream &stream, offs_t pc, const data_buffer &opcodes, const data_buffer ¶ms)
{
uint8_t opcode = opcodes.r8(pc);
for (unsigned i = 0; i < std::size(s_instructions); i++)
if ((opcode & s_instructions[i].mask) == s_instructions[i].value)
return s_instructions[i].cb(stream, opcode, opcodes, pc) | SUPPORTED;
return 0;
}
|