src/promemul/dreamcast.c

/*
 *  Copyright (C) 2006-2007  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: dreamcast.c,v 1.15 2006/12/30 13:31:02 debug Exp $
 *
 *  Dreamcast PROM emulation.
 *
 *  NOTE: This is basically just a dummy module, for now.
 *
 *  See http://mc.pp.se/dc/syscalls.html for a description of what the
 *  PROM syscalls do. (The symbolic names in this module are the same as on
 *  that page.)
 */

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/types.h>

#include "cpu.h"
#include "machine.h"
#include "memory.h"
#include "misc.h"

#ifdef ENABLE_SH


/*  The ROM FONT seems to be located just after 1MB, in a real Dreamcast:  */
#define DREAMCAST_ROMFONT_BASE          0x80100020

static int booting_from_cdrom = 0;


/*
 *  dreamcast_romfont_init()
 *
 *  Initialize the ROM font.
 */
static void dreamcast_romfont_init(struct machine *machine)
{
        struct cpu *cpu = machine->cpus[0];
        int i, y, v;
        uint64_t d = DREAMCAST_ROMFONT_BASE;

        /*  TODO: A real font.  */

        /*  288 narrow glyphs (12 x 24 pixels):  */
        for (i=0; i<288; i++) {
                for (y=0; y<24; y+=2) {
                        if (y <= 1 || y >= 22)
                                v = 0;
                        else
                                v = random();
                        store_byte(cpu, d++, v & 0x3f);
                        store_byte(cpu, d++, v & 0xc3);
                        store_byte(cpu, d++, v & 0xfc);
                }
        }

        /*  7078 wide glyphs (24 x 24 pixels):  */
        for (i=0; i<7078; i++) {
                for (y=0; y<24; y++) {
                        if (y <= 1 || y >= 22)
                                v = 0;
                        else
                                v = random();
                        store_byte(cpu, d++, v & 0x3f);
                        store_byte(cpu, d++, v);
                        store_byte(cpu, d++, v & 0xfc);
                }
        }

        /*  129 VME icons (32 x 32 pixels):  */
        for (i=0; i<129; i++) {
                for (y=0; y<32; y++) {
                        if (y <= 1 || y >= 30)
                                v = 0;
                        else
                                v = random();
                        store_byte(cpu, d++, v & 0x3f);
                        store_byte(cpu, d++, v);
                        store_byte(cpu, d++, v);
                        store_byte(cpu, d++, v & 0xfc);
                }
        }
}


/*
 *  dreamcast_machine_setup():
 *
 *  Initializes pointers to Dreamcast PROM syscalls.
 */
void dreamcast_machine_setup(struct machine *machine)
{
        int i;
        struct cpu *cpu = machine->cpus[0];

        for (i=0; i<0x50; i+=sizeof(uint32_t)) {
                /*  Store pointer to PROM routine...  */
                store_32bit_word(cpu, 0x8c0000b0 + i, 0x8c000040 + i);

                /*  ... which contains only 1 instruction, a special
                    opcode which triggers PROM emulation:  */
                store_16bit_word(cpu, 0x8c000040 + i, SH_INVALID_INSTR);
        }

        /*  PROM reboot, in case someone jumps to 0xa0000000:  */
        store_16bit_word(cpu, 0xa0000000, SH_INVALID_INSTR);

        dreamcast_romfont_init(machine);
}


/*
 *  dreamcast_emul():
 */
int dreamcast_emul(struct cpu *cpu)
{
        int addr = (cpu->pc & 0xff) - 0x40 + 0xb0;
        int r1 = cpu->cd.sh.r[1];
        int r6 = cpu->cd.sh.r[6];
        int r7 = cpu->cd.sh.r[7];

        /*  Special case: Reboot  */
        if ((uint32_t)cpu->pc == 0xa0000000) {
                fatal("[ dreamcast reboot ]\n");
                cpu->running = 0;
                return 1;
        }

        switch (addr) {

        case 0xb0:
                /*  SYSINFO  */
                switch (r7) {
                default:fatal("[ SYSINFO: Unimplemented r7=%i ]\n", r7);
                        goto bad;
                }
                break;

        case 0xb4:
                /*  ROMFONT  */
                switch (r1) {
                case 0: /*  ROMFONT_ADDRESS  */
                        cpu->cd.sh.r[0] = DREAMCAST_ROMFONT_BASE;
                        break;
                default:fatal("[ ROMFONT: Unimplemented r1=%i ]\n", r1);
                        goto bad;
                }
                break;

        case 0xb8:
                /*  FLASHROM  */
                switch (r7) {
                case 0: /*  FLASHROM_INFO  */
                        /*  TODO  */
                        cpu->cd.sh.r[0] = (uint32_t) -1;
                        break;
                default:fatal("[ FLASHROM: Unimplemented r7=%i ]\n", r7);
                        goto bad;
                }
                break;

        case 0xbc:
                switch ((int32_t)r6) {
                case 0: /*  GD-ROM emulation  */
                        switch (r7) {
                        case 0: /*  GDROM_SEND_COMMAND  */
                                /*  TODO  */
                                cpu->cd.sh.r[0] = (uint32_t) -1;
                                break;
                        case 1: /*  GDROM_CHECK_COMMAND  */
                                /*  TODO  */
                                cpu->cd.sh.r[0] = 0;
                                break;
                        case 2: /*  GDROM_MAINLOOP  */
                                /*  TODO  */
                                break;
                        case 3: /*  GDROM_INIT  */
                                /*  TODO: Do something here?  */
                                break;
                        case 4: /*  GDROM_CHECK_DRIVE  */
                                /*  TODO: Return status words  */
                                break;
                        default:fatal("[ GDROM: Unimplemented r7=%i ]\n", r7);
                                goto bad;
                        }
                        break;
                default:fatal("[ 0xbc: Unimplemented r6=0x%x ]\n", r6);
                        goto bad;
                }
                break;

        case 0xe0:
                /*
                 *  This seems to have two uses:
                 *
                 *  1. KalistOS calls this from arch_menu(), i.e. to return
                 *     from a running program.
                 *  2. The "licence code" in the IP.BIN code when booting from
                 *     a bootable CD image calls this once the license screen
                 *     has been displayed, and it wants the ROM to jump to
                 *     0x8c00b800 ("Bootstrap 1").
                 *
                 *  The easiest way to support both is probably to keep track
                 *  of whether the IP.BIN code was started by the (software)
                 *  ROM emulation code, or not.
                 */
                if (booting_from_cdrom) {
                        fatal("[ dreamcast: Switching to bootstrap 1 ]\n");
                        booting_from_cdrom = 0;
                        cpu->pc = 0x8c00b800;
                        return 1;
                } else {
                        fatal("[ dreamcast: Returning to main menu. ]\n");
                        cpu->running = 0;
                }
                break;

        case 0xf0:
                /*
                 *  GXemul hack:
                 *
                 *  By jumping to this address (0x8c000080), a "boot from
                 *  CDROM" is simulated. Control is transfered to the license
                 *  code in the loaded IP.BIN file.
                 */
                debug("[ dreamcast boot from CDROM ]\n");
                booting_from_cdrom = 1;
                cpu->pc = 0x8c008300;
                return 1;

        default:goto bad;
        }

        /*  Return from subroutine:  */
        cpu->pc = cpu->cd.sh.pr;

        return 1;

bad:
        cpu_register_dump(cpu->machine, cpu, 1, 0);
        printf("\n");
        fatal("[ dreamcast_emul(): unimplemented dreamcast PROM call, "
            "pc=0x%08"PRIx32" ]\n", (uint32_t)cpu->pc);
        cpu->running = 0;
        return 1;
}


#endif  /*  ENABLE_SH  */
1	/*
2	* Copyright (C) 2006-2007 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: dreamcast.c,v 1.15 2006/12/30 13:31:02 debug Exp $
29	*
30	* Dreamcast PROM emulation.
31	*
32	* NOTE: This is basically just a dummy module, for now.
33	*
34	* See http://mc.pp.se/dc/syscalls.html for a description of what the
35	* PROM syscalls do. (The symbolic names in this module are the same as on
36	* that page.)
37	*/
38
39	#include <stdio.h>
40	#include <stdlib.h>
41	#include <string.h>
42	#include <sys/types.h>
43
44	#include "cpu.h"
45	#include "machine.h"
46	#include "memory.h"
47	#include "misc.h"
48
49	#ifdef ENABLE_SH
50
51
52	/* The ROM FONT seems to be located just after 1MB, in a real Dreamcast: */
53	#define DREAMCAST_ROMFONT_BASE 0x80100020
54
55	static int booting_from_cdrom = 0;
56
57
58	/*
59	* dreamcast_romfont_init()
60	*
61	* Initialize the ROM font.
62	*/
63	static void dreamcast_romfont_init(struct machine *machine)
64	{
65	struct cpu *cpu = machine->cpus[0];
66	int i, y, v;
67	uint64_t d = DREAMCAST_ROMFONT_BASE;
68
69	/* TODO: A real font. */
70
71	/* 288 narrow glyphs (12 x 24 pixels): */
72	for (i=0; i<288; i++) {
73	for (y=0; y<24; y+=2) {
74	if (y <= 1 \|\| y >= 22)
75	v = 0;
76	else
77	v = random();
78	store_byte(cpu, d++, v & 0x3f);
79	store_byte(cpu, d++, v & 0xc3);
80	store_byte(cpu, d++, v & 0xfc);
81	}
82	}
83
84	/* 7078 wide glyphs (24 x 24 pixels): */
85	for (i=0; i<7078; i++) {
86	for (y=0; y<24; y++) {
87	if (y <= 1 \|\| y >= 22)
88	v = 0;
89	else
90	v = random();
91	store_byte(cpu, d++, v & 0x3f);
92	store_byte(cpu, d++, v);
93	store_byte(cpu, d++, v & 0xfc);
94	}
95	}
96
97	/* 129 VME icons (32 x 32 pixels): */
98	for (i=0; i<129; i++) {
99	for (y=0; y<32; y++) {
100	if (y <= 1 \|\| y >= 30)
101	v = 0;
102	else
103	v = random();
104	store_byte(cpu, d++, v & 0x3f);
105	store_byte(cpu, d++, v);
106	store_byte(cpu, d++, v);
107	store_byte(cpu, d++, v & 0xfc);
108	}
109	}
110	}
111
112
113	/*
114	* dreamcast_machine_setup():
115	*
116	* Initializes pointers to Dreamcast PROM syscalls.
117	*/
118	void dreamcast_machine_setup(struct machine *machine)
119	{
120	int i;
121	struct cpu *cpu = machine->cpus[0];
122
123	for (i=0; i<0x50; i+=sizeof(uint32_t)) {
124	/* Store pointer to PROM routine... */
125	store_32bit_word(cpu, 0x8c0000b0 + i, 0x8c000040 + i);
126
127	/* ... which contains only 1 instruction, a special
128	opcode which triggers PROM emulation: */
129	store_16bit_word(cpu, 0x8c000040 + i, SH_INVALID_INSTR);
130	}
131
132	/* PROM reboot, in case someone jumps to 0xa0000000: */
133	store_16bit_word(cpu, 0xa0000000, SH_INVALID_INSTR);
134
135	dreamcast_romfont_init(machine);
136	}
137
138
139	/*
140	* dreamcast_emul():
141	*/
142	int dreamcast_emul(struct cpu *cpu)
143	{
144	int addr = (cpu->pc & 0xff) - 0x40 + 0xb0;
145	int r1 = cpu->cd.sh.r[1];
146	int r6 = cpu->cd.sh.r[6];
147	int r7 = cpu->cd.sh.r[7];
148
149	/* Special case: Reboot */
150	if ((uint32_t)cpu->pc == 0xa0000000) {
151	fatal("[ dreamcast reboot ]\n");
152	cpu->running = 0;
153	return 1;
154	}
155
156	switch (addr) {
157
158	case 0xb0:
159	/* SYSINFO */
160	switch (r7) {
161	default:fatal("[ SYSINFO: Unimplemented r7=%i ]\n", r7);
162	goto bad;
163	}
164	break;
165
166	case 0xb4:
167	/* ROMFONT */
168	switch (r1) {
169	case 0: /* ROMFONT_ADDRESS */
170	cpu->cd.sh.r[0] = DREAMCAST_ROMFONT_BASE;
171	break;
172	default:fatal("[ ROMFONT: Unimplemented r1=%i ]\n", r1);
173	goto bad;
174	}
175	break;
176
177	case 0xb8:
178	/* FLASHROM */
179	switch (r7) {
180	case 0: /* FLASHROM_INFO */
181	/* TODO */
182	cpu->cd.sh.r[0] = (uint32_t) -1;
183	break;
184	default:fatal("[ FLASHROM: Unimplemented r7=%i ]\n", r7);
185	goto bad;
186	}
187	break;
188
189	case 0xbc:
190	switch ((int32_t)r6) {
191	case 0: /* GD-ROM emulation */
192	switch (r7) {
193	case 0: /* GDROM_SEND_COMMAND */
194	/* TODO */
195	cpu->cd.sh.r[0] = (uint32_t) -1;
196	break;
197	case 1: /* GDROM_CHECK_COMMAND */
198	/* TODO */
199	cpu->cd.sh.r[0] = 0;
200	break;
201	case 2: /* GDROM_MAINLOOP */
202	/* TODO */
203	break;
204	case 3: /* GDROM_INIT */
205	/* TODO: Do something here? */
206	break;
207	case 4: /* GDROM_CHECK_DRIVE */
208	/* TODO: Return status words */
209	break;
210	default:fatal("[ GDROM: Unimplemented r7=%i ]\n", r7);
211	goto bad;
212	}
213	break;
214	default:fatal("[ 0xbc: Unimplemented r6=0x%x ]\n", r6);
215	goto bad;
216	}
217	break;
218
219	case 0xe0:
220	/*
221	* This seems to have two uses:
222	*
223	* 1. KalistOS calls this from arch_menu(), i.e. to return
224	* from a running program.
225	* 2. The "licence code" in the IP.BIN code when booting from
226	* a bootable CD image calls this once the license screen
227	* has been displayed, and it wants the ROM to jump to
228	* 0x8c00b800 ("Bootstrap 1").
229	*
230	* The easiest way to support both is probably to keep track
231	* of whether the IP.BIN code was started by the (software)
232	* ROM emulation code, or not.
233	*/
234	if (booting_from_cdrom) {
235	fatal("[ dreamcast: Switching to bootstrap 1 ]\n");
236	booting_from_cdrom = 0;
237	cpu->pc = 0x8c00b800;
238	return 1;
239	} else {
240	fatal("[ dreamcast: Returning to main menu. ]\n");
241	cpu->running = 0;
242	}
243	break;
244
245	case 0xf0:
246	/*
247	* GXemul hack:
248	*
249	* By jumping to this address (0x8c000080), a "boot from
250	* CDROM" is simulated. Control is transfered to the license
251	* code in the loaded IP.BIN file.
252	*/
253	debug("[ dreamcast boot from CDROM ]\n");
254	booting_from_cdrom = 1;
255	cpu->pc = 0x8c008300;
256	return 1;
257
258	default:goto bad;
259	}
260
261	/* Return from subroutine: */
262	cpu->pc = cpu->cd.sh.pr;
263
264	return 1;
265
266	bad:
267	cpu_register_dump(cpu->machine, cpu, 1, 0);
268	printf("\n");
269	fatal("[ dreamcast_emul(): unimplemented dreamcast PROM call, "
270	"pc=0x%08"PRIx32" ]\n", (uint32_t)cpu->pc);
271	cpu->running = 0;
272	return 1;
273	}
274
275
276	#endif /* ENABLE_SH */