diff --git a/arch/nds/event.c b/arch/nds/event.c
index 8defc893..3b9dbc5f 100644
--- a/arch/nds/event.c
+++ b/arch/nds/event.c
@@ -116,14 +116,7 @@ static void do_unicode_key_event(struct buffered_status *status, bool down,
 {
   if(down)
   {
-    status->keymap[code] = 1;
-    status->key_pressed = code;
-    status->key = code;
-    status->key_repeat = code;
-    status->unicode = unicode;
-    status->unicode_repeat = unicode;
-    status->keypress_time = get_ticks();
-    status->key_release = IKEY_UNKNOWN;
+    key_press(status, code, unicode);
   }
   else
   {
diff --git a/arch/pandora/Makefile.in b/arch/pandora/Makefile.in
new file mode 100644
index 00000000..53cfde13
--- /dev/null
+++ b/arch/pandora/Makefile.in
@@ -0,0 +1,28 @@
+TOOLCHAIN       ?= /usr/local/pandora/arm-2009q3
+CROSS_COMPILE   ?= $(TOOLCHAIN)/bin/arm-none-linux-gnueabi-
+PANDORA_LIBPATH ?= $(PREFIX)/lib
+PANDORA_INCPATH ?= $(PREFIX)/include
+
+CC              = $(CROSS_COMPILE)gcc
+CXX             = $(CROSS_COMPILE)g++
+AR              = $(CROSS_COMPILE)ar
+OBJCOPY         = $(CROSS_COMPILE)objcopy
+STRIP           = $(CROSS_COMPILE)strip --strip-unneeded
+
+ARCH_CFLAGS     = -march=armv7-a -mtune=cortex-a8 -fPIC -I$(PANDORA_INCPATH)
+ARCH_CXXFLAGS   = $(ARCH_CFLAGS)
+
+ARCH_LDFLAGS    = -L$(PANDORA_LIBPATH)
+
+LIBPNG_CFLAGS   = -I$(PANDORA_INCPATH)/libpng12
+LIBPNG_LDFLAGS  = -lpng12 -lz
+SDL_CFLAGS      = `$(TOOLCHAIN)/usr/bin/sdl-config --cflags`
+SDL_LDFLAGS     = `$(TOOLCHAIN)/usr/bin/sdl-config --libs`
+
+DSOLDFLAGS      = -shared
+DSOPRE          = lib
+DSOPOST         = .so
+DSORPATH        = -Wl,-rpath,$(LIBDIR)
+DSOSONAME       = -Wl,-soname,
+
+include arch/zip.inc
diff --git a/arch/pandora/README b/arch/pandora/README
new file mode 100644
index 00000000..15390ca6
--- /dev/null
+++ b/arch/pandora/README
@@ -0,0 +1 @@
+WRITE ME
diff --git a/arch/wii/event.c b/arch/wii/event.c
index b89d8980..30215733 100644
--- a/arch/wii/event.c
+++ b/arch/wii/event.c
@@ -763,14 +763,7 @@ static bool process_event(union event *ev)
         enum keycode skey = input.joystick_button_map[ev->button.pad][button];
         if(skey && (status->keymap[skey] == 0))
         {
-          status->key_pressed = skey;
-          status->key = skey;
-          status->unicode = skey;
-          status->key_repeat = skey;
-          status->unicode_repeat = skey;
-          status->keymap[skey] = 1;
-          status->keypress_time = get_ticks();
-          status->key_release = IKEY_UNKNOWN;
+          key_press(status, skey, skey);
           rval = true;
         }
       }
@@ -818,10 +811,7 @@ static bool process_event(union event *ev)
         enum keycode skey = input.joystick_button_map[ev->button.pad][button];
         if(skey)
         {
-          status->keymap[skey] = 0;
-          status->key_repeat = IKEY_UNKNOWN;
-          status->unicode_repeat = 0;
-          status->key_release = skey;
+          key_release(status, skey);
           rval = true;
         }
       }
@@ -857,23 +847,12 @@ static bool process_event(union event *ev)
         if(skey)
         {
           if(status->keymap[skey] == 0)
-          {
-            status->key_pressed = skey;
-            status->key = skey;
-            status->unicode = skey;
-            status->key_repeat = skey;
-            status->unicode_repeat = skey;
-            status->keymap[skey] = 1;
-            status->keypress_time = get_ticks();
-            status->key_release = IKEY_UNKNOWN;
-          }
+            key_press(status, skey, skey);
+
           if(last_axis == (digital_value ^ 1))
           {
             skey = input.joystick_axis_map[ev->axis.pad][axis][last_axis];
-            status->keymap[skey] = 0;
-            status->key_repeat = IKEY_UNKNOWN;
-            status->unicode_repeat = 0;
-            status->key_release = skey;
+            key_release(status, skey);
           }
         }
       }
@@ -883,12 +862,7 @@ static bool process_event(union event *ev)
         {
           skey = input.joystick_axis_map[ev->axis.pad][axis][last_axis];
           if(skey)
-          {
-            status->keymap[skey] = 0;
-            status->key_repeat = IKEY_UNKNOWN;
-            status->unicode_repeat = 0;
-            status->key_release = skey;
-          }
+            key_release(status, skey);
         }
       }
       status->axis[ev->axis.pad][axis] = digital_value;
@@ -961,14 +935,7 @@ static bool process_event(union event *ev)
         }
       }
 
-      status->keymap[ckey] = 1;
-      status->key_pressed = ckey;
-      status->key = ckey;
-      status->unicode = ev->key.unicode;
-      status->key_repeat = ckey;
-      status->unicode_repeat = status->unicode;
-      status->keypress_time = get_ticks();
-      status->key_release = IKEY_UNKNOWN;
+      key_press(status, skey, ev->key.unicode);
       break;
     }
     case EVENT_KEY_UP:
diff --git a/config.sh b/config.sh
index 85243fba..f86b23d7 100755
--- a/config.sh
+++ b/config.sh
@@ -28,6 +28,7 @@ usage() {
 	echo "  wii            Experimental Wii port"
 	echo "  amiga          Experimental AmigaOS 4 port"
 	echo "  android        Experimental Android port"
+	echo "  pandora        Experimental Pandora port"
 	echo
 	echo "Supported <option> values (negatives can be used):"
 	echo
@@ -449,6 +450,11 @@ if [ "$PLATFORM" = "android" ]; then
 	EGL="true"
 fi
 
+if [ "$PLATFORM" = "pandora" ]; then
+	echo "#define CONFIG_PANDORA" >> src/config.h
+	echo "BUILD_PANDORA=1" >> platform.inc
+fi
+
 #
 # SDL was disabled above; must also disable SDL-dependent modules
 #
diff --git a/docs/changelog.txt b/docs/changelog.txt
index 0d92ffd1..f0df388c 100644
--- a/docs/changelog.txt
+++ b/docs/changelog.txt
@@ -34,6 +34,8 @@ USERS
   viewport to a size less than 80x25 but greater than the current board
   dimensions. The viewport will now always be clamped to board size.
 + Imported libmodplug 0.8.8.1 and rebased all patches.
++ Added experimental port to Pandora. See arch/pandora/README for more
+  information. (Exophase)
 
 DEVELOPERS
 
diff --git a/docs/platform_matrix.html b/docs/platform_matrix.html
index 3a72e320..19589bd9 100644
--- a/docs/platform_matrix.html
+++ b/docs/platform_matrix.html
@@ -23,7 +23,7 @@
 	border-collapse : collapse;
 	border : 2px solid black;
 	border-spacing : 0;
-	width : 103em;
+	width : 120em;
 }
 
 td, th {
@@ -33,7 +33,7 @@
 	border-color : gray;
 	padding : 5px;
 	color : black;
-	width : 9%;
+	width : 8.3%;
 }
 
 td {
@@ -117,6 +117,7 @@ <h1>MegaZeux Platform Support Matrix</h1>
 <th>psp</th>
 <th>unix</th>
 <th>wii</th>
+<th>pandora</th>
 </tr>
 
 <tr>
@@ -131,6 +132,7 @@ <h1>MegaZeux Platform Support Matrix</h1>
 <td>Playstation Portable</td>
 <td>Linux, BSD, Solaris<br/>HaikuOS, etc.</td>
 <td>Nintendo Wii</td>
+<td>Pandora</td>
 </tr>
 
 <tr>
@@ -145,6 +147,7 @@ <h1>MegaZeux Platform Support Matrix</h1>
 <td>MIPS (ELF)</td>
 <td>x86 (ELF)<br/>AMD64 (ELF)<br/>PPC64 (ELF)</td>
 <td>PPC (ELF)</td>
+<td>ARM9 (ELF)</td>
 </tr>
 
 <tr>
@@ -159,6 +162,7 @@ <h1>MegaZeux Platform Support Matrix</h1>
 <td>Big</td>
 <td>Varies</td>
 <td>Big</td>
+<td>Little</td>
 </tr>
 
 <tr>
@@ -166,13 +170,15 @@ <h1>MegaZeux Platform Support Matrix</h1>
 <td>gcc 4.2.2<br/>binutils 2.14<br/>clib2</td>
 <td>gcc 4.2.1<br/>binutils 2.17<br/>bionic</td>
 <td>gcc 4.0.1<br/>cctools 667.3<br/>10.3 (min ver)</td>
-<td>gcc 4.1.1 (open2x)<br/>binutils 2.16.1<br/>glibc 2.3.6</td>
+<td>gcc 4.1.1<br/>binutils 2.16.1<br/>glibc 2.3.6<br/>(open2x)</td>
 <td>gcc 4.4.0<br/>binutils 2.19.1</td>
 <td>Visual Studio 2008</td>
-<td>gcc 4.4.0 (dk r26)<br/>binutils 2.19.1</td>
-<td>gcc 4.3.3 (dk r13)<br/>binutils 2.16.1</td>
+<td>gcc 4.4.0<br/>binutils 2.19.1<br/>(dk r26)</td>
+<td>gcc 4.3.3<br/>binutils 2.16.1<br/>(dk r13)</td>
 <td>Various</td>
-<td>gcc 4.4.1 (dk r18)<br/>binutils 2.19.1</td>
+<td>gcc 4.4.1<br/>binutils 2.19.1<br/>(dk r18)</td>
+<td>gcc 4.4.1<br/>binutils 2.19.51<br/>(CS 2009q3)</td>
+
 </tr>
 
 <tr>
@@ -187,6 +193,7 @@ <h1>MegaZeux Platform Support Matrix</h1>
 <td class="yes">ZIP</td>
 <td class="yes">Various</td>
 <td class="yes">ZIP</td>
+<td class="no2">ZIP (PND?)</td>
 </tr>
 
 <tr>
@@ -201,6 +208,7 @@ <h1>MegaZeux Platform Support Matrix</h1>
 <td class="na">N/A</td>
 <td class="yes">YES</td>
 <td class="na">N/A</td>
+<td class="yes">YES</td>
 </tr>
 
 <tr>
@@ -215,6 +223,7 @@ <h1>MegaZeux Platform Support Matrix</h1>
 <td class="no">NO</td>
 <td class="yes">YES</td>
 <td class="no">NO</td>
+<td class="yes">YES</td>
 </tr>
 
 <tr>
@@ -229,6 +238,7 @@ <h1>MegaZeux Platform Support Matrix</h1>
 <td class="std">ModPlug</td>
 <td class="std">ModPlug</td>
 <td class="std">ModPlug</td>
+<td class="std">ModPlug</td>
 </tr>
 
 <tr>
@@ -243,6 +253,7 @@ <h1>MegaZeux Platform Support Matrix</h1>
 <td>tremor</td>
 <td class="std">libvorbis</td>
 <td class="std">libvorbis</td>
+<td class="std">libvorbis</td>
 </tr>
 
 
@@ -258,6 +269,7 @@ <h1>MegaZeux Platform Support Matrix</h1>
 <td>Size</td>
 <td>Speed</td>
 <td>Size</td>
+<td>Speed</td>
 </tr>
 
 <tr>
@@ -272,6 +284,7 @@ <h1>MegaZeux Platform Support Matrix</h1>
 <td class="yes">YES</td>
 <td class="yes">YES</td>
 <td class="std">NO</td>
+<td class="yes">YES</td>
 </tr>
 
 <tr>
@@ -286,6 +299,7 @@ <h1>MegaZeux Platform Support Matrix</h1>
 <td class="no2">NO<a href="#note4">[4]</a></td>
 <td class="yes">YES</td>
 <td class="yes">YES</td>
+<td class="yes">YES</td>
 </tr>
 
 <tr>
@@ -300,6 +314,7 @@ <h1>MegaZeux Platform Support Matrix</h1>
 <td class="no2">NO<a href="#note4">[4]</a></td>
 <td class="yes">YES</td>
 <td class="yes">YES</td>
+<td class="yes">YES</td>
 </tr>
 
 <tr>
@@ -314,6 +329,7 @@ <h1>MegaZeux Platform Support Matrix</h1>
 <td class="yes">YES</td>
 <td class="yes">YES</td>
 <td class="yes">YES</td>
+<td class="yes">YES</td>
 </tr>
 
 <tr>
@@ -328,6 +344,7 @@ <h1>MegaZeux Platform Support Matrix</h1>
 <td class="yes">YES</td>
 <td class="yes">YES</td>
 <td class="std">render_gx</td>
+<td class="yes">YES</td>
 </tr>
 
 <tr>
@@ -342,6 +359,7 @@ <h1>MegaZeux Platform Support Matrix</h1>
 <td class="no">NO</td>
 <td class="yes">YES</td>
 <td class="no">NO</td>
+<td class="no2">NO</td>
 </tr>
 
 <tr>
@@ -356,6 +374,7 @@ <h1>MegaZeux Platform Support Matrix</h1>
 <td class="no">NO</td>
 <td class="yes">YES</td>
 <td class="no">NO</td>
+<td class="no2">NO</td>
 </tr>
 
 <tr>
@@ -370,6 +389,7 @@ <h1>MegaZeux Platform Support Matrix</h1>
 <td class="na">N/A</td>
 <td class="yes">YES</td>
 <td class="na">N/A</td>
+<td class="no2">NO</td>
 </tr>
 
 <tr>
@@ -384,6 +404,7 @@ <h1>MegaZeux Platform Support Matrix</h1>
 <td class="no">NO</td>
 <td class="no2">NO<a href="#note5">[5]</a></td>
 <td class="no">NO</td>
+<td class="yes">YES</td>
 </tr>
 
 
@@ -399,6 +420,7 @@ <h1>MegaZeux Platform Support Matrix</h1>
 <td class="na">N/A</td>
 <td class="yes">YES</td>
 <td class="na">N/A</td>
+<td class="yes">YES</td>
 </tr>
 
 <tr>
@@ -413,6 +435,7 @@ <h1>MegaZeux Platform Support Matrix</h1>
 <td class="no2">NO<a href="#note6">[6]</a></td>
 <td class="yes">YES</td>
 <td class="no2">NO<a href="#note6">[6]</a></td>
+<td class="yes">YES</td>
 </tr>
 
 <tr>
@@ -427,6 +450,7 @@ <h1>MegaZeux Platform Support Matrix</h1>
 <td class="na">N/A</td>
 <td class="yes">YES</td>
 <td class="na">N/A</td>
+<td class="yes">YES</td>
 </tr>
 
 <tr>
@@ -441,6 +465,7 @@ <h1>MegaZeux Platform Support Matrix</h1>
 <td class="yes">YES</td>
 <td class="std">NO</td>
 <td class="yes">YES</td>
+<td class="std">NO</td>
 </tr>
 
 </table>
diff --git a/src/event.c b/src/event.c
index 895f9337..b3652b10 100644
--- a/src/event.c
+++ b/src/event.c
@@ -753,3 +753,24 @@ void set_num_buffered_events(Uint8 value)
 {
   num_buffered_events = MAX(1, value);
 }
+
+void key_press(struct buffered_status *status, enum keycode key,
+ Uint16 unicode_key)
+{
+  status->keymap[key] = 1;
+  status->key_pressed = key;
+  status->key = key;
+  status->unicode = unicode_key;
+  status->key_repeat = key;
+  status->unicode_repeat = unicode_key;
+  status->keypress_time = get_ticks();
+  status->key_release = IKEY_UNKNOWN;
+}
+
+void key_release(struct buffered_status *status, enum keycode key)
+{
+  status->keymap[key] = 0;
+  status->key_repeat = IKEY_UNKNOWN;
+  status->unicode_repeat = 0;
+  status->key_release = key;
+}
diff --git a/src/event.h b/src/event.h
index 5cf51295..8f58dadd 100644
--- a/src/event.h
+++ b/src/event.h
@@ -105,6 +105,9 @@ CORE_LIBSPEC bool get_alt_status(enum keycode_type type);
 CORE_LIBSPEC bool get_shift_status(enum keycode_type type);
 CORE_LIBSPEC bool get_ctrl_status(enum keycode_type type);
 CORE_LIBSPEC void initialize_joysticks(void);
+CORE_LIBSPEC void key_press(struct buffered_status *status, enum keycode key,
+ Uint16 unicode_key);
+CORE_LIBSPEC void key_release(struct buffered_status *status, enum keycode key);
 
 // Implemented by "drivers" (SDL, Wii, and NDS currently)
 void __wait_event(void);
diff --git a/src/event_sdl.c b/src/event_sdl.c
index d035f842..a91ee4dd 100644
--- a/src/event_sdl.c
+++ b/src/event_sdl.c
@@ -109,10 +109,6 @@ static enum keycode convert_SDL_internal(SDLKey key)
     case SDLK_RIGHT: return IKEY_RIGHT;
     case SDLK_LEFT: return IKEY_LEFT;
     case SDLK_INSERT: return IKEY_INSERT;
-    case SDLK_HOME: return IKEY_HOME;
-    case SDLK_END: return IKEY_END;
-    case SDLK_PAGEUP: return IKEY_PAGEUP;
-    case SDLK_PAGEDOWN: return IKEY_PAGEDOWN;
     case SDLK_F1: return IKEY_F1;
     case SDLK_F2: return IKEY_F2;
     case SDLK_F3: return IKEY_F3;
@@ -128,9 +124,7 @@ static enum keycode convert_SDL_internal(SDLKey key)
     case SDLK_NUMLOCK: return IKEY_NUMLOCK;
     case SDLK_CAPSLOCK: return IKEY_CAPSLOCK;
     case SDLK_SCROLLOCK: return IKEY_SCROLLOCK;
-    case SDLK_RSHIFT: return IKEY_RSHIFT;
     case SDLK_LSHIFT: return IKEY_LSHIFT;
-    case SDLK_RCTRL: return IKEY_RCTRL;
     case SDLK_LCTRL: return IKEY_LCTRL;
     case SDLK_RALT: return IKEY_RALT;
     case SDLK_LALT: return IKEY_LALT;
@@ -139,6 +133,21 @@ static enum keycode convert_SDL_internal(SDLKey key)
     case SDLK_SYSREQ: return IKEY_SYSREQ;
     case SDLK_BREAK: return IKEY_BREAK;
     case SDLK_MENU: return IKEY_MENU;
+#ifndef CONFIG_PANDORA
+    case SDLK_HOME: return IKEY_HOME;
+    case SDLK_END: return IKEY_END;
+    case SDLK_PAGEUP: return IKEY_PAGEUP;
+    case SDLK_PAGEDOWN: return IKEY_PAGEDOWN;
+    case SDLK_RSHIFT: return IKEY_RSHIFT;
+    case SDLK_RCTRL: return IKEY_RCTRL;
+#else /* CONFIG_PANDORA */
+    case SDLK_HOME: return input.joystick_button_map[0][0];
+    case SDLK_END: return input.joystick_button_map[0][1];
+    case SDLK_PAGEUP: return input.joystick_button_map[0][2];
+    case SDLK_PAGEDOWN: return input.joystick_button_map[0][3];
+    case SDLK_RSHIFT: return input.joystick_button_map[0][4];
+    case SDLK_RCTRL: return input.joystick_button_map[0][5];
+#endif /* CONFIG_PANDORA */
     default: return IKEY_UNKNOWN;
   }
 }
@@ -293,14 +302,7 @@ static bool process_event(SDL_Event *event)
         }
       }
 
-      status->keymap[ckey] = 1;
-      status->key_pressed = ckey;
-      status->key = ckey;
-      status->unicode = event->key.keysym.unicode;
-      status->key_repeat = ckey;
-      status->unicode_repeat = event->key.keysym.unicode;
-      status->keypress_time = get_ticks();
-      status->key_release = IKEY_UNKNOWN;
+      key_press(status, ckey, event->key.keysym.unicode);
       break;
     }
 
@@ -382,40 +384,19 @@ static bool process_event(SDL_Event *event)
         if(stuffed_key)
         {
           if(status->keymap[stuffed_key] == 0)
-          {
-            status->key_pressed = stuffed_key;
-            status->key = stuffed_key;
-            status->unicode = stuffed_key;
-            status->key_repeat = stuffed_key;
-            status->unicode_repeat = stuffed_key;
-            status->keymap[stuffed_key] = 1;
-            status->keypress_time = get_ticks();
-            status->key_release = IKEY_UNKNOWN;
-          }
+            key_press(status, stuffed_key, stuffed_key);
 
           if(last_axis == (digital_value ^ 1))
           {
-            stuffed_key = input.joystick_axis_map[which][axis][last_axis];
-
-            status->keymap[stuffed_key] = 0;
-            status->key_repeat = IKEY_UNKNOWN;
-            status->unicode_repeat = 0;
-            status->key_release = stuffed_key;
+            key_release(status,
+             input.joystick_axis_map[which][axis][last_axis]);
           }
         }
       }
       else
       {
-        stuffed_key =
-          input.joystick_axis_map[which][axis][last_axis];
-
-        if(stuffed_key)
-        {
-          status->keymap[stuffed_key] = 0;
-          status->key_repeat = IKEY_UNKNOWN;
-          status->unicode_repeat = 0;
-          status->key_release = stuffed_key;
-        }
+        key_release(status,
+          input.joystick_axis_map[which][axis][last_axis]);
       }
 
       status->axis[which][axis] = digital_value;
@@ -426,20 +407,10 @@ static bool process_event(SDL_Event *event)
     {
       int which = event->jbutton.which;
       int button = event->jbutton.button;
-      enum keycode stuffed_key =
-        input.joystick_button_map[which][button];
+      enum keycode stuffed_key = input.joystick_button_map[which][button];
 
       if(stuffed_key && (status->keymap[stuffed_key] == 0))
-      {
-        status->key_pressed = stuffed_key;
-        status->key = stuffed_key;
-        status->unicode = stuffed_key;
-        status->key_repeat = stuffed_key;
-        status->unicode_repeat = stuffed_key;
-        status->keymap[stuffed_key] = 1;
-        status->keypress_time = SDL_GetTicks();
-        status->key_release = (enum keycode)0;
-      }
+        key_press(status, stuffed_key, stuffed_key);
 
       break;
     }
@@ -448,16 +419,10 @@ static bool process_event(SDL_Event *event)
     {
       int which = event->jbutton.which;
       int button = event->jbutton.button;
-      enum keycode stuffed_key =
-        input.joystick_button_map[which][button];
+      enum keycode stuffed_key = input.joystick_button_map[which][button];
 
       if(stuffed_key)
-      {
-        status->keymap[stuffed_key] = 0;
-        status->key_repeat = (enum keycode)0;
-        status->unicode_repeat = 0;
-        status->key_release = stuffed_key;
-      }
+        key_release(status, stuffed_key);
 
       break;
     }