2018-06-04 12:05:02 +00:00
|
|
|
; And Believe Me, I'm Still Alive
|
|
|
|
|
|
|
|
.include "zp.inc"
|
|
|
|
|
|
|
|
;=============================
|
|
|
|
; Setup
|
|
|
|
;=============================
|
|
|
|
jsr HOME
|
|
|
|
jsr TEXT
|
|
|
|
|
|
|
|
; init variables
|
|
|
|
|
|
|
|
lda #1
|
|
|
|
sta FORTYCOL
|
|
|
|
|
|
|
|
;===========================
|
|
|
|
; clear both screens
|
|
|
|
;===========================
|
|
|
|
|
|
|
|
only_forty:
|
|
|
|
|
|
|
|
; Clear text page0
|
|
|
|
|
|
|
|
jsr HOME
|
|
|
|
|
|
|
|
|
|
|
|
;============================
|
|
|
|
; Draw Lineart around edges
|
|
|
|
;============================
|
|
|
|
|
|
|
|
jsr setup_edges
|
|
|
|
|
|
|
|
jsr HOME
|
|
|
|
|
|
|
|
;==============================
|
|
|
|
; Setup lyrics
|
|
|
|
;==============================
|
|
|
|
|
|
|
|
; lda #<(lyrics)
|
|
|
|
; sta LYRICSL
|
|
|
|
; lda #>(lyrics)
|
|
|
|
; sta LYRICSH
|
|
|
|
|
|
|
|
|
2018-06-04 16:24:03 +00:00
|
|
|
;MADDRL EQU 30
|
|
|
|
;MADDRH EQU 31
|
|
|
|
|
2018-06-04 12:05:02 +00:00
|
|
|
;==================
|
|
|
|
; load song
|
|
|
|
;==================
|
2018-06-04 16:24:03 +00:00
|
|
|
lda #<music_address
|
|
|
|
sta MADDRL
|
|
|
|
lda #>music_address
|
|
|
|
sta MADDRH
|
|
|
|
|
|
|
|
jsr play_ed
|
2018-06-04 12:05:02 +00:00
|
|
|
|
|
|
|
;==================
|
|
|
|
; loop forever
|
|
|
|
;==================
|
|
|
|
|
|
|
|
forever_loop:
|
|
|
|
jmp forever_loop
|
|
|
|
|
|
|
|
|
|
|
|
;=========
|
|
|
|
;routines
|
|
|
|
;=========
|
|
|
|
.include "../asm_routines/gr_offsets.s"
|
|
|
|
;.include "../asm_routines/lz4_decode.s"
|
|
|
|
|
|
|
|
.include "display_art.s"
|
|
|
|
.include "display_lyrics.s"
|
|
|
|
|
|
|
|
;.include "interrupt_handler.s"
|
|
|
|
|
|
|
|
.include "duet.s"
|
|
|
|
|
|
|
|
;=========
|
|
|
|
; strings
|
|
|
|
;=========
|
|
|
|
|
|
|
|
|
|
|
|
lyrics:
|
|
|
|
;.include "lyrics.inc"
|
|
|
|
|
|
|
|
.include "ascii_art.inc"
|
|
|
|
|
|
|
|
;LZ4_BUFFER:
|
|
|
|
;.incbin "SA.KR4"
|
|
|
|
|
|
|
|
|
2018-06-04 16:24:03 +00:00
|
|
|
music_address:
|
2018-06-04 12:05:02 +00:00
|
|
|
.incbin "SA.ED"
|
|
|
|
|