4cade/src/ui.browse.mode.a

173 lines
4.7 KiB
Plaintext
Raw Normal View History

2019-07-03 22:31:50 +00:00
;license:MIT
2020-03-17 01:58:05 +00:00
;(c) 2018-2020 by 4am
2019-07-03 22:31:50 +00:00
;
; Browse Mode - main UI
;
; Public functions
; - BrowseMode
;
;------------------------------------------------------------------------------
; BrowseMode
; main entry point for Browse Mode, which allows the user to browse the game
; catalog in alphabetical order and launch games
;
; in: none
; out: never returns to caller (may JMP to other major modes)
;------------------------------------------------------------------------------
BrowseMode
ldx #$FF
txs
2019-09-21 22:04:38 +00:00
@BrowseModeInputLoop
jsr WaitForKeyFor30Seconds
bit CLEARKBD
2019-07-03 22:31:50 +00:00
2019-09-26 03:01:59 +00:00
; indices into BrowseDispatchTable below
kBrowseSearch = 0
kBrowsePrevious = 1
kBrowseNext = 2
kBrowseExitToSearch = 3
kBrowseTab = 4
kBrowseLaunch = 5
kBrowseHelp = 6
kBrowseCredits = 7
kBrowseCheat = 8
2019-11-27 21:51:43 +00:00
kSoftBell = 9 ; must match kInputError
2019-09-26 03:01:59 +00:00
2019-09-06 19:21:38 +00:00
ldy #kNumBrowseKeys
- dey
bmi @noKeyMatch
2019-09-21 22:04:38 +00:00
cmp BrowseKeys,y
2019-09-06 19:21:38 +00:00
bne -
2019-09-21 22:04:38 +00:00
ldx BrowseKeyDispatch,y
2019-07-10 17:37:59 +00:00
bne @BrowseDispatch ; always branches
2019-09-06 19:21:38 +00:00
@noKeyMatch
jsr IsSearchKey
2019-11-27 21:51:43 +00:00
bne @BrowseDispatch
2019-07-03 22:31:50 +00:00
ldx #kBrowseSearch
2019-11-27 21:51:43 +00:00
2019-07-03 22:31:50 +00:00
; execution falls through here
@BrowseDispatch
2019-09-21 22:04:38 +00:00
ldy BrowseDispatchTableLo,x
2019-09-06 19:21:38 +00:00
sty @j+1
2019-09-21 22:04:38 +00:00
ldy BrowseDispatchTableHi,x
2019-09-06 19:21:38 +00:00
sty @j+2
2019-07-03 22:31:50 +00:00
@j jsr $FDFD ; SMC
2019-09-21 22:04:38 +00:00
jmp @BrowseModeInputLoop
2019-07-03 22:31:50 +00:00
2019-09-21 22:04:38 +00:00
OnBrowseSearch
2019-07-03 22:31:50 +00:00
sta InputBuffer
lda #$01
sta InputLength
jmp SearchMode
2019-09-21 22:04:38 +00:00
OnBrowsePrevious
2020-03-24 20:30:14 +00:00
+LD16 gGameToLaunch
+CMP16 0
bne @notFirstGame
+LD16 GameCount
@notFirstGame
+DEC16
+ST16 gGameToLaunch
2019-10-10 01:02:46 +00:00
jmp OnBrowseChanged
2019-09-21 22:04:38 +00:00
OnBrowseNext
2020-03-24 20:30:14 +00:00
+LD16 gGameToLaunch
+INC16
+CMP16ADDR GameCount
bne @notLastGame
lda #0
tay
@notLastGame
+ST16 gGameToLaunch
jmp OnBrowseChanged
2019-07-03 22:31:50 +00:00
2019-09-21 22:04:38 +00:00
OnBrowseLaunch
2019-09-21 03:26:32 +00:00
jsr PlayGame
jsr BlankHGR
2019-09-21 22:04:38 +00:00
jmp ForceBrowseChanged
2019-09-21 22:04:38 +00:00
OnBrowseCheat
jsr ToggleCheat
2019-09-21 22:04:38 +00:00
beq ForceBrowseChanged ; always branches because Z=1 on exit from ToggleCheat
2019-09-21 22:04:38 +00:00
OnBrowseTab
2019-07-03 22:31:50 +00:00
jsr MiniAttractMode
cmp #$8D
2019-09-21 22:04:38 +00:00
beq OnBrowseLaunch
; execution falls through here
ForceBrowseChanged
bit CLEARKBD
; execution falls through here
2019-09-21 22:04:38 +00:00
OnBrowseChanged
2020-03-24 20:30:14 +00:00
; in: gGameToLaunch = game index (word)
jsr SwitchToBank2
jsr EnableAcceleratorAndSwitchToBank1
2019-09-21 21:35:49 +00:00
jsr LoadGameTitleOffscreen
2019-09-28 12:35:48 +00:00
jsr DrawUIWithoutDots
jmp MaybeAnimateTitle
BrowseCreditsWrapper
jsr Credits
jmp ForceBrowseChanged
BrowseHelpWrapper
jsr Help
jmp ForceBrowseChanged
2019-07-03 22:31:50 +00:00
;------------------------------------------------------------------------------
2019-09-21 22:04:38 +00:00
BrowseDispatchTableLo
!byte <OnBrowseSearch
!byte <OnBrowsePrevious
!byte <OnBrowseNext
2019-09-06 19:21:38 +00:00
!byte <SearchMode
2019-09-21 22:04:38 +00:00
!byte <OnBrowseTab
!byte <OnBrowseLaunch
!byte <BrowseHelpWrapper
!byte <BrowseCreditsWrapper
2019-09-21 22:04:38 +00:00
!byte <OnBrowseCheat
2019-09-26 03:01:59 +00:00
!byte <SoftBell
2019-09-21 22:04:38 +00:00
BrowseDispatchTableHi
!byte >OnBrowseSearch
!byte >OnBrowsePrevious
!byte >OnBrowseNext
2019-09-06 19:21:38 +00:00
!byte >SearchMode
2019-09-21 22:04:38 +00:00
!byte >OnBrowseTab
!byte >OnBrowseLaunch
!byte >BrowseHelpWrapper
!byte >BrowseCreditsWrapper
2019-09-21 22:04:38 +00:00
!byte >OnBrowseCheat
2019-09-26 03:01:59 +00:00
!byte >SoftBell
2019-09-06 19:21:38 +00:00
kNumBrowseKeys = 12 ; number of entries in next 2 tables (each)
2019-09-21 22:04:38 +00:00
BrowseKeys
!byte $83 ; Ctrl-C = toggle cheat mode
!byte $81 ; Ctrl-A = about
!byte $AF ; '/' = help
!byte $BF ; '?' = help
2019-09-06 19:21:38 +00:00
!byte $A0 ; Space = mini attract mode
!byte $89 ; TAB = mini attract mode
!byte $8D ; ENTER = launch current game
!byte $9B ; Esc = switch to search mode
!byte $8A ; down arrow = next
!byte $95 ; right arrow = next
!byte $8B ; up arrow = previous
!byte $88 ; left arrow = previous
2019-09-21 22:04:38 +00:00
BrowseKeyDispatch
!byte kBrowseCheat
2019-09-06 19:21:38 +00:00
!byte kBrowseCredits
!byte kBrowseHelp
!byte kBrowseHelp
2019-09-06 19:21:38 +00:00
!byte kBrowseTab
!byte kBrowseTab
!byte kBrowseLaunch
!byte kBrowseExitToSearch
!byte kBrowseNext
!byte kBrowseNext
!byte kBrowsePrevious
!byte kBrowsePrevious
2020-03-24 20:30:14 +00:00
GameCount
!word 0