2017-08-17 03:18:59 +00:00
|
|
|
; Title Screen
|
|
|
|
|
|
|
|
|
|
title_screen:
|
|
|
|
|
|
|
|
|
|
;===========================
|
|
|
|
|
; Clear both bottoms
|
|
|
|
|
|
2020-09-28 02:03:01 +00:00
|
|
|
jsr clear_bottoms
|
2017-08-17 03:18:59 +00:00
|
|
|
|
|
|
|
|
;=============================
|
2020-09-28 02:03:01 +00:00
|
|
|
; Load title
|
|
|
|
|
|
|
|
|
|
lda #<(title_lzsa)
|
|
|
|
|
sta getsrc_smc+1
|
|
|
|
|
lda #>(title_lzsa)
|
|
|
|
|
sta getsrc_smc+2
|
2017-08-17 03:18:59 +00:00
|
|
|
|
|
|
|
|
lda #$0c
|
2020-09-28 02:03:01 +00:00
|
|
|
|
|
|
|
|
jsr decompress_lzsa2_fast
|
2017-08-17 03:18:59 +00:00
|
|
|
|
|
|
|
|
;=================================
|
|
|
|
|
; copy to both pages
|
|
|
|
|
|
|
|
|
|
jsr gr_copy_to_current
|
|
|
|
|
jsr page_flip
|
|
|
|
|
jsr gr_copy_to_current
|
|
|
|
|
|
|
|
|
|
lda #20
|
|
|
|
|
sta YPOS
|
|
|
|
|
lda #20
|
|
|
|
|
sta XPOS
|
|
|
|
|
|
|
|
|
|
;=================================
|
|
|
|
|
; wait for keypress
|
|
|
|
|
|
|
|
|
|
jsr wait_until_keypressed
|
|
|
|
|
|
|
|
|
|
rts
|
