diff --git a/src/mmt.s b/src/mmt.s
index 35147bc..0bfa19a 100644
--- a/src/mmt.s
+++ b/src/mmt.s
@@ -200,6 +200,13 @@ TestKeyHandler         sta          $C010
                        beq          TestAbort
                        cmp          #"q"
                        beq          TestAbort
+                       cmp          #"p"
+                       beq          :pause
+                       jmp          KeyHandled
+:pause
+:nokey                 lda          $C000
+                       bpl          :nokey
+                       sta          $C010
                        jmp          KeyHandled