![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to xbios.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [HATARI the Atari ST Emulator] / hatari / src|
Return to xbios.c CVS log | Up to [HATARI the Atari ST Emulator] / hatari / src |
hatari 2.2.0
/*
Hatari - xbios.c
This file is distributed under the GNU General Public License, version 2
or at your option any later version. Read the file gpl.txt for details.
XBios Handler (Trap #14) - http://toshyp.atari.org/en/004014.html
Intercept and direct XBios calls to allow saving screenshots in host format
and to help with tracing/debugging.
*/
const char XBios_fileid[] = "Hatari xbios.c : " __DATE__ " " __TIME__;
#include "main.h"
#include "configuration.h"
#include "control.h"
#include "floppy.h"
#include "log.h"
#include "m68000.h"
#include "rs232.h"
#include "screenSnapShot.h"
#include "stMemory.h"
#include "debugui.h"
#include "xbios.h"
#define HATARI_CONTROL_OPCODE 255
/* whether to enable XBios(11/20/255) */
static bool bXBiosCommands;
void XBios_EnableCommands(bool enable)
{
bXBiosCommands = enable;
}
/**
* XBIOS Dbmsg
* Call 11
*
* Atari debugger API:
* http://dev-docs.atariforge.org/files/Atari_Debugger_1-24-1990.pdf
* http://toshyp.atari.org/en/004012.html#Dbmsg
*/
static bool XBios_Dbmsg(Uint32 Params)
{
/* Read details from stack */
const Uint16 reserved = STMemory_ReadWord(Params);
const Uint16 msgnum = STMemory_ReadWord(Params+SIZE_WORD);
const Uint32 addr = STMemory_ReadLong(Params+SIZE_WORD+SIZE_WORD);
LOG_TRACE(TRACE_OS_XBIOS, "XBIOS 0x0B Dbmsg(%d, 0x%04X, 0x%x) at PC 0x%X\n",
reserved, msgnum, addr, M68000_GetPC());
if (reserved != 5 || !bXBiosCommands)
return false;
fprintf(stderr, "Dbmsg: 0x%04X, 0x%x\n", msgnum, addr);
/* debugger message? */
if (msgnum >= 0xF000 && msgnum <= 0xF100)
{
const char *txt = (const char *)STMemory_STAddrToPointer(addr);
char buffer[256];
/* between non-halting message and debugger command IDs,
* are halting messages with message length encoded in ID
*/
if (msgnum > 0xF000 && msgnum < 0xF100)
{
const int len = (msgnum & 0xFF);
memcpy(buffer, txt, len);
buffer[len] = '\0';
txt = buffer;
}
fprintf(stderr, "-> \"%s\"\n", txt);
}
/* not just a message? */
if (msgnum != 0xF000)
{
fprintf(stderr, "-> HALT\n");
DebugUI(REASON_PROGRAM);
}
/* return value != function opcode, to indicate it's implemented */
Regs[REG_D0] = 0;
return true;
}
/**
* XBIOS Scrdmp
* Call 20
*/
static bool XBios_Scrdmp(Uint32 Params)
{
LOG_TRACE(TRACE_OS_XBIOS, "XBIOS 0x14 Scrdmp() at PC 0x%X\n" , M68000_GetPC());
if (!bXBiosCommands)
return false;
ScreenSnapShot_SaveScreen();
/* Scrdmp() doesn't have return value, but return something else than
* function number to indicate this XBios opcode was implemented
*/
Regs[REG_D0] = 0;
return true;
}
/**
* XBIOS remote control interface for Hatari
* Call 255
*/
static bool XBios_HatariControl(Uint32 Params)
{
const char *pText;
pText = (const char *)STMemory_STAddrToPointer(STMemory_ReadLong(Params));
LOG_TRACE(TRACE_OS_XBIOS, "XBIOS 0x%02X HatariControl(%s) at PC 0x%X\n",
HATARI_CONTROL_OPCODE, pText, M68000_GetPC());
if (!bXBiosCommands)
return false;
Control_ProcessBuffer(pText);
/* return value != function opcode, to indicate it's implemented */
Regs[REG_D0] = 0;
return true;
}
#if ENABLE_TRACING
/**
* XBIOS Floppy Read
* Call 8
*/
static bool XBios_Floprd(Uint32 Params)
{
Uint32 pBuffer;
Uint16 Dev,Sector,Side,Track,Count;
/* Read details from stack */
pBuffer = STMemory_ReadLong(Params);
Dev = STMemory_ReadWord(Params+SIZE_LONG+SIZE_LONG); /* skip reserved long */
Sector = STMemory_ReadWord(Params+SIZE_LONG+SIZE_LONG+SIZE_WORD);
Track = STMemory_ReadWord(Params+SIZE_LONG+SIZE_LONG+SIZE_WORD+SIZE_WORD);
Side = STMemory_ReadWord(Params+SIZE_LONG+SIZE_LONG+SIZE_WORD+SIZE_WORD+SIZE_WORD);
Count = STMemory_ReadWord(Params+SIZE_LONG+SIZE_LONG+SIZE_WORD+SIZE_WORD+SIZE_WORD+SIZE_WORD);
LOG_TRACE(TRACE_OS_XBIOS, "XBIOS 0x08 Floprd(0x%x, %d, %d, %d, %d, %d) at PC 0x%X for: %s\n",
pBuffer, Dev, Sector, Track, Side, Count, M68000_GetPC(),
Dev < MAX_FLOPPYDRIVES ? EmulationDrives[Dev].sFileName : "n/a");
return false;
}
/**
* XBIOS Floppy Write
* Call 9
*/
static bool XBios_Flopwr(Uint32 Params)
{
Uint32 pBuffer;
Uint16 Dev,Sector,Side,Track,Count;
/* Read details from stack */
pBuffer = STMemory_ReadLong(Params);
Dev = STMemory_ReadWord(Params+SIZE_LONG+SIZE_LONG); /* skip reserved long */
Sector = STMemory_ReadWord(Params+SIZE_LONG+SIZE_LONG+SIZE_WORD);
Track = STMemory_ReadWord(Params+SIZE_LONG+SIZE_LONG+SIZE_WORD+SIZE_WORD);
Side = STMemory_ReadWord(Params+SIZE_LONG+SIZE_LONG+SIZE_WORD+SIZE_WORD+SIZE_WORD);
Count = STMemory_ReadWord(Params+SIZE_LONG+SIZE_LONG+SIZE_WORD+SIZE_WORD+SIZE_WORD+SIZE_WORD);
LOG_TRACE(TRACE_OS_XBIOS, "XBIOS 0x09 Flopwr(0x%x, %d, %d, %d, %d, %d) at PC 0x%X for: %s\n",
pBuffer, Dev, Sector, Track, Side, Count, M68000_GetPC(),
Dev < MAX_FLOPPYDRIVES ? EmulationDrives[Dev].sFileName : "n/a");
return false;
}
/**
* XBIOS RsConf
* Call 15
*/
static bool XBios_Rsconf(Uint32 Params)
{
Sint16 Baud, Ctrl, Ucr, Rsr, Tsr, Scr;
Baud = STMemory_ReadWord(Params);
Ctrl = STMemory_ReadWord(Params+SIZE_WORD);
Ucr = STMemory_ReadWord(Params+SIZE_WORD+SIZE_WORD);
Rsr = STMemory_ReadWord(Params+SIZE_WORD+SIZE_WORD+SIZE_WORD);
Tsr = STMemory_ReadWord(Params+SIZE_WORD+SIZE_WORD+SIZE_WORD+SIZE_WORD);
Scr = STMemory_ReadWord(Params+SIZE_WORD+SIZE_WORD+SIZE_WORD+SIZE_WORD+SIZE_WORD);
LOG_TRACE(TRACE_OS_XBIOS, "XBIOS 0x0F Rsconf(%d, %d, %d, %d, %d, %d) at PC 0x%X\n",
Baud, Ctrl, Ucr, Rsr, Tsr, Scr, M68000_GetPC());
return false;
}
/**
* XBIOS Devconnect
* Call 139
*/
static bool XBios_Devconnect(Uint32 Params)
{
Uint16 src,dst,clk,prescale,protocol;
/* Read details from stack */
src = STMemory_ReadWord(Params);
dst = STMemory_ReadWord(Params+SIZE_WORD);
clk = STMemory_ReadWord(Params+SIZE_WORD+SIZE_WORD);
prescale = STMemory_ReadWord(Params+SIZE_WORD+SIZE_WORD+SIZE_WORD);
protocol = STMemory_ReadWord(Params+SIZE_WORD+SIZE_WORD+SIZE_WORD+SIZE_WORD);
LOG_TRACE(TRACE_OS_XBIOS, "XBIOS 0x8B Devconnect(%hd, 0x%hx, %hd, %hd, %hd) at PC 0x%X\n",
src, dst, clk, prescale, protocol ,
M68000_GetPC() );
return false;
}
/**
* Map XBIOS call opcode to XBIOS function name
*
* Mapping is based on TOSHYP information:
* http://toshyp.atari.org/en/004014.html
*/
static const char* XBios_Call2Name(Uint16 opcode)
{
static const char* names[] = {
"Initmous",
"Ssbrk",
"Physbase",
"Logbase",
"Getrez",
"Setscreen",
"Setpalette",
"Setcolor",
"Floprd",
"Flopwr",
"Flopfmt",
"Dbmsg",
"Midiws",
"Mfpint",
"Iorec",
"Rsconf",
"Keytbl",
"Random",
"Protobt",
"Flopver",
"Scrdmp",
"Cursconf",
"Settime",
"Gettime",
"Bioskeys",
"Ikbdws",
"Jdisint",
"Jenabint",
"Giaccess",
"Offgibit",
"Ongibit",
"Xbtimer",
"Dosound",
"Setprt",
"Kbdvbase",
"Kbrate",
"Prtblk",
"Vsync",
"Supexec",
"Puntaes",
NULL, /* 40 */
"Floprate",
"DMAread",
"DMAwrite",
"Bconmap",
NULL, /* 45 */
"NVMaccess",
"Waketime", /* TOS 2.06 */
"Metainit",
NULL, /* 49: rest of MetaDOS calls */
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL, /* 63 */
"Blitmode",
NULL, /* 65: CENTScreen */
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL, /* 79 */
"EsetShift",
"EgetShift",
"EsetBank",
"EsetColor",
"EsetPalette",
"EgetPalette",
"EsetGray",
"EsetSmear",
"VsetMode",
"VgetMonitor",
"VsetSync",
"VgetSize",
"VsetVars", /* TOS4 internal */
"VsetRGB",
"VgetRGB",
"VcheckMode", /* TOS4 internal (ValidMode()) */
"Dsp_DoBlock",
"Dsp_BlkHandShake",
"Dsp_BlkUnpacked",
"Dsp_InStream",
"Dsp_OutStream",
"Dsp_IOStream",
"Dsp_RemoveInterrupts",
"Dsp_GetWordSize",
"Dsp_Lock",
"Dsp_Unlock",
"Dsp_Available",
"Dsp_Reserve",
"Dsp_LoadProg",
"Dsp_ExecProg",
"Dsp_ExecBoot",
"Dsp_LodToBinary",
"Dsp_TriggerHC",
"Dsp_RequestUniqueAbility",
"Dsp_GetProgAbility",
"Dsp_FlushSubroutines",
"Dsp_LoadSubroutine",
"Dsp_InqSubrAbility",
"Dsp_RunSubroutine",
"Dsp_Hf0",
"Dsp_Hf1",
"Dsp_Hf2",
"Dsp_Hf3",
"Dsp_BlkWords",
"Dsp_BlkBytes",
"Dsp_HStat",
"Dsp_SetVectors",
"Dsp_MultBlocks",
"Locksnd",
"Unlocksnd",
"Soundcmd",
"Setbuffer",
"Setmode",
"Settracks",
"Setmontracks",
"Setinterrupt",
"Buffoper",
"Dsptristate",
"Gpio",
"Devconnect",
"Sndstatus",
"Buffptr",
NULL, /* 142 */
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL, /* 149 */
"VsetMask",
NULL, /* 151 */
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL, /* 164 */
"WavePlay"
};
if (opcode < ARRAY_SIZE(names) && names[opcode]) {
return names[opcode];
}
return "???";
}
void XBios_Info(FILE *fp, Uint32 dummy)
{
Uint16 opcode;
for (opcode = 0; opcode < 168; ) {
fprintf(fp, "%02x %-21s", opcode,
XBios_Call2Name(opcode));
if (++opcode % 3 == 0) {
fputs("\n", fp);
}
}
}
#else /* !ENABLE_TRACING */
#define XBios_Floprd(params) false
#define XBios_Flopwr(params) false
#define XBios_Rsconf(params) false
#define XBios_Devconnect(params) false
void XBios_Info(FILE *fp, Uint32 bShowOpcodes)
{
fputs("Hatari isn't configured with ENABLE_TRACING\n", fp);
}
#endif /* !ENABLE_TRACING */
/**
* Check if we need to re-direct XBios call to our own routines
*/
bool XBios(void)
{
Uint32 Params;
Uint16 XBiosCall;
/* Find call */
Params = Regs[REG_A7];
XBiosCall = STMemory_ReadWord(Params);
Params += SIZE_WORD;
switch (XBiosCall)
{
/* commands with special handling */
case 8:
return XBios_Floprd(Params);
case 9:
return XBios_Flopwr(Params);
case 11:
return XBios_Dbmsg(Params);
case 15:
return XBios_Rsconf(Params);
case 20:
return XBios_Scrdmp(Params);
case 139:
return XBios_Devconnect(Params);
case HATARI_CONTROL_OPCODE:
return XBios_HatariControl(Params);
case 2: /* Physbase */
case 3: /* Logbase */
case 4: /* Getrez */
case 17: /* Random */
case 23: /* Gettime */
case 24: /* Bioskeys */
case 34: /* Kbdvbase */
case 37: /* Vsync */
case 39: /* Puntaes */
case 81: /* EgetShift */
case 89: /* VgetMonitor */
case 103: /* Dsp_GetWordSize */
case 104: /* Dsp_Lock */
case 105: /* Dsp_Unlock */
case 113: /* Dsp_RequestUniqueAbility */
case 114: /* Dsp_GetProgAbility */
case 115: /* Dsp_FlushSubroutines */
case 121: /* Dsp_Hf2 */
case 122: /* Dsp_Hf3 */
case 125: /* Dsp_Hstat */
case 128: /* Locksnd */
case 129: /* Unlocksnd */
/* commands with no args */
LOG_TRACE(TRACE_OS_XBIOS, "XBIOS 0x%02hX %s() at PC 0x%X\n",
XBiosCall, XBios_Call2Name(XBiosCall),
M68000_GetPC());
return false;
case 1: /* Ssbrk */
case 14: /* Iorec */
case 26: /* Jdisint */
case 27: /* Jenabint */
case 29: /* Offgibit */
case 30: /* Ongibit */
case 33: /* Setprt */
case 44: /* Bconmap */
case 64: /* Blitmode */
case 80: /* EsetShift */
case 82: /* EsetBank */
case 86: /* EsetGray */
case 87: /* EsetSmear */
case 88: /* VsetMode */
case 90: /* VsetSync */
case 91: /* VgetSize */
case 95: /* VcheckMode */
case 102: /* Dsp_RemoveInterrupts */
case 112: /* Dsp_TriggerHC */
case 117: /* Dsp_InqSubrAbility */
case 118: /* Dsp_RunSubroutine */
case 119: /* Dsp_Hf0 */
case 120: /* Dsp_Hf1 */
case 132: /* Setmode */
case 134: /* Setmontracks */
case 136: /* Buffoper */
case 140: /* Sndstatus */
/* ones taking single word */
LOG_TRACE(TRACE_OS_XBIOS, "XBIOS 0x%02hX %s(0x%hX) at PC 0x%X\n",
XBiosCall, XBios_Call2Name(XBiosCall),
STMemory_ReadWord(Params),
M68000_GetPC());
return false;
case 6: /* Setpalette */
case 22: /* Settime */
case 32: /* Dosound */
case 36: /* Ptrblt */
case 38: /* Supexec */
case 48: /* Metainit */
case 141: /* Buffptr */
/* ones taking long or pointer */
LOG_TRACE(TRACE_OS_XBIOS, "XBIOS 0x%02hX %s(0x%X) at PC 0x%X\n",
XBiosCall, XBios_Call2Name(XBiosCall),
STMemory_ReadLong(Params),
M68000_GetPC());
return false;
case 7: /* Setcolor */
case 21: /* Cursconf */
case 28: /* Giaccess */
case 35: /* Kbrate */
case 41: /* Floprate */
case 83: /* EsetColor */
case 130: /* Soundcmd */
case 133: /* Settracks */
case 137: /* Dsptristate */
case 135: /* Setinterrupt */
case 138: /* Gpio */
/* ones taking two words */
LOG_TRACE(TRACE_OS_XBIOS, "XBIOS 0x%02hX %s(0x%hX, 0x%hX) at PC 0x%X\n",
XBiosCall, XBios_Call2Name(XBiosCall),
STMemory_ReadWord(Params),
STMemory_ReadWord(Params+SIZE_WORD),
M68000_GetPC());
return false;
case 12: /* Midiws */
case 13: /* Mfpint */
case 25: /* Ikbdws */
/* ones taking word length/index and pointer */
LOG_TRACE(TRACE_OS_XBIOS, "XBIOS 0x%02hX %s(%hd, 0x%X) at PC 0x %X\n",
XBiosCall, XBios_Call2Name(XBiosCall),
STMemory_ReadWord(Params),
STMemory_ReadLong(Params+SIZE_WORD),
M68000_GetPC());
return false;
case 84: /* EsetPalette */
case 85: /* EgetPalette */
case 93: /* VsetRGB */
case 94: /* VgetRGB */
/* ones taking word, word and long/pointer */
LOG_TRACE(TRACE_OS_XBIOS, "XBIOS 0x%02hX %s(0x%hX, 0x%hX, 0x%X) at PC 0x%X\n",
XBiosCall, XBios_Call2Name(XBiosCall),
STMemory_ReadWord(Params),
STMemory_ReadWord(Params+SIZE_WORD),
STMemory_ReadLong(Params+SIZE_WORD+SIZE_WORD),
M68000_GetPC());
return false;
case 106: /* Dsp_Available */
case 107: /* Dsp_Reserve */
case 111: /* Dsp_LodToBinary */
case 126: /* Dsp_SetVectors */
/* ones taking two longs/pointers */
LOG_TRACE(TRACE_OS_XBIOS, "XBIOS 0x%02hX %s(0x%X, 0x%X) at PC 0x%X\n",
XBiosCall, XBios_Call2Name(XBiosCall),
STMemory_ReadLong(Params),
STMemory_ReadLong(Params+SIZE_LONG),
M68000_GetPC());
return false;
case 108: /* Dsp_LoadProg */
/* ones taking long/pointer, word and long/pointer */
LOG_TRACE(TRACE_OS_XBIOS, "XBIOS 0x%02hX %s(0x%X, 0x%hX, 0x%X) at PC 0x%X\n",
XBiosCall, XBios_Call2Name(XBiosCall),
STMemory_ReadLong(Params),
STMemory_ReadWord(Params+SIZE_LONG),
STMemory_ReadLong(Params+SIZE_LONG+SIZE_WORD),
M68000_GetPC());
return false;
case 96: /* Dsp_DoBlock */
case 97: /* Dsp_BlkHandShake */
case 98: /* Dsp_BlkUnpacked */
case 99: /* Dsp_InStream */
case 100: /* Dsp_OutStream */
case 123: /* Dsp_BlkWords */
case 124: /* Dsp_BlkBytes */
case 127: /* Dsp_MultBlocks */
/* ones taking four longs/pointers */
LOG_TRACE(TRACE_OS_XBIOS, "XBIOS 0x%02hX %s(0x%X, 0x%X, 0x%X, 0x%X) at PC 0x%X\n",
XBiosCall, XBios_Call2Name(XBiosCall),
STMemory_ReadLong(Params),
STMemory_ReadLong(Params+SIZE_LONG),
STMemory_ReadLong(Params+SIZE_LONG+SIZE_LONG),
STMemory_ReadLong(Params+SIZE_LONG+SIZE_LONG+SIZE_LONG),
M68000_GetPC());
return false;
case 101: /* Dsp_IOStream */
/* ones taking six longs/pointers */
LOG_TRACE(TRACE_OS_XBIOS, "XBIOS 0x%02hX %s(0x%X, 0x%X, 0x%X, 0x%X, 0x%X, 0x%X) at PC 0x%X\n",
XBiosCall, XBios_Call2Name(XBiosCall),
STMemory_ReadLong(Params),
STMemory_ReadLong(Params+SIZE_LONG),
STMemory_ReadLong(Params+SIZE_LONG+SIZE_LONG),
STMemory_ReadLong(Params+SIZE_LONG+SIZE_LONG+SIZE_LONG),
STMemory_ReadLong(Params+SIZE_LONG+SIZE_LONG+SIZE_LONG+SIZE_LONG),
STMemory_ReadLong(Params+SIZE_LONG+SIZE_LONG+SIZE_LONG+SIZE_LONG+SIZE_LONG),
M68000_GetPC());
return false;
case 5: /* Setscreen */
if (STMemory_ReadWord(Params+SIZE_LONG+SIZE_LONG) == 3) {
/* actually VSetscreen with extra parameter */
LOG_TRACE(TRACE_OS_XBIOS, "XBIOS 0x%02hX VsetScreen(0x%X, 0x%X, 3, 0x%hX) at PC 0x%X\n",
XBiosCall, STMemory_ReadLong(Params),
STMemory_ReadLong(Params+SIZE_LONG),
STMemory_ReadWord(Params+SIZE_LONG+SIZE_LONG+SIZE_WORD),
M68000_GetPC());
return false;
}
/* fall through */
case 109: /* Dsp_ExecProg */
case 110: /* Dsp_ExecBoot */
case 116: /* Dsp_LoadSubroutine */
case 150: /* VsetMask */
/* ones taking two longs/pointers and a word */
LOG_TRACE(TRACE_OS_XBIOS, "XBIOS 0x%02hX %s(0x%X, 0x%X, 0x%hX) at PC 0x%X\n",
XBiosCall, XBios_Call2Name(XBiosCall),
STMemory_ReadLong(Params),
STMemory_ReadLong(Params+SIZE_LONG),
STMemory_ReadWord(Params+SIZE_LONG+SIZE_LONG),
M68000_GetPC());
return false;
default: /* rest of XBios calls */
LOG_TRACE(TRACE_OS_XBIOS, "XBIOS 0x%02hX (%s)\n",
XBiosCall, XBios_Call2Name(XBiosCall));
return false;
}
}
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.