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

allow for keypress skip in intro and better timing

This commit is contained in:
Dagen Brock 2015-10-25 15:37:54 -05:00
parent 255e2a0849
commit 250705348c
1 changed files with 39 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
src/misc.s
View File

@ -267,9 +267,14 @@ Intro lda #$f5 ;gray
sta $C00f sta $C00f
sta TXTPAGE1 sta TXTPAGE1
PRINTXY #25;#20;Mesg_Ultimate jsr Clicky
PRINTXY #25;#20;Mesg_Ultimate0
jsr Clicky
PRINTXY #25;#21;Mesg_Ultimate1
jsr CheckKey ;
bcs :pauseover ;SKIP THE REST!
lda #$03 lda #$05
:longerwait pha :longerwait pha
jsr WaitSome jsr WaitSome
pla pla
@ -289,6 +294,9 @@ Intro lda #$f5 ;gray
jsr WaitSome jsr WaitSome
jsr WaitSome jsr WaitSome
jsr CheckKey ;
bcs :pauseover ;SKIP THE REST!
sta TXTPAGE2 sta TXTPAGE2
@ -305,15 +313,21 @@ Intro lda #$f5 ;gray
:invisible :invisible
jsr VBlankForce jsr VBlankForce
jsr CheckKey ;
bcs :pauseover ;SKIP THE REST!
plx plx
inx inx
bra :prloop bra :prloop
:done :done
ldx #$95 ldx #$e0
:keyloop dex :keyloop
jsr CheckKey ;
bcs :pauseover ;SKIP THE REST!
dex
beq :pauseover beq :pauseover
phx phx
jsr VBlankForce jsr VBlankForce
@ -339,13 +353,28 @@ Clicky ldx #$FE
sta SPEAKER sta SPEAKER
:noy dey :noy dey
dey dey
dey
dey
dey
lda #9
:long nop
nop
nop
nop
nop
nop
dec
bne :long
cpy #10 cpy #10
bcs :noy bcs :noy
dex dex
dex dex
cpx #$A0 cpx #$f0
bne :nox bne :nox
ldx #$00
:wait inx
bne :wait
rts rts
MakeUMSound MakeUMSound
@ -386,8 +415,9 @@ MakeUMSound
rts rts
Mesg_Testchars asc $1b,'Uu ',"Uu ",$18,'Uu ',"Uu ",00 Mesg_Testchars asc $1b,'Uu ',"Uu ",$18,'Uu ',"Uu ",00
Mesg_Ultimate asc $18, "U l t i m a t e M i c r o",00 Mesg_Ultimate0 asc $18, " in association with ",00
Mesg_Programmed asc $18, " Programmed by Dagen Brock",00 Mesg_Ultimate1 asc $18, "U l t i m a t e M i c r o",00
Mesg_Programmed asc $18, " Programmed by Dagen Brock",00
Intro_WhiteMixText lda #" " Intro_WhiteMixText lda #" "
sta TXTPAGE1 sta TXTPAGE1
@ -601,3 +631,4 @@ LoLineTableL db <Lo01,<Lo02,<Lo03,<Lo04,<Lo05,<Lo06
db <Lo07,<Lo08,<Lo09,<Lo10,<Lo11,<Lo12 db <Lo07,<Lo08,<Lo09,<Lo10,<Lo11,<Lo12
db <Lo13,<Lo14,<Lo15,<Lo16,<Lo17,<Lo18 db <Lo13,<Lo14,<Lo15,<Lo16,<Lo17,<Lo18
db <Lo19,<Lo20,<Lo21,<Lo22,<Lo23,<Lo24 db <Lo19,<Lo20,<Lo21,<Lo22,<Lo23,<Lo24