mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-13 12:56:30 +00:00
86 lines
1.1 KiB
ArmAsm
86 lines
1.1 KiB
ArmAsm
|
; 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
|
||
|
|
|
||
|
|
|
||
|
|
;==================
|
||
|
|
; load song
|
||
|
|
;==================
|
||
|
|
|
||
|
|
;==================
|
||
|
|
; 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"
|
||
|
|
|
||
|
|
|
||
|
|
.incbin "SA.ED"
|
||
|
|
|