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

187 lines
5.1 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
kBrowseJoystick = 10
2020-07-29 16:15:22 +00:00
kBrowseQuit = 11
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
2021-10-13 22:58:26 +00:00
!if kBrowseSearch > 0 {
2019-11-27 21:51:43 +00:00
bne @BrowseDispatch
2019-07-03 22:31:50 +00:00
ldx #kBrowseSearch
2021-10-13 22:58:26 +00:00
}
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
+LDX16 gGameToLaunch
2021-10-13 22:58:26 +00:00
+CPX16_0_NE @notFirstGame
+LDX16 GameCount
2020-03-24 20:30:14 +00:00
@notFirstGame
+DEX16
jmp notLastGame
2019-10-10 01:02:46 +00:00
2019-09-21 22:04:38 +00:00
OnBrowseNext
+LDX16 gGameToLaunch
+INX16
2021-10-13 22:58:26 +00:00
+CPX16ADDR_NE GameCount, notLastGame
ldx #0
ldy #0
notLastGame
+STX16 gGameToLaunch
2020-03-24 20:30:14 +00:00
jmp OnBrowseChanged
2019-07-03 22:31:50 +00:00
2021-11-13 01:46:05 +00:00
ReloadIndexAndLaunch
jsr ReloadSearchIndex
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
2021-11-13 01:46:05 +00:00
beq ReloadIndexAndLaunch
2019-09-21 22:04:38 +00:00
; execution falls through here
ForceBrowseChanged
2021-11-13 01:46:05 +00:00
jsr ReloadSearchIndex
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)
; gSearchStore populated
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
!byte <Joystick
2020-07-29 16:15:22 +00:00
!byte <OnQuit
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
!byte >Joystick
2020-07-29 16:15:22 +00:00
!byte >OnQuit
2019-09-06 19:21:38 +00:00
2020-07-29 01:06:36 +00:00
kNumBrowseKeys = 14
; 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
!byte $90 ; Ctrl-P = launch joystick calibration program
2020-07-29 16:15:22 +00:00
!byte $91 ; Ctrl-Q = quit
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
!byte kBrowseJoystick
2020-07-29 16:15:22 +00:00
!byte kBrowseQuit
2020-03-24 20:30:14 +00:00
GameCount
!word 0