fix pause

2015-09-30 09:37:21 -05:00 · 2015-09-30 09:37:21 -05:00 · 7f3066e1dd
parent 69c3d1adbd
commit 7f3066e1dd
1 changed files with 7 additions and 0 deletions
--- 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