2019-07-10 17:37:59 +00:00
|
|
|
;license:MIT
|
|
|
|
|
;(c) 2018-9 by 4am
|
|
|
|
|
;
|
|
|
|
|
; credits page
|
|
|
|
|
;
|
|
|
|
|
; Public functions
|
|
|
|
|
; - Credits
|
|
|
|
|
|
|
|
|
|
Credits
|
|
|
|
|
; clobbers all
|
2019-09-10 02:38:17 +00:00
|
|
|
jsr LoadFile ; load credits text into $8000
|
|
|
|
|
!word kRootDirectory
|
2019-09-21 22:04:38 +00:00
|
|
|
!word kCreditsFile
|
2019-09-10 02:38:17 +00:00
|
|
|
!word $8000
|
2019-07-10 17:37:59 +00:00
|
|
|
jsr ClearOffscreen
|
|
|
|
|
lda OffscreenPage
|
|
|
|
|
ror ; draw on offscreen page
|
|
|
|
|
+LDADDR $8000
|
2019-09-10 04:32:30 +00:00
|
|
|
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
|
2019-07-10 17:37:59 +00:00
|
|
|
rts
|
