1 |
cebix |
1.1 |
/* |
2 |
|
|
* main_beos.cpp - Startup code for BeOS |
3 |
|
|
* |
4 |
cebix |
1.7 |
* Basilisk II (C) 1997-2001 Christian Bauer |
5 |
cebix |
1.1 |
* |
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 <AppKit.h> |
22 |
|
|
#include <InterfaceKit.h> |
23 |
|
|
#include <KernelKit.h> |
24 |
|
|
#include <StorageKit.h> |
25 |
|
|
|
26 |
|
|
#include <unistd.h> |
27 |
|
|
#include <fcntl.h> |
28 |
|
|
#include <signal.h> |
29 |
|
|
#include <stdio.h> |
30 |
|
|
#include <stdlib.h> |
31 |
|
|
#include <time.h> |
32 |
|
|
|
33 |
|
|
#include "sysdeps.h" |
34 |
|
|
#include "cpu_emulation.h" |
35 |
|
|
#include "xpram.h" |
36 |
|
|
#include "timer.h" |
37 |
|
|
#include "video.h" |
38 |
|
|
#include "rom_patches.h" |
39 |
|
|
#include "prefs.h" |
40 |
|
|
#include "prefs_editor.h" |
41 |
|
|
#include "sys.h" |
42 |
|
|
#include "user_strings.h" |
43 |
|
|
#include "version.h" |
44 |
|
|
#include "main.h" |
45 |
|
|
|
46 |
|
|
#include "sheep_driver.h" |
47 |
|
|
|
48 |
|
|
#define DEBUG 0 |
49 |
|
|
#include "debug.h" |
50 |
|
|
|
51 |
|
|
|
52 |
|
|
// Constants |
53 |
|
|
const char APP_SIGNATURE[] = "application/x-vnd.cebix-BasiliskII"; |
54 |
|
|
const char ROM_FILE_NAME[] = "ROM"; |
55 |
|
|
const char RAM_AREA_NAME[] = "Macintosh RAM"; |
56 |
|
|
const char ROM_AREA_NAME[] = "Macintosh ROM"; |
57 |
|
|
const uint32 MSG_START = 'strt'; // Emulator start message |
58 |
|
|
const uint32 ROM_AREA_SIZE = 0x500000; // Enough to hold PowerMac ROM (for powerrom_cpu) |
59 |
|
|
|
60 |
|
|
// Prototypes |
61 |
|
|
#if __POWERPC__ |
62 |
|
|
static void sigsegv_handler(vregs *r); |
63 |
|
|
#endif |
64 |
|
|
|
65 |
|
|
|
66 |
|
|
// Application object |
67 |
|
|
class BasiliskII : public BApplication { |
68 |
|
|
public: |
69 |
|
|
BasiliskII() : BApplication(APP_SIGNATURE) |
70 |
|
|
{ |
71 |
|
|
// Find application directory and cwd to it |
72 |
|
|
app_info the_info; |
73 |
|
|
GetAppInfo(&the_info); |
74 |
|
|
BEntry the_file(&the_info.ref); |
75 |
|
|
BEntry the_dir; |
76 |
|
|
the_file.GetParent(&the_dir); |
77 |
|
|
BPath the_path; |
78 |
|
|
the_dir.GetPath(&the_path); |
79 |
|
|
chdir(the_path.Path()); |
80 |
|
|
|
81 |
|
|
// Initialize other variables |
82 |
|
|
rom_area = ram_area = -1; |
83 |
|
|
xpram_thread = tick_thread = -1; |
84 |
|
|
xpram_thread_active = true; |
85 |
|
|
tick_thread_active = true; |
86 |
|
|
AllowQuitting = true; |
87 |
|
|
} |
88 |
|
|
virtual void ReadyToRun(void); |
89 |
|
|
virtual void MessageReceived(BMessage *msg); |
90 |
|
|
void StartEmulator(void); |
91 |
|
|
virtual bool QuitRequested(void); |
92 |
|
|
virtual void Quit(void); |
93 |
|
|
|
94 |
|
|
thread_id xpram_thread; // XPRAM watchdog |
95 |
|
|
thread_id tick_thread; // 60Hz thread |
96 |
|
|
|
97 |
|
|
volatile bool xpram_thread_active; // Flag for quitting the XPRAM thread |
98 |
|
|
volatile bool tick_thread_active; // Flag for quitting the 60Hz thread |
99 |
|
|
|
100 |
|
|
bool AllowQuitting; // Flag: Alt-Q quitting allowed |
101 |
|
|
|
102 |
|
|
private: |
103 |
|
|
static status_t emul_func(void *arg); |
104 |
|
|
static status_t tick_func(void *arg); |
105 |
|
|
static status_t xpram_func(void *arg); |
106 |
|
|
static void sigsegv_invoc(int sig, void *arg, vregs *r); |
107 |
|
|
|
108 |
|
|
void init_rom(void); |
109 |
|
|
void load_rom(void); |
110 |
|
|
|
111 |
|
|
area_id rom_area; // ROM area ID |
112 |
|
|
area_id ram_area; // RAM area ID |
113 |
|
|
|
114 |
|
|
struct sigaction sigsegv_action; // Data access exception signal (of emulator thread) |
115 |
|
|
|
116 |
|
|
// Exceptions |
117 |
|
|
class area_error {}; |
118 |
|
|
class file_open_error {}; |
119 |
|
|
class file_read_error {}; |
120 |
|
|
class rom_size_error {}; |
121 |
|
|
}; |
122 |
|
|
|
123 |
|
|
static BasiliskII *the_app; |
124 |
|
|
|
125 |
|
|
|
126 |
|
|
// CPU and FPU type, addressing mode |
127 |
|
|
int CPUType; |
128 |
|
|
bool CPUIs68060; |
129 |
|
|
int FPUType; |
130 |
|
|
bool TwentyFourBitAddressing; |
131 |
|
|
|
132 |
|
|
|
133 |
|
|
// Global variables for PowerROM CPU |
134 |
|
|
thread_id emul_thread = -1; // Emulator thread |
135 |
|
|
|
136 |
|
|
#if __POWERPC__ |
137 |
|
|
int sheep_fd = -1; // fd of sheep driver |
138 |
|
|
#endif |
139 |
|
|
|
140 |
|
|
|
141 |
|
|
/* |
142 |
|
|
* Create application object and start it |
143 |
|
|
*/ |
144 |
|
|
|
145 |
|
|
int main(int argc, char **argv) |
146 |
|
|
{ |
147 |
|
|
the_app = new BasiliskII(); |
148 |
|
|
the_app->Run(); |
149 |
|
|
delete the_app; |
150 |
|
|
return 0; |
151 |
|
|
} |
152 |
|
|
|
153 |
|
|
|
154 |
|
|
/* |
155 |
|
|
* Run application |
156 |
|
|
*/ |
157 |
|
|
|
158 |
|
|
void BasiliskII::ReadyToRun(void) |
159 |
|
|
{ |
160 |
|
|
// Initialize variables |
161 |
|
|
RAMBaseHost = NULL; |
162 |
|
|
ROMBaseHost = NULL; |
163 |
|
|
srand(real_time_clock()); |
164 |
|
|
tzset(); |
165 |
|
|
|
166 |
|
|
// Print some info |
167 |
|
|
printf(GetString(STR_ABOUT_TEXT1), VERSION_MAJOR, VERSION_MINOR); |
168 |
|
|
printf(" %s\n", GetString(STR_ABOUT_TEXT2)); |
169 |
|
|
|
170 |
|
|
// Delete old areas |
171 |
|
|
area_id old_ram_area = find_area(RAM_AREA_NAME); |
172 |
|
|
if (old_ram_area > 0) |
173 |
|
|
delete_area(old_ram_area); |
174 |
|
|
area_id old_rom_area = find_area(ROM_AREA_NAME); |
175 |
|
|
if (old_rom_area > 0) |
176 |
|
|
delete_area(old_rom_area); |
177 |
|
|
|
178 |
|
|
// Read preferences |
179 |
cebix |
1.8 |
int argc = 0; |
180 |
|
|
char **argv = NULL; |
181 |
|
|
PrefsInit(argc, argv); |
182 |
cebix |
1.1 |
|
183 |
|
|
// Init system routines |
184 |
|
|
SysInit(); |
185 |
|
|
|
186 |
|
|
// Show preferences editor (or start emulator directly) |
187 |
|
|
if (!PrefsFindBool("nogui")) |
188 |
|
|
PrefsEditor(); |
189 |
|
|
else |
190 |
|
|
PostMessage(MSG_START); |
191 |
|
|
} |
192 |
|
|
|
193 |
|
|
|
194 |
|
|
/* |
195 |
|
|
* Message received |
196 |
|
|
*/ |
197 |
|
|
|
198 |
|
|
void BasiliskII::MessageReceived(BMessage *msg) |
199 |
|
|
{ |
200 |
|
|
switch (msg->what) { |
201 |
|
|
case MSG_START: |
202 |
|
|
StartEmulator(); |
203 |
|
|
break; |
204 |
|
|
default: |
205 |
|
|
BApplication::MessageReceived(msg); |
206 |
|
|
} |
207 |
|
|
} |
208 |
|
|
|
209 |
|
|
|
210 |
|
|
/* |
211 |
|
|
* Start emulator |
212 |
|
|
*/ |
213 |
|
|
|
214 |
|
|
void BasiliskII::StartEmulator(void) |
215 |
|
|
{ |
216 |
|
|
char str[256]; |
217 |
|
|
|
218 |
|
|
#if REAL_ADDRESSING |
219 |
cebix |
1.5 |
// Open sheep driver and remap low memory |
220 |
cebix |
1.1 |
sheep_fd = open("/dev/sheep", 0); |
221 |
|
|
if (sheep_fd < 0) { |
222 |
|
|
sprintf(str, GetString(STR_NO_SHEEP_DRIVER_ERR), strerror(sheep_fd), sheep_fd); |
223 |
|
|
ErrorAlert(str); |
224 |
|
|
PostMessage(B_QUIT_REQUESTED); |
225 |
|
|
return; |
226 |
|
|
} |
227 |
|
|
status_t res = ioctl(sheep_fd, SHEEP_UP); |
228 |
|
|
if (res < 0) { |
229 |
|
|
sprintf(str, GetString(STR_SHEEP_UP_ERR), strerror(res), res); |
230 |
|
|
ErrorAlert(str); |
231 |
|
|
PostMessage(B_QUIT_REQUESTED); |
232 |
|
|
return; |
233 |
|
|
} |
234 |
|
|
#endif |
235 |
|
|
|
236 |
|
|
// Create area for Mac RAM |
237 |
|
|
RAMSize = PrefsFindInt32("ramsize") & 0xfff00000; // Round down to 1MB boundary |
238 |
|
|
if (RAMSize < 1024*1024) { |
239 |
|
|
WarningAlert(GetString(STR_SMALL_RAM_WARN)); |
240 |
|
|
RAMSize = 1024*1024; |
241 |
|
|
} |
242 |
|
|
|
243 |
|
|
RAMBaseHost = (uint8 *)0x10000000; |
244 |
|
|
ram_area = create_area(RAM_AREA_NAME, (void **)&RAMBaseHost, B_BASE_ADDRESS, RAMSize, B_NO_LOCK, B_READ_AREA | B_WRITE_AREA); |
245 |
|
|
if (ram_area < 0) { |
246 |
|
|
ErrorAlert(GetString(STR_NO_RAM_AREA_ERR)); |
247 |
|
|
PostMessage(B_QUIT_REQUESTED); |
248 |
|
|
return; |
249 |
|
|
} |
250 |
|
|
D(bug("RAM area %ld at %p\n", ram_area, RAMBaseHost)); |
251 |
|
|
|
252 |
|
|
// Create area and load Mac ROM |
253 |
|
|
try { |
254 |
|
|
init_rom(); |
255 |
|
|
} catch (area_error) { |
256 |
|
|
ErrorAlert(GetString(STR_NO_ROM_AREA_ERR)); |
257 |
|
|
PostMessage(B_QUIT_REQUESTED); |
258 |
|
|
return; |
259 |
|
|
} catch (file_open_error) { |
260 |
|
|
ErrorAlert(GetString(STR_NO_ROM_FILE_ERR)); |
261 |
|
|
PostMessage(B_QUIT_REQUESTED); |
262 |
|
|
return; |
263 |
|
|
} catch (file_read_error) { |
264 |
|
|
ErrorAlert(GetString(STR_ROM_FILE_READ_ERR)); |
265 |
|
|
PostMessage(B_QUIT_REQUESTED); |
266 |
|
|
return; |
267 |
|
|
} catch (rom_size_error) { |
268 |
|
|
ErrorAlert(GetString(STR_ROM_SIZE_ERR)); |
269 |
|
|
PostMessage(B_QUIT_REQUESTED); |
270 |
|
|
return; |
271 |
|
|
} |
272 |
|
|
|
273 |
cebix |
1.2 |
// Initialize everything |
274 |
|
|
if (!InitAll()) { |
275 |
cebix |
1.1 |
PostMessage(B_QUIT_REQUESTED); |
276 |
|
|
return; |
277 |
|
|
} |
278 |
|
|
|
279 |
cebix |
1.2 |
// Write protect ROM |
280 |
|
|
set_area_protection(rom_area, B_READ_AREA); |
281 |
cebix |
1.1 |
|
282 |
cebix |
1.2 |
// Disallow quitting with Alt-Q from now on |
283 |
|
|
AllowQuitting = false; |
284 |
cebix |
1.1 |
|
285 |
|
|
// Start XPRAM watchdog thread |
286 |
|
|
xpram_thread = spawn_thread(xpram_func, "XPRAM Watchdog", B_LOW_PRIORITY, this); |
287 |
|
|
resume_thread(xpram_thread); |
288 |
|
|
|
289 |
|
|
// Start 60Hz interrupt |
290 |
|
|
tick_thread = spawn_thread(tick_func, "60Hz", B_REAL_TIME_PRIORITY, this); |
291 |
|
|
resume_thread(tick_thread); |
292 |
|
|
|
293 |
|
|
// Start emulator thread |
294 |
|
|
emul_thread = spawn_thread(emul_func, "MacOS", B_NORMAL_PRIORITY, this); |
295 |
|
|
resume_thread(emul_thread); |
296 |
|
|
} |
297 |
|
|
|
298 |
|
|
|
299 |
|
|
/* |
300 |
|
|
* Quit emulator |
301 |
|
|
*/ |
302 |
|
|
|
303 |
|
|
void QuitEmulator(void) |
304 |
|
|
{ |
305 |
|
|
the_app->AllowQuitting = true; |
306 |
|
|
be_app->PostMessage(B_QUIT_REQUESTED); |
307 |
|
|
exit_thread(0); |
308 |
|
|
} |
309 |
|
|
|
310 |
|
|
bool BasiliskII::QuitRequested(void) |
311 |
|
|
{ |
312 |
|
|
if (AllowQuitting) |
313 |
|
|
return BApplication::QuitRequested(); |
314 |
|
|
else |
315 |
|
|
return false; |
316 |
|
|
} |
317 |
|
|
|
318 |
|
|
void BasiliskII::Quit(void) |
319 |
|
|
{ |
320 |
|
|
status_t l; |
321 |
|
|
|
322 |
|
|
// Stop 60Hz interrupt |
323 |
|
|
if (tick_thread > 0) { |
324 |
|
|
tick_thread_active = false; |
325 |
|
|
wait_for_thread(tick_thread, &l); |
326 |
|
|
} |
327 |
|
|
|
328 |
|
|
// Wait for emulator thread to finish |
329 |
|
|
if (emul_thread > 0) |
330 |
|
|
wait_for_thread(emul_thread, &l); |
331 |
|
|
|
332 |
|
|
// Exit 680x0 emulation |
333 |
|
|
Exit680x0(); |
334 |
|
|
|
335 |
|
|
// Stop XPRAM watchdog thread |
336 |
|
|
if (xpram_thread > 0) { |
337 |
|
|
xpram_thread_active = false; |
338 |
|
|
suspend_thread(xpram_thread); // Wake thread up from snooze() |
339 |
|
|
snooze(1000); |
340 |
|
|
resume_thread(xpram_thread); |
341 |
|
|
wait_for_thread(xpram_thread, &l); |
342 |
|
|
} |
343 |
|
|
|
344 |
cebix |
1.2 |
// Deinitialize everything |
345 |
|
|
ExitAll(); |
346 |
cebix |
1.1 |
|
347 |
|
|
// Delete ROM area |
348 |
|
|
if (rom_area >= 0) |
349 |
|
|
delete_area(rom_area); |
350 |
|
|
|
351 |
|
|
// Delete RAM area |
352 |
|
|
if (ram_area >= 0) |
353 |
|
|
delete_area(ram_area); |
354 |
|
|
|
355 |
|
|
#if REAL_ADDRESSING |
356 |
|
|
// Unmap low memory and close memory mess driver |
357 |
|
|
if (sheep_fd >= 0) { |
358 |
|
|
ioctl(sheep_fd, SHEEP_DOWN); |
359 |
|
|
close(sheep_fd); |
360 |
|
|
} |
361 |
|
|
#endif |
362 |
|
|
|
363 |
|
|
// Exit system routines |
364 |
|
|
SysExit(); |
365 |
|
|
|
366 |
|
|
// Exit preferences |
367 |
|
|
PrefsExit(); |
368 |
|
|
|
369 |
|
|
BApplication::Quit(); |
370 |
|
|
} |
371 |
|
|
|
372 |
|
|
|
373 |
|
|
/* |
374 |
|
|
* Create area for ROM (sets rom_area) and load ROM file |
375 |
|
|
* |
376 |
|
|
* area_error : Cannot create area |
377 |
|
|
* file_open_error: Cannot open ROM file |
378 |
|
|
* file_read_error: Cannot read ROM file |
379 |
|
|
*/ |
380 |
|
|
|
381 |
|
|
void BasiliskII::init_rom(void) |
382 |
|
|
{ |
383 |
|
|
// Create area for ROM |
384 |
|
|
ROMBaseHost = (uint8 *)0x40800000; |
385 |
|
|
rom_area = create_area(ROM_AREA_NAME, (void **)&ROMBaseHost, B_BASE_ADDRESS, ROM_AREA_SIZE, B_NO_LOCK, B_READ_AREA | B_WRITE_AREA); |
386 |
|
|
if (rom_area < 0) |
387 |
|
|
throw area_error(); |
388 |
|
|
D(bug("ROM area %ld at %p\n", rom_area, ROMBaseHost)); |
389 |
|
|
|
390 |
|
|
// Load ROM |
391 |
|
|
load_rom(); |
392 |
|
|
} |
393 |
|
|
|
394 |
|
|
|
395 |
|
|
/* |
396 |
|
|
* Load ROM file |
397 |
|
|
* |
398 |
|
|
* file_open_error: Cannot open ROM file |
399 |
|
|
* file_read_error: Cannot read ROM file |
400 |
|
|
*/ |
401 |
|
|
|
402 |
|
|
void BasiliskII::load_rom(void) |
403 |
|
|
{ |
404 |
|
|
// Get rom file path from preferences |
405 |
|
|
const char *rom_path = PrefsFindString("rom"); |
406 |
|
|
|
407 |
|
|
// Try to open ROM file |
408 |
|
|
BFile file(rom_path ? rom_path : ROM_FILE_NAME, B_READ_ONLY); |
409 |
|
|
if (file.InitCheck() != B_NO_ERROR) |
410 |
|
|
throw file_open_error(); |
411 |
|
|
|
412 |
|
|
printf(GetString(STR_READING_ROM_FILE)); |
413 |
|
|
|
414 |
|
|
// Is the ROM size correct? |
415 |
|
|
off_t rom_size = 0; |
416 |
|
|
file.GetSize(&rom_size); |
417 |
|
|
if (rom_size != 64*1024 && rom_size != 128*1024 && rom_size != 256*1024 && rom_size != 512*1024 && rom_size != 1024*1024) |
418 |
|
|
throw rom_size_error(); |
419 |
|
|
|
420 |
|
|
uint8 *rom = new uint8[rom_size]; // Reading directly into the area doesn't work |
421 |
|
|
ssize_t actual = file.Read((void *)rom, rom_size); |
422 |
|
|
if (actual == rom_size) |
423 |
|
|
memcpy(ROMBaseHost, rom, rom_size); |
424 |
|
|
delete[] rom; |
425 |
|
|
if (actual != rom_size) |
426 |
|
|
throw file_read_error(); |
427 |
|
|
ROMSize = rom_size; |
428 |
|
|
} |
429 |
|
|
|
430 |
|
|
|
431 |
|
|
/* |
432 |
|
|
* Emulator thread function |
433 |
|
|
*/ |
434 |
|
|
|
435 |
|
|
status_t BasiliskII::emul_func(void *arg) |
436 |
|
|
{ |
437 |
|
|
BasiliskII *obj = (BasiliskII *)arg; |
438 |
|
|
|
439 |
|
|
#if __POWERPC__ |
440 |
|
|
// Install data access signal handler |
441 |
|
|
sigemptyset(&obj->sigsegv_action.sa_mask); |
442 |
|
|
obj->sigsegv_action.sa_handler = (__signal_func_ptr)(obj->sigsegv_invoc); |
443 |
|
|
obj->sigsegv_action.sa_flags = 0; |
444 |
|
|
obj->sigsegv_action.sa_userdata = arg; |
445 |
|
|
sigaction(SIGSEGV, &obj->sigsegv_action, NULL); |
446 |
|
|
#endif |
447 |
|
|
|
448 |
|
|
// Exceptions will send signals |
449 |
|
|
disable_debugger(true); |
450 |
|
|
|
451 |
|
|
// Start 68k and jump to ROM boot routine |
452 |
|
|
Start680x0(); |
453 |
|
|
|
454 |
|
|
// Quit program |
455 |
|
|
obj->AllowQuitting = true; |
456 |
|
|
be_app->PostMessage(B_QUIT_REQUESTED); |
457 |
|
|
return 0; |
458 |
|
|
} |
459 |
|
|
|
460 |
|
|
|
461 |
|
|
/* |
462 |
|
|
* Code was patched, flush caches if neccessary (i.e. when using a real 680x0 |
463 |
|
|
* or a dynamically recompiling emulator) |
464 |
|
|
*/ |
465 |
|
|
|
466 |
|
|
void FlushCodeCache(void *start, uint32 size) |
467 |
|
|
{ |
468 |
|
|
} |
469 |
|
|
|
470 |
|
|
|
471 |
|
|
/* |
472 |
|
|
* Interrupt flags (must be handled atomically!) |
473 |
|
|
*/ |
474 |
|
|
|
475 |
|
|
uint32 InterruptFlags = 0; |
476 |
|
|
|
477 |
|
|
void SetInterruptFlag(uint32 flag) |
478 |
|
|
{ |
479 |
|
|
atomic_or((int32 *)&InterruptFlags, flag); |
480 |
|
|
} |
481 |
|
|
|
482 |
|
|
void ClearInterruptFlag(uint32 flag) |
483 |
|
|
{ |
484 |
|
|
atomic_and((int32 *)&InterruptFlags, ~flag); |
485 |
|
|
} |
486 |
|
|
|
487 |
|
|
|
488 |
|
|
/* |
489 |
|
|
* 60Hz thread (really 60.15Hz) |
490 |
|
|
*/ |
491 |
|
|
|
492 |
|
|
status_t BasiliskII::tick_func(void *arg) |
493 |
|
|
{ |
494 |
|
|
BasiliskII *obj = (BasiliskII *)arg; |
495 |
|
|
int tick_counter = 0; |
496 |
|
|
bigtime_t current = system_time(); |
497 |
|
|
|
498 |
|
|
while (obj->tick_thread_active) { |
499 |
|
|
|
500 |
|
|
// Wait |
501 |
|
|
current += 16625; |
502 |
|
|
snooze_until(current, B_SYSTEM_TIMEBASE); |
503 |
|
|
|
504 |
|
|
// Pseudo Mac 1Hz interrupt, update local time |
505 |
|
|
if (++tick_counter > 60) { |
506 |
|
|
tick_counter = 0; |
507 |
|
|
WriteMacInt32(0x20c, TimerDateTime()); |
508 |
cebix |
1.4 |
SetInterruptFlag(INTFLAG_1HZ); |
509 |
|
|
TriggerInterrupt(); |
510 |
cebix |
1.1 |
} |
511 |
|
|
|
512 |
|
|
// Trigger 60Hz interrupt |
513 |
|
|
SetInterruptFlag(INTFLAG_60HZ); |
514 |
|
|
TriggerInterrupt(); |
515 |
|
|
} |
516 |
|
|
return 0; |
517 |
|
|
} |
518 |
|
|
|
519 |
|
|
|
520 |
|
|
/* |
521 |
|
|
* XPRAM watchdog thread (saves XPRAM every minute) |
522 |
|
|
*/ |
523 |
|
|
|
524 |
|
|
status_t BasiliskII::xpram_func(void *arg) |
525 |
|
|
{ |
526 |
|
|
uint8 last_xpram[256]; |
527 |
|
|
memcpy(last_xpram, XPRAM, 256); |
528 |
|
|
|
529 |
|
|
while (((BasiliskII *)arg)->xpram_thread_active) { |
530 |
|
|
snooze(60*1000000); |
531 |
|
|
if (memcmp(last_xpram, XPRAM, 256)) { |
532 |
|
|
memcpy(last_xpram, XPRAM, 256); |
533 |
|
|
SaveXPRAM(); |
534 |
|
|
} |
535 |
|
|
} |
536 |
|
|
return 0; |
537 |
|
|
} |
538 |
|
|
|
539 |
|
|
|
540 |
|
|
/* |
541 |
|
|
* Display error alert |
542 |
|
|
*/ |
543 |
|
|
|
544 |
|
|
void ErrorAlert(const char *text) |
545 |
|
|
{ |
546 |
|
|
if (PrefsFindBool("nogui")) { |
547 |
|
|
printf(GetString(STR_SHELL_ERROR_PREFIX), text); |
548 |
|
|
return; |
549 |
|
|
} |
550 |
|
|
VideoQuitFullScreen(); |
551 |
|
|
char str[256]; |
552 |
|
|
sprintf(str, GetString(STR_GUI_ERROR_PREFIX), text); |
553 |
|
|
BAlert *alert = new BAlert(GetString(STR_ERROR_ALERT_TITLE), str, GetString(STR_QUIT_BUTTON), NULL, NULL, B_WIDTH_AS_USUAL, B_STOP_ALERT); |
554 |
|
|
alert->Go(); |
555 |
|
|
} |
556 |
|
|
|
557 |
|
|
|
558 |
|
|
/* |
559 |
|
|
* Display warning alert |
560 |
|
|
*/ |
561 |
|
|
|
562 |
|
|
void WarningAlert(const char *text) |
563 |
|
|
{ |
564 |
|
|
if (PrefsFindBool("nogui")) { |
565 |
|
|
printf(GetString(STR_SHELL_WARNING_PREFIX), text); |
566 |
|
|
return; |
567 |
|
|
} |
568 |
|
|
char str[256]; |
569 |
|
|
sprintf(str, GetString(STR_GUI_WARNING_PREFIX), text); |
570 |
|
|
BAlert *alert = new BAlert(GetString(STR_WARNING_ALERT_TITLE), str, GetString(STR_OK_BUTTON), NULL, NULL, B_WIDTH_AS_USUAL, B_INFO_ALERT); |
571 |
|
|
alert->Go(); |
572 |
|
|
} |
573 |
|
|
|
574 |
|
|
|
575 |
|
|
/* |
576 |
|
|
* Display choice alert |
577 |
|
|
*/ |
578 |
|
|
|
579 |
|
|
bool ChoiceAlert(const char *text, const char *pos, const char *neg) |
580 |
|
|
{ |
581 |
|
|
char str[256]; |
582 |
|
|
sprintf(str, GetString(STR_GUI_WARNING_PREFIX), text); |
583 |
|
|
BAlert *alert = new BAlert(GetString(STR_WARNING_ALERT_TITLE), str, pos, neg, NULL, B_WIDTH_AS_USUAL, B_INFO_ALERT); |
584 |
|
|
return alert->Go() == 0; |
585 |
|
|
} |
586 |
|
|
|
587 |
|
|
|
588 |
|
|
/* |
589 |
|
|
* SEGV handler |
590 |
|
|
*/ |
591 |
|
|
|
592 |
|
|
#if __POWERPC__ |
593 |
|
|
static uint32 segv_r[32]; |
594 |
|
|
|
595 |
|
|
asm void BasiliskII::sigsegv_invoc(register int sig, register void *arg, register vregs *r) |
596 |
|
|
{ |
597 |
|
|
mflr r0 |
598 |
|
|
stw r0,8(r1) |
599 |
|
|
stwu r1,-56(r1) |
600 |
|
|
|
601 |
|
|
lwz r3,segv_r(r2) |
602 |
|
|
stmw r13,13*4(r3) |
603 |
|
|
|
604 |
|
|
mr r3,r5 |
605 |
|
|
bl sigsegv_handler |
606 |
|
|
|
607 |
|
|
lwz r3,segv_r(r2) |
608 |
|
|
lmw r13,13*4(r3) |
609 |
|
|
|
610 |
|
|
lwz r0,56+8(r1) |
611 |
|
|
mtlr r0 |
612 |
|
|
addi r1,r1,56 |
613 |
|
|
blr |
614 |
|
|
} |
615 |
|
|
|
616 |
|
|
static void sigsegv_handler(vregs *r) |
617 |
|
|
{ |
618 |
|
|
// Fetch volatile registers |
619 |
|
|
segv_r[0] = r->r0; |
620 |
|
|
segv_r[1] = r->r1; |
621 |
|
|
segv_r[2] = r->r2; |
622 |
|
|
segv_r[3] = r->r3; |
623 |
|
|
segv_r[4] = r->r4; |
624 |
|
|
segv_r[5] = r->r5; |
625 |
|
|
segv_r[6] = r->r6; |
626 |
|
|
segv_r[7] = r->r7; |
627 |
|
|
segv_r[8] = r->r8; |
628 |
|
|
segv_r[9] = r->r9; |
629 |
|
|
segv_r[10] = r->r10; |
630 |
|
|
segv_r[11] = r->r11; |
631 |
|
|
segv_r[12] = r->r12; |
632 |
|
|
|
633 |
|
|
// Get opcode and divide into fields |
634 |
|
|
uint32 opcode = *(uint32 *)r->pc; |
635 |
|
|
uint32 primop = opcode >> 26; |
636 |
|
|
uint32 exop = (opcode >> 1) & 0x3ff; |
637 |
|
|
uint32 ra = (opcode >> 16) & 0x1f; |
638 |
|
|
uint32 rb = (opcode >> 11) & 0x1f; |
639 |
|
|
uint32 rd = (opcode >> 21) & 0x1f; |
640 |
|
|
uint32 imm = opcode & 0xffff; |
641 |
|
|
|
642 |
|
|
// Analyze opcode |
643 |
|
|
enum { |
644 |
|
|
TYPE_UNKNOWN, |
645 |
|
|
TYPE_LOAD, |
646 |
|
|
TYPE_STORE |
647 |
|
|
} transfer_type = TYPE_UNKNOWN; |
648 |
|
|
enum { |
649 |
|
|
SIZE_UNKNOWN, |
650 |
|
|
SIZE_BYTE, |
651 |
|
|
SIZE_HALFWORD, |
652 |
|
|
SIZE_WORD |
653 |
|
|
} transfer_size = SIZE_UNKNOWN; |
654 |
|
|
enum { |
655 |
|
|
MODE_UNKNOWN, |
656 |
|
|
MODE_NORM, |
657 |
|
|
MODE_U, |
658 |
|
|
MODE_X, |
659 |
|
|
MODE_UX |
660 |
|
|
} addr_mode = MODE_UNKNOWN; |
661 |
|
|
switch (primop) { |
662 |
|
|
case 31: |
663 |
|
|
switch (exop) { |
664 |
|
|
case 23: // lwzx |
665 |
|
|
transfer_type = TYPE_LOAD; transfer_size = SIZE_WORD; addr_mode = MODE_X; break; |
666 |
|
|
case 55: // lwzux |
667 |
|
|
transfer_type = TYPE_LOAD; transfer_size = SIZE_WORD; addr_mode = MODE_UX; break; |
668 |
|
|
case 87: // lbzx |
669 |
|
|
transfer_type = TYPE_LOAD; transfer_size = SIZE_BYTE; addr_mode = MODE_X; break; |
670 |
|
|
case 119: // lbzux |
671 |
|
|
transfer_type = TYPE_LOAD; transfer_size = SIZE_BYTE; addr_mode = MODE_UX; break; |
672 |
|
|
case 151: // stwx |
673 |
|
|
transfer_type = TYPE_STORE; transfer_size = SIZE_WORD; addr_mode = MODE_X; break; |
674 |
|
|
case 183: // stwux |
675 |
|
|
transfer_type = TYPE_STORE; transfer_size = SIZE_WORD; addr_mode = MODE_UX; break; |
676 |
|
|
case 215: // stbx |
677 |
|
|
transfer_type = TYPE_STORE; transfer_size = SIZE_BYTE; addr_mode = MODE_X; break; |
678 |
|
|
case 247: // stbux |
679 |
|
|
transfer_type = TYPE_STORE; transfer_size = SIZE_BYTE; addr_mode = MODE_UX; break; |
680 |
|
|
case 279: // lhzx |
681 |
|
|
transfer_type = TYPE_LOAD; transfer_size = SIZE_HALFWORD; addr_mode = MODE_X; break; |
682 |
|
|
case 311: // lhzux |
683 |
|
|
transfer_type = TYPE_LOAD; transfer_size = SIZE_HALFWORD; addr_mode = MODE_UX; break; |
684 |
|
|
case 343: // lhax |
685 |
|
|
transfer_type = TYPE_LOAD; transfer_size = SIZE_HALFWORD; addr_mode = MODE_X; break; |
686 |
|
|
case 375: // lhaux |
687 |
|
|
transfer_type = TYPE_LOAD; transfer_size = SIZE_HALFWORD; addr_mode = MODE_UX; break; |
688 |
|
|
case 407: // sthx |
689 |
|
|
transfer_type = TYPE_STORE; transfer_size = SIZE_HALFWORD; addr_mode = MODE_X; break; |
690 |
|
|
case 439: // sthux |
691 |
|
|
transfer_type = TYPE_STORE; transfer_size = SIZE_HALFWORD; addr_mode = MODE_UX; break; |
692 |
|
|
} |
693 |
|
|
break; |
694 |
|
|
|
695 |
|
|
case 32: // lwz |
696 |
|
|
transfer_type = TYPE_LOAD; transfer_size = SIZE_WORD; addr_mode = MODE_NORM; break; |
697 |
|
|
case 33: // lwzu |
698 |
|
|
transfer_type = TYPE_LOAD; transfer_size = SIZE_WORD; addr_mode = MODE_U; break; |
699 |
|
|
case 34: // lbz |
700 |
|
|
transfer_type = TYPE_LOAD; transfer_size = SIZE_BYTE; addr_mode = MODE_NORM; break; |
701 |
|
|
case 35: // lbzu |
702 |
|
|
transfer_type = TYPE_LOAD; transfer_size = SIZE_BYTE; addr_mode = MODE_U; break; |
703 |
|
|
case 36: // stw |
704 |
|
|
transfer_type = TYPE_STORE; transfer_size = SIZE_WORD; addr_mode = MODE_NORM; break; |
705 |
|
|
case 37: // stwu |
706 |
|
|
transfer_type = TYPE_STORE; transfer_size = SIZE_WORD; addr_mode = MODE_U; break; |
707 |
|
|
case 38: // stb |
708 |
|
|
transfer_type = TYPE_STORE; transfer_size = SIZE_BYTE; addr_mode = MODE_NORM; break; |
709 |
|
|
case 39: // stbu |
710 |
|
|
transfer_type = TYPE_STORE; transfer_size = SIZE_BYTE; addr_mode = MODE_U; break; |
711 |
|
|
case 40: // lhz |
712 |
|
|
transfer_type = TYPE_LOAD; transfer_size = SIZE_HALFWORD; addr_mode = MODE_NORM; break; |
713 |
|
|
case 41: // lhzu |
714 |
|
|
transfer_type = TYPE_LOAD; transfer_size = SIZE_HALFWORD; addr_mode = MODE_U; break; |
715 |
|
|
case 42: // lha |
716 |
|
|
transfer_type = TYPE_LOAD; transfer_size = SIZE_HALFWORD; addr_mode = MODE_NORM; break; |
717 |
|
|
case 43: // lhau |
718 |
|
|
transfer_type = TYPE_LOAD; transfer_size = SIZE_HALFWORD; addr_mode = MODE_U; break; |
719 |
|
|
case 44: // sth |
720 |
|
|
transfer_type = TYPE_STORE; transfer_size = SIZE_HALFWORD; addr_mode = MODE_NORM; break; |
721 |
|
|
case 45: // sthu |
722 |
|
|
transfer_type = TYPE_STORE; transfer_size = SIZE_HALFWORD; addr_mode = MODE_U; break; |
723 |
|
|
} |
724 |
|
|
|
725 |
|
|
// Calculate effective address |
726 |
|
|
uint32 addr = 0; |
727 |
|
|
switch (addr_mode) { |
728 |
|
|
case MODE_X: |
729 |
|
|
case MODE_UX: |
730 |
|
|
if (ra == 0) |
731 |
|
|
addr = segv_r[rb]; |
732 |
|
|
else |
733 |
|
|
addr = segv_r[ra] + segv_r[rb]; |
734 |
|
|
break; |
735 |
|
|
case MODE_NORM: |
736 |
|
|
case MODE_U: |
737 |
|
|
if (ra == 0) |
738 |
|
|
addr = (int32)(int16)imm; |
739 |
|
|
else |
740 |
|
|
addr = segv_r[ra] + (int32)(int16)imm; |
741 |
|
|
break; |
742 |
|
|
} |
743 |
|
|
|
744 |
|
|
// Ignore ROM writes |
745 |
|
|
if (transfer_type == TYPE_STORE && addr >= (uint32)ROMBaseHost && addr < (uint32)ROMBaseHost + ROMSize) { |
746 |
|
|
// D(bug("WARNING: %s write access to ROM at %p, 68k pc %p\n", transfer_size == SIZE_BYTE ? "Byte" : transfer_size == SIZE_HALFWORD ? "Halfword" : "Word", addr, r->pc)); |
747 |
|
|
if (addr_mode == MODE_U || addr_mode == MODE_UX) |
748 |
|
|
segv_r[ra] = addr; |
749 |
|
|
r->pc += 4; |
750 |
|
|
goto rti; |
751 |
|
|
} |
752 |
|
|
|
753 |
|
|
// For all other errors, jump into debugger |
754 |
|
|
char str[256]; |
755 |
|
|
sprintf(str, "SIGSEGV\n" |
756 |
|
|
" pc %08lx lr %08lx ctr %08lx msr %08lx\n" |
757 |
|
|
" xer %08lx cr %08lx fpscr %08lx\n" |
758 |
|
|
" r0 %08lx r1 %08lx r2 %08lx r3 %08lx\n" |
759 |
|
|
" r4 %08lx r5 %08lx r6 %08lx r7 %08lx\n" |
760 |
|
|
" r8 %08lx r9 %08lx r10 %08lx r11 %08lx\n" |
761 |
|
|
" r12 %08lx r13 %08lx r14 %08lx r15 %08lx\n" |
762 |
|
|
" r16 %08lx r17 %08lx r18 %08lx r19 %08lx\n" |
763 |
|
|
" r20 %08lx r21 %08lx r22 %08lx r23 %08lx\n" |
764 |
|
|
" r24 %08lx r25 %08lx r26 %08lx r27 %08lx\n" |
765 |
|
|
" r28 %08lx r29 %08lx r30 %08lx r31 %08lx\n", |
766 |
|
|
r->pc, r->lr, r->ctr, r->msr, |
767 |
|
|
r->xer, r->cr, r->fpscr, |
768 |
|
|
r->r0, r->r1, r->r2, r->r3, |
769 |
|
|
r->r4, r->r5, r->r6, r->r7, |
770 |
|
|
r->r8, r->r9, r->r10, r->r11, |
771 |
|
|
r->r12, segv_r[13], segv_r[14], segv_r[15], |
772 |
|
|
segv_r[16], segv_r[17], segv_r[18], segv_r[19], |
773 |
|
|
segv_r[20], segv_r[21], segv_r[22], segv_r[23], |
774 |
|
|
segv_r[24], segv_r[25], segv_r[26], segv_r[27], |
775 |
|
|
segv_r[28], segv_r[29], segv_r[30], segv_r[31]); |
776 |
|
|
disable_debugger(false); |
777 |
|
|
debugger(str); |
778 |
|
|
QuitEmulator(); |
779 |
|
|
return; |
780 |
|
|
|
781 |
|
|
rti: |
782 |
|
|
// Restore volatile registers |
783 |
|
|
r->r0 = segv_r[0]; |
784 |
|
|
r->r1 = segv_r[1]; |
785 |
|
|
r->r2 = segv_r[2]; |
786 |
|
|
r->r3 = segv_r[3]; |
787 |
|
|
r->r4 = segv_r[4]; |
788 |
|
|
r->r5 = segv_r[5]; |
789 |
|
|
r->r6 = segv_r[6]; |
790 |
|
|
r->r7 = segv_r[7]; |
791 |
|
|
r->r8 = segv_r[8]; |
792 |
|
|
r->r9 = segv_r[9]; |
793 |
|
|
r->r10 = segv_r[10]; |
794 |
|
|
r->r11 = segv_r[11]; |
795 |
|
|
r->r12 = segv_r[12]; |
796 |
|
|
} |
797 |
|
|
#endif |