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

22
src/mmt.s
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 \