Added 0.030 of PicoDrive and moved license files into root

[cyclone68000.git] / PicoDrive / WinMain.cpp

diff --git a/PicoDrive/WinMain.cpp b/PicoDrive/WinMain.cpp
new file mode 100644 (file)
index 0000000..acb6a33
--- /dev/null
+++ b/PicoDrive/WinMain.cpp
@@ -0,0 +1,71 @@
+\r
+#include "stdafx.h"\r
+#include <stdarg.h>\r
+\r
+static FILE *DebugFile=NULL;\r
+int Main3800=0;\r
+int WINAPI WinMain(HINSTANCE,HINSTANCE,LPTSTR,int)\r
+{\r
+  MSG msg; int ret=0;\r
+  TCHAR device[260];\r
+\r
+  memset(&msg,0,sizeof(msg));\r
+  memset(device,0,sizeof(device));\r
+\r
+  // Check if this program is running already:\r
+  FrameWnd=FindWindow(APP_TITLE,NULL);\r
+  if (FrameWnd!=NULL) { SetForegroundWindow(FrameWnd); return 0; }\r
+\r
+  DeleteFile(L"zout.txt");\r
+\r
+  SystemParametersInfo(SPI_GETOEMINFO,sizeof(device)>>1,device,0);\r
+  if (_wcsicmp(device,L"compaq ipaq h3800")==0) Main3800=1;\r
+\r
+  FrameInit();\r
+\r
+  ConfigInit();\r
+  ConfigLoad();\r
+\r
+  WaveRate=44100; WaveLen=735;\r
+  WaveInit();\r
+\r
+  for(;;)\r
+  {\r
+    ret=PeekMessage(&msg,NULL,0,0,PM_REMOVE);\r
+    if (ret)\r
+    {\r
+      if (msg.message==WM_QUIT) break;\r
+      TranslateMessage(&msg);\r
+      DispatchMessage(&msg);\r
+    }\r
+    else\r
+    {\r
+      EmulateFrame();\r
+      //WaveUpdate();\r
+      Sleep(1);\r
+    }\r
+  }\r
+\r
+  WaveExit();\r
+  EmulateExit();\r
+\r
+  ConfigSave();\r
+\r
+  DestroyWindow(FrameWnd);\r
+\r
+  if (DebugFile) fclose(DebugFile);\r
+  DebugFile=NULL;\r
+  return 0;\r
+}\r
+\r
+extern "C" int dprintf(char *Format, ...)\r
+{\r
+  va_list VaList=NULL;\r
+  va_start(VaList,Format);\r
+\r
+  if (DebugFile==NULL) DebugFile=fopen("zout.txt","wt");\r
+  if (DebugFile) vfprintf(DebugFile,Format,VaList);\r
+\r
+  va_end(VaList);\r
+  return 0;\r
+}\r