CoCalc -- disassembler.cpp

GitHub Repository: alexbevi/BizHawk
Path: blob/master/libsnes/bsnes/snes/smp/core/disassembler.cpp
² views
1
#ifdef SMPCORE_CPP
2

3
string SMPcore::disassemble_opcode(uint16 addr) {
4
  auto read = [&](uint16 addr) -> uint8 {
5
    if((addr & 0xfff0) == 0x00f0) return 0x00;
6
    if((addr & 0xffc0) == 0xffc0) return smp.iplrom[addr & 0x3f];
7
    return smp.apuram[addr];
8
  };
9

10
  auto relative = [&](unsigned length, int8 offset) -> uint16 {
11
    uint16 pc = addr + length;
12
    return pc + offset;
13
  };
14

15
  auto a = [&] { return hex<4>((read(addr + 1) << 0) + (read(addr + 2) << 8)); };
16
  auto b = [&](unsigned n) { return hex<2>(read(addr + 1 + n)); };
17
  auto r = [&](unsigned r, unsigned n = 0) { return hex<4>(addr + r + (int8)read(addr + 1 + n)); };
18
  auto dp = [&](unsigned n) { return hex<3>((regs.p.p << 8) + read(addr + 1 + n)); };
19
  auto ab = [&] {
20
    unsigned n = (read(addr + 1) << 0) + (read(addr + 2) << 8);
21
    return string{ hex<4>(n & 0x1fff), ":", hex<1>(n >> 13) };
22
  };
23

24
  auto mnemonic = [&]() -> string {
25
    switch(read(addr)) {
26
    case 0x00: return { "nop" };
27
    case 0x01: return { "jst $ffde" };
28
    case 0x02: return { "set $", dp(0), ":0" };
29
    case 0x03: return { "bbs $", dp(0), ":0=$", r(+3, 1) };
30
    case 0x04: return { "ora $", dp(0) };
31
    case 0x05: return { "ora $", a() };
32
    case 0x06: return { "ora (x)" };
33
    case 0x07: return { "ora ($", dp(0), ",x)" };
34
    case 0x08: return { "ora #$", b(0) };
35
    case 0x09: return { "orr $", dp(1), "=$", dp(0) };
36
    case 0x0a: return { "orc $", ab() };
37
    case 0x0b: return { "asl $", dp(0) };
38
    case 0x0c: return { "asl $", a() };
39
    case 0x0d: return { "php" };
40
    case 0x0e: return { "tsb $", a() };
41
    case 0x0f: return { "brk" };
42
    case 0x10: return { "bpl $", r(+2) };
43
    case 0x11: return { "jst $ffdc" };
44
    case 0x12: return { "clr $", dp(0), ":0" };
45
    case 0x13: return { "bbc $", dp(0), ":0=$", r(+3, 1) };
46
    case 0x14: return { "ora $", dp(0), ",x" };
47
    case 0x15: return { "ora $", a(), ",x" };
48
    case 0x16: return { "ora $", a(), ",y" };
49
    case 0x17: return { "ora ($", dp(0), "),y" };
50
    case 0x18: return { "orr $", dp(1), "=#$", b(0) };
51
    case 0x19: return { "orr (x)=(y)" };
52
    case 0x1a: return { "dew $", dp(0) };
53
    case 0x1b: return { "asl $", dp(0), ",x" };
54
    case 0x1c: return { "asl" };
55
    case 0x1d: return { "dex" };
56
    case 0x1e: return { "cpx $", a() };
57
    case 0x1f: return { "jmp ($", a(), ",x)" };
58
    case 0x20: return { "clp" };
59
    case 0x21: return { "jst $ffda" };
60
    case 0x22: return { "set $", dp(0), ":1" };
61
    case 0x23: return { "bbs $", dp(0), ":1=$", r(+3, 1) };
62
    case 0x24: return { "and $", dp(0) };
63
    case 0x25: return { "and $", a() };
64
    case 0x26: return { "and (x)" };
65
    case 0x27: return { "and ($", dp(0), ",x)" };
66
    case 0x29: return { "and $", dp(1), "=$", dp(0) };
67
    case 0x2a: return { "orc !$", ab() };
68
    case 0x2b: return { "rol $", dp(0) };
69
    case 0x2c: return { "rol $", a() };
70
    case 0x2d: return { "pha" };
71
    case 0x2e: return { "bne $", dp(0), "=$", r(+3, 1) };
72
    case 0x28: return { "and #$", b(0) };
73
    case 0x2f: return { "bra $", r(+2) };
74
    case 0x30: return { "bmi $", r(+2) };
75
    case 0x31: return { "jst $ffd8" };
76
    case 0x32: return { "clr $", dp(0), ":1" };
77
    case 0x33: return { "bbc $", dp(0), ":1=$", r(+3, 1) };
78
    case 0x34: return { "and $", dp(0), ",x" };
79
    case 0x35: return { "and $", a(), ",x" };
80
    case 0x36: return { "and $", a(), ",y" };
81
    case 0x37: return { "and ($", dp(0), "),y" };
82
    case 0x38: return { "and $", dp(1), "=#$", b(0) };
83
    case 0x39: return { "and (x)=(y)" };
84
    case 0x3a: return { "inw $", dp(0) };
85
    case 0x3b: return { "rol $", dp(0), ",x" };
86
    case 0x3c: return { "rol" };
87
    case 0x3d: return { "inx" };
88
    case 0x3e: return { "cpx $", dp(0) };
89
    case 0x3f: return { "jsr $", a() };
90
    case 0x40: return { "sep" };
91
    case 0x41: return { "jst $ffd6" };
92
    case 0x42: return { "set $", dp(0), ":2" };
93
    case 0x43: return { "bbs $", dp(0), ":2=$", r(+3, 1) };
94
    case 0x44: return { "eor $", dp(0) };
95
    case 0x45: return { "eor $", a() };
96
    case 0x46: return { "eor (x)" };
97
    case 0x47: return { "eor ($", dp(0), ",x)" };
98
    case 0x48: return { "eor #$", b(0) };
99
    case 0x49: return { "eor $", dp(1), "=$", dp(0) };
100
    case 0x4a: return { "and $", ab() };
101
    case 0x4b: return { "lsr $", dp(0) };
102
    case 0x4c: return { "lsr $", a() };
103
    case 0x4d: return { "phx" };
104
    case 0x4e: return { "trb $", a() };
105
    case 0x4f: return { "jsp $ff", b(0) };
106
    case 0x50: return { "bvc $", r(+2) };
107
    case 0x51: return { "jst $ffd4" };
108
    case 0x52: return { "clr $", dp(0), ":2" };
109
    case 0x53: return { "bbc $", dp(0), ":2=$", r(+3, 1) };
110
    case 0x54: return { "eor $", dp(0), ",x" };
111
    case 0x55: return { "eor $", a(), ",x" };
112
    case 0x56: return { "eor $", a(), ",y" };
113
    case 0x57: return { "eor ($", dp(0), "),y" };
114
    case 0x58: return { "eor $", dp(1), "=#$", b(0) };
115
    case 0x59: return { "eor (x)=(y)" };
116
    case 0x5a: return { "cpw $", a() };
117
    case 0x5b: return { "lsr $", dp(0), ",x" };
118
    case 0x5c: return { "lsr" };
119
    case 0x5d: return { "tax" };
120
    case 0x5e: return { "cpy $", a() };
121
    case 0x5f: return { "jmp $", a() };
122
    case 0x60: return { "clc" };
123
    case 0x61: return { "jst $ffd2" };
124
    case 0x62: return { "set $", dp(0), ":3" };
125
    case 0x63: return { "bbs $", dp(0), ":3=$", r(+3, 1) };
126
    case 0x64: return { "cmp $", dp(0) };
127
    case 0x65: return { "cmp $", a() };
128
    case 0x66: return { "cmp (x)" };
129
    case 0x67: return { "cmp ($", dp(0), ",x)" };
130
    case 0x68: return { "cmp #$", b(0) };
131
    case 0x69: return { "cmp $", dp(1), "=$", dp(0) };
132
    case 0x6a: return { "and !$", ab() };
133
    case 0x6b: return { "ror $", dp(0) };
134
    case 0x6c: return { "ror $", a() };
135
    case 0x6d: return { "phy" };
136
    case 0x6e: return { "bne --$", dp(0), "=$", r(+3, 1) };
137
    case 0x6f: return { "rts" };
138
    case 0x70: return { "bvs $", r(+2) };
139
    case 0x71: return { "jst $ffd0" };
140
    case 0x72: return { "clr $", dp(0), ":3" };
141
    case 0x73: return { "bbc $", dp(0), ":3=$", r(+3, 1) };
142
    case 0x74: return { "cmp $", dp(0), ",x" };
143
    case 0x75: return { "cmp $", a(), ",x" };
144
    case 0x76: return { "cmp $", a(), ",y" };
145
    case 0x77: return { "cmp ($", dp(0), "),y" };
146
    case 0x78: return { "cmp $", dp(1), "=#$", b(0) };
147
    case 0x79: return { "cmp (x)=(y)" };
148
    case 0x7a: return { "adw $", a() };
149
    case 0x7b: return { "ror $", dp(0), ",x" };
150
    case 0x7c: return { "ror" };
151
    case 0x7d: return { "txa" };
152
    case 0x7e: return { "cpy $", dp(0) };
153
    case 0x7f: return { "rti" };
154
    case 0x80: return { "sec" };
155
    case 0x81: return { "jst $ffce" };
156
    case 0x82: return { "set $", dp(0), ":4" };
157
    case 0x83: return { "bbs $", dp(0), ":4=$", r(+3, 1) };
158
    case 0x84: return { "adc $", dp(0) };
159
    case 0x85: return { "adc $", a() };
160
    case 0x86: return { "adc (x)" };
161
    case 0x87: return { "adc ($", dp(0), ",x)" };
162
    case 0x88: return { "adc #$", b(0) };
163
    case 0x89: return { "adc $", dp(1), "=$", dp(0) };
164
    case 0x8a: return { "eor $", ab() };
165
    case 0x8b: return { "dec $", dp(0) };
166
    case 0x8c: return { "dec $", a() };
167
    case 0x8d: return { "ldy #$", b(0) };
168
    case 0x8e: return { "plp" };
169
    case 0x8f: return { "str $", dp(1), "=#$", b(0) };
170
    case 0x90: return { "bcc $", r(+2) };
171
    case 0x91: return { "jst $ffcc" };
172
    case 0x92: return { "clr $", dp(0), ":4" };
173
    case 0x93: return { "bbc $", dp(0), ":4=$", r(+3, 1) };
174
    case 0x94: return { "adc $", dp(0), ",x" };
175
    case 0x95: return { "adc $", a(), ",x" };
176
    case 0x96: return { "adc $", a(), ",y" };
177
    case 0x97: return { "adc ($", dp(0), "),y" };
178
    case 0x98: return { "adc $", dp(1), "=#$", b(0) };
179
    case 0x99: return { "adc (x)=(y)" };
180
    case 0x9a: return { "sbw $", a() };
181
    case 0x9b: return { "dec $", dp(0), ",x" };
182
    case 0x9c: return { "dec" };
183
    case 0x9d: return { "tsx" };
184
    case 0x9e: return { "div" };
185
    case 0x9f: return { "xcn" };
186
    case 0xa0: return { "sei" };
187
    case 0xa1: return { "jst $ffca" };
188
    case 0xa2: return { "set $", dp(0), ":5" };
189
    case 0xa3: return { "bbs $", dp(0), ":5=$", r(+3, 1) };
190
    case 0xa4: return { "sbc $", dp(0) };
191
    case 0xa5: return { "sbc $", a() };
192
    case 0xa6: return { "sbc (x)" };
193
    case 0xa7: return { "sbc ($", dp(0), ",x)" };
194
    case 0xa8: return { "sbc #$", b(0) };
195
    case 0xa9: return { "sbc $", dp(1), "=$", dp(0) };
196
    case 0xaa: return { "ldc $", ab() };
197
    case 0xab: return { "inc $", dp(0) };
198
    case 0xac: return { "inc $", a() };
199
    case 0xad: return { "cpy #$", b(0) };
200
    case 0xae: return { "pla" };
201
    case 0xaf: return { "sta (x++)" };
202
    case 0xb0: return { "bcs $", r(+2) };
203
    case 0xb1: return { "jst $ffc8" };
204
    case 0xb2: return { "clr $", dp(0), ":5" };
205
    case 0xb3: return { "bbc $", dp(0), ":5=$", r(+3, 1) };
206
    case 0xb4: return { "sbc $", dp(0), ",x" };
207
    case 0xb5: return { "sbc $", a(), ",x" };
208
    case 0xb6: return { "sbc $", a(), ",y" };
209
    case 0xb7: return { "sbc ($", dp(0), "),y" };
210
    case 0xb8: return { "sbc $", dp(1), "=#$", b(0) };
211
    case 0xb9: return { "sbc (x)=(y)" };
212
    case 0xba: return { "ldw $", dp(0) };
213
    case 0xbb: return { "inc $", dp(0), ",x" };
214
    case 0xbc: return { "inc" };
215
    case 0xbd: return { "txs" };
216
    case 0xbe: return { "das" };
217
    case 0xbf: return { "lda (x++)" };
218
    case 0xc0: return { "cli" };
219
    case 0xc1: return { "jst $ffc6" };
220
    case 0xc2: return { "set $", dp(0), ":6" };
221
    case 0xc3: return { "bbs $", dp(0), ":6=$", r(+3, 1) };
222
    case 0xc4: return { "sta $", dp(0) };
223
    case 0xc5: return { "sta $", a() };
224
    case 0xc6: return { "sta (x)" };
225
    case 0xc7: return { "sta ($", dp(0), ",x)" };
226
    case 0xc8: return { "cpx #$", b(0) };
227
    case 0xc9: return { "stx $", a() };
228
    case 0xca: return { "stc $", ab() };
229
    case 0xcb: return { "sty $", dp(0) };
230
    case 0xcc: return { "sty $", a() };
231
    case 0xcd: return { "ldx #$", b(0) };
232
    case 0xce: return { "plx" };
233
    case 0xcf: return { "mul" };
234
    case 0xd0: return { "bne $", r(+2) };
235
    case 0xd1: return { "jst $ffc4" };
236
    case 0xd2: return { "clr $", dp(0), ":6" };
237
    case 0xd3: return { "bbc $", dp(0), ":6=$", r(+3, 1) };
238
    case 0xd4: return { "sta $", dp(0), ",x" };
239
    case 0xd5: return { "sta $", a(), ",x" };
240
    case 0xd6: return { "sta $", a(), ",y" };
241
    case 0xd7: return { "sta ($", dp(0), "),y" };
242
    case 0xd8: return { "stx $", dp(0) };
243
    case 0xd9: return { "stx $", dp(0), ",y" };
244
    case 0xda: return { "stw $", dp(0) };
245
    case 0xdb: return { "sty $", dp(0), ",x" };
246
    case 0xdc: return { "dey" };
247
    case 0xdd: return { "tya" };
248
    case 0xde: return { "bne $", dp(0), ",x=$", r(+3, 1) };
249
    case 0xdf: return { "daa" };
250
    case 0xe0: return { "clv" };
251
    case 0xe1: return { "jst $ffc2" };
252
    case 0xe2: return { "set $", dp(0), ":7" };
253
    case 0xe3: return { "bbs $", dp(0), ":7=$", r(+3, 1) };
254
    case 0xe4: return { "lda $", dp(0) };
255
    case 0xe5: return { "lda $", a() };
256
    case 0xe6: return { "lda (x)" };
257
    case 0xe7: return { "lda ($", dp(0), ",x)" };
258
    case 0xe8: return { "lda #$", b(0) };
259
    case 0xe9: return { "ldx $", a() };
260
    case 0xea: return { "not $", ab() };
261
    case 0xeb: return { "ldy $", dp(0) };
262
    case 0xec: return { "ldy $", a() };
263
    case 0xed: return { "cmc" };
264
    case 0xee: return { "ply" };
265
    case 0xef: return { "wai" };
266
    case 0xf0: return { "beq $", r(+2) };
267
    case 0xf1: return { "jst $ffc0" };
268
    case 0xf2: return { "clr $", dp(0), ":7" };
269
    case 0xf3: return { "bbc $", dp(0), ":7=$", r(+3, 1) };
270
    case 0xf4: return { "lda $", dp(0), ",x" };
271
    case 0xf5: return { "lda $", a(), ",x" };
272
    case 0xf6: return { "lda $", a(), ",y" };
273
    case 0xf7: return { "lda ($", dp(0), "),y" };
274
    case 0xf8: return { "ldx $", dp(0) };
275
    case 0xf9: return { "ldx $", dp(0), ",y" };
276
    case 0xfa: return { "str $", dp(1), "=$", dp(0) };
277
    case 0xfb: return { "ldy $", dp(0), ",x" };
278
    case 0xfc: return { "iny" };
279
    case 0xfd: return { "tay" };
280
    case 0xfe: return { "bne --y=$", r(+2) };
281
    case 0xff: return { "stp" };
282
    }
283
    throw;
284
  };
285

286
  string output = { "..", hex<4>(addr), " ", mnemonic() };
287

288
  unsigned length = output.length();
289
  while(length++ < 30) output.append(" ");
290

291
  output.append(
292
    "YA:", hex<4>(regs.ya),
293
    " A:", hex<2>(regs.a),
294
    " X:", hex<2>(regs.x),
295
    " Y:", hex<2>(regs.y),
296
    " S:", hex<2>(regs.s),
297
    " ",
298
    regs.p.n ? "N" : "n",
299
    regs.p.v ? "V" : "v",
300
    regs.p.p ? "P" : "p",
301
    regs.p.b ? "B" : "b",
302
    regs.p.h ? "H" : "h",
303
    regs.p.i ? "I" : "i",
304
    regs.p.z ? "Z" : "z",
305
    regs.p.c ? "C" : "c"
306
  );
307

308
  return output;
309
}
310

311
#endif
312

313
Product

Resources

Company
