void uade_handle_r_state(void)
{
uint8_t space[UADE_MAX_MESSAGE_SIZE];
struct uade_msg *um = (struct uade_msg *) space;
int ret;
uint32_t x, y;
while (1) {
ret = uade_receive_message(um, sizeof(space), &uadeipc);
if (ret == 0) {
fprintf(stderr, "uadecore: No more input. Exiting succesfully.\n");
exit(0);
} else if (ret < 0) {
fprintf(stderr, "uadecore: Error on input. Exiting with error.\n");
exit(-1);
}
if (um->msgtype == UADE_COMMAND_TOKEN)break;
switch (um->msgtype) {
case UADE_EXIT:
//uade_reboot = 1;
quit_program=1;
break;
case UADE_COMMAND_ACTIVATE_DEBUGGER:
fprintf(stderr, "uadecore: Received activate debugger message.\n");
activate_debugger();
uade_debug = 1;
break;
case UADE_COMMAND_CHANGE_SUBSONG:
if (uade_parse_u32_message(&x, um)) {
fprintf(stderr, "uadecore: Invalid size with change subsong.\n");
exit(-1);
}
change_subsong(x);
break;
case UADE_COMMAND_FILTER:
if (uade_parse_two_u32s_message(&x, &y, um)) {
fprintf(stderr, "uadecore: Invalid size with filter command\n");
exit(-1);
}
audio_set_filter(x, y);
break;
case UADE_COMMAND_IGNORE_CHECK:
/* override bit for sound format checking */
uade_put_long(SCORE_FORCE, 1);
break;
case UADE_COMMAND_SET_FREQUENCY:
if (uade_parse_u32_message(&x, um)) {
fprintf(stderr, "Invalid frequency message size: %u\n", um->size);
exit(-1);
}
set_sound_freq(x);
break;
case UADE_COMMAND_SET_PLAYER_OPTION:
uade_check_fix_string(um, 256);
add_ep_option((char *) um->data);
break;
case UADE_COMMAND_SET_RESAMPLING_MODE:
uade_check_fix_string(um, 16);
audio_set_resampler((char *) um->data);
break;
case UADE_COMMAND_SPEED_HACK:
uade_time_critical = 1;
break;
case UADE_COMMAND_READ:
if (uade_read_size != 0) {
fprintf(stderr, "uadecore: Read not allowed when uade_read_size > 0.\n");
exit(-1);
}
if (uade_parse_u32_message(&x, um)) {
fprintf(stderr, "uadecore: Invalid size on read command.\n");
exit(-1);
}
uade_read_size = x;
if (uade_read_size == 0 || uade_read_size > MAX_SOUND_BUF_SIZE || (uade_read_size & 3) != 0) {
fprintf(stderr, "uadecore: Invalid read size: %d\n", uade_read_size);
exit(-1);
}
break;
case UADE_COMMAND_REBOOT:
uade_reboot = 1;
break;
case UADE_COMMAND_SET_NTSC:
fprintf(stderr, "\nuadecore: Changing to NTSC mode.\n");
uade_set_ntsc(1);
break;
case UADE_COMMAND_SONG_END_NOT_POSSIBLE:
uade_set_automatic_song_end(0);
break;
case UADE_COMMAND_SET_SUBSONG:
if (uade_parse_u32_message(&x, um)) {
fprintf(stderr, "uadecore: Invalid size on set subsong command.\n");
exit(-1);
}
uade_put_long(SCORE_SET_SUBSONG, 1);
uade_put_long(SCORE_SUBSONG, x);
break;
case UADE_COMMAND_USE_TEXT_SCOPE:
audio_use_text_scope();
break;
default:
fprintf(stderr, "uadecore: Received invalid command %d\n", um->msgtype);
exit(-1);
}
}
}
/* this is called for each played song from newcpu.c/m68k_reset() */
void uade_reset(void)
{
/* don't load anything under 0x1000 (execbase top at $1000) */
const int modnameaddr = 0x00400;
const int scoreaddr = 0x01000;
const int userstack = 0x08500;
const int superstack = 0x08f00;
const int playeraddr = 0x09000;
int relocaddr;
int modaddr;
int len;
FILE *file;
int bytesread;
uint8_t command[UADE_MAX_MESSAGE_SIZE];
struct uade_msg *um = (struct uade_msg *) command;
int ret;
nextsong:
/* IMPORTANT:
It seems that certain players don't work totally reliably if memory
contains trash from previous songs. To be certain that each song is
played from the same initial state of emulator we clear the memory
from 0x400 to 'uade_highmem' each time a new song is played */
uade_highmem = 0;
while (uade_highmem < 0x800000) {
if (!valid_address(0, uade_highmem + 0x10000))
break;
uade_highmem += 0x10000;
}
if (uade_highmem < 0x80000) {
fprintf(stderr, "uadecore: There must be at least 512 KiB of amiga memory (%d bytes found).\n", uade_highmem);
exit(-1);
}
if (uade_highmem < 0x200000) {
fprintf(stderr, "uadecore: Warning: highmem == 0x%x (< 0x200000)!\n", uade_highmem);
}
memset(get_real_address(0), 0, uade_highmem);
song.cur_subsong = song.min_subsong = song.max_subsong = 0;
ret = uade_receive_string(song.scorename, UADE_COMMAND_SCORE, sizeof(song.scorename), &uadeipc);
if (ret == 0) {
fprintf(stderr, "uadecore: No more songs to play.\n");
exit(0);
} else if (ret < 0) {
fprintf(stderr, "uadecore: Invalid input. Expected score name.\n");
exit(-1);
}
// printf("got scorename %s\n",song.scorename);
ret = uade_receive_string(song.playername, UADE_COMMAND_PLAYER, sizeof(song.playername), &uadeipc);
if (ret == 0) {
printf("uadecore: Expected player name. Got nothing.\n");
exit(-1);
} else if (ret < 0) {
printf( "uadecore: Invalid input. Expected player name.\n");
exit(-1);
}
// printf("got playername %s\n",song.playername);
if (uade_dirname(uade_player_dir, song.playername, sizeof(uade_player_dir)) == NULL) {
printf( "uadecore: Invalid dirname with player: %s\n", song.playername);
exit(-1);
}
ret = uade_receive_message(um, sizeof command, &uadeipc);
if (ret == 0) {
printf("uadecore: Expected module name. Got nothing.\n");
exit(-1);
} else if (ret < 0) {
printf( "uadecore: Invalid input. Expected module name.\n");
exit(-1);
}
assert(um->msgtype == UADE_COMMAND_MODULE);
if (um->size == 0) {
song.modulename[0] = 0;
} else {
assert(um->size == (strlen((char *) um->data) + 1));
strlcpy(song.modulename, (char *) um->data, sizeof(song.modulename));
}
// printf("got modulename %s\n",song.modulename);
uade_set_automatic_song_end(1);
uade_put_long(SCORE_EXEC_DEBUG, uade_execdebugboolean ? 0x12345678 : 0);
uade_put_long(SCORE_VOLUME_TEST, voltestboolean);
uade_put_long(SCORE_DMA_WAIT, uade_dmawait);
uade_put_long(SCORE_MODULECHANGE, disable_modulechange);
bytesread = uade_safe_load_name(playeraddr, song.playername, "player", uade_highmem - playeraddr);
if (bytesread > (uade_highmem - playeraddr)) {
fprintf (stderr, "uadecore: Player %s too big a file (%d bytes).\n", song.playername, bytesread);
goto skiptonextsong;
}
if (bytesread == 0) {
goto skiptonextsong;
}
/* fprintf(stderr, "uadecore: player '%s' (%d bytes)\n", song.playername, bytesread); */
/* set player executable address for relocator */
uade_put_long(SCORE_PLAYER_ADDR, playeraddr);
len = uade_calc_reloc_size((uae_u32 *) get_real_address(playeraddr),
(uae_u32 *) get_real_address(playeraddr + bytesread));
if (!len) {
fprintf(stderr, "uadecore: Problem with reloc calculation.\n");
goto skiptonextsong;
}
relocaddr = ((playeraddr + bytesread) & 0x7FFFF000) + 0x4000;
/* + 0x4000 for hippel coso (wasseremu) */
modaddr = ((relocaddr + len) & 0x7FFFF000) + 0x2000;
if (modaddr <= relocaddr) {
/* this is very bad because sound core memory allocation will fail */
fprintf(stderr, "uadecore: Warning: modaddr <= relocaddr: 0x%x <= 0x%x\n", modaddr, relocaddr);
}
uade_put_long(SCORE_RELOC_ADDR, relocaddr); /*address for relocated player*/
uade_put_long(SCORE_MODULE_ADDR, modaddr); /* set module address */
uade_put_long(SCORE_MODULE_LEN, 0); /* set module size to zero */
uade_put_long(SCORE_MODULE_NAME_ADDR, 0); /* mod name address pointer */
/* load the module if available */
if (song.modulename[0]) {
bytesread = uade_safe_load_name(modaddr, song.modulename, "module", uade_highmem - modaddr);
if (bytesread > (uade_highmem - playeraddr)) {
fprintf (stderr, "uadecore: Module %s too big a file (%d bytes).\n", song.modulename, bytesread);
goto skiptonextsong;
}
if (bytesread == 0) {
goto skiptonextsong;
}
uade_put_long(SCORE_MODULE_LEN, bytesread);
if (!valid_address(modnameaddr, strlen(song.modulename) + 1)) {
fprintf(stderr, "uadecore: Invalid address for modulename.\n");
goto skiptonextsong;
}
strlcpy((char *) get_real_address(modnameaddr), song.modulename, 1024);
uade_put_long(SCORE_MODULE_NAME_ADDR, modnameaddr);
} else {
if (!valid_address(modnameaddr, strlen(song.playername) + 1)) {
fprintf(stderr, "uadecore: Invalid address for playername.\n");
goto skiptonextsong;
}
strlcpy((char *) get_real_address(modnameaddr), song.playername, 1024);
uade_put_long(SCORE_MODULE_NAME_ADDR, modnameaddr);
bytesread = 0;
}
/* load sound core (score) */
if ((file = fopen(song.scorename, "rb"))) {
bytesread = uade_safe_load(scoreaddr, file, uade_highmem - scoreaddr);
fclose(file);
} else {
fprintf (stderr, "uadecore: Can not load score (%s).\n", song.scorename);
goto skiptonextsong;
}
m68k_areg(regs,7) = scoreaddr;
m68k_setpc(scoreaddr);
/* obey player format checking */
uade_put_long(SCORE_FORCE, 0);
/* set default subsong */
uade_put_long(SCORE_SET_SUBSONG, 0);
uade_put_long(SCORE_SUBSONG, 0);
/* set PAL mode */
uade_set_ntsc(0);
/* pause bits (don't care!), for debugging purposes only */
uade_put_long(SCORE_PREPAUSE, 0);
uade_put_long(SCORE_POSTPAUSE, 0);
/* set user and supervisor stack pointers */
uade_put_long(SCORE_USER_STACK, userstack);
uade_put_long(SCORE_SUPER_STACK, superstack);
/* no message for score */
uade_put_long(SCORE_OUTPUT_MSG, 0);
if ((userstack - (scoreaddr + bytesread)) < 0x1000)
fprintf(stderr, "uadecore: Amiga stack overrun warning.\n");
flush_sound();
/* note that uade_speed_hack can be negative (meaning that uade never uses
speed hack, even if it's requested by the amiga player)! */
uade_time_critical = 0;
if (uade_speed_hack > 0) {
uade_time_critical = 1;
}
uade_reboot = 0;
uade_audio_output = 0;
uade_audio_skip = 0;
old_ledstate = gui_ledstate;
if (uade_receive_short_message(UADE_COMMAND_TOKEN, &uadeipc)) {
fprintf(stderr, "uadecore: Can not receive token in uade_reset().\n");
exit(-1);
}
if (uade_send_short_message(UADE_REPLY_CAN_PLAY, &uadeipc)) {
fprintf(stderr, "uadecore: Can not send 'CAN_PLAY' reply.\n");
exit(-1);
}
if (uade_send_short_message(UADE_COMMAND_TOKEN, &uadeipc)) {
fprintf(stderr, "uadecore: Can not send token from uade_reset().\n");
exit(-1);
}
set_sound_freq(UADE_DEFAULT_FREQUENCY);
epoptionsize = 0;
return;
skiptonextsong:
fprintf(stderr, "uadecore: Can not play. Reboot.\n");
if (uade_receive_short_message(UADE_COMMAND_TOKEN, &uadeipc)) {
fprintf(stderr, "uadecore: Can not receive token in uade_reset().\n");
exit(-1);
}
if (uade_send_short_message(UADE_REPLY_CANT_PLAY, &uadeipc)) {
fprintf(stderr, "uadecore: Can not send 'CANT_PLAY' reply.\n");
exit(-1);
}
if (uade_send_short_message(UADE_COMMAND_TOKEN, &uadeipc)) {
fprintf(stderr, "uadecore: Can not send token from uade_reset().\n");
exit(-1);
}
goto nextsong;
}
void screen_play_screen_update(int *screen_type, int curr_joypad1, int prev_joypad1)
{
unsigned char check, detectX, detectY, missY, overX;
engine_tile_manager_update_middle();
engine_tile_manager_update_bottom();
engine_gamer_manager_update_target(curr_joypad1);
engine_gamer_manager_update_bullets();
engine_enemy_manager_update_enemies();
if (curr_joypad1 & JOY_FIREA && !(prev_joypad1 & JOY_FIREA))
{
engine_gamer_manager_trigger_bullet();
}
// Bullet vs. enemy collision detection.
if (1 == bulletCheck[0] || 1 == bulletCheck[1] || 1 == bulletCheck[2])
{
screen_play_bullet_collide();
}
// Invincibility.
if (hacker_death)
{
return;
}
// Target vs. enemy collision detection.
overX = 0;
if (1 == enemyCheck[0] || 1 == enemyCheck[1] || 1 == enemyCheck[2])
{
for (check = 0; check < hacker_enemy; ++check)
{
if (1 != enemyCheck[check])
{
continue;
}
enemyCheck[check] = 0;
detectX = targetX + TARGET_BOUND;
detectY = targetY + TARGET_BOUND;
// Enemy collides with target.
if (detectX >= enemyX[check] && detectX <= enemyX[check] + TARGET_WIDTH &&
detectY >= enemyY[check] && detectY <= enemyY[check] + TARGET_WIDTH)
{
overX = 1;
break;
}
else
{
// Target has maximum misses.
engine_sprite_manager_draw_enemies(enemyIndex[check], enemyX[check], enemyY[check], 0);
screen_play_screen_miss++;
// Very short sound.
if (hacker_sound)
{
set_sound_freq(1, 100);
set_sound_volume(1, 0x0F);
}
missY = ((MAX_MISS_NUM + 2 - screen_play_screen_miss) * 2) + screen_play_screen_miss;
engine_font_manager_draw_text("X", 31, missY);
if (screen_play_screen_miss >= MAX_MISS_NUM)
{
overX = 1;
break;
}
}
}
}
// GAME OVER!
if (0 != overX)
{
if (hacker_music)
{
engine_music_manager_pause_module();
}
*screen_type = 6;//screen_type_over;
}
}
