[pcsx_rearmed.git] / libpcsxcore / psxdma.c

/***************************************************************************
 *   Copyright (C) 2007 Ryan Schultz, PCSX-df Team, PCSX team              *
 *                                                                         *
 *   This program is free software; you can redistribute it and/or modify  *
 *   it under the terms of the GNU General Public License as published by  *
 *   the Free Software Foundation; either version 2 of the License, or     *
 *   (at your option) any later version.                                   *
 *                                                                         *
 *   This program is distributed in the hope that it will be useful,       *
 *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
 *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *
 *   GNU General Public License for more details.                          *
 *                                                                         *
 *   You should have received a copy of the GNU General Public License     *
 *   along with this program; if not, write to the                         *
 *   Free Software Foundation, Inc.,                                       *
 *   51 Franklin Street, Fifth Floor, Boston, MA 02111-1307 USA.           *
 ***************************************************************************/

/*
* Handles PSX DMA functions.
*/

#include "psxdma.h"
#include "gpu.h"

#ifndef min
#define min(a, b) ((b) < (a) ? (b) : (a))
#endif

// Dma0/1 in Mdec.c
// Dma3   in CdRom.c

void spuInterrupt() {
	if (HW_DMA4_CHCR & SWAP32(0x01000000))
	{
		HW_DMA4_CHCR &= SWAP32(~0x01000000);
		DMA_INTERRUPT(4);
	}
}

void psxDma4(u32 madr, u32 bcr, u32 chcr) { // SPU
	u32 words, words_max, size;
	u16 *ptr;

	switch (chcr) {
		case 0x01000201: //cpu to spu transfer
#ifdef PSXDMA_LOG
			PSXDMA_LOG("*** DMA4 SPU - mem2spu *** %x addr = %x size = %x\n", chcr, madr, bcr);
#endif
			ptr = getDmaRam(madr, &words_max);
			if (ptr == INVALID_PTR) {
#ifdef CPU_LOG
				CPU_LOG("*** DMA4 SPU - mem2spu *** NULL Pointer!!!\n");
#endif
				break;
			}
			words = (bcr >> 16) * (bcr & 0xffff);
			size = min(words, words_max) * 2;
			SPU_writeDMAMem(ptr, size, psxRegs.cycle);
			HW_DMA4_MADR = SWAPu32((madr & ~3) + words * 4);
			SPUDMA_INT(words * 4);
			return;

		case 0x01000200: //spu to cpu transfer
#ifdef PSXDMA_LOG
			PSXDMA_LOG("*** DMA4 SPU - spu2mem *** %x addr = %x size = %x\n", chcr, madr, bcr);
#endif
			ptr = getDmaRam(madr, &words_max);
			if (ptr == INVALID_PTR) {
#ifdef CPU_LOG
				CPU_LOG("*** DMA4 SPU - spu2mem *** NULL Pointer!!!\n");
#endif
				break;
			}
			words = (bcr >> 16) * (bcr & 0xffff);
			size = min(words, words_max) * 2;
			SPU_readDMAMem(ptr, size, psxRegs.cycle);
			psxCpu->Clear(madr, words);

			HW_DMA4_MADR = SWAPu32(madr + words * 4);
			SPUDMA_INT(words * 4);
			return;

		default:
			log_unhandled("*** DMA4 SPU - unknown *** %x addr = %x size = %x\n", chcr, madr, bcr);
			break;
	}

	HW_DMA4_CHCR &= SWAP32(~0x01000000);
	DMA_INTERRUPT(4);
}

// Taken from PEOPS SOFTGPU
static inline boolean CheckForEndlessLoop(u32 laddr, u32 *lUsedAddr) {
	if (laddr == lUsedAddr[1]) return TRUE;
	if (laddr == lUsedAddr[2]) return TRUE;

	if (laddr < lUsedAddr[0]) lUsedAddr[1] = laddr;
	else lUsedAddr[2] = laddr;

	lUsedAddr[0] = laddr;

	return FALSE;
}

static u32 gpuDmaChainSize(u32 addr) {
	u32 size;
	u32 DMACommandCounter = 0;
	u32 lUsedAddr[3];

	lUsedAddr[0] = lUsedAddr[1] = lUsedAddr[2] = 0xffffff;

	// initial linked list ptr (word)
	size = 1;

	do {
		addr &= 0x1ffffc;

		if (DMACommandCounter++ > 2000000) break;
		if (CheckForEndlessLoop(addr, lUsedAddr)) break;

		// # 32-bit blocks to transfer
		size += psxMu8( addr + 3 );

		// next 32-bit pointer
		addr = psxMu32( addr & ~0x3 ) & 0xffffff;
		size += 1;
	} while (!(addr & 0x800000)); // contrary to some documentation, the end-of-linked-list marker is not actually 0xFF'FFFF
                                  // any pointer with bit 23 set will do.

	return size;
}

void psxDma2(u32 madr, u32 bcr, u32 chcr) { // GPU
	u32 *ptr, madr_next, *madr_next_p, size;
	u32 words, words_max, words_copy;
	int do_walking;

	switch (chcr) {
		case 0x01000200: // vram2mem
#ifdef PSXDMA_LOG
			PSXDMA_LOG("*** DMA2 GPU - vram2mem *** %lx addr = %lx size = %lx\n", chcr, madr, bcr);
#endif
			ptr = getDmaRam(madr, &words_max);
			if (ptr == INVALID_PTR) {
#ifdef CPU_LOG
				CPU_LOG("*** DMA2 GPU - vram2mem *** NULL Pointer!!!\n");
#endif
				break;
			}
			// BA blocks * BS words (word = 32-bits)
			words = (bcr >> 16) * (bcr & 0xffff);
			words_copy = min(words, words_max);
			GPU_readDataMem(ptr, words_copy);
			psxCpu->Clear(madr, words_copy);

			HW_DMA2_MADR = SWAPu32((madr & ~3) + words * 4);

			// already 32-bit word size ((size * 4) / 4)
			GPUDMA_INT(words / 4);
			return;

		case 0x01000201: // mem2vram
#ifdef PSXDMA_LOG
			PSXDMA_LOG("*** DMA 2 - GPU mem2vram *** %lx addr = %lx size = %lx\n", chcr, madr, bcr);
#endif
			ptr = getDmaRam(madr, &words_max);
			if (ptr == INVALID_PTR) {
#ifdef CPU_LOG
				CPU_LOG("*** DMA2 GPU - mem2vram *** NULL Pointer!!!\n");
#endif
				break;
			}
			// BA blocks * BS words (word = 32-bits)
			words = (bcr >> 16) * (bcr & 0xffff);
			GPU_writeDataMem(ptr, min(words, words_max));

			HW_DMA2_MADR = SWAPu32((madr & ~3) + words * 4);

			// already 32-bit word size ((size * 4) / 4)
			GPUDMA_INT(words / 4);
			return;

		case 0x01000401: // dma chain
#ifdef PSXDMA_LOG
			PSXDMA_LOG("*** DMA 2 - GPU dma chain *** %lx addr = %lx size = %lx\n", chcr, madr, bcr);
#endif
			// when not emulating walking progress, end immediately
			madr_next = 0xffffff;

			do_walking = Config.GpuListWalking;
			if (do_walking < 0)
				do_walking = Config.hacks.gpu_slow_list_walking;
			madr_next_p = do_walking ? &madr_next : NULL;

			size = GPU_dmaChain((u32 *)psxM, madr & 0x1fffff, madr_next_p);
			if ((int)size <= 0)
				size = gpuDmaChainSize(madr);

			HW_GPU_STATUS &= SWAP32(~PSXGPU_nBUSY);
			HW_DMA2_MADR = SWAPu32(madr_next);

			// Tekken 3 = use 1.0 only (not 1.5x)

			// Einhander = parse linked list in pieces (todo)
			// Rebel Assault 2 = parse linked list in pieces (todo)
			GPUDMA_INT(size);
			return;

		default:
			log_unhandled("*** DMA 2 - GPU unknown *** %x addr = %x size = %x\n", chcr, madr, bcr);
			break;
	}

	HW_DMA2_CHCR &= SWAP32(~0x01000000);
	DMA_INTERRUPT(2);
}

void gpuInterrupt() {
	if (HW_DMA2_CHCR == SWAP32(0x01000401) && !(HW_DMA2_MADR & SWAP32(0x800000)))
	{
		u32 size, madr_next = 0xffffff;
		size = GPU_dmaChain((u32 *)psxM, HW_DMA2_MADR & 0x1fffff, &madr_next);
		HW_DMA2_MADR = SWAPu32(madr_next);
		GPUDMA_INT(size);
		return;
	}
	if (HW_DMA2_CHCR & SWAP32(0x01000000))
	{
		HW_DMA2_CHCR &= SWAP32(~0x01000000);
		DMA_INTERRUPT(2);
	}
	HW_GPU_STATUS |= SWAP32(PSXGPU_nBUSY); // GPU no longer busy
}

void psxDma6(u32 madr, u32 bcr, u32 chcr) {
	u32 words;
	u32 *mem = (u32 *)PSXM(madr);

#ifdef PSXDMA_LOG
	PSXDMA_LOG("*** DMA6 OT *** %x addr = %x size = %x\n", chcr, madr, bcr);
#endif

	if (chcr == 0x11000002) {
		if (mem == INVALID_PTR) {
#ifdef CPU_LOG
			CPU_LOG("*** DMA6 OT *** NULL Pointer!!!\n");
#endif
			HW_DMA6_CHCR &= SWAP32(~0x01000000);
			DMA_INTERRUPT(6);
			return;
		}

		// already 32-bit size
		words = bcr;

		while (bcr--) {
			*mem-- = SWAP32((madr - 4) & 0xffffff);
			madr -= 4;
		}
		*++mem = SWAP32(0xffffff);

		//GPUOTCDMA_INT(size);
		// halted
		psxRegs.cycle += words;
		GPUOTCDMA_INT(16);
		return;
	}
	else {
		// Unknown option
		log_unhandled("*** DMA6 OT - unknown *** %x addr = %x size = %x\n", chcr, madr, bcr);
	}

	HW_DMA6_CHCR &= SWAP32(~0x01000000);
	DMA_INTERRUPT(6);
}

void gpuotcInterrupt()
{
	if (HW_DMA6_CHCR & SWAP32(0x01000000))
	{
		HW_DMA6_CHCR &= SWAP32(~0x01000000);
		DMA_INTERRUPT(6);
	}
}
Commit	Line	Data
	1	/***************************************************************************
	2	* Copyright (C) 2007 Ryan Schultz, PCSX-df Team, PCSX team *
	3	* *
	4	* This program is free software; you can redistribute it and/or modify *
	5	* it under the terms of the GNU General Public License as published by *
	6	* the Free Software Foundation; either version 2 of the License, or *
	7	* (at your option) any later version. *
	8	* *
	9	* This program is distributed in the hope that it will be useful, *
	10	* but WITHOUT ANY WARRANTY; without even the implied warranty of *
	11	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
	12	* GNU General Public License for more details. *
	13	* *
	14	* You should have received a copy of the GNU General Public License *
	15	* along with this program; if not, write to the *
	16	* Free Software Foundation, Inc., *
	17	* 51 Franklin Street, Fifth Floor, Boston, MA 02111-1307 USA. *
	18	***************************************************************************/
	19
	20	/*
	21	* Handles PSX DMA functions.
	22	*/
	23
	24	#include "psxdma.h"
	25	#include "gpu.h"
	26
	27	#ifndef min
	28	#define min(a, b) ((b) < (a) ? (b) : (a))
	29	#endif
	30
	31	// Dma0/1 in Mdec.c
	32	// Dma3 in CdRom.c
	33
	34	void spuInterrupt() {
	35	if (HW_DMA4_CHCR & SWAP32(0x01000000))
	36	{
	37	HW_DMA4_CHCR &= SWAP32(~0x01000000);
	38	DMA_INTERRUPT(4);
	39	}
	40	}
	41
	42	void psxDma4(u32 madr, u32 bcr, u32 chcr) { // SPU
	43	u32 words, words_max, size;
	44	u16 *ptr;
	45
	46	switch (chcr) {
	47	case 0x01000201: //cpu to spu transfer
	48	#ifdef PSXDMA_LOG
	49	PSXDMA_LOG("* DMA4 SPU - mem2spu * %x addr = %x size = %x\n", chcr, madr, bcr);
	50	#endif
	51	ptr = getDmaRam(madr, &words_max);
	52	if (ptr == INVALID_PTR) {
	53	#ifdef CPU_LOG
	54	CPU_LOG("* DMA4 SPU - mem2spu * NULL Pointer!!!\n");
	55	#endif
	56	break;
	57	}
	58	words = (bcr >> 16) * (bcr & 0xffff);
	59	size = min(words, words_max) * 2;
	60	SPU_writeDMAMem(ptr, size, psxRegs.cycle);
	61	HW_DMA4_MADR = SWAPu32((madr & ~3) + words * 4);
	62	SPUDMA_INT(words * 4);
	63	return;
	64
	65	case 0x01000200: //spu to cpu transfer
	66	#ifdef PSXDMA_LOG
	67	PSXDMA_LOG("* DMA4 SPU - spu2mem * %x addr = %x size = %x\n", chcr, madr, bcr);
	68	#endif
	69	ptr = getDmaRam(madr, &words_max);
	70	if (ptr == INVALID_PTR) {
	71	#ifdef CPU_LOG
	72	CPU_LOG("* DMA4 SPU - spu2mem * NULL Pointer!!!\n");
	73	#endif
	74	break;
	75	}
	76	words = (bcr >> 16) * (bcr & 0xffff);
	77	size = min(words, words_max) * 2;
	78	SPU_readDMAMem(ptr, size, psxRegs.cycle);
	79	psxCpu->Clear(madr, words);
	80
	81	HW_DMA4_MADR = SWAPu32(madr + words * 4);
	82	SPUDMA_INT(words * 4);
	83	return;
	84
	85	default:
	86	log_unhandled("* DMA4 SPU - unknown * %x addr = %x size = %x\n", chcr, madr, bcr);
	87	break;
	88	}
	89
	90	HW_DMA4_CHCR &= SWAP32(~0x01000000);
	91	DMA_INTERRUPT(4);
	92	}
	93
	94	// Taken from PEOPS SOFTGPU
	95	static inline boolean CheckForEndlessLoop(u32 laddr, u32 *lUsedAddr) {
	96	if (laddr == lUsedAddr[1]) return TRUE;
	97	if (laddr == lUsedAddr[2]) return TRUE;
	98
	99	if (laddr < lUsedAddr[0]) lUsedAddr[1] = laddr;
	100	else lUsedAddr[2] = laddr;
	101
	102	lUsedAddr[0] = laddr;
	103
	104	return FALSE;
	105	}
	106
	107	static u32 gpuDmaChainSize(u32 addr) {
	108	u32 size;
	109	u32 DMACommandCounter = 0;
	110	u32 lUsedAddr[3];
	111
	112	lUsedAddr[0] = lUsedAddr[1] = lUsedAddr[2] = 0xffffff;
	113
	114	// initial linked list ptr (word)
	115	size = 1;
	116
	117	do {
	118	addr &= 0x1ffffc;
	119
	120	if (DMACommandCounter++ > 2000000) break;
	121	if (CheckForEndlessLoop(addr, lUsedAddr)) break;
	122
	123	// # 32-bit blocks to transfer
	124	size += psxMu8( addr + 3 );
	125
	126	// next 32-bit pointer
	127	addr = psxMu32( addr & ~0x3 ) & 0xffffff;
	128	size += 1;
	129	} while (!(addr & 0x800000)); // contrary to some documentation, the end-of-linked-list marker is not actually 0xFF'FFFF
	130	// any pointer with bit 23 set will do.
	131
	132	return size;
	133	}
	134
	135	void psxDma2(u32 madr, u32 bcr, u32 chcr) { // GPU
	136	u32 ptr, madr_next, madr_next_p, size;
	137	u32 words, words_max, words_copy;
	138	int do_walking;
	139
	140	switch (chcr) {
	141	case 0x01000200: // vram2mem
	142	#ifdef PSXDMA_LOG
	143	PSXDMA_LOG("* DMA2 GPU - vram2mem * %lx addr = %lx size = %lx\n", chcr, madr, bcr);
	144	#endif
	145	ptr = getDmaRam(madr, &words_max);
	146	if (ptr == INVALID_PTR) {
	147	#ifdef CPU_LOG
	148	CPU_LOG("* DMA2 GPU - vram2mem * NULL Pointer!!!\n");
	149	#endif
	150	break;
	151	}
	152	// BA blocks * BS words (word = 32-bits)
	153	words = (bcr >> 16) * (bcr & 0xffff);
	154	words_copy = min(words, words_max);
	155	GPU_readDataMem(ptr, words_copy);
	156	psxCpu->Clear(madr, words_copy);
	157
	158	HW_DMA2_MADR = SWAPu32((madr & ~3) + words * 4);
	159
	160	// already 32-bit word size ((size * 4) / 4)
	161	GPUDMA_INT(words / 4);
	162	return;
	163
	164	case 0x01000201: // mem2vram
	165	#ifdef PSXDMA_LOG
	166	PSXDMA_LOG("* DMA 2 - GPU mem2vram * %lx addr = %lx size = %lx\n", chcr, madr, bcr);
	167	#endif
	168	ptr = getDmaRam(madr, &words_max);
	169	if (ptr == INVALID_PTR) {
	170	#ifdef CPU_LOG
	171	CPU_LOG("* DMA2 GPU - mem2vram * NULL Pointer!!!\n");
	172	#endif
	173	break;
	174	}
	175	// BA blocks * BS words (word = 32-bits)
	176	words = (bcr >> 16) * (bcr & 0xffff);
	177	GPU_writeDataMem(ptr, min(words, words_max));
	178
	179	HW_DMA2_MADR = SWAPu32((madr & ~3) + words * 4);
	180
	181	// already 32-bit word size ((size * 4) / 4)
	182	GPUDMA_INT(words / 4);
	183	return;
	184
	185	case 0x01000401: // dma chain
	186	#ifdef PSXDMA_LOG
	187	PSXDMA_LOG("* DMA 2 - GPU dma chain * %lx addr = %lx size = %lx\n", chcr, madr, bcr);
	188	#endif
	189	// when not emulating walking progress, end immediately
	190	madr_next = 0xffffff;
	191
	192	do_walking = Config.GpuListWalking;
	193	if (do_walking < 0)
	194	do_walking = Config.hacks.gpu_slow_list_walking;
	195	madr_next_p = do_walking ? &madr_next : NULL;
	196
	197	size = GPU_dmaChain((u32 *)psxM, madr & 0x1fffff, madr_next_p);
	198	if ((int)size <= 0)
	199	size = gpuDmaChainSize(madr);
	200
	201	HW_GPU_STATUS &= SWAP32(~PSXGPU_nBUSY);
	202	HW_DMA2_MADR = SWAPu32(madr_next);
	203
	204	// Tekken 3 = use 1.0 only (not 1.5x)
	205
	206	// Einhander = parse linked list in pieces (todo)
	207	// Rebel Assault 2 = parse linked list in pieces (todo)
	208	GPUDMA_INT(size);
	209	return;
	210
	211	default:
	212	log_unhandled("* DMA 2 - GPU unknown * %x addr = %x size = %x\n", chcr, madr, bcr);
	213	break;
	214	}
	215
	216	HW_DMA2_CHCR &= SWAP32(~0x01000000);
	217	DMA_INTERRUPT(2);
	218	}
	219
	220	void gpuInterrupt() {
	221	if (HW_DMA2_CHCR == SWAP32(0x01000401) && !(HW_DMA2_MADR & SWAP32(0x800000)))
	222	{
	223	u32 size, madr_next = 0xffffff;
	224	size = GPU_dmaChain((u32 *)psxM, HW_DMA2_MADR & 0x1fffff, &madr_next);
	225	HW_DMA2_MADR = SWAPu32(madr_next);
	226	GPUDMA_INT(size);
	227	return;
	228	}
	229	if (HW_DMA2_CHCR & SWAP32(0x01000000))
	230	{
	231	HW_DMA2_CHCR &= SWAP32(~0x01000000);
	232	DMA_INTERRUPT(2);
	233	}
	234	HW_GPU_STATUS \|= SWAP32(PSXGPU_nBUSY); // GPU no longer busy
	235	}
	236
	237	void psxDma6(u32 madr, u32 bcr, u32 chcr) {
	238	u32 words;
	239	u32 mem = (u32 )PSXM(madr);
	240
	241	#ifdef PSXDMA_LOG
	242	PSXDMA_LOG("* DMA6 OT * %x addr = %x size = %x\n", chcr, madr, bcr);
	243	#endif
	244
	245	if (chcr == 0x11000002) {
	246	if (mem == INVALID_PTR) {
	247	#ifdef CPU_LOG
	248	CPU_LOG("* DMA6 OT * NULL Pointer!!!\n");
	249	#endif
	250	HW_DMA6_CHCR &= SWAP32(~0x01000000);
	251	DMA_INTERRUPT(6);
	252	return;
	253	}
	254
	255	// already 32-bit size
	256	words = bcr;
	257
	258	while (bcr--) {
	259	*mem-- = SWAP32((madr - 4) & 0xffffff);
	260	madr -= 4;
	261	}
	262	*++mem = SWAP32(0xffffff);
	263
	264	//GPUOTCDMA_INT(size);
	265	// halted
	266	psxRegs.cycle += words;
	267	GPUOTCDMA_INT(16);
	268	return;
	269	}
	270	else {
	271	// Unknown option
	272	log_unhandled("* DMA6 OT - unknown * %x addr = %x size = %x\n", chcr, madr, bcr);
	273	}
	274
	275	HW_DMA6_CHCR &= SWAP32(~0x01000000);
	276	DMA_INTERRUPT(6);
	277	}
	278
	279	void gpuotcInterrupt()
	280	{
	281	if (HW_DMA6_CHCR & SWAP32(0x01000000))
	282	{
	283	HW_DMA6_CHCR &= SWAP32(~0x01000000);
	284	DMA_INTERRUPT(6);
	285	}
	286	}