Apple-2gs-SW
/
MiniMemoryTester
mirror of https://github.com/digarok/MiniMemoryTester.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

pause key

This commit is contained in:
Dagen Brock 2015-03-06 22:46:12 -06:00
parent bb67e3ecf2
commit 6a4133d6cc
1 changed files with 11 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
src/mt.s
View File

@ -250,20 +250,11 @@ BeginTestPass PRINTXY #44;#08;Mesg_TestPass
xce ; WRITE END xce ; WRITE END
:kloop lda KEY
bmi :gotOne
jsr Pauser ; PAUSE jsr Pauser ; PAUSE
jmp BeginTestPass
:gotOne sta STROBE
cmp #"b" ; REMOVE DEBUG
bne :nobreak
brk $75
:nobreak
lda BorderColor lda BorderColor
sta $C034 sta $C034
jmp BeginTestPass
rts rts
_testIteration ds 8 _testIteration ds 8
@ -373,9 +364,15 @@ PrintTestCurrent pha
inc _stash ; \ inc _stash ; \
beq :noroll ; |- INX beq :noroll ; |- INX
inc _stash+1 ; / inc _stash+1 ; /
:nocorrupt cmp #"p"A ; check lower p
* @TODO make tolower for the comparisons
bne :nopause
sta STROBE
:nope lda KEY
bpl :nope
sta STROBE
:nopause
:noroll :noroll
:nocorrupt
clc clc
xce xce
rep $10 rep $10
@ -405,7 +402,6 @@ PRBIN pha
Pauser Pauser
PRINTXY #44;#11;Mesg_Waiting PRINTXY #44;#11;Mesg_Waiting
ldy #60 ldy #60
brk $02
ldx TestDelay ldx TestDelay
beq :nopauseforyou beq :nopauseforyou
jsr PrintTimerVal ; inaugural print before waiting 1 sec jsr PrintTimerVal ; inaugural print before waiting 1 sec
@ -423,6 +419,7 @@ Pauser
bra :secondloop bra :secondloop
:donepause :donepause
PRINTXY #44;#11;Mesg_Blank PRINTXY #44;#11;Mesg_Blank
:nopauseforyou
rts rts
PrintTimerVal PrintTimerVal
phx phx