mirror of
https://github.com/digarok/gsplus.git
synced 2024-11-24 06:34:02 +00:00
374 lines
8.6 KiB
C
374 lines
8.6 KiB
C
/*
|
|
GSPLUS - Advanced Apple IIGS Emulator Environment
|
|
Copyright (C) 2016 - Dagen Brock
|
|
|
|
Copyright (C) 2010 by GSport contributors
|
|
|
|
Based on the KEGS emulator written by and Copyright (C) 2003 Kent Dickey
|
|
|
|
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 "defcomm.h"
|
|
|
|
// OG redirect printf to console
|
|
#ifdef ACTIVEGS
|
|
#include <stdio.h>
|
|
extern "C" int outputInfo(const char* format,...);
|
|
extern "C" int fOutputInfo(FILE*,const char* format,...);
|
|
#define printf outputInfo
|
|
#define fprintf fOutputInfo
|
|
#endif
|
|
|
|
#define STRUCT(a) typedef struct _ ## a a; struct _ ## a
|
|
|
|
typedef unsigned char byte;
|
|
typedef unsigned short word16;
|
|
typedef unsigned int word32;
|
|
#if _MSC_VER
|
|
typedef unsigned __int64 word64;
|
|
#else
|
|
typedef unsigned long long word64;
|
|
#endif
|
|
|
|
void U_STACK_TRACE();
|
|
|
|
/* 28MHz crystal, plus every 65th 1MHz cycle is stretched 140ns */
|
|
#define CYCS_28_MHZ (28636360)
|
|
#define DCYCS_28_MHZ (1.0*CYCS_28_MHZ)
|
|
#define CYCS_3_5_MHZ (CYCS_28_MHZ/8)
|
|
#define DCYCS_1_MHZ ((DCYCS_28_MHZ/28.0)*(65.0*7/(65.0*7+1.0)))
|
|
#define CYCS_1_MHZ ((int)DCYCS_1_MHZ)
|
|
|
|
/* #define DCYCS_IN_16MS_RAW (DCYCS_1_MHZ / 60.0) */
|
|
#define DCYCS_IN_16MS_RAW (262.0 * 65.0)
|
|
/* Use precisely 17030 instead of forcing 60 Hz since this is the number of */
|
|
/* 1MHz cycles per screen */
|
|
#define DCYCS_IN_16MS ((double)((int)DCYCS_IN_16MS_RAW))
|
|
#define DRECIP_DCYCS_IN_16MS (1.0 / (DCYCS_IN_16MS))
|
|
|
|
#ifdef GSPLUS_LITTLE_ENDIAN
|
|
// @todo: look at using <byteswap.h> for fastest platform implementations
|
|
# define BIGEND(a) ((((a) >> 24) & 0xff) + \
|
|
(((a) >> 8) & 0xff00) + \
|
|
(((a) << 8) & 0xff0000) + \
|
|
(((a) << 24) & 0xff000000))
|
|
# define GET_BE_WORD16(a) ((((a) >> 8) & 0xff) + (((a) << 8) & 0xff00))
|
|
# define GET_BE_WORD32(a) (BIGEND(a))
|
|
#else
|
|
# define BIGEND(a) (a)
|
|
# define GET_BE_WORD16(a) (a)
|
|
# define GET_BE_WORD32(a) (a)
|
|
#endif
|
|
|
|
#define MAXNUM_HEX_PER_LINE 32
|
|
|
|
#ifdef __NeXT__
|
|
# include <libc.h>
|
|
#endif
|
|
|
|
#if !defined(_WIN32) && !defined (__OS2__) && !defined(UNDER_CE) // OG
|
|
# include <unistd.h>
|
|
# include <sys/ioctl.h>
|
|
# include <sys/wait.h>
|
|
#endif
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <stdarg.h>
|
|
|
|
#ifndef UNDER_CE // OG CE SPecific
|
|
#include <sys/types.h>
|
|
#include <sys/stat.h>
|
|
#include <fcntl.h>
|
|
#include <errno.h>
|
|
// OG Adding support for open
|
|
#ifdef WIN32
|
|
#include <io.h>
|
|
#endif
|
|
|
|
#else
|
|
extern int errno;
|
|
extern int open(const char* name,int,...);
|
|
extern int read(int,char*,int);
|
|
extern int close(int);
|
|
extern int write( int fd, const void *buffer, unsigned int count );
|
|
extern int lseek(int,int,int);
|
|
struct stat { int st_size; };
|
|
extern int stat(const char* name, struct stat*);
|
|
extern int fstat(int, struct stat*);
|
|
#define O_RDWR 1
|
|
#define O_BINARY 2
|
|
#define O_RDONLY 4
|
|
#define O_WRONLY 8
|
|
#define O_CREAT 16
|
|
#define O_TRUNC 32
|
|
#define EAGAIN 11
|
|
#define EINTR 4
|
|
|
|
#endif
|
|
|
|
|
|
#ifdef HPUX
|
|
# include <machine/inline.h> /* for GET_ITIMER */
|
|
#endif
|
|
|
|
#ifdef SOLARIS
|
|
# include <sys/filio.h>
|
|
#endif
|
|
|
|
#ifndef O_BINARY
|
|
/* work around some Windows junk */
|
|
# define O_BINARY 0
|
|
#endif
|
|
|
|
STRUCT(Pc_log) {
|
|
double dcycs;
|
|
word32 dbank_kpc;
|
|
word32 instr;
|
|
word32 psr_acc;
|
|
word32 xreg_yreg;
|
|
word32 stack_direct;
|
|
word32 pad;
|
|
};
|
|
|
|
STRUCT(Data_log) {
|
|
double dcycs;
|
|
word32 addr;
|
|
word32 val;
|
|
word32 size;
|
|
};
|
|
|
|
STRUCT(Event) {
|
|
double dcycs;
|
|
int type;
|
|
Event *next;
|
|
};
|
|
|
|
STRUCT(Fplus) {
|
|
double plus_1;
|
|
double plus_2;
|
|
double plus_3;
|
|
double plus_x_minus_1;
|
|
};
|
|
|
|
STRUCT(Engine_reg) {
|
|
double fcycles;
|
|
word32 kpc;
|
|
word32 acc;
|
|
|
|
word32 xreg;
|
|
word32 yreg;
|
|
|
|
word32 stack;
|
|
word32 dbank;
|
|
|
|
word32 direct;
|
|
word32 psr;
|
|
Fplus *fplus_ptr;
|
|
};
|
|
|
|
STRUCT(Kimage) {
|
|
void *dev_handle;
|
|
void *dev_handle2;
|
|
byte *data_ptr;
|
|
int width_req;
|
|
int width_act;
|
|
int height;
|
|
int depth;
|
|
int mdepth;
|
|
int aux_info;
|
|
};
|
|
|
|
typedef byte *Pg_info;
|
|
STRUCT(Page_info) {
|
|
Pg_info rd_wr;
|
|
};
|
|
|
|
STRUCT(Cfg_menu) {
|
|
const char *str;
|
|
void *ptr;
|
|
const char *name_str;
|
|
void *defptr;
|
|
int cfgtype;
|
|
};
|
|
|
|
STRUCT(Cfg_dirent) {
|
|
char *name;
|
|
int is_dir;
|
|
int size;
|
|
int image_start;
|
|
int part_num;
|
|
};
|
|
|
|
STRUCT(Cfg_listhdr) {
|
|
Cfg_dirent *direntptr;
|
|
int max;
|
|
int last;
|
|
int invalid;
|
|
|
|
int curent;
|
|
int topent;
|
|
|
|
int num_to_show;
|
|
};
|
|
|
|
STRUCT(Emustate_intlist) {
|
|
const char *str;
|
|
int *iptr;
|
|
};
|
|
|
|
STRUCT(Emustate_dbllist) {
|
|
const char *str;
|
|
double *dptr;
|
|
};
|
|
|
|
STRUCT(Emustate_word32list) {
|
|
const char *str;
|
|
word32 *wptr;
|
|
};
|
|
|
|
#ifdef __LP64__
|
|
# define PTR2WORD(a) ((unsigned long)(a))
|
|
#else
|
|
# define PTR2WORD(a) ((unsigned int)(a))
|
|
#endif
|
|
|
|
|
|
#define ALTZP (g_c068_statereg & 0x80)
|
|
/* #define PAGE2 (g_c068_statereg & 0x40) */
|
|
#define RAMRD (g_c068_statereg & 0x20)
|
|
#define RAMWRT (g_c068_statereg & 0x10)
|
|
#define RDROM (g_c068_statereg & 0x08)
|
|
#define LCBANK2 (g_c068_statereg & 0x04)
|
|
#define ROMB (g_c068_statereg & 0x02)
|
|
#define INTCX (g_c068_statereg & 0x01)
|
|
|
|
#define C041_EN_25SEC_INTS 0x10
|
|
#define C041_EN_VBL_INTS 0x08
|
|
#define C041_EN_SWITCH_INTS 0x04
|
|
#define C041_EN_MOVE_INTS 0x02
|
|
#define C041_EN_MOUSE 0x01
|
|
|
|
/* WARNING: SCC1 and SCC0 interrupts must be in this order for scc.c */
|
|
/* This order matches the SCC hardware */
|
|
#define IRQ_PENDING_SCC1_ZEROCNT 0x00001
|
|
#define IRQ_PENDING_SCC1_TX 0x00002
|
|
#define IRQ_PENDING_SCC1_RX 0x00004
|
|
#define IRQ_PENDING_SCC0_ZEROCNT 0x00008
|
|
#define IRQ_PENDING_SCC0_TX 0x00010
|
|
#define IRQ_PENDING_SCC0_RX 0x00020
|
|
#define IRQ_PENDING_C023_SCAN 0x00100
|
|
#define IRQ_PENDING_C023_1SEC 0x00200
|
|
#define IRQ_PENDING_C046_25SEC 0x00400
|
|
#define IRQ_PENDING_C046_VBL 0x00800
|
|
#define IRQ_PENDING_ADB_KBD_SRQ 0x01000
|
|
#define IRQ_PENDING_ADB_DATA 0x02000
|
|
#define IRQ_PENDING_ADB_MOUSE 0x04000
|
|
#define IRQ_PENDING_DOC 0x08000
|
|
|
|
|
|
#define EXTRU(val, pos, len) \
|
|
( ( (len) >= (pos) + 1) ? ((val) >> (31-(pos))) : \
|
|
(((val) >> (31-(pos)) ) & ( (1<<(len) ) - 1) ) )
|
|
|
|
#define DEP1(val, pos, old_val) \
|
|
(((old_val) & ~(1 << (31 - (pos))) ) | \
|
|
( ((val) & 1) << (31 - (pos))) )
|
|
|
|
#define set_halt(val) \
|
|
if(val) { set_halt_act(val); }
|
|
|
|
#define clear_halt() \
|
|
clr_halt_act()
|
|
|
|
#define GET_PAGE_INFO_RD(page) \
|
|
(page_info_rd_wr[page].rd_wr)
|
|
|
|
#define GET_PAGE_INFO_WR(page) \
|
|
(page_info_rd_wr[0x10000 + PAGE_INFO_PAD_SIZE + (page)].rd_wr)
|
|
|
|
#define SET_PAGE_INFO_RD(page,val) \
|
|
;page_info_rd_wr[page].rd_wr = (Pg_info)val;
|
|
|
|
#define SET_PAGE_INFO_WR(page,val) \
|
|
;page_info_rd_wr[0x10000 + PAGE_INFO_PAD_SIZE + (page)].rd_wr = \
|
|
(Pg_info)val;
|
|
|
|
#define VERBOSE_DISK 0x001
|
|
#define VERBOSE_IRQ 0x002
|
|
#define VERBOSE_CLK 0x004
|
|
#define VERBOSE_SHADOW 0x008
|
|
#define VERBOSE_IWM 0x010
|
|
#define VERBOSE_DOC 0x020
|
|
#define VERBOSE_ADB 0x040
|
|
#define VERBOSE_SCC 0x080
|
|
#define VERBOSE_TEST 0x100
|
|
#define VERBOSE_VIDEO 0x200
|
|
#define VERBOSE_MAC 0x400
|
|
|
|
#ifdef NO_VERB
|
|
# define DO_VERBOSE 0
|
|
#else
|
|
# define DO_VERBOSE 1
|
|
#endif
|
|
|
|
#define disk_printf if(DO_VERBOSE && (Verbose & VERBOSE_DISK)) printf
|
|
#define irq_printf if(DO_VERBOSE && (Verbose & VERBOSE_IRQ)) printf
|
|
#define clk_printf if(DO_VERBOSE && (Verbose & VERBOSE_CLK)) printf
|
|
#define shadow_printf if(DO_VERBOSE && (Verbose & VERBOSE_SHADOW)) printf
|
|
#define iwm_printf if(DO_VERBOSE && (Verbose & VERBOSE_IWM)) printf
|
|
#define doc_printf if(DO_VERBOSE && (Verbose & VERBOSE_DOC)) printf
|
|
#define adb_printf if(DO_VERBOSE && (Verbose & VERBOSE_ADB)) printf
|
|
#define scc_printf if(DO_VERBOSE && (Verbose & VERBOSE_SCC)) printf
|
|
#define test_printf if(DO_VERBOSE && (Verbose & VERBOSE_TEST)) printf
|
|
#define vid_printf if(DO_VERBOSE && (Verbose & VERBOSE_VIDEO)) printf
|
|
#define mac_printf if(DO_VERBOSE && (Verbose & VERBOSE_MAC)) printf
|
|
|
|
|
|
#define HALT_ON_SCAN_INT 0x001
|
|
#define HALT_ON_IRQ 0x002
|
|
#define HALT_ON_SHADOW_REG 0x004
|
|
#define HALT_ON_C70D_WRITES 0x008
|
|
|
|
#define HALT_ON(a, msg) \
|
|
if(Halt_on & a) { \
|
|
halt_printf(msg); \
|
|
}
|
|
|
|
|
|
#ifndef MIN
|
|
# define MIN(a,b) (((a) < (b)) ? (a) : (b))
|
|
#endif
|
|
#ifndef MAX
|
|
# define MAX(a,b) (((a) < (b)) ? (b) : (a))
|
|
#endif
|
|
|
|
#define GET_ITIMER(dest) dest = get_itimer();
|
|
|
|
#include "iwm.h"
|
|
#include "protos.h"
|
|
// OG Added define for joystick
|
|
#define JOYSTICK_TYPE_KEYPAD 0
|
|
#define JOYSTICK_TYPE_MOUSE 1
|
|
#define JOYSTICK_TYPE_NATIVE_1 2
|
|
#define JOYSTICK_TYPE_NATIVE_2 3
|
|
#define JOYSTICK_TYPE_NONE 4 // OG Added Joystick None
|
|
#define NB_JOYSTICK_TYPE 5
|