src/AmigaOS/main_amiga.cpp

/*
 *  main_amiga.cpp - Startup code for AmigaOS
 *
 *  Basilisk II (C) 1997-2008 Christian Bauer
 *
 *  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., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 */

#include <exec/types.h>
#include <exec/execbase.h>
#include <exec/memory.h>
#include <exec/tasks.h>
#include <dos/dostags.h>
#include <intuition/intuition.h>
#include <devices/timer.h>
#include <devices/ahi.h>
#define __USE_SYSBASE
#include <proto/exec.h>
#include <proto/dos.h>
#include <proto/intuition.h>
#include <inline/exec.h>
#include <inline/dos.h>
#include <inline/intuition.h>

#include "sysdeps.h"
#include "cpu_emulation.h"
#include "main.h"
#include "xpram.h"
#include "timer.h"
#include "sony.h"
#include "disk.h"
#include "cdrom.h"
#include "scsi.h"
#include "audio.h"
#include "video.h"
#include "serial.h"
#include "ether.h"
#include "clip.h"
#include "emul_op.h"
#include "rom_patches.h"
#include "prefs.h"
#include "prefs_editor.h"
#include "sys.h"
#include "user_strings.h"
#include "version.h"

#define DEBUG 0
#include "debug.h"


// Options for libnix
unsigned long __stack = 0x4000;         // Stack requirement
int __nocommandline = 1;                        // Disable command line parsing


// Constants
static const char ROM_FILE_NAME[] = "ROM";
static const char __ver[] = "$VER: " VERSION_STRING " " __DATE__;
static const int SCRATCH_MEM_SIZE = 65536;


// RAM and ROM pointers
uint32 RAMBaseMac;              // RAM base (Mac address space)
uint8 *RAMBaseHost;             // RAM base (host address space)
uint32 RAMSize;                 // Size of RAM
uint32 ROMBaseMac;              // ROM base (Mac address space)
uint8 *ROMBaseHost;             // ROM base (host address space)
uint32 ROMSize;                 // Size of ROM


// CPU and FPU type, addressing mode
int CPUType;
bool CPUIs68060;
int FPUType;
bool TwentyFourBitAddressing;


// Global variables
extern ExecBase *SysBase;
struct Library *GfxBase = NULL;
struct IntuitionBase *IntuitionBase = NULL;
struct Library *GadToolsBase = NULL;
struct Library *IFFParseBase = NULL;
struct Library *AslBase = NULL;
struct Library *P96Base = NULL;
struct Library *CyberGfxBase = NULL;
struct Library *TimerBase = NULL;
struct Library *AHIBase = NULL;
struct Library *DiskBase = NULL;

struct Task *MainTask;                                                  // Our task
uint8 *ScratchMem = NULL;                                               // Scratch memory for Mac ROM writes
APTR OldTrapHandler = NULL;                                             // Old trap handler
APTR OldExceptionHandler = NULL;                                // Old exception handler
BYTE IRQSig = -1;                                                               // "Interrupt" signal number
ULONG IRQSigMask = 0;                                                   // "Interrupt" signal mask

static struct timerequest *timereq = NULL;              // IORequest for timer

static struct MsgPort *ahi_port = NULL;                 // Port for AHI
static struct AHIRequest *ahi_io = NULL;                // IORequest for AHI

static struct Process *xpram_proc = NULL;               // XPRAM watchdog
static volatile bool xpram_proc_active = true;  // Flag for quitting the XPRAM watchdog

static struct Process *tick_proc = NULL;                // 60Hz process
static volatile bool tick_proc_active = true;   // Flag for quitting the 60Hz process

static bool stack_swapped = false;                              // Stack swapping
static StackSwapStruct stack_swap;


// Assembly functions
struct trap_regs;
extern "C" void AtomicAnd(uint32 *p, uint32 val);
extern "C" void AtomicOr(uint32 *p, uint32 val);
extern "C" void MoveVBR(void);
extern "C" void DisableSuperBypass(void);
extern "C" void TrapHandlerAsm(void);
extern "C" void ExceptionHandlerAsm(void);
extern "C" void IllInstrHandler(trap_regs *regs);
extern "C" void PrivViolHandler(trap_regs *regs);
extern "C" void quit_emulator(void);
extern "C" void AsmTriggerNMI(void);
uint16 EmulatedSR;                                      // Emulated SR (supervisor bit and interrupt mask)


// Prototypes
static void jump_to_rom(void);
static void xpram_func(void);
static void tick_func(void);


/*
 *  Main program
 */

int main(int argc, char **argv)
{
        // Initialize variables
        RAMBaseHost = NULL;
        ROMBaseHost = NULL;
        MainTask = FindTask(NULL);
        struct DateStamp ds;
        DateStamp(&ds);
        srand(ds.ds_Tick);

        // Print some info
        printf(GetString(STR_ABOUT_TEXT1), VERSION_MAJOR, VERSION_MINOR);
        printf(" %s\n", GetString(STR_ABOUT_TEXT2));

        // Open libraries
        GfxBase = OpenLibrary((UBYTE *) "graphics.library", 39);
        if (GfxBase == NULL) {
                printf("Cannot open graphics.library V39.\n");
                exit(1);
        }
        IntuitionBase = (struct IntuitionBase *)OpenLibrary((UBYTE *) "intuition.library", 39);
        if (IntuitionBase == NULL) {
                printf("Cannot open intuition.library V39.\n");
                CloseLibrary(GfxBase);
                exit(1);
        }
        DiskBase = (struct Library *)OpenResource((UBYTE *) "disk.resource");
        if (DiskBase == NULL)
                QuitEmulator();
        GadToolsBase = OpenLibrary((UBYTE *) "gadtools.library", 39);
        if (GadToolsBase == NULL) {
                ErrorAlert(STR_NO_GADTOOLS_LIB_ERR);
                QuitEmulator();
        }
        IFFParseBase = OpenLibrary((UBYTE *) "iffparse.library", 39);
        if (IFFParseBase == NULL) {
                ErrorAlert(STR_NO_IFFPARSE_LIB_ERR);
                QuitEmulator();
        }
        AslBase = OpenLibrary((UBYTE *) "asl.library", 36);
        if (AslBase == NULL) {
                ErrorAlert(STR_NO_ASL_LIB_ERR);
                QuitEmulator();
        }

        if (FindTask((UBYTE *) "� Enforcer �")) {
                ErrorAlert(STR_ENFORCER_RUNNING_ERR);
                QuitEmulator();
        }

        // These two can fail (the respective gfx support won't be available, then)
        P96Base = OpenLibrary((UBYTE *) "Picasso96API.library", 2);
        CyberGfxBase = OpenLibrary((UBYTE *) "cybergraphics.library", 2);

        // Read preferences
        PrefsInit(NULL, argc, argv);

        // Open AHI
        ahi_port = CreateMsgPort();
        if (ahi_port) {
                ahi_io = (struct AHIRequest *)CreateIORequest(ahi_port, sizeof(struct AHIRequest));
                if (ahi_io) {
                        ahi_io->ahir_Version = 2;
                        if (OpenDevice((UBYTE *) AHINAME, AHI_NO_UNIT, (struct IORequest *)ahi_io, 0) == 0) {
                                AHIBase = (struct Library *)ahi_io->ahir_Std.io_Device;
                        }
                }
        }

        // Init system routines
        SysInit();

        // Show preferences editor
        if (!PrefsFindBool("nogui"))
                if (!PrefsEditor())
                        QuitEmulator();

        // Check start of Chip memory (because we need access to 0x0000..0x2000)
        if ((uint32)FindName(&SysBase->MemList, (UBYTE *) "chip memory") < 0x2000) {
                ErrorAlert(STR_NO_PREPARE_EMUL_ERR);
                QuitEmulator();
        }

        // Open timer.device
        timereq = (struct timerequest *)AllocVec(sizeof(timerequest), MEMF_PUBLIC | MEMF_CLEAR);
        if (timereq == NULL) {
                ErrorAlert(STR_NO_MEM_ERR);
                QuitEmulator();
        }
        if (OpenDevice((UBYTE *) TIMERNAME, UNIT_MICROHZ, (struct IORequest *)timereq, 0)) {
                ErrorAlert(STR_NO_TIMER_DEV_ERR);
                QuitEmulator();
        }
        TimerBase = (struct Library *)timereq->tr_node.io_Device;

        // Allocate scratch memory
        ScratchMem = (uint8 *)AllocMem(SCRATCH_MEM_SIZE, MEMF_PUBLIC);
        if (ScratchMem == NULL) {
                ErrorAlert(STR_NO_MEM_ERR);
                QuitEmulator();
        }
        ScratchMem += SCRATCH_MEM_SIZE/2;       // ScratchMem points to middle of block

        // Create area for Mac RAM and ROM (ROM must be higher in memory,
        // so we allocate one big chunk and put the ROM at the top of it)
        RAMSize = PrefsFindInt32("ramsize") & 0xfff00000;       // Round down to 1MB boundary
        if (RAMSize < 1024*1024) {
                WarningAlert(GetString(STR_SMALL_RAM_WARN));
                RAMSize = 1024*1024;
        }
        RAMBaseHost = (uint8 *)AllocVec(RAMSize + 0x100000, MEMF_PUBLIC);
        if (RAMBaseHost == NULL) {
                uint32 newRAMSize = AvailMem(MEMF_LARGEST) - 0x100000;
                char xText[120];

                sprintf(xText, GetString(STR_NOT_ENOUGH_MEM_WARN), RAMSize, newRAMSize);

                if (ChoiceAlert(xText, "Use", "Quit") != 1)
                        QuitEmulator();

                RAMSize = newRAMSize;
                RAMBaseHost = (uint8 *)AllocVec(RAMSize - 0x100000, MEMF_PUBLIC);
                if (RAMBaseHost == NULL) {
                        ErrorAlert(STR_NO_MEM_ERR);
                        QuitEmulator();
                }
        }
        RAMBaseMac = (uint32)RAMBaseHost;
        D(bug("Mac RAM starts at %08lx\n", RAMBaseHost));
        ROMBaseHost = RAMBaseHost + RAMSize;
        ROMBaseMac = (uint32)ROMBaseHost;
        D(bug("Mac ROM starts at %08lx\n", ROMBaseHost));

        // Get rom file path from preferences
        const char *rom_path = PrefsFindString("rom");

        // Load Mac ROM
        BPTR rom_fh = Open(rom_path ? (char *)rom_path : (char *)ROM_FILE_NAME, MODE_OLDFILE);
        if (rom_fh == 0) {
                ErrorAlert(STR_NO_ROM_FILE_ERR);
                QuitEmulator();
        }
        printf(GetString(STR_READING_ROM_FILE));
        Seek(rom_fh, 0, OFFSET_END);
        ROMSize = Seek(rom_fh, 0, OFFSET_CURRENT);
        if (ROMSize != 512*1024 && ROMSize != 1024*1024) {
                ErrorAlert(STR_ROM_SIZE_ERR);
                Close(rom_fh);
                QuitEmulator();
        }
        Seek(rom_fh, 0, OFFSET_BEGINNING);
        if (Read(rom_fh, ROMBaseHost, ROMSize) != ROMSize) {
                ErrorAlert(STR_ROM_FILE_READ_ERR);
                Close(rom_fh);
                QuitEmulator();
        }

        // Set CPU and FPU type
        UWORD attn = SysBase->AttnFlags;
        CPUType = attn & AFF_68040 ? 4 : (attn & AFF_68030 ? 3 : 2);
        CPUIs68060 = attn & AFF_68060;
        FPUType = attn & AFF_68881 ? 1 : 0;

        // Initialize everything
        if (!InitAll(NULL))
                QuitEmulator();

        // Move VBR away from 0 if neccessary
        MoveVBR();

        // On 68060, disable Super Bypass mode because of a CPU bug that is triggered by MacOS 8
        if (CPUIs68060)
                DisableSuperBypass();

        memset((UBYTE *) 8, 0, 0x2000-8);

        // Install trap handler
        EmulatedSR = 0x2700;
        OldTrapHandler = MainTask->tc_TrapCode;
        MainTask->tc_TrapCode = (APTR)TrapHandlerAsm;

        // Allocate signal for interrupt emulation and install exception handler
        IRQSig = AllocSignal(-1);
        IRQSigMask = 1 << IRQSig;
        OldExceptionHandler = MainTask->tc_ExceptCode;
        MainTask->tc_ExceptCode = (APTR)ExceptionHandlerAsm;
        SetExcept(SIGBREAKF_CTRL_C | IRQSigMask, SIGBREAKF_CTRL_C | IRQSigMask);

        // Start XPRAM watchdog process
        xpram_proc = CreateNewProcTags(
                NP_Entry, (ULONG)xpram_func,
                NP_Name, (ULONG)"Basilisk II XPRAM Watchdog",
                NP_Priority, 0,
                TAG_END
        );

        // Start 60Hz process
        tick_proc = CreateNewProcTags(
                NP_Entry, (ULONG)tick_func,
                NP_Name, (ULONG)"Basilisk II 60Hz",
                NP_Priority, 5,
                TAG_END
        );

        // Set task priority to -1 so we don't use all processing time
        SetTaskPri(MainTask, -1);

        WriteMacInt32(0xbff, 0);        // MacsBugFlags

        // Swap stack to Mac RAM area
        stack_swap.stk_Lower = RAMBaseHost;
        stack_swap.stk_Upper = (ULONG)RAMBaseHost + RAMSize;
        stack_swap.stk_Pointer = RAMBaseHost + 0x8000;
        StackSwap(&stack_swap);
        stack_swapped = true;

        // Jump to ROM boot routine
        Start680x0();

        QuitEmulator();
        return 0;
}

void Start680x0(void)
{
        typedef void (*rom_func)(void);
        rom_func fp = (rom_func)(ROMBaseHost + 0x2a);
        fp();
}


/*
 *  Quit emulator (__saveds because it might be called from an exception)
 */

// Assembly entry point
void __saveds quit_emulator(void)
{
        QuitEmulator();
}

void QuitEmulator(void)
{
        // Stop 60Hz process
        if (tick_proc) {
                SetSignal(0, SIGF_SINGLE);
                tick_proc_active = false;
                Wait(SIGF_SINGLE);
        }

        // Stop XPRAM watchdog process
        if (xpram_proc) {
                SetSignal(0, SIGF_SINGLE);
                xpram_proc_active = false;
                Wait(SIGF_SINGLE);
        }

        // Restore stack
        if (stack_swapped) {
                stack_swapped = false;
                StackSwap(&stack_swap);
        }

        // Remove exception handler
        if (IRQSig >= 0) {
                SetExcept(0, SIGBREAKF_CTRL_C | IRQSigMask);
                MainTask->tc_ExceptCode = OldExceptionHandler;
                FreeSignal(IRQSig);
        }

        // Remove trap handler
        MainTask->tc_TrapCode = OldTrapHandler;

        // Deinitialize everything
        ExitAll();

        // Delete RAM/ROM area
        if (RAMBaseHost)
                FreeVec(RAMBaseHost);

        // Delete scratch memory area
        if (ScratchMem)
                FreeMem((void *)(ScratchMem - SCRATCH_MEM_SIZE/2), SCRATCH_MEM_SIZE);

        // Close timer.device
        if (TimerBase)
                CloseDevice((struct IORequest *)timereq);
        if (timereq)
                FreeVec(timereq);

        // Exit system routines
        SysExit();

        // Close AHI
        if (AHIBase)
                CloseDevice((struct IORequest *)ahi_io);
        if (ahi_io)
                DeleteIORequest((struct IORequest *)ahi_io);
        if (ahi_port)
                DeleteMsgPort(ahi_port);

        // Exit preferences
        PrefsExit();

        // Close libraries
        if (CyberGfxBase)
                CloseLibrary(CyberGfxBase);
        if (P96Base)
                CloseLibrary(P96Base);
        if (AslBase)
                CloseLibrary(AslBase);
        if (IFFParseBase)
                CloseLibrary(IFFParseBase);
        if (GadToolsBase)
                CloseLibrary(GadToolsBase);
        if (IntuitionBase)
                CloseLibrary((struct Library *)IntuitionBase);
        if (GfxBase)
                CloseLibrary(GfxBase);

        exit(0);
}


/*
 *  Code was patched, flush caches if neccessary (i.e. when using a real 680x0
 *  or a dynamically recompiling emulator)
 */

void FlushCodeCache(void *start, uint32 size)
{
        CacheClearE(start, size, CACRF_ClearI | CACRF_ClearD);
}


/*
 *  Mutexes
 */

struct B2_mutex {
        int dummy;      //!!
};

B2_mutex *B2_create_mutex(void)
{
        return new B2_mutex;
}

void B2_lock_mutex(B2_mutex *mutex)
{
}

void B2_unlock_mutex(B2_mutex *mutex)
{
}

void B2_delete_mutex(B2_mutex *mutex)
{
        delete mutex;
}


/*
 *  Interrupt flags (must be handled atomically!)
 */

uint32 InterruptFlags;

void SetInterruptFlag(uint32 flag)
{
        AtomicOr(&InterruptFlags, flag);
}

void ClearInterruptFlag(uint32 flag)
{
        AtomicAnd(&InterruptFlags, ~flag);
}

void TriggerInterrupt(void)
{
        Signal(MainTask, IRQSigMask);
}

void TriggerNMI(void)
{
        AsmTriggerNMI();
}


/*
 *  60Hz thread (really 60.15Hz)
 */

static __saveds void tick_func(void)
{
        int tick_counter = 0;
        struct MsgPort *timer_port = NULL;
        struct timerequest *timer_io = NULL;
        ULONG timer_mask = 0;

        // Start 60Hz timer
        timer_port = CreateMsgPort();
        if (timer_port) {
                timer_io = (struct timerequest *)CreateIORequest(timer_port, sizeof(struct timerequest));
                if (timer_io) {
                        if (!OpenDevice((UBYTE *) TIMERNAME, UNIT_MICROHZ, (struct IORequest *)timer_io, 0)) {
                                timer_mask = 1 << timer_port->mp_SigBit;
                                timer_io->tr_node.io_Command = TR_ADDREQUEST;
                                timer_io->tr_time.tv_secs = 0;
                                timer_io->tr_time.tv_micro = 16625;
                                SendIO((struct IORequest *)timer_io);
                        }
                }
        }

        while (tick_proc_active) {

                // Wait for timer tick
                Wait(timer_mask);

                // Restart timer
                timer_io->tr_node.io_Command = TR_ADDREQUEST;
                timer_io->tr_time.tv_secs = 0;
                timer_io->tr_time.tv_micro = 16625;
                SendIO((struct IORequest *)timer_io);

                // Pseudo Mac 1Hz interrupt, update local time
                if (++tick_counter > 60) {
                        tick_counter = 0;
                        WriteMacInt32(0x20c, TimerDateTime());
                        SetInterruptFlag(INTFLAG_1HZ);
                        TriggerInterrupt();
                }

                // Trigger 60Hz interrupt
                SetInterruptFlag(INTFLAG_60HZ);
                TriggerInterrupt();
        }

        // Stop timer
        if (timer_io) {
                if (!CheckIO((struct IORequest *)timer_io))
                        AbortIO((struct IORequest *)timer_io);
                WaitIO((struct IORequest *)timer_io);
                CloseDevice((struct IORequest *)timer_io);
                DeleteIORequest(timer_io);
        }
        if (timer_port)
                DeleteMsgPort(timer_port);

        // Main task asked for termination, send signal
        Forbid();
        Signal(MainTask, SIGF_SINGLE);
}


/*
 *  XPRAM watchdog thread (saves XPRAM every minute)
 */

static __saveds void xpram_func(void)
{
        uint8 last_xpram[XPRAM_SIZE];
        memcpy(last_xpram, XPRAM, XPRAM_SIZE);

        while (xpram_proc_active) {
                for (int i=0; i<60 && xpram_proc_active; i++)
                        Delay(50);              // Only wait 1 second so we quit promptly when xpram_proc_active becomes false
                if (memcmp(last_xpram, XPRAM, XPRAM_SIZE)) {
                        memcpy(last_xpram, XPRAM, XPRAM_SIZE);
                        SaveXPRAM();
                }
        }

        // Main task asked for termination, send signal
        Forbid();
        Signal(MainTask, SIGF_SINGLE);
}


/*
 *  Display error alert
 */

void ErrorAlert(const char *text)
{
        if (PrefsFindBool("nogui")) {
                printf(GetString(STR_SHELL_ERROR_PREFIX), text);
                return;
        }
        EasyStruct req;
        req.es_StructSize = sizeof(EasyStruct);
        req.es_Flags = 0;
        req.es_Title = (UBYTE *)GetString(STR_ERROR_ALERT_TITLE);
        req.es_TextFormat = (UBYTE *)GetString(STR_GUI_ERROR_PREFIX);
        req.es_GadgetFormat = (UBYTE *)GetString(STR_QUIT_BUTTON);
        EasyRequest(NULL, &req, NULL, (ULONG)text);
}


/*
 *  Display warning alert
 */

void WarningAlert(const char *text)
{
        if (PrefsFindBool("nogui")) {
                printf(GetString(STR_SHELL_WARNING_PREFIX), text);
                return;
        }
        EasyStruct req;
        req.es_StructSize = sizeof(EasyStruct);
        req.es_Flags = 0;
        req.es_Title = (UBYTE *)GetString(STR_WARNING_ALERT_TITLE);
        req.es_TextFormat = (UBYTE *)GetString(STR_GUI_WARNING_PREFIX);
        req.es_GadgetFormat = (UBYTE *)GetString(STR_OK_BUTTON);
        EasyRequest(NULL, &req, NULL, (ULONG)text);
}


/*
 *  Display choice alert
 */

bool ChoiceAlert(const char *text, const char *pos, const char *neg)
{
        char str[256];
        sprintf(str, "%s|%s", pos, neg);
        EasyStruct req;
        req.es_StructSize = sizeof(EasyStruct);
        req.es_Flags = 0;
        req.es_Title = (UBYTE *)GetString(STR_WARNING_ALERT_TITLE);
        req.es_TextFormat = (UBYTE *)GetString(STR_GUI_WARNING_PREFIX);
        req.es_GadgetFormat = (UBYTE *)str;
        return EasyRequest(NULL, &req, NULL, (ULONG)text);
}


/*
 *  Illegal Instruction and Privilege Violation trap handlers
 */

struct trap_regs {      // This must match the layout of M68kRegisters
        uint32 d[8];
        uint32 a[8];
        uint16 sr;
        uint32 pc;
};

void __saveds IllInstrHandler(trap_regs *r)
{
//      D(bug("IllInstrHandler/%ld\n", __LINE__));

        uint16 opcode = *(uint16 *)(r->pc);
        if ((opcode & 0xff00) != 0x7100) {
                printf("Illegal Instruction %04x at %08lx\n", *(uint16 *)(r->pc), r->pc);
                printf("d0 %08lx d1 %08lx d2 %08lx d3 %08lx\n"
                           "d4 %08lx d5 %08lx d6 %08lx d7 %08lx\n"
                           "a0 %08lx a1 %08lx a2 %08lx a3 %08lx\n"
                           "a4 %08lx a5 %08lx a6 %08lx a7 %08lx\n"
                           "sr %04x\n",
                           r->d[0], r->d[1], r->d[2], r->d[3], r->d[4], r->d[5], r->d[6], r->d[7],
                           r->a[0], r->a[1], r->a[2], r->a[3], r->a[4], r->a[5], r->a[6], r->a[7],
                           r->sr);
                QuitEmulator();
        } else {
                // Disable interrupts
                uint16 sr = EmulatedSR;
                EmulatedSR |= 0x0700;

                // Call opcode routine
                EmulOp(opcode, (M68kRegisters *)r);
                r->pc += 2;

                // Restore interrupts
                EmulatedSR = sr;
                if ((EmulatedSR & 0x0700) == 0 && InterruptFlags)
                        Signal(MainTask, IRQSigMask);
        }
}

void __saveds PrivViolHandler(trap_regs *r)
{
        printf("Privileged instruction %04x %04x at %08lx\n", *(uint16 *)(r->pc), *(uint16 *)(r->pc + 2), r->pc);
        printf("d0 %08lx d1 %08lx d2 %08lx d3 %08lx\n"
                   "d4 %08lx d5 %08lx d6 %08lx d7 %08lx\n"
                   "a0 %08lx a1 %08lx a2 %08lx a3 %08lx\n"
                   "a4 %08lx a5 %08lx a6 %08lx a7 %08lx\n"
                   "sr %04x\n",
                   r->d[0], r->d[1], r->d[2], r->d[3], r->d[4], r->d[5], r->d[6], r->d[7],
                   r->a[0], r->a[1], r->a[2], r->a[3], r->a[4], r->a[5], r->a[6], r->a[7],
                   r->sr);
        QuitEmulator();
}
Revision:	1.26
Committed:	2009-10-18T16:21:19Z (15 years ago) by asvitkine
Branch:	MAIN
CVS Tags:	HEAD
Changes since 1.25:	+1 -1 lines
Error occurred while calculating annotation data.
Log Message:	fix PrefsInit on amiga
#	Content
1	/*
2	* main_amiga.cpp - Startup code for AmigaOS
3	*
4	* Basilisk II (C) 1997-2008 Christian Bauer
5	*
6	* This program is free software; you can redistribute it and/or modify
7	* it under the terms of the GNU General Public License as published by
8	* the Free Software Foundation; either version 2 of the License, or
9	* (at your option) any later version.
10	*
11	* This program is distributed in the hope that it will be useful,
12	* but WITHOUT ANY WARRANTY; without even the implied warranty of
13	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14	* GNU General Public License for more details.
15	*
16	* You should have received a copy of the GNU General Public License
17	* along with this program; if not, write to the Free Software
18	* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
19	*/
20
21	#include <exec/types.h>
22	#include <exec/execbase.h>
23	#include <exec/memory.h>
24	#include <exec/tasks.h>
25	#include <dos/dostags.h>
26	#include <intuition/intuition.h>
27	#include <devices/timer.h>
28	#include <devices/ahi.h>
29	#define __USE_SYSBASE
30	#include <proto/exec.h>
31	#include <proto/dos.h>
32	#include <proto/intuition.h>
33	#include <inline/exec.h>
34	#include <inline/dos.h>
35	#include <inline/intuition.h>
36
37	#include "sysdeps.h"
38	#include "cpu_emulation.h"
39	#include "main.h"
40	#include "xpram.h"
41	#include "timer.h"
42	#include "sony.h"
43	#include "disk.h"
44	#include "cdrom.h"
45	#include "scsi.h"
46	#include "audio.h"
47	#include "video.h"
48	#include "serial.h"
49	#include "ether.h"
50	#include "clip.h"
51	#include "emul_op.h"
52	#include "rom_patches.h"
53	#include "prefs.h"
54	#include "prefs_editor.h"
55	#include "sys.h"
56	#include "user_strings.h"
57	#include "version.h"
58
59	#define DEBUG 0
60	#include "debug.h"
61
62
63	// Options for libnix
64	unsigned long __stack = 0x4000; // Stack requirement
65	int __nocommandline = 1; // Disable command line parsing
66
67
68	// Constants
69	static const char ROM_FILE_NAME[] = "ROM";
70	static const char __ver[] = "$VER: " VERSION_STRING " " __DATE__;
71	static const int SCRATCH_MEM_SIZE = 65536;
72
73
74	// RAM and ROM pointers
75	uint32 RAMBaseMac; // RAM base (Mac address space)
76	uint8 *RAMBaseHost; // RAM base (host address space)
77	uint32 RAMSize; // Size of RAM
78	uint32 ROMBaseMac; // ROM base (Mac address space)
79	uint8 *ROMBaseHost; // ROM base (host address space)
80	uint32 ROMSize; // Size of ROM
81
82
83	// CPU and FPU type, addressing mode
84	int CPUType;
85	bool CPUIs68060;
86	int FPUType;
87	bool TwentyFourBitAddressing;
88
89
90	// Global variables
91	extern ExecBase *SysBase;
92	struct Library *GfxBase = NULL;
93	struct IntuitionBase *IntuitionBase = NULL;
94	struct Library *GadToolsBase = NULL;
95	struct Library *IFFParseBase = NULL;
96	struct Library *AslBase = NULL;
97	struct Library *P96Base = NULL;
98	struct Library *CyberGfxBase = NULL;
99	struct Library *TimerBase = NULL;
100	struct Library *AHIBase = NULL;
101	struct Library *DiskBase = NULL;
102
103	struct Task *MainTask; // Our task
104	uint8 *ScratchMem = NULL; // Scratch memory for Mac ROM writes
105	APTR OldTrapHandler = NULL; // Old trap handler
106	APTR OldExceptionHandler = NULL; // Old exception handler
107	BYTE IRQSig = -1; // "Interrupt" signal number
108	ULONG IRQSigMask = 0; // "Interrupt" signal mask
109
110	static struct timerequest *timereq = NULL; // IORequest for timer
111
112	static struct MsgPort *ahi_port = NULL; // Port for AHI
113	static struct AHIRequest *ahi_io = NULL; // IORequest for AHI
114
115	static struct Process *xpram_proc = NULL; // XPRAM watchdog
116	static volatile bool xpram_proc_active = true; // Flag for quitting the XPRAM watchdog
117
118	static struct Process *tick_proc = NULL; // 60Hz process
119	static volatile bool tick_proc_active = true; // Flag for quitting the 60Hz process
120
121	static bool stack_swapped = false; // Stack swapping
122	static StackSwapStruct stack_swap;
123
124
125	// Assembly functions
126	struct trap_regs;
127	extern "C" void AtomicAnd(uint32 *p, uint32 val);
128	extern "C" void AtomicOr(uint32 *p, uint32 val);
129	extern "C" void MoveVBR(void);
130	extern "C" void DisableSuperBypass(void);
131	extern "C" void TrapHandlerAsm(void);
132	extern "C" void ExceptionHandlerAsm(void);
133	extern "C" void IllInstrHandler(trap_regs *regs);
134	extern "C" void PrivViolHandler(trap_regs *regs);
135	extern "C" void quit_emulator(void);
136	extern "C" void AsmTriggerNMI(void);
137	uint16 EmulatedSR; // Emulated SR (supervisor bit and interrupt mask)
138
139
140	// Prototypes
141	static void jump_to_rom(void);
142	static void xpram_func(void);
143	static void tick_func(void);
144
145
146	/*
147	* Main program
148	*/
149
150	int main(int argc, char **argv)
151	{
152	// Initialize variables
153	RAMBaseHost = NULL;
154	ROMBaseHost = NULL;
155	MainTask = FindTask(NULL);
156	struct DateStamp ds;
157	DateStamp(&ds);
158	srand(ds.ds_Tick);
159
160	// Print some info
161	printf(GetString(STR_ABOUT_TEXT1), VERSION_MAJOR, VERSION_MINOR);
162	printf(" %s\n", GetString(STR_ABOUT_TEXT2));
163
164	// Open libraries
165	GfxBase = OpenLibrary((UBYTE *) "graphics.library", 39);
166	if (GfxBase == NULL) {
167	printf("Cannot open graphics.library V39.\n");
168	exit(1);
169	}
170	IntuitionBase = (struct IntuitionBase )OpenLibrary((UBYTE ) "intuition.library", 39);
171	if (IntuitionBase == NULL) {
172	printf("Cannot open intuition.library V39.\n");
173	CloseLibrary(GfxBase);
174	exit(1);
175	}
176	DiskBase = (struct Library )OpenResource((UBYTE ) "disk.resource");
177	if (DiskBase == NULL)
178	QuitEmulator();
179	GadToolsBase = OpenLibrary((UBYTE *) "gadtools.library", 39);
180	if (GadToolsBase == NULL) {
181	ErrorAlert(STR_NO_GADTOOLS_LIB_ERR);
182	QuitEmulator();
183	}
184	IFFParseBase = OpenLibrary((UBYTE *) "iffparse.library", 39);
185	if (IFFParseBase == NULL) {
186	ErrorAlert(STR_NO_IFFPARSE_LIB_ERR);
187	QuitEmulator();
188	}
189	AslBase = OpenLibrary((UBYTE *) "asl.library", 36);
190	if (AslBase == NULL) {
191	ErrorAlert(STR_NO_ASL_LIB_ERR);
192	QuitEmulator();
193	}
194
195	if (FindTask((UBYTE *) "� Enforcer �")) {
196	ErrorAlert(STR_ENFORCER_RUNNING_ERR);
197	QuitEmulator();
198	}
199
200	// These two can fail (the respective gfx support won't be available, then)
201	P96Base = OpenLibrary((UBYTE *) "Picasso96API.library", 2);
202	CyberGfxBase = OpenLibrary((UBYTE *) "cybergraphics.library", 2);
203
204	// Read preferences
205	PrefsInit(NULL, argc, argv);
206
207	// Open AHI
208	ahi_port = CreateMsgPort();
209	if (ahi_port) {
210	ahi_io = (struct AHIRequest *)CreateIORequest(ahi_port, sizeof(struct AHIRequest));
211	if (ahi_io) {
212	ahi_io->ahir_Version = 2;
213	if (OpenDevice((UBYTE ) AHINAME, AHI_NO_UNIT, (struct IORequest )ahi_io, 0) == 0) {
214	AHIBase = (struct Library *)ahi_io->ahir_Std.io_Device;
215	}
216	}
217	}
218
219	// Init system routines
220	SysInit();
221
222	// Show preferences editor
223	if (!PrefsFindBool("nogui"))
224	if (!PrefsEditor())
225	QuitEmulator();
226
227	// Check start of Chip memory (because we need access to 0x0000..0x2000)
228	if ((uint32)FindName(&SysBase->MemList, (UBYTE *) "chip memory") < 0x2000) {
229	ErrorAlert(STR_NO_PREPARE_EMUL_ERR);
230	QuitEmulator();
231	}
232
233	// Open timer.device
234	timereq = (struct timerequest *)AllocVec(sizeof(timerequest), MEMF_PUBLIC \| MEMF_CLEAR);
235	if (timereq == NULL) {
236	ErrorAlert(STR_NO_MEM_ERR);
237	QuitEmulator();
238	}
239	if (OpenDevice((UBYTE ) TIMERNAME, UNIT_MICROHZ, (struct IORequest )timereq, 0)) {
240	ErrorAlert(STR_NO_TIMER_DEV_ERR);
241	QuitEmulator();
242	}
243	TimerBase = (struct Library *)timereq->tr_node.io_Device;
244
245	// Allocate scratch memory
246	ScratchMem = (uint8 *)AllocMem(SCRATCH_MEM_SIZE, MEMF_PUBLIC);
247	if (ScratchMem == NULL) {
248	ErrorAlert(STR_NO_MEM_ERR);
249	QuitEmulator();
250	}
251	ScratchMem += SCRATCH_MEM_SIZE/2; // ScratchMem points to middle of block
252
253	// Create area for Mac RAM and ROM (ROM must be higher in memory,
254	// so we allocate one big chunk and put the ROM at the top of it)
255	RAMSize = PrefsFindInt32("ramsize") & 0xfff00000; // Round down to 1MB boundary
256	if (RAMSize < 1024*1024) {
257	WarningAlert(GetString(STR_SMALL_RAM_WARN));
258	RAMSize = 1024*1024;
259	}
260	RAMBaseHost = (uint8 *)AllocVec(RAMSize + 0x100000, MEMF_PUBLIC);
261	if (RAMBaseHost == NULL) {
262	uint32 newRAMSize = AvailMem(MEMF_LARGEST) - 0x100000;
263	char xText[120];
264
265	sprintf(xText, GetString(STR_NOT_ENOUGH_MEM_WARN), RAMSize, newRAMSize);
266
267	if (ChoiceAlert(xText, "Use", "Quit") != 1)
268	QuitEmulator();
269
270	RAMSize = newRAMSize;
271	RAMBaseHost = (uint8 *)AllocVec(RAMSize - 0x100000, MEMF_PUBLIC);
272	if (RAMBaseHost == NULL) {
273	ErrorAlert(STR_NO_MEM_ERR);
274	QuitEmulator();
275	}
276	}
277	RAMBaseMac = (uint32)RAMBaseHost;
278	D(bug("Mac RAM starts at %08lx\n", RAMBaseHost));
279	ROMBaseHost = RAMBaseHost + RAMSize;
280	ROMBaseMac = (uint32)ROMBaseHost;
281	D(bug("Mac ROM starts at %08lx\n", ROMBaseHost));
282
283	// Get rom file path from preferences
284	const char *rom_path = PrefsFindString("rom");
285
286	// Load Mac ROM
287	BPTR rom_fh = Open(rom_path ? (char )rom_path : (char )ROM_FILE_NAME, MODE_OLDFILE);
288	if (rom_fh == 0) {
289	ErrorAlert(STR_NO_ROM_FILE_ERR);
290	QuitEmulator();
291	}
292	printf(GetString(STR_READING_ROM_FILE));
293	Seek(rom_fh, 0, OFFSET_END);
294	ROMSize = Seek(rom_fh, 0, OFFSET_CURRENT);
295	if (ROMSize != 5121024 && ROMSize != 10241024) {
296	ErrorAlert(STR_ROM_SIZE_ERR);
297	Close(rom_fh);
298	QuitEmulator();
299	}
300	Seek(rom_fh, 0, OFFSET_BEGINNING);
301	if (Read(rom_fh, ROMBaseHost, ROMSize) != ROMSize) {
302	ErrorAlert(STR_ROM_FILE_READ_ERR);
303	Close(rom_fh);
304	QuitEmulator();
305	}
306
307	// Set CPU and FPU type
308	UWORD attn = SysBase->AttnFlags;
309	CPUType = attn & AFF_68040 ? 4 : (attn & AFF_68030 ? 3 : 2);
310	CPUIs68060 = attn & AFF_68060;
311	FPUType = attn & AFF_68881 ? 1 : 0;
312
313	// Initialize everything
314	if (!InitAll(NULL))
315	QuitEmulator();
316
317	// Move VBR away from 0 if neccessary
318	MoveVBR();
319
320	// On 68060, disable Super Bypass mode because of a CPU bug that is triggered by MacOS 8
321	if (CPUIs68060)
322	DisableSuperBypass();
323
324	memset((UBYTE *) 8, 0, 0x2000-8);
325
326	// Install trap handler
327	EmulatedSR = 0x2700;
328	OldTrapHandler = MainTask->tc_TrapCode;
329	MainTask->tc_TrapCode = (APTR)TrapHandlerAsm;
330
331	// Allocate signal for interrupt emulation and install exception handler
332	IRQSig = AllocSignal(-1);
333	IRQSigMask = 1 << IRQSig;
334	OldExceptionHandler = MainTask->tc_ExceptCode;
335	MainTask->tc_ExceptCode = (APTR)ExceptionHandlerAsm;
336	SetExcept(SIGBREAKF_CTRL_C \| IRQSigMask, SIGBREAKF_CTRL_C \| IRQSigMask);
337
338	// Start XPRAM watchdog process
339	xpram_proc = CreateNewProcTags(
340	NP_Entry, (ULONG)xpram_func,
341	NP_Name, (ULONG)"Basilisk II XPRAM Watchdog",
342	NP_Priority, 0,
343	TAG_END
344	);
345
346	// Start 60Hz process
347	tick_proc = CreateNewProcTags(
348	NP_Entry, (ULONG)tick_func,
349	NP_Name, (ULONG)"Basilisk II 60Hz",
350	NP_Priority, 5,
351	TAG_END
352	);
353
354	// Set task priority to -1 so we don't use all processing time
355	SetTaskPri(MainTask, -1);
356
357	WriteMacInt32(0xbff, 0); // MacsBugFlags
358
359	// Swap stack to Mac RAM area
360	stack_swap.stk_Lower = RAMBaseHost;
361	stack_swap.stk_Upper = (ULONG)RAMBaseHost + RAMSize;
362	stack_swap.stk_Pointer = RAMBaseHost + 0x8000;
363	StackSwap(&stack_swap);
364	stack_swapped = true;
365
366	// Jump to ROM boot routine
367	Start680x0();
368
369	QuitEmulator();
370	return 0;
371	}
372
373	void Start680x0(void)
374	{
375	typedef void (*rom_func)(void);
376	rom_func fp = (rom_func)(ROMBaseHost + 0x2a);
377	fp();
378	}
379
380
381	/*
382	* Quit emulator (__saveds because it might be called from an exception)
383	*/
384
385	// Assembly entry point
386	void __saveds quit_emulator(void)
387	{
388	QuitEmulator();
389	}
390
391	void QuitEmulator(void)
392	{
393	// Stop 60Hz process
394	if (tick_proc) {
395	SetSignal(0, SIGF_SINGLE);
396	tick_proc_active = false;
397	Wait(SIGF_SINGLE);
398	}
399
400	// Stop XPRAM watchdog process
401	if (xpram_proc) {
402	SetSignal(0, SIGF_SINGLE);
403	xpram_proc_active = false;
404	Wait(SIGF_SINGLE);
405	}
406
407	// Restore stack
408	if (stack_swapped) {
409	stack_swapped = false;
410	StackSwap(&stack_swap);
411	}
412
413	// Remove exception handler
414	if (IRQSig >= 0) {
415	SetExcept(0, SIGBREAKF_CTRL_C \| IRQSigMask);
416	MainTask->tc_ExceptCode = OldExceptionHandler;
417	FreeSignal(IRQSig);
418	}
419
420	// Remove trap handler
421	MainTask->tc_TrapCode = OldTrapHandler;
422
423	// Deinitialize everything
424	ExitAll();
425
426	// Delete RAM/ROM area
427	if (RAMBaseHost)
428	FreeVec(RAMBaseHost);
429
430	// Delete scratch memory area
431	if (ScratchMem)
432	FreeMem((void *)(ScratchMem - SCRATCH_MEM_SIZE/2), SCRATCH_MEM_SIZE);
433
434	// Close timer.device
435	if (TimerBase)
436	CloseDevice((struct IORequest *)timereq);
437	if (timereq)
438	FreeVec(timereq);
439
440	// Exit system routines
441	SysExit();
442
443	// Close AHI
444	if (AHIBase)
445	CloseDevice((struct IORequest *)ahi_io);
446	if (ahi_io)
447	DeleteIORequest((struct IORequest *)ahi_io);
448	if (ahi_port)
449	DeleteMsgPort(ahi_port);
450
451	// Exit preferences
452	PrefsExit();
453
454	// Close libraries
455	if (CyberGfxBase)
456	CloseLibrary(CyberGfxBase);
457	if (P96Base)
458	CloseLibrary(P96Base);
459	if (AslBase)
460	CloseLibrary(AslBase);
461	if (IFFParseBase)
462	CloseLibrary(IFFParseBase);
463	if (GadToolsBase)
464	CloseLibrary(GadToolsBase);
465	if (IntuitionBase)
466	CloseLibrary((struct Library *)IntuitionBase);
467	if (GfxBase)
468	CloseLibrary(GfxBase);
469
470	exit(0);
471	}
472
473
474	/*
475	* Code was patched, flush caches if neccessary (i.e. when using a real 680x0
476	* or a dynamically recompiling emulator)
477	*/
478
479	void FlushCodeCache(void *start, uint32 size)
480	{
481	CacheClearE(start, size, CACRF_ClearI \| CACRF_ClearD);
482	}
483
484
485	/*
486	* Mutexes
487	*/
488
489	struct B2_mutex {
490	int dummy; //!!
491	};
492
493	B2_mutex *B2_create_mutex(void)
494	{
495	return new B2_mutex;
496	}
497
498	void B2_lock_mutex(B2_mutex *mutex)
499	{
500	}
501
502	void B2_unlock_mutex(B2_mutex *mutex)
503	{
504	}
505
506	void B2_delete_mutex(B2_mutex *mutex)
507	{
508	delete mutex;
509	}
510
511
512	/*
513	* Interrupt flags (must be handled atomically!)
514	*/
515
516	uint32 InterruptFlags;
517
518	void SetInterruptFlag(uint32 flag)
519	{
520	AtomicOr(&InterruptFlags, flag);
521	}
522
523	void ClearInterruptFlag(uint32 flag)
524	{
525	AtomicAnd(&InterruptFlags, ~flag);
526	}
527
528	void TriggerInterrupt(void)
529	{
530	Signal(MainTask, IRQSigMask);
531	}
532
533	void TriggerNMI(void)
534	{
535	AsmTriggerNMI();
536	}
537
538
539	/*
540	* 60Hz thread (really 60.15Hz)
541	*/
542
543	static __saveds void tick_func(void)
544	{
545	int tick_counter = 0;
546	struct MsgPort *timer_port = NULL;
547	struct timerequest *timer_io = NULL;
548	ULONG timer_mask = 0;
549
550	// Start 60Hz timer
551	timer_port = CreateMsgPort();
552	if (timer_port) {
553	timer_io = (struct timerequest *)CreateIORequest(timer_port, sizeof(struct timerequest));
554	if (timer_io) {
555	if (!OpenDevice((UBYTE ) TIMERNAME, UNIT_MICROHZ, (struct IORequest )timer_io, 0)) {
556	timer_mask = 1 << timer_port->mp_SigBit;
557	timer_io->tr_node.io_Command = TR_ADDREQUEST;
558	timer_io->tr_time.tv_secs = 0;
559	timer_io->tr_time.tv_micro = 16625;
560	SendIO((struct IORequest *)timer_io);
561	}
562	}
563	}
564
565	while (tick_proc_active) {
566
567	// Wait for timer tick
568	Wait(timer_mask);
569
570	// Restart timer
571	timer_io->tr_node.io_Command = TR_ADDREQUEST;
572	timer_io->tr_time.tv_secs = 0;
573	timer_io->tr_time.tv_micro = 16625;
574	SendIO((struct IORequest *)timer_io);
575
576	// Pseudo Mac 1Hz interrupt, update local time
577	if (++tick_counter > 60) {
578	tick_counter = 0;
579	WriteMacInt32(0x20c, TimerDateTime());
580	SetInterruptFlag(INTFLAG_1HZ);
581	TriggerInterrupt();
582	}
583
584	// Trigger 60Hz interrupt
585	SetInterruptFlag(INTFLAG_60HZ);
586	TriggerInterrupt();
587	}
588
589	// Stop timer
590	if (timer_io) {
591	if (!CheckIO((struct IORequest *)timer_io))
592	AbortIO((struct IORequest *)timer_io);
593	WaitIO((struct IORequest *)timer_io);
594	CloseDevice((struct IORequest *)timer_io);
595	DeleteIORequest(timer_io);
596	}
597	if (timer_port)
598	DeleteMsgPort(timer_port);
599
600	// Main task asked for termination, send signal
601	Forbid();
602	Signal(MainTask, SIGF_SINGLE);
603	}
604
605
606	/*
607	* XPRAM watchdog thread (saves XPRAM every minute)
608	*/
609
610	static __saveds void xpram_func(void)
611	{
612	uint8 last_xpram[XPRAM_SIZE];
613	memcpy(last_xpram, XPRAM, XPRAM_SIZE);
614
615	while (xpram_proc_active) {
616	for (int i=0; i<60 && xpram_proc_active; i++)
617	Delay(50); // Only wait 1 second so we quit promptly when xpram_proc_active becomes false
618	if (memcmp(last_xpram, XPRAM, XPRAM_SIZE)) {
619	memcpy(last_xpram, XPRAM, XPRAM_SIZE);
620	SaveXPRAM();
621	}
622	}
623
624	// Main task asked for termination, send signal
625	Forbid();
626	Signal(MainTask, SIGF_SINGLE);
627	}
628
629
630	/*
631	* Display error alert
632	*/
633
634	void ErrorAlert(const char *text)
635	{
636	if (PrefsFindBool("nogui")) {
637	printf(GetString(STR_SHELL_ERROR_PREFIX), text);
638	return;
639	}
640	EasyStruct req;
641	req.es_StructSize = sizeof(EasyStruct);
642	req.es_Flags = 0;
643	req.es_Title = (UBYTE *)GetString(STR_ERROR_ALERT_TITLE);
644	req.es_TextFormat = (UBYTE *)GetString(STR_GUI_ERROR_PREFIX);
645	req.es_GadgetFormat = (UBYTE *)GetString(STR_QUIT_BUTTON);
646	EasyRequest(NULL, &req, NULL, (ULONG)text);
647	}
648
649
650	/*
651	* Display warning alert
652	*/
653
654	void WarningAlert(const char *text)
655	{
656	if (PrefsFindBool("nogui")) {
657	printf(GetString(STR_SHELL_WARNING_PREFIX), text);
658	return;
659	}
660	EasyStruct req;
661	req.es_StructSize = sizeof(EasyStruct);
662	req.es_Flags = 0;
663	req.es_Title = (UBYTE *)GetString(STR_WARNING_ALERT_TITLE);
664	req.es_TextFormat = (UBYTE *)GetString(STR_GUI_WARNING_PREFIX);
665	req.es_GadgetFormat = (UBYTE *)GetString(STR_OK_BUTTON);
666	EasyRequest(NULL, &req, NULL, (ULONG)text);
667	}
668
669
670	/*
671	* Display choice alert
672	*/
673
674	bool ChoiceAlert(const char text, const char pos, const char *neg)
675	{
676	char str[256];
677	sprintf(str, "%s\|%s", pos, neg);
678	EasyStruct req;
679	req.es_StructSize = sizeof(EasyStruct);
680	req.es_Flags = 0;
681	req.es_Title = (UBYTE *)GetString(STR_WARNING_ALERT_TITLE);
682	req.es_TextFormat = (UBYTE *)GetString(STR_GUI_WARNING_PREFIX);
683	req.es_GadgetFormat = (UBYTE *)str;
684	return EasyRequest(NULL, &req, NULL, (ULONG)text);
685	}
686
687
688	/*
689	* Illegal Instruction and Privilege Violation trap handlers
690	*/
691
692	struct trap_regs { // This must match the layout of M68kRegisters
693	uint32 d[8];
694	uint32 a[8];
695	uint16 sr;
696	uint32 pc;
697	};
698
699	void __saveds IllInstrHandler(trap_regs *r)
700	{
701	// D(bug("IllInstrHandler/%ld\n", __LINE__));
702
703	uint16 opcode = (uint16 )(r->pc);
704	if ((opcode & 0xff00) != 0x7100) {
705	printf("Illegal Instruction %04x at %08lx\n", (uint16 )(r->pc), r->pc);
706	printf("d0 %08lx d1 %08lx d2 %08lx d3 %08lx\n"
707	"d4 %08lx d5 %08lx d6 %08lx d7 %08lx\n"
708	"a0 %08lx a1 %08lx a2 %08lx a3 %08lx\n"
709	"a4 %08lx a5 %08lx a6 %08lx a7 %08lx\n"
710	"sr %04x\n",
711	r->d[0], r->d[1], r->d[2], r->d[3], r->d[4], r->d[5], r->d[6], r->d[7],
712	r->a[0], r->a[1], r->a[2], r->a[3], r->a[4], r->a[5], r->a[6], r->a[7],
713	r->sr);
714	QuitEmulator();
715	} else {
716	// Disable interrupts
717	uint16 sr = EmulatedSR;
718	EmulatedSR \|= 0x0700;
719
720	// Call opcode routine
721	EmulOp(opcode, (M68kRegisters *)r);
722	r->pc += 2;
723
724	// Restore interrupts
725	EmulatedSR = sr;
726	if ((EmulatedSR & 0x0700) == 0 && InterruptFlags)
727	Signal(MainTask, IRQSigMask);
728	}
729	}
730
731	void __saveds PrivViolHandler(trap_regs *r)
732	{
733	printf("Privileged instruction %04x %04x at %08lx\n", (uint16 )(r->pc), (uint16 )(r->pc + 2), r->pc);
734	printf("d0 %08lx d1 %08lx d2 %08lx d3 %08lx\n"
735	"d4 %08lx d5 %08lx d6 %08lx d7 %08lx\n"
736	"a0 %08lx a1 %08lx a2 %08lx a3 %08lx\n"
737	"a4 %08lx a5 %08lx a6 %08lx a7 %08lx\n"
738	"sr %04x\n",
739	r->d[0], r->d[1], r->d[2], r->d[3], r->d[4], r->d[5], r->d[6], r->d[7],
740	r->a[0], r->a[1], r->a[2], r->a[3], r->a[4], r->a[5], r->a[6], r->a[7],
741	r->sr);
742	QuitEmulator();
743	}