src/cpus/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/11/13 00:14:07 debug Exp $
 *
 *  Motorola 68K CPU emulation.
 */

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

#include "cpu.h"
#include "machine.h"
#include "memory.h"
#include "misc.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 =
            m68k_invalidate_translation_caches;
        cpu->invalidate_code_translation = m68k_invalidate_code_translation;
        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_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:  */
static void print_two(unsigned char *instr, int *len)
{ debug(" %02x%02x", instr[*len], instr[*len+1]); (*len) += 2; }
static 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"

1	/*
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/11/13 00:14:07 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 "cpu.h"
39	#include "machine.h"
40	#include "memory.h"
41	#include "misc.h"
42	#include "symbol.h"
43
44
45	#define DYNTRANS_32
46	#define DYNTRANS_VARIABLE_INSTRUCTION_LENGTH
47	#include "tmp_m68k_head.c"
48
49
50	static char *m68k_aname[] = { "a0", "a1", "a2", "a3", "a4", "a5", "fp", "a7" };
51
52
53	/*
54	* m68k_cpu_new():
55	*
56	* Create a new M68K cpu object.
57	*
58	* Returns 1 on success, 0 if there was no matching M68K processor with
59	* this cpu_type_name.
60	*/
61	int m68k_cpu_new(struct cpu cpu, struct memory mem, struct machine *machine,
62	int cpu_id, char *cpu_type_name)
63	{
64	if (strcasecmp(cpu_type_name, "68020") != 0)
65	return 0;
66
67	cpu->memory_rw = m68k_memory_rw;
68	cpu->update_translation_table = m68k_update_translation_table;
69	cpu->invalidate_translation_caches =
70	m68k_invalidate_translation_caches;
71	cpu->invalidate_code_translation = m68k_invalidate_code_translation;
72	cpu->is_32bit = 1;
73
74	cpu->byte_order = EMUL_BIG_ENDIAN;
75
76	/* Only show name and caches etc for CPU nr 0 (in SMP machines): */
77	if (cpu_id == 0) {
78	debug("%s", cpu->name);
79	}
80
81	return 1;
82	}
83
84
85	/*
86	* m68k_cpu_list_available_types():
87	*
88	* Print a list of available M68K CPU types.
89	*/
90	void m68k_cpu_list_available_types(void)
91	{
92	debug("68020\n");
93	/* TODO */
94	}
95
96
97	/*
98	* m68k_cpu_dumpinfo():
99	*/
100	void m68k_cpu_dumpinfo(struct cpu *cpu)
101	{
102	/* TODO */
103	debug("\n");
104	}
105
106
107	/*
108	* m68k_cpu_register_dump():
109	*
110	* Dump cpu registers in a relatively readable format.
111	*
112	* gprs: set to non-zero to dump GPRs and some special-purpose registers.
113	* coprocs: set bit 0..3 to dump registers in coproc 0..3.
114	*/
115	void m68k_cpu_register_dump(struct cpu *cpu, int gprs, int coprocs)
116	{
117	char *symbol;
118	uint64_t offset;
119	int x = cpu->cpu_id;
120
121	if (gprs) {
122	/* Special registers (pc, ...) first: */
123	symbol = get_symbol_name(&cpu->machine->symbol_context,
124	cpu->pc, &offset);
125
126	debug("cpu%i: pc = 0x%08x", x, (int)cpu->pc);
127	debug(" <%s>\n", symbol != NULL? symbol : " no symbol ");
128	}
129	}
130
131
132	/*
133	* m68k_cpu_register_match():
134	*/
135	void m68k_cpu_register_match(struct machine m, char name,
136	int writeflag, uint64_t valuep, int match_register)
137	{
138	int cpunr = 0;
139
140	/* CPU number: */
141
142	/* TODO */
143
144	/* Register name: */
145	if (strcasecmp(name, "pc") == 0) {
146	if (writeflag) {
147	m->cpus[cpunr]->pc = *valuep;
148	} else
149	*valuep = m->cpus[cpunr]->pc;
150	*match_register = 1;
151	}
152	}
153
154
155	/*
156	* m68k_cpu_interrupt():
157	*/
158	int m68k_cpu_interrupt(struct cpu *cpu, uint64_t irq_nr)
159	{
160	fatal("m68k_cpu_interrupt(): TODO\n");
161	return 0;
162	}
163
164
165	/*
166	* m68k_cpu_interrupt_ack():
167	*/
168	int m68k_cpu_interrupt_ack(struct cpu *cpu, uint64_t irq_nr)
169	{
170	/* fatal("m68k_cpu_interrupt_ack(): TODO\n"); */
171	return 0;
172	}
173
174
175	/* Helper functions: */
176	static void print_two(unsigned char instr, int len)
177	{ debug(" %02x%02x", instr[len], instr[len+1]); (*len) += 2; }
178	static void print_spaces(int len) { int i; debug(" "); for (i=0; i<16-len/2*5;
179	i++) debug(" "); }
180
181
182	/*
183	* m68k_cpu_disassemble_instr():
184	*
185	* Convert an instruction word into human readable format, for instruction
186	* tracing.
187	*
188	* If running is 1, cpu->pc should be the address of the instruction.
189	*
190	* If running is 0, things that depend on the runtime environment (eg.
191	* register contents) will not be shown, and addr will be used instead of
192	* cpu->pc for relative addresses.
193	*/
194	int m68k_cpu_disassemble_instr(struct cpu cpu, unsigned char ib,
195	int running, uint64_t dumpaddr, int bintrans)
196	{
197	uint64_t offset;
198	int len = 0;
199	char *symbol;
200
201	if (running)
202	dumpaddr = cpu->pc;
203
204	symbol = get_symbol_name(&cpu->machine->symbol_context,
205	dumpaddr, &offset);
206	if (symbol != NULL && offset==0)
207	debug("<%s>\n", symbol);
208
209	if (cpu->machine->ncpus > 1 && running)
210	debug("cpu%i: ", cpu->cpu_id);
211
212	debug("0x%08x: ", (int)dumpaddr);
213
214	print_two(ib, &len);
215
216	if (ib[0] == 0x48) {
217	if (ib[1] >= 0x40 && ib[1] <= 0x47) {
218	print_spaces(len);
219	debug("swap\td%i\n", ib[1] & 7);
220	} else if (ib[1] >= 0x48 && ib[1] <= 0x4f) {
221	print_spaces(len);
222	debug("bkpt\t#%i\n", ib[1] & 7);
223	} else {
224	print_spaces(len);
225	debug("UNIMPLEMENTED 0x%02x%02x\n", ib[0], ib[1]);
226	}
227	} else if (ib[0] == 0x4a) {
228	if (ib[1] == 0xfc) {
229	print_spaces(len);
230	debug("illegal\n");
231	} else {
232	print_spaces(len);
233	debug("UNIMPLEMENTED 0x%02x%02x\n", ib[0], ib[1]);
234	}
235	} else if (ib[0] == 0x4e) {
236	if (ib[1] >= 0x40 && ib[1] <= 0x4f) {
237	print_spaces(len);
238	debug("trap\t#%i\n", ib[1] & 15);
239	} else if (ib[1] >= 0x50 && ib[1] <= 0x57) {
240	print_two(ib, &len);
241	print_spaces(len);
242	debug("linkw\t%%%s,#%i\n", m68k_aname[ib[1] & 7],
243	((ib[2] << 8) + ib[3]));
244	} else if (ib[1] >= 0x58 && ib[1] <= 0x5f) {
245	print_spaces(len);
246	debug("unlk\t%%%s\n", m68k_aname[ib[1] & 7]);
247	} else if (ib[1] == 0x70) {
248	print_spaces(len);
249	debug("reset\n");
250	} else if (ib[1] == 0x71) {
251	print_spaces(len);
252	debug("nop\n");
253	} else if (ib[1] == 0x72) {
254	print_two(ib, &len);
255	print_spaces(len);
256	debug("stop\t#0x%04x\n", ((ib[2] << 8) + ib[3]));
257	} else if (ib[1] == 0x73) {
258	print_spaces(len);
259	debug("rte\n");
260	} else if (ib[1] == 0x74) {
261	print_two(ib, &len);
262	print_spaces(len);
263	debug("rtd\t#0x%04x\n", ((ib[2] << 8) + ib[3]));
264	} else if (ib[1] == 0x75) {
265	print_spaces(len);
266	debug("rts\n");
267	} else {
268	print_spaces(len);
269	debug("UNIMPLEMENTED 0x%02x%02x\n", ib[0], ib[1]);
270	}
271	} else {
272	print_spaces(len);
273	debug("UNIMPLEMENTED 0x%02x%02x\n", ib[0], ib[1]);
274	}
275
276	return len;
277	}
278
279
280	#include "tmp_m68k_tail.c"
281