frodo-wii/Src/Display_Acorn.i

430 lines
13 KiB
OpenEdge ABL
Raw Normal View History

2008-12-31 17:16:24 +01:00
/*
* Display_Acorn.i
*
* Handles redraws and suchlike as well as the keyboard
* Frodo (C) 1994-1997 by Christian Bauer
* Acorn port by Andreas Dehmel, 1997
*
*/
#include "C64.h"
#include "ROlib.h"
#include "AcornGUI.h"
#include "SAM.h"
#include "VIC.h"
// (from Display_x.i)
/*
C64 keyboard matrix:
Bit 7 6 5 4 3 2 1 0
0 CUD F5 F3 F1 F7 CLR RET DEL
1 SHL E S Z 4 A W 3
2 X T F C 6 D R 5
3 V U H B 8 G Y 7
4 N O K M 0 J I 9
5 , @ : . - L P +
6 / ^ = SHR HOM ; * <EFBFBD>
7 R/S Q C= SPC 2 CTL <- 1
*/
#define IntKey_MinCode 3 // Scan from ShiftLeft (leave out Shift, Ctrl, Alt)
#define IntKey_MaxCode 124
#define IntKey_Copy 105
// Maps internal keyboard numbers (Acorn) to C64 keyboard-matrix.
// Format: top nibble - row#, bottom nibble - column (bit#).
// Entry == 0xff <==> don't map
char KeysAcornToCBM[] = {
0x17, 0x72, 0x75, 0x17, // 0 - 3: SHL, CTRL, ALT(C=), SHL
0x72, 0x75, 0x64, 0x72, // 4 - 7: CTRL, ALT, SHR, CTRL
0x75, 0xff, 0xff, 0xff, // 8 - 11: ALT, MouseSlct, MouseMen, MouseAdj
0xff, 0xff, 0xff, 0xff, // 12 - 15: dummies
0x76, 0x10, 0x13, 0x20, // 16 - 19: q, 3,4,5
0x03, 0x33, 0xff, 0x53, // 20 - 23: F4(F7), 8, F7, -
0x23, 0x02, 0xff, 0xff, // 24 - 27: 6, crsrL, num6, num7
0xff, 0xff, 0xff, 0xff, // 28 - 31: F11, F12, F10, ScrLock
0xff, 0x11, 0x16, 0x26, // 32 - 35: Print, w, e, t
0x30, 0x41, 0x40, 0x43, // 36 - 39: 7, i, 9, 0
0x53, 0x07, 0xff, 0xff, // 40 - 43: -, crsrD, num8, num9
0x77, 0x71, 0x60, 0x00, // 44 - 47: break, `, <20>, DEL
0x70, 0x73, 0x22, 0x21, // 48 - 51: 1, 2, d, r
0x23, 0x36, 0x46, 0x51, // 52 - 55: 6, u, o, p
0x56, 0x07, 0x50, 0x53, // 56 - 59: [(@), crsrU, num+(+), num-(-)
0xff, 0x00, 0x63, 0xff, // 60 - 63: numENTER, insert, home, pgUp
0x17, 0x12, 0x27, 0x25, // 64 - 67: capsLCK, a, x, f
0x31, 0x42, 0x45, 0x73, // 68 - 71: y, j, k, 2
0x55, 0x01, 0xff, 0xff, // 72 - 75: ;(:), RET, num/, dummy
0xff, 0xff, 0xff, 0x62, // 76 - 79: num., numLCK, pgDown, '(;)
0xff, 0x15, 0x24, 0x32, // 80 - 83: dummy, s, c, g
0x35, 0x47, 0x52, 0x55, // 84 - 87: h, n, l, ;(:)
0x61, 0x00, 0xff, 0xff, // 88 - 91: ](*), Delete, num#, num*
0xff, 0x65, 0xff, 0xff, // 92 - 95: dummy, =, dummies
0x72, 0x14, 0x74, 0x37, // 96 - 99: TAB(CTRL), z, SPACE, v
0x34, 0x44, 0x57, 0x54, // 100-103: b, m, ',', .
0x67, 0xff, 0xff, 0xff, // 104-107: /, Copy, num0, num1
0xff, 0xff, 0xff, 0xff, // 108-111: num3, dummies
0x77, 0x04, 0x05, 0x06, // 112-115: ESC, F1(F1), F2(F3), F3(F5)
0xff, 0xff, 0xff, 0xff, // 116-119: F5, F6, F8, F9
0x66, 0x02, 0xff, 0xff, // 120-123: \(^), crsrR, num4, num5
0xff, 0xff, 0xff, 0xff // 124-127: num2, dummies
};
// Special keycodes that have to be processed seperately:
#define IntKey_CrsrL 25
#define IntKey_CrsrR 121
#define IntKey_CrsrU 57
#define IntKey_CrsrD 41
#define IntKey_Insert 61
#define IntKey_NumLock 77
#define IntKey_F5 116
#define IntKey_F6 117
#define IntKey_F7 22
#define IntKey_F8 118
#define IntKey_PageUp 63
#define IntKey_PageDown 78
#define IntKey_NumSlash 74
#define IntKey_NumStar 91
#define IntKey_NumCross 90
#define KeyJoy1_Up 108 // num3
#define KeyJoy1_Down 76 // num.
#define KeyJoy1_Left 107 // num1
#define KeyJoy1_Right 124 // num2
#define KeyJoy1_Fire 60 // numReturn
#define KeyJoy2_Up 67 // "f"
#define KeyJoy2_Down 82 // "c"
#define KeyJoy2_Left 97 // "z"
#define KeyJoy2_Right 66 // "x"
#define KeyJoy2_Fire 83 // "g"
C64Display::C64Display(C64 *the_c64) : TheC64(the_c64)
{
int i;
bitmap = new uint8[DISPLAY_X * DISPLAY_Y];
screen = new ROScreen();
ModeChange();
for (i=0; i<8; i++) {lastkeys[i] = 0;}
// First joystick: mapped to port 2 if numLOCK is on, else port 2
JoystickKeys[0].up = KeyJoy1_Up; JoystickKeys[0].down = KeyJoy1_Down;
JoystickKeys[0].left = KeyJoy1_Left; JoystickKeys[0].right = KeyJoy1_Right;
JoystickKeys[0].fire = KeyJoy1_Fire;
// Second joystick: only active if numLOCK is off! Mapped to port 2 then.
JoystickKeys[1].up = KeyJoy2_Up; JoystickKeys[1].down = KeyJoy2_Down;
JoystickKeys[1].left = KeyJoy2_Left; JoystickKeys[1].right = KeyJoy2_Right;
JoystickKeys[1].fire = KeyJoy2_Fire;
}
C64Display::~C64Display(void)
{
delete bitmap; delete screen;
}
void C64Display::ModeChange(void)
{
register int i;
screen->ReadMode();
// find best matching colours in current mode.
switch (screen->ldbpp)
{
case 0:
case 1:
case 2:
case 3: for (i=0; i<16; i++) // for 1,2,4 and 8bpp
{
mode_cols[i] = ModeColourNumber((palette_blue[i] << 24) + (palette_green[i] << 16) + (palette_red[i] << 8));
}
break;
case 4: for (i=0; i<16; i++) // for 16bpp
{
int r,g,b;
r = (palette_red[i] + 4) & 0x1f8; if (r > 0xff) {r = 0xf8;}
g = (palette_green[i] + 4) & 0x1f8; if (g > 0xff) {g = 0xf8;}
b = (palette_blue[i] + 4) & 0x1f8; if (b > 0xff) {b = 0xf8;}
mode_cols[i] = (r >> 3) | (g << 2) | (b << 7);
}
break;
case 5: for (i=0; i<16; i++) // for 32bpp
{
mode_cols[i] = palette_red[i] | (palette_green[i] << 8) | (palette_blue[i] << 16);
}
break;
}
}
uint8 *C64Display::BitmapBase(void)
{
return bitmap;
}
void C64Display::InitColors(uint8 *colors)
{
register int i;
// write index mapping C64colours -> ROcolours
if (screen->ldbpp <= 3) // at most 8bpp ==> use actual colour
{
for (i=0; i<256; i++) {colors[i] = mode_cols[i&15];}
}
else // else use index (takes time but can't be changed...
{
for (i=0; i<256; i++) {colors[i] = i&15;}
}
}
int C64Display::BitmapXMod(void)
{
return DISPLAY_X;
}
// This routine reads the raw keyboard data from the host machine. Not entirely
// conformant with Acorn's rules but the only way to detect multiple simultaneous
// keypresses.
void C64Display::PollKeyboard(uint8 *key_matrix, uint8 *rev_matrix, uint8 *joystick, uint8 *joystick2)
{
register int scan_from=IntKey_MinCode, code, row, col;
int status;
uint8 kjoy, kjoy2;
uint32 newkeys[8];
UBYTE kjoy, kjoy2;
// Clear keyboard
for (code=0; code<8; code++) {key_matrix[code] = 0xff; rev_matrix[code] = 0xff; newkeys[code] = 0;}
kjoy = kjoy2 = 0xff;
status = ReadKeyboardStatus();
if ((status & 16) == 0) {key_matrix[1] &= 0x7f; rev_matrix[7] &= 0xfd;} // Caps lock
while (scan_from <= IntKey_MaxCode)
{
if ((code = ScanKeys(scan_from)) != 0xff)
{
newkeys[code >> 5] |= (1 << (code & 0x1f)); // update keys pressed
row = KeysAcornToCBM[code];
if ((status & 4) != 0) // numLOCK off? ==> check for 2nd keyboard joystick too
{
if (code == JoystickKeys[1].up) {kjoy2 &= 0xfe; row = 0xff;}
else if (code == JoystickKeys[1].down) {kjoy2 &= 0xfd; row = 0xff;}
else if (code == JoystickKeys[1].left) {kjoy2 &= 0xfb; row = 0xff;}
else if (code == JoystickKeys[1].right) {kjoy2 &= 0xf7; row = 0xff;}
else if (code == JoystickKeys[1].fire) {kjoy2 &= 0xef; row = 0xff;}
}
// check 1st keyboard joystick
if (code == JoystickKeys[0].up) {kjoy &= 0xfe; row = 0xff;}
else if (code == JoystickKeys[0].down) {kjoy &= 0xfd; row = 0xff;}
else if (code == JoystickKeys[0].left) {kjoy &= 0xfb; row = 0xff;}
else if (code == JoystickKeys[0].right) {kjoy &= 0xf7; row = 0xff;}
else if (code == JoystickKeys[0].fire) {kjoy &= 0xef; row = 0xff;}
// If key not mapped to joystick: try mapping to keyboard
if (row != 0xff)
{
col = row & 7; row >>= 4;
key_matrix[row] &= ~(1<<col); rev_matrix[col] &= ~(1<<row);
}
// None of the keys listed below should be used for
// joystick definitions since they're always used here.
switch(code)
{
// For either of these: additionally set SHIFT key.
case IntKey_CrsrL: // already mapped to CrsrL
case IntKey_CrsrU: // already mapped to CrsrD
case IntKey_Insert: // already mapped to DEL
key_matrix[6] &= (0xff - (1<<4)); rev_matrix[4] &= (0xff - (1<<6));
break;
case IntKey_F6:
if ((status & 2) == 0) // call SAM only in multitasking mode!
{
TheC64->Pause(); SAM(TheC64); TheC64->Resume();
}
break;
case IntKey_F7: TheC64->NMI(); break;
case IntKey_F8: TheC64->Reset(); break;
default: break;
}
// These shouldn't auto-repeat, therefore I check them seperately.
if ((lastkeys[code >> 5] & (1 << (code & 0x1f))) == 0)
{
// Icons should be updated, not force-redrawed (--> single tasking)
switch (code)
{
// decrease framerate
case IntKey_PageUp:
TheC64->TheWIMP->PrefsWindow->
WriteIconNumberU(Icon_Prefs_SkipFText,++ThePrefs.SkipFrames);
break;
// increase framerate
case IntKey_PageDown: if (ThePrefs.SkipFrames > 0)
{
TheC64->TheWIMP->PrefsWindow->
WriteIconNumberU(Icon_Prefs_SkipFText,--ThePrefs.SkipFrames);
}
break;
// toggle floppy emulation status
case IntKey_NumSlash:
{
register int eor, i;
Prefs *prefs = new Prefs(ThePrefs);
// If Emulation active then ungrey icons now, else grey them
prefs->Emul1541Proc = !prefs->Emul1541Proc;
TheC64->TheWIMP->SetLEDIcons(prefs->Emul1541Proc);
TheC64->NewPrefs(prefs);
ThePrefs = *prefs;
// Show change in prefs window too
TheC64->TheWIMP->PrefsWindow->
SetIconState(Icon_Prefs_Emul1541,(prefs->Emul1541Proc)?IFlg_Slct:0,IFlg_Slct);
delete prefs;
}
break;
// toggle speed limiter
case IntKey_NumStar:
ThePrefs.LimitSpeed = !ThePrefs.LimitSpeed;
TheC64->TheWIMP->SetSpeedLimiter(ThePrefs.LimitSpeed);
break;
// toggle sound emulation
case IntKey_F5:
{
Window *pw = TheC64->TheWIMP->PrefsWindow;
int i, j;
Prefs *prefs = new Prefs(ThePrefs);
if (prefs->SIDType == SIDTYPE_NONE) {prefs->SIDType = SIDTYPE_DIGITAL; i = 1;}
else {prefs->SIDType = SIDTYPE_NONE; i = 0;}
for (j=0; j<3; j++)
{
pw->SetIconState(SIDtoIcon[j], (j==i) ? IFlg_Slct : 0, IFlg_Slct);
}
TheC64->TheWIMP->SoundWindow->
SetIconState(Icon_Sound_Notes, (i==0) ? IFlg_Grey : 0, IFlg_Grey);
TheC64->NewPrefs(prefs);
ThePrefs = *prefs;
delete prefs;
}
break;
case IntKey_Copy: TheC64->Pause();
TheC64->TheWIMP->EmuPane->WriteIconTextU(Icon_Pane_Pause,PANE_TEXT_RESUME); break;
default: break;
}
}
}
scan_from = code+1;
}
for (code=0; code<8; code++) {lastkeys[code] = newkeys[code];}
*joystick = kjoy; *joystick2 = kjoy2;
}
bool C64Display::NumLock(void)
{
return(((ReadKeyboardStatus() & 4) == 0) ? true : false);
}
/*
* Prefs may have changed
*/
void C64Display::NewPrefs(Prefs *prefs)
{
}
void C64Display::Update(void)
{
int i, state;
int *ic;
// Do a redraw of the emulator window
TheC64->TheWIMP->UpdateEmuWindow();
// Update the LEDs if necessary
for (i=0; i<4; i++)
{
if ((state = led_state[i]) != old_led_state[i])
{
ic = (int*)TheC64->TheWIMP->EmuPane->GetIcon(LEDtoIcon[i]);
switch(state)
{
case LED_OFF:
case LED_ERROR_OFF:
sprintf((char*)ic[5],"led_off"); break;
case LED_ON:
sprintf((char*)ic[5],"led_on"); break;
case LED_ERROR_ON:
sprintf((char*)ic[5],"led_error"); break;
}
TheC64->TheWIMP->EmuPane->UpdateIcon(LEDtoIcon[i]); // update, not force-redraw!
old_led_state[i] = state;
}
}
}
unsigned int *C64Display::GetColourTable(void)
{
return (mode_cols);
}
// Check whether unpause-key (copy) is pressed
bool C64Display::CheckForUnpause(bool CheckLastState)
{
int scan_from = IntKey_MinCode, code;
uint32 newkeys[8];
uint32 lastpause;
for (code=0; code<8; code++) {newkeys[code] = 0;}
while (scan_from <= IntKey_MaxCode)
{
if ((code = ScanKeys(scan_from)) != 0xff)
{
newkeys[code >> 5] |= (1 << (code & 0x1f));
}
scan_from = code+1;
}
lastpause = lastkeys[IntKey_Copy >> 5] & (1 << (IntKey_Copy & 0x1f));
for (code=0; code<8; code++) {lastkeys[code] = newkeys[code];}
// unpause-key pressed?
if ((newkeys[IntKey_Copy >> 5] & (1 << (IntKey_Copy & 0x1f))) != 0)
{
if ((lastpause == 0) || !CheckLastState)
{
TheC64->Resume();
TheC64->TheWIMP->EmuPane->WriteIconTextU(Icon_Pane_Pause,PANE_TEXT_PAUSE);
return(true);
}
}
return(false);
}
// Requester dialogue box
long ShowRequester(char *str, char *button1, char *button2)
{
_kernel_oserror myerr;
myerr.errnum = 0x0; strcpy(myerr.errmess,str);
Wimp_ReportError(&myerr,1,TASKNAME); // always provide an OK box
return(1);
}