194 lines
7.0 KiB
C
Executable File
194 lines
7.0 KiB
C
Executable File
#include "memory.h"
|
|
#include "6502.h"
|
|
#include "iou.h"
|
|
#define GRMODE_MONO 0
|
|
#define GRMODE_COLOR 1
|
|
#define GRMODE_SONYHR_MONO 2
|
|
#define GRMODE_SONYHR_COLOR 3
|
|
#define GRMODE_OS5HR_MONO 4
|
|
#define GRMODE_OS5HR_COLOR 5
|
|
#define CLRMODE_INTERP 0
|
|
#define CLRMODE_STD 1
|
|
#define GRMODE_ISCOLOR(m) ((m)&1)
|
|
#ifdef DEBUG
|
|
#define Apple2Run(c) \
|
|
do { \
|
|
static UInt8 *PC_6502,*prevPC_6502;\
|
|
UInt16 i; \
|
|
UInt32 badop; \
|
|
MemSemaphoreReserve(true);\
|
|
for(i=(c); i; i--) { \
|
|
prevPC_6502 = PC_6502;\
|
|
PC_6502 = (UInt8*)state6502.LongRegs.PC;\
|
|
badop = run6502(1); \
|
|
if (badop) { \
|
|
Char string[40]; \
|
|
Apple2Pause(true); \
|
|
StrPrintF(string, "Bad opcode 0x%02x @ 0x%04x", (UInt16)badop, (UInt16)(badop >> 16)); \
|
|
WinDrawChars(string, StrLen(string), 15, 140); \
|
|
StrPrintF(string, "Prev opcode 0x%02x @ 0x%04x", (UInt16)*prevPC_6502, (UInt16)(prevPC_6502 - AppleMemory)); \
|
|
WinDrawChars(string, StrLen(string), 15, 150);\
|
|
break; \
|
|
} \
|
|
} \
|
|
MemSemaphoreRelease(true);\
|
|
} while(0)
|
|
#else
|
|
#define Apple2Run(c) \
|
|
do { \
|
|
UInt32 badop; \
|
|
MemSemaphoreReserve(true);\
|
|
badop = run6502((c)); \
|
|
MemSemaphoreRelease(true);\
|
|
if (badop) {\
|
|
Char string[40]; \
|
|
if (!prefs.ignoreBadOps){ \
|
|
Apple2Pause(true); \
|
|
StrPrintF(string, "Bad opcode 0x%02x @ 0x%04x", (UInt16)badop, (UInt16)(badop >> 16)); \
|
|
WinDrawChars(string, StrLen(string), 15, 140); \
|
|
} \
|
|
state6502.LongRegs.PC++;\
|
|
} \
|
|
} while(0)
|
|
#endif
|
|
|
|
#define Apple2UpdateVideo() \
|
|
do { \
|
|
if (dirtyVideo){ \
|
|
if (dirtyVideo > 1) \
|
|
setVideoFuncs(false); \
|
|
updateVideo(); \
|
|
} \
|
|
} while(0)
|
|
|
|
#if CLIE_SOUND
|
|
#define Apple2UpdateAudio() \
|
|
do { \
|
|
if (AppleVolume) { \
|
|
if (refPa1) { \
|
|
static UInt32 lastFreq=0; \
|
|
Boolean retval; \
|
|
if (spkrIOU) { \
|
|
lastFreq=spkrIOU >> 4; \
|
|
PA1L_midiNoteOn(refPa1,hMidi,0,lastFreq,127,&retval);\
|
|
spkrIOU=0; \
|
|
} \
|
|
else if (lastFreq) { \
|
|
PA1L_midiNoteOff(refPa1,hMidi,0,lastFreq,1,&retval);\
|
|
lastFreq=0; \
|
|
} \
|
|
} \
|
|
else if (spkrIOU) { \
|
|
SndCommandType sndCmd; \
|
|
sndCmd.cmd = sndCmdFreqDurationAmp;\
|
|
sndCmd.param1 = ((UInt32)spkrIOU)/*Hz*/;\
|
|
sndCmd.param2 = 20/*msec*/; \
|
|
sndCmd.param3 = AppleVolume; \
|
|
SndDoCmd(0, &sndCmd, true/*noWait*/);\
|
|
spkrIOU = 0; \
|
|
} \
|
|
} \
|
|
} while(0)
|
|
#else
|
|
#define Apple2UpdateAudio() \
|
|
do { \
|
|
if (AppleVolume) { \
|
|
static UInt32 lastFreq=0; \
|
|
SndCommandType sndCmd; \
|
|
if (spkrIOU) { \
|
|
lastFreq=spkrIOU*A2Hz/prefs.refreshRate;\
|
|
sndCmd.cmd = sndCmdFrqOn;\
|
|
sndCmd.param1 = lastFreq/*Hz*/;\
|
|
sndCmd.param2 = 20/*msec*/; \
|
|
sndCmd.param3 = AppleVolume;\
|
|
SndDoCmd(0, &sndCmd, true/*noWait*/);\
|
|
spkrIOU=0; \
|
|
} \
|
|
else if (lastFreq) { \
|
|
sndCmd.cmd = sndCmdQuiet;\
|
|
sndCmd.param1 = 0/*Hz*/; \
|
|
sndCmd.param2 = 0/*msec*/; \
|
|
sndCmd.param3 = AppleVolume;\
|
|
SndDoCmd(0, &sndCmd, true/*noWait*/);\
|
|
lastFreq=0; \
|
|
} \
|
|
} \
|
|
} while(0)
|
|
#endif
|
|
|
|
#define Apple2PutKey(key) \
|
|
do { \
|
|
UInt8 keyCode; \
|
|
if (kbdCount < KBD_BUF_SIZE) { \
|
|
if (keyCtrlMod && TxtCharIsAlpha(key)) { \
|
|
keyCode = 0x80 | (TxtCharIsLower(key) ? ((key) - 'a' + 1) : ((key) - 'A' + 1));\
|
|
if (keyCode == 0x83) kbdCount = 0; \
|
|
} else if (prefs.capsLock && TxtCharIsAlpha(key) && TxtCharIsLower(key)) {\
|
|
keyCode = 0x80 | (key) - 'a' + 'A'; \
|
|
} else { \
|
|
keyCode = 0x80 | (key); \
|
|
} \
|
|
if (kbdCount++) \
|
|
kbdBuffer[(kbdHead + kbdCount - 1) \
|
|
& KBD_BUF_MASK] = keyCode; \
|
|
else \
|
|
kbdIOU = keyCode; \
|
|
} \
|
|
keyCtrlMod = false; \
|
|
} while (0)
|
|
#define Apple2PutKeyNonAlpha(key) \
|
|
do { \
|
|
UInt8 keyCode; \
|
|
if (kbdCount < KBD_BUF_SIZE) { \
|
|
keyCode = 0x80 | (key); \
|
|
if (kbdCount++) \
|
|
kbdBuffer[(kbdHead + kbdCount - 1) \
|
|
& KBD_BUF_MASK] = keyCode; \
|
|
else \
|
|
kbdIOU = keyCode; \
|
|
} \
|
|
keyCtrlMod = false; \
|
|
} while (0)
|
|
|
|
#define Apple2GetKey() (kbdIOU = ((kbdCount) ? kbdBuffer[(kbdHead + --kbdCount) & KBD_BUF_MASK] : kbdIOU & 0x7F))
|
|
extern UInt32 AppleInstrCount;
|
|
extern UInt32 AppleInstrInc;
|
|
/*
|
|
* Preferences.
|
|
*/
|
|
#define PREFS_VERSION 0x00000013L
|
|
struct _prefs_t
|
|
{
|
|
UInt32 version;
|
|
UInt32 state6502_ACC;
|
|
UInt32 state6502_X;
|
|
UInt32 state6502_Y;
|
|
UInt32 state6502_SP_CC;
|
|
UInt32 state6502_PC;
|
|
UInt8 status6502;
|
|
UInt16 memIOU;
|
|
UInt16 vidIOU;
|
|
Char currentDsk[2][32];
|
|
Char writeEnable[2];
|
|
UInt16 currentTrack[2];
|
|
UInt16 currentPos[2];
|
|
UInt8 currentDrive;
|
|
Boolean currentMotor;
|
|
Boolean ignoreBadOps;
|
|
Boolean muteSound;
|
|
Boolean enable80Col;
|
|
Boolean capsLock;
|
|
UInt8 refreshRate;
|
|
UInt32 keyHardMask;
|
|
UInt16 keyHard1;
|
|
UInt16 keyHard2;
|
|
UInt16 keyHard3;
|
|
UInt16 keyHard4;
|
|
UInt8 centerJoystickHorizPos;
|
|
UInt8 centerJoystickVertPos;
|
|
UInt8 centerJoystickRate;
|
|
UInt8 moveJoystickRate;
|
|
};
|
|
extern struct _prefs_t prefs;
|
|
|