Apple-2gs-SW/MiniMemoryTester
1
0
Fork 0
mirror of https://github.com/digarok/MiniMemoryTester.git synced 2024-12-22 15:31:03 +00:00
Code Issues Projects Releases Wiki Activity

add Q key to test

Browse Source
This commit is contained in:
Dagen Brock 2015-09-29 23:56:20 -05:00
parent 24b2bff84d
commit 69c3d1adbd
1 changed files with 16 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
src/mmt.s
View File

@ -170,34 +170,37 @@ TestMasterLoop clc
:TestLoop ;THIS IS IT! :TestLoop ;THIS IS IT!
lda $C000
bmi TestKeyHandler
KeyHandled
jsr TestMemoryLocation jsr TestMemoryLocation
jsr TestUpdateStatus jsr TestUpdateStatus
jsr TestAdvanceLocation jsr TestAdvanceLocation
bcc :TestLoop bcc :TestLoop
bcs :NextBank bcs :NextBank
:NextIteration inc _testIteration ;see if we've done enough tests :NextIteration inc _testIteration ;see if we've done enough tests
lda TestIterations lda TestIterations
beq :infiniteIterations ;0=infinite beq :infiniteIterations ;0=infinite
cmp _testIteration cmp _testIteration
bcc :testComplete bcc :testComplete
:infiniteIterations jmp TestMasterLoop :infiniteIterations jmp TestMasterLoop
TestAbort
:testComplete sep #$10 :testComplete sep #$10
jsr LogTestDone jsr LogTestDone
rts rts
Mesg_Done asc "DONE WITH TEST",$8D,00 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 rts
TestForceUpdateStatus PushAll TestForceUpdateStatus PushAll
stx _stash stx _stash
bra :print bra :print
TestUpdateStatus PushAll TestUpdateStatus PushAll
stx _stash ; save real X stx _stash ; save real X
lda _stash ;get low byte 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 BankMap ds 256 ;page-align maps just to make them easier to see
_stash ds 256 _stash ds 256
ds \ ds \