platform/psp/psp.c

   1 /*
   2  * PicoDrive
   3  * (C) notaz, 2007,2008
   4  *
   5  * This work is licensed under the terms of MAME license.
   6  * See COPYING file in the top-level directory.
   7  */
   8 #include <stdio.h>
   9 #include <stdlib.h>
  10 #include <stdarg.h>
  11 #include <string.h>
  12 #include <unistd.h>
  13
  14 #include <pspkernel.h>
  15 #include <pspiofilemgr.h>
  16 #include <pspdisplay.h>
  17 #include <psppower.h>
  18 #include <psprtc.h>
  19 #include <pspgu.h>
  20 #include <pspsdk.h>
  21
  22 #include "psp.h"
  23 #include "emu.h"
  24
  25 #include <pico/pico_int.h>
  26 #include "../common/emu.h"
  27 #include "../common/version.h"
  28
  29 extern int pico_main(int argc, char *argv[]);
  30
  31 #ifndef FW15
  32
  33 PSP_MODULE_INFO("PicoDrive", 0, 1, 97);
  34
  35 int main(int argc, char *argv[]) { return pico_main(argc, argv); }      /* just a wrapper */
  36
  37 #else
  38
  39 PSP_MODULE_INFO("PicoDrive", 0x1000, 1, 97);
  40 PSP_MAIN_THREAD_ATTR(0);
  41
  42 int main(int argc, char *argv[])
  43 {
  44         SceUID thid;
  45
  46         /* this is the thing we need the kernel mode for */
  47         pspSdkInstallNoDeviceCheckPatch();
  48
  49         thid = sceKernelCreateThread("pico_main", (SceKernelThreadEntry) pico_main, 32, 0x2000, PSP_THREAD_ATTR_USER, NULL);
  50         if (thid >= 0)
  51                 sceKernelStartThread(thid, argc, argv);
  52 #ifndef GCOV
  53         sceKernelExitDeleteThread(0);
  54 #else
  55         while (engineState != PGS_Quit)
  56                 sceKernelDelayThread(1024 * 1024);
  57 #endif
  58
  59         return 0;
  60 }
  61
  62 #endif
  63
  64 int psp_unhandled_suspend = 0;
  65
  66 unsigned int __attribute__((aligned(16))) guCmdList[GU_CMDLIST_SIZE];
  67
  68 void *psp_screen = VRAM_FB0; /* back buffer */
  69
  70 static SceUID main_thread_id = -1;
  71
  72 #define ANALOG_DEADZONE 80
  73
  74 /* Exit callback */
  75 static int exit_callback(int arg1, int arg2, void *common)
  76 {
  77         sceKernelExitGame();
  78         return 0;
  79 }
  80
  81 /* Power Callback */
  82 static int power_callback(int unknown, int pwrflags, void *common)
  83 {
  84         lprintf("power_callback: flags: 0x%08X\n", pwrflags);
  85
  86         /* check for power switch and suspending as one is manual and the other automatic */
  87         if (pwrflags & PSP_POWER_CB_POWER_SWITCH || pwrflags & PSP_POWER_CB_SUSPENDING || pwrflags & PSP_POWER_CB_STANDBY)
  88         {
  89                 psp_unhandled_suspend = 1;
  90                 if (engineState != PGS_Suspending)
  91                         engineStateSuspend = engineState;
  92                 sceKernelDelayThread(100000); // ??
  93         }
  94         else if (pwrflags & PSP_POWER_CB_RESUME_COMPLETE)
  95         {
  96                 engineState = PGS_SuspendWake;
  97         }
  98
  99         //sceDisplayWaitVblankStart();
 100         return 0;
 101 }
 102
 103 /* Callback thread */
 104 static int callback_thread(SceSize args, void *argp)
 105 {
 106         int cbid;
 107
 108         lprintf("callback_thread started with id %08x, priority %i\n",
 109                 sceKernelGetThreadId(), sceKernelGetThreadCurrentPriority());
 110
 111         cbid = sceKernelCreateCallback("Exit Callback", exit_callback, NULL);
 112         sceKernelRegisterExitCallback(cbid);
 113         cbid = sceKernelCreateCallback("Power Callback", power_callback, NULL);
 114         scePowerRegisterCallback(0, cbid);
 115
 116         sceKernelSleepThreadCB();
 117
 118         return 0;
 119 }
 120
 121 void psp_init(void)
 122 {
 123         SceUID thid;
 124         char buff[128], *r;
 125
 126         /* fw 1.5 sometimes returns 8002032c, although getcwd works */
 127         r = getcwd(buff, sizeof(buff));
 128         if (r) sceIoChdir(buff);
 129
 130         main_thread_id = sceKernelGetThreadId();
 131
 132         lprintf("\n%s\n", "PicoDrive v" VERSION " " __DATE__ " " __TIME__);
 133         lprintf("running on %08x kernel\n", sceKernelDevkitVersion()),
 134         lprintf("entered psp_init, threadId %08x, priority %i\n", main_thread_id,
 135                 sceKernelGetThreadCurrentPriority());
 136
 137         thid = sceKernelCreateThread("update_thread", callback_thread, 0x11, 0xFA0, 0, NULL);
 138         if (thid >= 0)
 139         {
 140                 sceKernelStartThread(thid, 0, 0);
 141         }
 142
 143         /* video */
 144         sceDisplaySetMode(0, 480, 272);
 145         sceDisplaySetFrameBuf(VRAM_FB1, 512, PSP_DISPLAY_PIXEL_FORMAT_565, PSP_DISPLAY_SETBUF_NEXTFRAME);
 146         psp_screen = VRAM_FB0;
 147
 148         /* gu */
 149         sceGuInit();
 150
 151         sceGuStart(GU_DIRECT, guCmdList);
 152         sceGuDrawBuffer(GU_PSM_5650, (void *)VRAMOFFS_FB0, 512);
 153         sceGuDispBuffer(480, 272, (void *)VRAMOFFS_FB1, 512); // don't care
 154         sceGuDepthBuffer((void *)VRAMOFFS_DEPTH, 512);
 155         sceGuClearColor(0);
 156         sceGuClearDepth(0);
 157         sceGuClear(GU_COLOR_BUFFER_BIT | GU_DEPTH_BUFFER_BIT);
 158         sceGuOffset(2048 - (480 / 2), 2048 - (272 / 2));
 159         sceGuViewport(2048, 2048, 480, 272);
 160         sceGuDepthRange(0xc350, 0x2710);
 161         sceGuScissor(0, 0, 480, 272);
 162         sceGuEnable(GU_SCISSOR_TEST);
 163
 164         sceGuDepthMask(0xffff);
 165         sceGuDisable(GU_DEPTH_TEST);
 166
 167         sceGuFrontFace(GU_CW);
 168         sceGuEnable(GU_TEXTURE_2D);
 169         sceGuTexFunc(GU_TFX_REPLACE, GU_TCC_RGB);
 170         sceGuAmbientColor(0xffffffff);
 171         sceGuColor(0xffffffff);
 172         sceGuFinish();
 173         sceGuSync(0, 0);
 174
 175         sceDisplayWaitVblankStart();
 176         sceGuDisplay(GU_TRUE);
 177
 178
 179         /* input */
 180         sceCtrlSetSamplingCycle(0);
 181         sceCtrlSetSamplingMode(PSP_CTRL_MODE_ANALOG);
 182 }
 183
 184 void psp_finish(void)
 185 {
 186         lprintf("psp_finish..\n");
 187         sceGuTerm();
 188
 189         //sceKernelSleepThread();
 190         sceKernelExitGame();
 191 }
 192
 193 void psp_video_flip(int wait_vsync)
 194 {
 195         if (wait_vsync) sceDisplayWaitVblankStart();
 196         sceDisplaySetFrameBuf(psp_screen, 512, PSP_DISPLAY_PIXEL_FORMAT_565,
 197                 PSP_DISPLAY_SETBUF_IMMEDIATE);
 198         psp_screen = (void *)((unsigned long)psp_screen ^ (VRAMOFFS_FB1 ^ VRAMOFFS_FB0));
 199 }
 200
 201 void *psp_video_get_active_fb(void)
 202 {
 203         return (void *)((unsigned long)psp_screen ^ (VRAMOFFS_FB1 ^ VRAMOFFS_FB0));
 204 }
 205
 206 void psp_msleep(int ms)
 207 {
 208         sceKernelDelayThread(ms * 1000);
 209 }
 210
 211 unsigned int psp_pad_read(int blocking)
 212 {
 213         unsigned int buttons;
 214         SceCtrlData pad;
 215         if (blocking)
 216              sceCtrlReadBufferPositive(&pad, 1);
 217         else sceCtrlPeekBufferPositive(&pad, 1);
 218         buttons = pad.Buttons;
 219
 220         // analog..
 221         buttons &= ~(PSP_NUB_UP|PSP_NUB_DOWN|PSP_NUB_LEFT|PSP_NUB_RIGHT);
 222         if (pad.Lx < 128 - ANALOG_DEADZONE) buttons |= PSP_NUB_LEFT;
 223         if (pad.Lx > 128 + ANALOG_DEADZONE) buttons |= PSP_NUB_RIGHT;
 224         if (pad.Ly < 128 - ANALOG_DEADZONE) buttons |= PSP_NUB_UP;
 225         if (pad.Ly > 128 + ANALOG_DEADZONE) buttons |= PSP_NUB_DOWN;
 226
 227         return buttons;
 228 }
 229
 230 int psp_get_cpu_clock(void)
 231 {
 232         return scePowerGetCpuClockFrequencyInt();
 233 }
 234
 235 int psp_set_cpu_clock(int clock)
 236 {
 237         int ret = scePowerSetClockFrequency(clock, clock, clock/2);
 238         if (ret != 0) lprintf("failed to set clock: %i\n", ret);
 239
 240         return ret;
 241 }
 242
 243 char *psp_get_status_line(void)
 244 {
 245         static char buff[64];
 246         int ret, bat_percent, bat_time;
 247         ScePspDateTime time;
 248
 249         ret = sceRtcGetCurrentClockLocalTime(&time);
 250         bat_percent = scePowerGetBatteryLifePercent();
 251         bat_time = scePowerGetBatteryLifeTime();
 252         if (ret < 0 || bat_percent < 0 || bat_time < 0) return NULL;
 253
 254         snprintf(buff, sizeof(buff), "%02i:%02i  bat: %3i%%", time.hour, time.minute, bat_percent);
 255         if (!scePowerIsPowerOnline())
 256                 snprintf(buff+strlen(buff), sizeof(buff)-strlen(buff), " (%i:%02i)", bat_time/60, bat_time%60);
 257         return buff;
 258 }
 259
 260 void psp_wait_suspend(void)
 261 {
 262         // probably should do something smarter here?
 263         sceDisplayWaitVblankStart();
 264 }
 265
 266 void psp_resume_suspend(void)
 267 {
 268         // for some reason file IO doesn't seem to work
 269         // after resume for some period of time, at least on 1.5
 270         SceUID fd;
 271         int i;
 272         for (i = 0; i < 30; i++) {
 273                 fd = sceIoOpen("EBOOT.PBP", PSP_O_RDONLY, 0777);
 274                 if (fd >= 0) break;
 275                 sceKernelDelayThread(100 * 1024);
 276         }
 277         if (fd >= 0) sceIoClose(fd);
 278         sceDisplayWaitVblankStart();
 279         if (i < 30)
 280                 lprintf("io resumed after %i tries\n", i);
 281         else {
 282                 lprintf("io resume failed with %08x\n", fd);
 283                 sceKernelDelayThread(500 * 1024);
 284         }
 285 }
 286
 287 /* alt logging */
 288 #define LOG_FILE "log.txt"
 289
 290 #ifndef LPRINTF_STDIO
 291 typedef struct _log_entry
 292 {
 293         char buff[256];
 294         struct _log_entry *next;
 295 } log_entry;
 296
 297 static log_entry *le_root = NULL;
 298 #endif
 299
 300 /* strange: if this function leaks memory (before psp_init() call?),
 301  * resume after suspend breaks on 3.90 */
 302 void lprintf(const char *fmt, ...)
 303 {
 304         va_list vl;
 305
 306 #ifdef LPRINTF_STDIO
 307         va_start(vl, fmt);
 308         vprintf(fmt, vl);
 309         va_end(vl);
 310 #else
 311         static SceUID logfd = -1;
 312         static int msg_count = 0;
 313         char buff[256];
 314         log_entry *le, *le1;
 315
 316         if (logfd == -2) return; // disabled
 317
 318         va_start(vl, fmt);
 319         vsnprintf(buff, sizeof(buff), fmt, vl);
 320         va_end(vl);
 321
 322         // note: this is still unsafe code
 323         if (main_thread_id != sceKernelGetThreadId())
 324         {
 325                 le = malloc(sizeof(*le));
 326                 if (le == NULL) return;
 327                 le->next = NULL;
 328                 strcpy(le->buff, buff);
 329                 if (le_root == NULL) le_root = le;
 330                 else {
 331                         for (le1 = le_root; le1->next != NULL; le1 = le1->next);
 332                         le1->next = le;
 333                 }
 334                 return;
 335         }
 336
 337         logfd = sceIoOpen(LOG_FILE, PSP_O_WRONLY|PSP_O_APPEND, 0777);
 338         if (logfd < 0) {
 339                 if (msg_count == 0) logfd = -2;
 340                 return;
 341         }
 342
 343         if (le_root != NULL)
 344         {
 345                 le1 = le_root;
 346                 le_root = NULL;
 347                 sceKernelDelayThread(1000);
 348                 while (le1 != NULL) {
 349                         le = le1;
 350                         le1 = le->next;
 351                         sceIoWrite(logfd, le->buff, strlen(le->buff));
 352                         free(le);
 353                         msg_count++;
 354                 }
 355         }
 356
 357         sceIoWrite(logfd, buff, strlen(buff));
 358         msg_count++;
 359
 360         // make sure it gets flushed
 361         sceIoClose(logfd);
 362         logfd = -1;
 363 #endif
 364 }
 365
 366