2008-08-19 21:36:31 +00:00
|
|
|
|
/* Emulador do computador TK3000 //e (Microdigital)
|
|
|
|
|
* por F<EFBFBD>bio Belavenuto - Copyright (C) 2004
|
|
|
|
|
*
|
|
|
|
|
* Adaptado do emulador Applewin por Michael O'Brien
|
|
|
|
|
* Part of code is Copyright (C) 2003-2004 Tom Charlesworth
|
|
|
|
|
*
|
|
|
|
|
* Este arquivo <EFBFBD> distribuido pela Licen<EFBFBD>a P<EFBFBD>blica Geral GNU.
|
|
|
|
|
* Veja o arquivo Licenca.txt distribuido com este software.
|
|
|
|
|
*
|
|
|
|
|
* ESTE SOFTWARE N<EFBFBD>O OFERECE NENHUMA GARANTIA
|
|
|
|
|
*
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
// Emula a CPU Z80
|
|
|
|
|
|
2009-01-09 23:27:29 +00:00
|
|
|
|
#include "StdAfx.h"
|
2014-08-13 20:30:35 +00:00
|
|
|
|
|
|
|
|
|
#include "AppleWin.h"
|
|
|
|
|
#include "Memory.h"
|
2008-08-19 21:36:31 +00:00
|
|
|
|
#include "z80emu.h"
|
|
|
|
|
|
|
|
|
|
// Variaveis
|
2009-04-16 21:18:13 +00:00
|
|
|
|
static int g_uCPMZ80Slot = 0;
|
2008-08-19 21:36:31 +00:00
|
|
|
|
|
|
|
|
|
BYTE __stdcall CPMZ80_IONull(WORD PC, WORD uAddr, BYTE bWrite, BYTE uValue, ULONG nCyclesLeft)
|
|
|
|
|
{
|
|
|
|
|
return IO_Null(PC, uAddr, bWrite, uValue, nCyclesLeft);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
BYTE __stdcall CPMZ80_IOWrite(WORD PC, WORD uAddr, BYTE bWrite, BYTE uValue, ULONG nCyclesLeft)
|
|
|
|
|
{
|
2009-04-16 21:18:13 +00:00
|
|
|
|
if ((uAddr & 0xFF00) == (0xC000 + (g_uCPMZ80Slot << 8)))
|
2008-08-19 21:36:31 +00:00
|
|
|
|
g_ActiveCPU = (g_ActiveCPU == CPU_6502) ? CPU_Z80 : CPU_6502;
|
2009-04-16 21:18:13 +00:00
|
|
|
|
|
2008-08-19 21:36:31 +00:00
|
|
|
|
return IO_Null(PC, uAddr, bWrite, uValue, nCyclesLeft);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
//===========================================================================
|
2009-04-16 21:18:13 +00:00
|
|
|
|
|
2012-01-22 13:46:36 +00:00
|
|
|
|
void ConfigureSoftcard(LPBYTE pCxRomPeripheral, UINT uSlot)
|
2008-08-19 21:36:31 +00:00
|
|
|
|
{
|
2009-04-16 21:18:13 +00:00
|
|
|
|
memset(pCxRomPeripheral + (uSlot << 8), 0xFF, APPLE_SLOT_SIZE);
|
2008-08-19 21:36:31 +00:00
|
|
|
|
|
2009-04-16 21:18:13 +00:00
|
|
|
|
g_uCPMZ80Slot = uSlot;
|
2008-08-19 21:36:31 +00:00
|
|
|
|
|
2012-01-22 13:46:36 +00:00
|
|
|
|
RegisterIoHandler(uSlot, CPMZ80_IONull, CPMZ80_IONull, CPMZ80_IONull, CPMZ80_IOWrite, NULL, NULL);
|
2008-08-19 21:36:31 +00:00
|
|
|
|
}
|