trunk/src/cpu_m68k.c

/*
 *  Copyright (C) 2005  Anders Gavare.  All rights reserved.
 *
 *  Redistribution and use in source and binary forms, with or without
 *  modification, are permitted provided that the following conditions are met:
 *
 *  1. Redistributions of source code must retain the above copyright
 *     notice, this list of conditions and the following disclaimer.
 *  2. Redistributions in binary form must reproduce the above copyright  
 *     notice, this list of conditions and the following disclaimer in the 
 *     documentation and/or other materials provided with the distribution.
 *  3. The name of the author may not be used to endorse or promote products
 *     derived from this software without specific prior written permission.
 *
 *  THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
 *  ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 *  IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 *  ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE   
 *  FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 *  DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 *  OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 *  HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 *  LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 *  OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 *  SUCH DAMAGE.
 *
 *
 *  $Id: cpu_m68k.c,v 1.5 2005/08/15 06:33:21 debug Exp $
 *
 *  Motorola 68K CPU emulation.
 */

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>

#include "misc.h"


#ifndef ENABLE_M68K


#include "cpu_m68k.h"


/*
 *  m68k_cpu_family_init():
 *
 *  Bogus function.
 */
int m68k_cpu_family_init(struct cpu_family *fp)
{
        return 0;
}


#else   /*  ENABLE_M68K  */


#include "cpu.h"
#include "cpu_m68k.h"
#include "machine.h"
#include "memory.h"
#include "symbol.h"

#define DYNTRANS_32
#define DYNTRANS_VARIABLE_INSTRUCTION_LENGTH
#include "tmp_m68k_head.c"


static char *m68k_aname[] = { "a0", "a1", "a2", "a3", "a4", "a5", "fp", "a7" };


/*
 *  m68k_cpu_new():
 *
 *  Create a new M68K cpu object.
 *
 *  Returns 1 on success, 0 if there was no matching M68K processor with
 *  this cpu_type_name.
 */
int m68k_cpu_new(struct cpu *cpu, struct memory *mem, struct machine *machine,
        int cpu_id, char *cpu_type_name)
{
        if (strcasecmp(cpu_type_name, "68020") != 0)
                return 0;

        cpu->memory_rw = m68k_memory_rw;
        cpu->update_translation_table = m68k_update_translation_table;
        cpu->invalidate_translation_caches_paddr =
            m68k_invalidate_translation_caches_paddr;
        cpu->invalidate_code_translation_caches =
            m68k_invalidate_code_translation_caches;
        cpu->is_32bit = 1;

        cpu->byte_order = EMUL_BIG_ENDIAN;

        /*  Only show name and caches etc for CPU nr 0 (in SMP machines):  */
        if (cpu_id == 0) {
                debug("%s", cpu->name);
        }

        return 1;
}


/*
 *  m68k_cpu_list_available_types():
 *
 *  Print a list of available M68K CPU types.
 */
void m68k_cpu_list_available_types(void)
{
        debug("68020\n");
        /*  TODO  */
}


/*
 *  m68k_cpu_dumpinfo():
 */
void m68k_cpu_dumpinfo(struct cpu *cpu)
{
        /*  TODO  */
        debug("\n");
}


/*
 *  m68k_cpu_register_dump():
 *
 *  Dump cpu registers in a relatively readable format.
 *
 *  gprs: set to non-zero to dump GPRs and some special-purpose registers.
 *  coprocs: set bit 0..3 to dump registers in coproc 0..3.
 */
void m68k_cpu_register_dump(struct cpu *cpu, int gprs, int coprocs)
{
        char *symbol;
        uint64_t offset;
        int x = cpu->cpu_id;

        if (gprs) {
                /*  Special registers (pc, ...) first:  */
                symbol = get_symbol_name(&cpu->machine->symbol_context,
                    cpu->pc, &offset);

                debug("cpu%i: pc  = 0x%08x", x, (int)cpu->pc);
                debug("  <%s>\n", symbol != NULL? symbol : " no symbol ");
        }
}


/*
 *  m68k_cpu_register_match():
 */
void m68k_cpu_register_match(struct machine *m, char *name,
        int writeflag, uint64_t *valuep, int *match_register)
{
        int cpunr = 0;

        /*  CPU number:  */

        /*  TODO  */

        /*  Register name:  */
        if (strcasecmp(name, "pc") == 0) {
                if (writeflag) {
                        m->cpus[cpunr]->pc = *valuep;
                } else
                        *valuep = m->cpus[cpunr]->pc;
                *match_register = 1;
        }
}


/*
 *  m68k_cpu_show_full_statistics():
 *
 *  Show detailed statistics on opcode usage on each cpu.
 */
void m68k_cpu_show_full_statistics(struct machine *m)
{
        fatal("m68k_cpu_show_full_statistics(): TODO\n");
}


/*
 *  m68k_cpu_tlbdump():
 *
 *  Called from the debugger to dump the TLB in a readable format.
 *  x is the cpu number to dump, or -1 to dump all CPUs.
 *
 *  If rawflag is nonzero, then the TLB contents isn't formated nicely,
 *  just dumped.
 */
void m68k_cpu_tlbdump(struct machine *m, int x, int rawflag)
{
        fatal("m68k_cpu_tlbdump(): TODO\n");
}


/*
 *  m68k_cpu_interrupt():
 */
int m68k_cpu_interrupt(struct cpu *cpu, uint64_t irq_nr)
{
        fatal("m68k_cpu_interrupt(): TODO\n");
        return 0;
}


/*
 *  m68k_cpu_interrupt_ack():
 */
int m68k_cpu_interrupt_ack(struct cpu *cpu, uint64_t irq_nr)
{
        /*  fatal("m68k_cpu_interrupt_ack(): TODO\n");  */
        return 0;
}


/*  Helper functions:  */
void print_two(unsigned char *instr, int *len)
{ debug(" %02x%02x", instr[*len], instr[*len+1]); (*len) += 2; }
void print_spaces(int len) { int i; debug(" "); for (i=0; i<16-len/2*5;
    i++) debug(" "); }


/*
 *  m68k_cpu_disassemble_instr():
 *
 *  Convert an instruction word into human readable format, for instruction
 *  tracing.
 *
 *  If running is 1, cpu->pc should be the address of the instruction.
 *
 *  If running is 0, things that depend on the runtime environment (eg.
 *  register contents) will not be shown, and addr will be used instead of
 *  cpu->pc for relative addresses.
 */
int m68k_cpu_disassemble_instr(struct cpu *cpu, unsigned char *ib,
        int running, uint64_t dumpaddr, int bintrans)
{
        uint64_t offset;
        int len = 0;
        char *symbol;

        if (running)
                dumpaddr = cpu->pc;

        symbol = get_symbol_name(&cpu->machine->symbol_context,
            dumpaddr, &offset);
        if (symbol != NULL && offset==0)
                debug("<%s>\n", symbol);

        if (cpu->machine->ncpus > 1 && running)
                debug("cpu%i: ", cpu->cpu_id);

        debug("0x%08x: ", (int)dumpaddr);

        print_two(ib, &len);

        if (ib[0] == 0x48) {
                if (ib[1] >= 0x40 && ib[1] <= 0x47) {
                        print_spaces(len);
                        debug("swap\td%i\n", ib[1] & 7);
                } else if (ib[1] >= 0x48 && ib[1] <= 0x4f) {
                        print_spaces(len);
                        debug("bkpt\t#%i\n", ib[1] & 7);
                } else {
                        print_spaces(len);
                        debug("UNIMPLEMENTED 0x%02x%02x\n", ib[0], ib[1]);
                }
        } else if (ib[0] == 0x4a) {
                if (ib[1] == 0xfc) {
                        print_spaces(len);
                        debug("illegal\n");
                } else {
                        print_spaces(len);
                        debug("UNIMPLEMENTED 0x%02x%02x\n", ib[0], ib[1]);
                }
        } else if (ib[0] == 0x4e) {
                if (ib[1] >= 0x40 && ib[1] <= 0x4f) {
                        print_spaces(len);
                        debug("trap\t#%i\n", ib[1] & 15);
                } else if (ib[1] >= 0x50 && ib[1] <= 0x57) {
                        print_two(ib, &len);
                        print_spaces(len);
                        debug("linkw\t%%%s,#%i\n", m68k_aname[ib[1] & 7],
                            ((ib[2] << 8) + ib[3]));
                } else if (ib[1] >= 0x58 && ib[1] <= 0x5f) {
                        print_spaces(len);
                        debug("unlk\t%%%s\n", m68k_aname[ib[1] & 7]);
                } else if (ib[1] == 0x70) {
                        print_spaces(len);
                        debug("reset\n");
                } else if (ib[1] == 0x71) {
                        print_spaces(len);
                        debug("nop\n");
                } else if (ib[1] == 0x72) {
                        print_two(ib, &len);
                        print_spaces(len);
                        debug("stop\t#0x%04x\n", ((ib[2] << 8) + ib[3]));
                } else if (ib[1] == 0x73) {
                        print_spaces(len);
                        debug("rte\n");
                } else if (ib[1] == 0x74) {
                        print_two(ib, &len);
                        print_spaces(len);
                        debug("rtd\t#0x%04x\n", ((ib[2] << 8) + ib[3]));
                } else if (ib[1] == 0x75) {
                        print_spaces(len);
                        debug("rts\n");
                } else {
                        print_spaces(len);
                        debug("UNIMPLEMENTED 0x%02x%02x\n", ib[0], ib[1]);
                }
        } else {
                print_spaces(len);
                debug("UNIMPLEMENTED 0x%02x%02x\n", ib[0], ib[1]);
        }

        return len;
}


#include "tmp_m68k_tail.c"


#endif  /*  ENABLE_M68K  */
1	dpavlin	12	/*
2			* Copyright (C) 2005 Anders Gavare. All rights reserved.
3			*
4			* Redistribution and use in source and binary forms, with or without
5			* modification, are permitted provided that the following conditions are met:
6			*
7			* 1. Redistributions of source code must retain the above copyright
8			* notice, this list of conditions and the following disclaimer.
9			* 2. Redistributions in binary form must reproduce the above copyright
10			* notice, this list of conditions and the following disclaimer in the
11			* documentation and/or other materials provided with the distribution.
12			* 3. The name of the author may not be used to endorse or promote products
13			* derived from this software without specific prior written permission.
14			*
15			* THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
16			* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
17			* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
18			* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
19			* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
20			* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
21			* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
22			* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
23			* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
24			* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
25			* SUCH DAMAGE.
26			*
27			*
28			* $Id: cpu_m68k.c,v 1.5 2005/08/15 06:33:21 debug Exp $
29			*
30			* Motorola 68K CPU emulation.
31			*/
32
33			#include <stdio.h>
34			#include <stdlib.h>
35			#include <string.h>
36			#include <ctype.h>
37
38			#include "misc.h"
39
40
41			#ifndef ENABLE_M68K
42
43
44			#include "cpu_m68k.h"
45
46
47			/*
48			* m68k_cpu_family_init():
49			*
50			* Bogus function.
51			*/
52			int m68k_cpu_family_init(struct cpu_family *fp)
53			{
54			return 0;
55			}
56
57
58			#else /* ENABLE_M68K */
59
60
61			#include "cpu.h"
62			#include "cpu_m68k.h"
63			#include "machine.h"
64			#include "memory.h"
65			#include "symbol.h"
66
67			#define DYNTRANS_32
68			#define DYNTRANS_VARIABLE_INSTRUCTION_LENGTH
69			#include "tmp_m68k_head.c"
70
71
72			static char *m68k_aname[] = { "a0", "a1", "a2", "a3", "a4", "a5", "fp", "a7" };
73
74
75			/*
76			* m68k_cpu_new():
77			*
78			* Create a new M68K cpu object.
79			*
80			* Returns 1 on success, 0 if there was no matching M68K processor with
81			* this cpu_type_name.
82			*/
83			int m68k_cpu_new(struct cpu cpu, struct memory mem, struct machine *machine,
84			int cpu_id, char *cpu_type_name)
85			{
86			if (strcasecmp(cpu_type_name, "68020") != 0)
87			return 0;
88
89			cpu->memory_rw = m68k_memory_rw;
90			cpu->update_translation_table = m68k_update_translation_table;
91			cpu->invalidate_translation_caches_paddr =
92			m68k_invalidate_translation_caches_paddr;
93			cpu->invalidate_code_translation_caches =
94			m68k_invalidate_code_translation_caches;
95			cpu->is_32bit = 1;
96
97			cpu->byte_order = EMUL_BIG_ENDIAN;
98
99			/* Only show name and caches etc for CPU nr 0 (in SMP machines): */
100			if (cpu_id == 0) {
101			debug("%s", cpu->name);
102			}
103
104			return 1;
105			}
106
107
108			/*
109			* m68k_cpu_list_available_types():
110			*
111			* Print a list of available M68K CPU types.
112			*/
113			void m68k_cpu_list_available_types(void)
114			{
115			debug("68020\n");
116			/* TODO */
117			}
118
119
120			/*
121			* m68k_cpu_dumpinfo():
122			*/
123			void m68k_cpu_dumpinfo(struct cpu *cpu)
124			{
125			/* TODO */
126			debug("\n");
127			}
128
129
130			/*
131			* m68k_cpu_register_dump():
132			*
133			* Dump cpu registers in a relatively readable format.
134			*
135			* gprs: set to non-zero to dump GPRs and some special-purpose registers.
136			* coprocs: set bit 0..3 to dump registers in coproc 0..3.
137			*/
138			void m68k_cpu_register_dump(struct cpu *cpu, int gprs, int coprocs)
139			{
140			char *symbol;
141			uint64_t offset;
142			int x = cpu->cpu_id;
143
144			if (gprs) {
145			/* Special registers (pc, ...) first: */
146			symbol = get_symbol_name(&cpu->machine->symbol_context,
147			cpu->pc, &offset);
148
149			debug("cpu%i: pc = 0x%08x", x, (int)cpu->pc);
150			debug(" <%s>\n", symbol != NULL? symbol : " no symbol ");
151			}
152			}
153
154
155			/*
156			* m68k_cpu_register_match():
157			*/
158			void m68k_cpu_register_match(struct machine m, char name,
159			int writeflag, uint64_t valuep, int match_register)
160			{
161			int cpunr = 0;
162
163			/* CPU number: */
164
165			/* TODO */
166
167			/* Register name: */
168			if (strcasecmp(name, "pc") == 0) {
169			if (writeflag) {
170			m->cpus[cpunr]->pc = *valuep;
171			} else
172			*valuep = m->cpus[cpunr]->pc;
173			*match_register = 1;
174			}
175			}
176
177
178			/*
179			* m68k_cpu_show_full_statistics():
180			*
181			* Show detailed statistics on opcode usage on each cpu.
182			*/
183			void m68k_cpu_show_full_statistics(struct machine *m)
184			{
185			fatal("m68k_cpu_show_full_statistics(): TODO\n");
186			}
187
188
189			/*
190			* m68k_cpu_tlbdump():
191			*
192			* Called from the debugger to dump the TLB in a readable format.
193			* x is the cpu number to dump, or -1 to dump all CPUs.
194			*
195			* If rawflag is nonzero, then the TLB contents isn't formated nicely,
196			* just dumped.
197			*/
198			void m68k_cpu_tlbdump(struct machine *m, int x, int rawflag)
199			{
200			fatal("m68k_cpu_tlbdump(): TODO\n");
201			}
202
203
204			/*
205			* m68k_cpu_interrupt():
206			*/
207			int m68k_cpu_interrupt(struct cpu *cpu, uint64_t irq_nr)
208			{
209			fatal("m68k_cpu_interrupt(): TODO\n");
210			return 0;
211			}
212
213
214			/*
215			* m68k_cpu_interrupt_ack():
216			*/
217			int m68k_cpu_interrupt_ack(struct cpu *cpu, uint64_t irq_nr)
218			{
219			/* fatal("m68k_cpu_interrupt_ack(): TODO\n"); */
220			return 0;
221			}
222
223
224			/* Helper functions: */
225			void print_two(unsigned char instr, int len)
226			{ debug(" %02x%02x", instr[len], instr[len+1]); (*len) += 2; }
227			void print_spaces(int len) { int i; debug(" "); for (i=0; i<16-len/2*5;
228			i++) debug(" "); }
229
230
231			/*
232			* m68k_cpu_disassemble_instr():
233			*
234			* Convert an instruction word into human readable format, for instruction
235			* tracing.
236			*
237			* If running is 1, cpu->pc should be the address of the instruction.
238			*
239			* If running is 0, things that depend on the runtime environment (eg.
240			* register contents) will not be shown, and addr will be used instead of
241			* cpu->pc for relative addresses.
242			*/
243			int m68k_cpu_disassemble_instr(struct cpu cpu, unsigned char ib,
244			int running, uint64_t dumpaddr, int bintrans)
245			{
246			uint64_t offset;
247			int len = 0;
248			char *symbol;
249
250			if (running)
251			dumpaddr = cpu->pc;
252
253			symbol = get_symbol_name(&cpu->machine->symbol_context,
254			dumpaddr, &offset);
255			if (symbol != NULL && offset==0)
256			debug("<%s>\n", symbol);
257
258			if (cpu->machine->ncpus > 1 && running)
259			debug("cpu%i: ", cpu->cpu_id);
260
261			debug("0x%08x: ", (int)dumpaddr);
262
263			print_two(ib, &len);
264
265			if (ib[0] == 0x48) {
266			if (ib[1] >= 0x40 && ib[1] <= 0x47) {
267			print_spaces(len);
268			debug("swap\td%i\n", ib[1] & 7);
269			} else if (ib[1] >= 0x48 && ib[1] <= 0x4f) {
270			print_spaces(len);
271			debug("bkpt\t#%i\n", ib[1] & 7);
272			} else {
273			print_spaces(len);
274			debug("UNIMPLEMENTED 0x%02x%02x\n", ib[0], ib[1]);
275			}
276			} else if (ib[0] == 0x4a) {
277			if (ib[1] == 0xfc) {
278			print_spaces(len);
279			debug("illegal\n");
280			} else {
281			print_spaces(len);
282			debug("UNIMPLEMENTED 0x%02x%02x\n", ib[0], ib[1]);
283			}
284			} else if (ib[0] == 0x4e) {
285			if (ib[1] >= 0x40 && ib[1] <= 0x4f) {
286			print_spaces(len);
287			debug("trap\t#%i\n", ib[1] & 15);
288			} else if (ib[1] >= 0x50 && ib[1] <= 0x57) {
289			print_two(ib, &len);
290			print_spaces(len);
291			debug("linkw\t%%%s,#%i\n", m68k_aname[ib[1] & 7],
292			((ib[2] << 8) + ib[3]));
293			} else if (ib[1] >= 0x58 && ib[1] <= 0x5f) {
294			print_spaces(len);
295			debug("unlk\t%%%s\n", m68k_aname[ib[1] & 7]);
296			} else if (ib[1] == 0x70) {
297			print_spaces(len);
298			debug("reset\n");
299			} else if (ib[1] == 0x71) {
300			print_spaces(len);
301			debug("nop\n");
302			} else if (ib[1] == 0x72) {
303			print_two(ib, &len);
304			print_spaces(len);
305			debug("stop\t#0x%04x\n", ((ib[2] << 8) + ib[3]));
306			} else if (ib[1] == 0x73) {
307			print_spaces(len);
308			debug("rte\n");
309			} else if (ib[1] == 0x74) {
310			print_two(ib, &len);
311			print_spaces(len);
312			debug("rtd\t#0x%04x\n", ((ib[2] << 8) + ib[3]));
313			} else if (ib[1] == 0x75) {
314			print_spaces(len);
315			debug("rts\n");
316			} else {
317			print_spaces(len);
318			debug("UNIMPLEMENTED 0x%02x%02x\n", ib[0], ib[1]);
319			}
320			} else {
321			print_spaces(len);
322			debug("UNIMPLEMENTED 0x%02x%02x\n", ib[0], ib[1]);
323			}
324
325			return len;
326			}
327
328
329			#include "tmp_m68k_tail.c"
330
331
332			#endif /* ENABLE_M68K */