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

@ -170,34 +170,37 @@ TestMasterLoop clc
:TestLoop ;THIS IS IT!
: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
@ -266,8 +269,8 @@ TestPrintErrors PushAll
rts
TestForceUpdateStatus PushAll
stx _stash
bra :print
stx _stash
bra :print
TestUpdateStatus PushAll
stx _stash ; save real X
lda _stash ;get low byte
@ -1112,3 +1115,4 @@ BankExpansionHighest ds 1
BankMap ds 256 ;page-align maps just to make them easier to see
_stash ds 256
ds \