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

re-enable color menu

This commit is contained in:
Dagen Brock 2015-10-25 15:15:57 -05:00
parent 8601f35783
commit 255e2a0849
1 changed files with 26 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
src/misc.s
View File

@ -1,13 +1,15 @@
MenuCheckKeyColor ;jsr ColorizeMenu MenuCheckKeyColor jsr ColorizeMenu
lda #55
jsr WaitSCB * lda #55
lda #80 * jsr WaitSCB
jsr WaitSCB * lda #80
lda #55 * jsr WaitSCB
jsr WaitSCB * lda #55
lda #80 * jsr WaitSCB
jsr WaitSCB * lda #80
* jsr WaitSCB
lda _ticker lda _ticker
bne :skipDraw ; we want to avoid updating when nothing is happening... "Save the Cycles!!" ;) bne :skipDraw ; we want to avoid updating when nothing is happening... "Save the Cycles!!" ;)
jsr Menu_HighlightSelected jsr Menu_HighlightSelected
@ -175,14 +177,14 @@ ColorizeMenuOld
rts rts
VBlankForce VBlankForce
:vbl ldal $00c019 :vbl ldal $00c019
bmi :vbl bmi :vbl
jmp VBlank jmp VBlank
rts rts
VBlank VBlank
:vbl ldal $00c019 :vbl ldal $00c019
bpl :vbl bpl :vbl
rts rts
WaitSCB sta :val+1 WaitSCB sta :val+1
ldx #2 ; to check twice ldx #2 ; to check twice
@ -301,7 +303,7 @@ Intro lda #$f5 ;gray
bcc :invisible bcc :invisible
jsr Clicky jsr Clicky
:invisible :invisible
jsr VBlankForce jsr VBlankForce
@ -329,20 +331,20 @@ Intro lda #$f5 ;gray
Clicky ldx #$FE Clicky ldx #$FE
:nox txy :nox txy
nop nop
nop nop
nop nop
nop nop
sta SPEAKER sta SPEAKER
:noy dey :noy dey
dey dey
cpy #10 cpy #10
bcs :noy bcs :noy
dex dex
dex dex
cpx #$A0 cpx #$A0
bne :nox bne :nox
rts rts