From 7f3066e1ddd0aa3af295efbdfcaaf185c7423f42 Mon Sep 17 00:00:00 2001
From: Dagen Brock <dagenbrock@gmail.com>
Date: Wed, 30 Sep 2015 09:37:21 -0500
Subject: [PATCH] fix pause

---
 src/mmt.s | 7 +++++++
 1 file changed, 7 insertions(+)

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