From 6a4133d6cc4b19016ee95ba9c3106f4ce05abc53 Mon Sep 17 00:00:00 2001
From: Dagen Brock <dagenbrock@gmail.com>
Date: Fri, 6 Mar 2015 22:46:12 -0600
Subject: [PATCH] pause key

---
 src/mt.s | 25 +++++++++++--------------
 1 file changed, 11 insertions(+), 14 deletions(-)

diff --git a/src/mt.s b/src/mt.s
index 68b1f14..d43a16b 100644
--- a/src/mt.s
+++ b/src/mt.s
@@ -250,20 +250,11 @@ BeginTestPass	PRINTXY  #44;#08;Mesg_TestPass
 	xce	; WRITE END
 
 
-
-
-
-:kloop	lda KEY
-	bmi :gotOne
 	jsr Pauser	; PAUSE
-	jmp BeginTestPass
-:gotOne	sta STROBE
-	cmp #"b"	; REMOVE DEBUG
-	bne :nobreak
-	brk $75
-:nobreak
 	lda BorderColor
 	sta $C034
+	jmp BeginTestPass
+
 	rts
 
 _testIteration	ds 8
@@ -373,9 +364,15 @@ PrintTestCurrent	pha
 	inc _stash	; \
 	beq :noroll	;  |- INX
 	inc _stash+1        ; /
+:nocorrupt	cmp #"p"A	; check lower p
+* @TODO make tolower for the comparisons
+	bne :nopause
+	sta STROBE
+:nope	lda KEY
+	bpl :nope
+	sta STROBE
+:nopause
 :noroll
-:nocorrupt
-
 	clc
 	xce
 	rep $10
@@ -405,7 +402,6 @@ PRBIN	pha
 Pauser
 	PRINTXY #44;#11;Mesg_Waiting
 	ldy #60
-	brk $02
 	ldx TestDelay
 	beq :nopauseforyou
 	jsr PrintTimerVal	; inaugural print before waiting 1 sec
@@ -423,6 +419,7 @@ Pauser
 	bra :secondloop
 :donepause	
 	PRINTXY #44;#11;Mesg_Blank
+:nopauseforyou
 	rts
 PrintTimerVal
 	phx