fix ESC to exit test

This commit is contained in:
Dagen Brock 2015-10-06 23:32:07 -05:00
parent 30e5493343
commit 77db105415
1 changed files with 7 additions and 4 deletions

View File

@ -200,6 +200,8 @@ TestKeyHandler sta $C010
jsr ToLower
cmp #"q"
beq TestAbort
cmp #KEY_ESC
beq TestAbort
cmp #"p"
beq :pause
jmp KeyHandled
@ -935,7 +937,8 @@ TT_BITWALK1 = 1
TT_BITWALK2 = 2
TT_RANDOM = 3
TestDirectionTbl db 0
TestDirectionTbl
TestDirection db 0
db 2
da _testDirectionUp,_testDirectionDown,00,00
_testDirectionUp asc "up",$00
@ -960,7 +963,6 @@ StartAddr dw #$0000
EndAddr dw #$FFFF
HexPattern dw #$0000
TestDirection dw #0 ; list
TestTwoPass dw #0 ; bool is byte, but might change in future? :P
TestAdjacentWrite dw #0 ; bool is byte, but might change in future? :P
TestRefreshPause dw #$00 ; int
@ -1298,3 +1300,4 @@ BankExpansionHighest ds 1
BankMap ds 256 ;page-align maps just to make them easier to see
_stash ds 256
ds \