[INITIAL] Import 20141226 version of http://homepage3.nifty.com/takeda-toshiya/common...

[csp-qt/common_source_project-fm7.git] / source / src / vm / pasopia7 / joypac2.cpp

diff --git a/source/src/vm/pasopia7/joypac2.cpp b/source/src/vm/pasopia7/joypac2.cpp
new file mode 100644 (file)
index 0000000..817099c
--- /dev/null
+++ b/source/src/vm/pasopia7/joypac2.cpp
@@ -0,0 +1,47 @@
+/*\r
+       TOSHIBA PASOPIA Emulator 'EmuPIA'\r
+       TOSHIBA PASOPIA 7 Emulator 'EmuPIA7'\r
+\r
+       Author : Takeda.Toshiya\r
+       Date   : 2006.09.20 -\r
+\r
+       [ joystick ]\r
+*/\r
+\r
+#include "joypac2.h"\r
+\r
+void JOYPAC2::initialize(int id)\r
+{\r
+       joy = emu->joy_buffer();\r
+}\r
+\r
+void JOYPAC2::write_io8(uint32 addr, uint32 data)\r
+{\r
+       \r
+}\r
+\r
+uint32 JOYPAC2::read_io8(uint32 addr)\r
+{\r
+       uint32 val = 0xff;\r
+       \r
+       switch(addr & 0xff) {\r
+       case 0x19:\r
+               if(joy[1] & 0x01) val &= ~0x01;\r
+               if(joy[1] & 0x02) val &= ~0x02;\r
+               if(joy[1] & 0x04) val &= ~0x04;\r
+               if(joy[1] & 0x08) val &= ~0x08;\r
+               if(joy[1] & 0x10) val &= ~0x10;\r
+               if(joy[1] & 0x20) val &= ~0x20;\r
+               return val;\r
+       case 0x1a:\r
+               if(joy[0] & 0x01) val &= ~0x01;\r
+               if(joy[0] & 0x02) val &= ~0x02;\r
+               if(joy[0] & 0x04) val &= ~0x04;\r
+               if(joy[0] & 0x08) val &= ~0x08;\r
+               if(joy[0] & 0x10) val &= ~0x10;\r
+               if(joy[0] & 0x20) val &= ~0x20;\r
+               return val;\r
+       }\r
+       return 0xff;\r
+}\r
+\r