Apple-2gs-SW/MiniMemoryTester
1
0
Fork 0
mirror of https://github.com/digarok/MiniMemoryTester.git synced 2025-02-14 03:30:57 +00:00
Code Issues Projects Releases Wiki Activity

pause key

Browse Source
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
:kloop lda KEY
bmi :gotOne
jsr Pauser ; PAUSE
jmp BeginTestPass
:gotOne sta STROBE
cmp #"b" ; REMOVE DEBUG
bne :nobreak
brk $75
:nobreak
lda BorderColor
sta $C034
jmp BeginTestPass
rts
_testIteration ds 8
@ -373,9 +364,15 @@ PrintTestCurrent pha
inc _stash ; \
beq :noroll ; |- INX
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
:nocorrupt
clc
xce
rep $10
@ -405,7 +402,6 @@ PRBIN pha
Pauser
PRINTXY #44;#11;Mesg_Waiting
ldy #60
brk $02
ldx TestDelay
beq :nopauseforyou
jsr PrintTimerVal ; inaugural print before waiting 1 sec
@ -423,6 +419,7 @@ Pauser
bra :secondloop
:donepause
PRINTXY #44;#11;Mesg_Blank
:nopauseforyou
rts
PrintTimerVal
phx