add Q key to test

This commit is contained in:
Dagen Brock 2015-09-29 23:56:20 -05:00
parent 24b2bff84d
commit 69c3d1adbd

View File

@ -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 \