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	dpavlin	32	/*
2	dpavlin	34	* Copyright (C) 2006-2007 Anders Gavare. All rights reserved.
3	dpavlin	32	*
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	dpavlin	34	* $Id: dreamcast.c,v 1.15 2006/12/30 13:31:02 debug Exp $
29	dpavlin	32	*
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	dpavlin	34	static int booting_from_cdrom = 0;
56	dpavlin	32
57	dpavlin	34
58	dpavlin	32	/*
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	dpavlin	34	for (i=0; i<0x50; i+=sizeof(uint32_t)) {
124	dpavlin	32	/* Store pointer to PROM routine... */
125	dpavlin	34	store_32bit_word(cpu, 0x8c0000b0 + i, 0x8c000040 + i);
126	dpavlin	32
127			/* ... which contains only 1 instruction, a special
128	dpavlin	34	opcode which triggers PROM emulation: */
129			store_16bit_word(cpu, 0x8c000040 + i, SH_INVALID_INSTR);
130	dpavlin	32	}
131
132			/* PROM reboot, in case someone jumps to 0xa0000000: */
133	dpavlin	34	store_16bit_word(cpu, 0xa0000000, SH_INVALID_INSTR);
134	dpavlin	32
135			dreamcast_romfont_init(machine);
136			}
137
138
139			/*
140			* dreamcast_emul():
141			*/
142			int dreamcast_emul(struct cpu *cpu)
143			{
144	dpavlin	34	int addr = (cpu->pc & 0xff) - 0x40 + 0xb0;
145	dpavlin	32	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	dpavlin	34	/* 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	dpavlin	32	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	dpavlin	34	*/
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	dpavlin	32	*
249	dpavlin	34	* 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	dpavlin	32	*/
253	dpavlin	34	debug("[ dreamcast boot from CDROM ]\n");
254			booting_from_cdrom = 1;
255			cpu->pc = 0x8c008300;
256			return 1;
257	dpavlin	32
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	dpavlin	34	fatal("[ dreamcast_emul(): unimplemented dreamcast PROM call, "
270			"pc=0x%08"PRIx32" ]\n", (uint32_t)cpu->pc);
271	dpavlin	32	cpu->running = 0;
272			return 1;
273			}
274
275
276			#endif /* ENABLE_SH */