add Q key to test

2015-09-29 23:56:20 -05:00 · 2015-09-29 23:56:20 -05:00 · 69c3d1adbd
parent 24b2bff84d
commit 69c3d1adbd
1 changed files with 16 additions and 12 deletions
--- a/src/mmt.s
+++ b/src/mmt.s
@ -171,33 +171,36 @@ TestMasterLoop         clc


 :TestLoop                                                         ;THIS IS IT!
+                       lda          $C000
+                       bmi          TestKeyHandler
+KeyHandled
                       jsr          TestMemoryLocation
                       jsr          TestUpdateStatus
-
-
                       jsr          TestAdvanceLocation
                       bcc          :TestLoop
-
-
-
-
-
-
                       bcs          :NextBank

+
+
 :NextIteration         inc          _testIteration                ;see if we've done enough tests
                       lda          TestIterations
                       beq          :infiniteIterations           ;0=infinite
                       cmp          _testIteration
                       bcc          :testComplete
 :infiniteIterations    jmp          TestMasterLoop
-
+TestAbort
 :testComplete          sep          #$10
                       jsr          LogTestDone
                       rts
 Mesg_Done              asc          "DONE WITH TEST",$8D,00


+TestKeyHandler         sta          $C010
+                       cmp          #"Q"
+                       beq          TestAbort
+                       cmp          #"q"
+                       beq          TestAbort
+                       jmp          KeyHandled



@ -1112,3 +1115,4 @@ BankExpansionHighest   ds           1
 BankMap                ds           256                           ;page-align maps just to make them easier to see
 _stash                 ds           256
                       ds           \
+