4cade/src/ui.credits.a
2019-10-13 22:22:47 -04:00

58 lines
1.7 KiB
Plaintext

;license:MIT
;(c) 2018-9 by 4am
;
; credits page
;
; Public functions
; - Credits
; - Help
;
;------------------------------------------------------------------------------
; Credits
; display credits page and wait
;
; in: none
; out: C clear
; all other flags and registers clobbered
;------------------------------------------------------------------------------
Credits
jsr LoadFile ; load credits text into $8000
!word kRootDirectory
!word kCreditsFile
!word $8000
jsr ClearOffscreen
lda OffscreenPage
ror ; draw on offscreen page
+LDADDR $8000
jsr DrawPage ; draw credits
jsr ShowOtherPage ; show credits
jsr WaitForKeyFor30Seconds; wait
-- bit CLEARKBD ; don't care about key
jsr ShowOtherPage ; back to previous page
- clc ; if called from search mode, tell caller not to refresh
rts
;------------------------------------------------------------------------------
; Help
; display global help page and wait
;
; in: none
; out: if user presses an arrow key within 30 seconds, this exits via BrowseMode
; otherwise this returns to caller with
; C clear, all other flags and registers clobbered
;------------------------------------------------------------------------------
Help
jsr LoadHelpOffscreen
jsr ShowOtherPage
jsr WaitForKeyFor30Seconds
cmp #$88
beq BrowseMode
cmp #$83
beq -
jsr IsUpDownOrRightArrow
beq -
jsr IsSearchKey
bne --
rts