shave some bytes

This commit is contained in:
4am 2019-10-07 23:53:52 -04:00
parent d23ed3ecac
commit f9bd909a12
2 changed files with 11 additions and 16 deletions

View File

@ -9,7 +9,7 @@
; D000..E611 - persistent data structures (per-game cheat categories, ; D000..E611 - persistent data structures (per-game cheat categories,
; gGlobalPrefsStore, gGamesListStore) ; gGlobalPrefsStore, gGamesListStore)
; ...unused... ; ...unused...
; EBEC..FFF9 - main program code ; EBF2..FFF9 - main program code
; FFFA..FFFF - NMI, reset, IRQ vectors ; FFFA..FFFF - NMI, reset, IRQ vectors
; ;
; LC RAM BANK 2 ; LC RAM BANK 2

View File

@ -21,9 +21,9 @@ Credits
jsr DrawPage ; draw credits jsr DrawPage ; draw credits
jsr ShowOtherPage ; show credits jsr ShowOtherPage ; show credits
jsr WaitForKeyFor30Seconds; wait jsr WaitForKeyFor30Seconds; wait
bit CLEARKBD ; don't care about key -- bit CLEARKBD ; don't care about key
jsr ShowOtherPage ; back to previous page jsr ShowOtherPage ; back to previous page
clc ; if called from search mode, tell caller not to refresh - clc ; if called from search mode, tell caller not to refresh
rts rts
Help Help
@ -31,18 +31,13 @@ Help
jsr LoadHelpOffscreen jsr LoadHelpOffscreen
jsr ShowOtherPage jsr ShowOtherPage
jsr WaitForKeyFor30Seconds jsr WaitForKeyFor30Seconds
cmp #$83
beq @exitWithoutShowingOtherPage
jsr IsUpDownOrRightArrow
beq @exitWithoutShowingOtherPage
cmp #$88 cmp #$88
beq @exitViaBrowse beq +
cmp #$83
beq -
jsr IsUpDownOrRightArrow
beq -
jsr IsSearchKey jsr IsSearchKey
beq @exitWithoutShowingOtherPage beq -
bit CLEARKBD bne --
jsr ShowOtherPage + jmp BrowseMode
@exitWithoutShowingOtherPage
clc
rts
@exitViaBrowse
jmp BrowseMode