dos33fsprogs/demos/lores_escape/demosplash.s
Vince Weaver e0febd1a90 demos: more work
keep making git mistakes urgh
2021-01-05 22:52:10 -05:00

243 lines
3.8 KiB
ArmAsm

; Demosplash 2019
; by Vince "Deater" Weaver <vince@deater.net>
.include "zp.inc"
.include "hardware.inc"
demosplash2019:
;==================================================
; clear zp
; shouldn't have to do this, but uninit memory bugs
;==================================================
lda #$38
ldy #$0
zp_clear_loop:
sta $0,y
iny
bne zp_clear_loop
;=========================
; set up sound
;=========================
lda #0
sta DONE_PLAYING
sta FRAME_PLAY_OFFSET
sta FRAME_PLAY_PAGE
sta FRAME_OFFSET
sta FRAME_PAGE
sta SOUND_WHILE_DECODE
jsr update_pt3_play
jsr pt3_set_pages
jsr mockingboard_init
jsr pt3_setup_interrupt
jsr reset_ay_both
jsr clear_ay_both
jsr pt3_init_song
lda #1
sta LOOP
;====================================
; turn on language card
; enable read/write, use 1st 4k bank
lda $C08B
lda $C08B
;====================================
; generate 4 patterns worth of music
; at address $D000-$FC00
jsr pt3_write_lc_4
;===========================
; Enable graphics
;===========================
bit LORES
bit SET_GR
bit FULLGR
bit KEYRESET
jmp main_body
; Pictures (no need to align)
.include "appleII_40_96.inc"
.include "k_40_48d.inc"
.include "graphics/book_open/book_open.inc"
.include "graphics/starbase/starbase.inc"
.include "graphics/starbase/ship_flames.inc"
.include "graphics/starbase/star_wipe.inc"
; Apple II intro
.include "appleII_intro.s"
; missing
.include "missing.s"
; missing
.include "open_book.s"
; Starbase
.include "starbase.s"
; UP UNTIL THIS POINT CAN BE WIPED BY SOUND AT END
main_body:
;===========================
; apple II intro
;============================
; nop
; nop
; nop
jsr appleII_intro
;===========================
; missing scene
;===========================
;blarh: jmp blarh
; nop
; nop
; nop
jsr missing_intro
;========================
; start irq music
;========================
; nop
cli ; enable interrupts
;===========================
; opening book scene
;============================
; nop
; nop
; nop
jsr open_book
;===========================
; starbase scene
;===========================
; nop
; nop
; nop
jsr starbase
;============================
; disable irq music
; nop
sei
;===========================
; escape scene
;===========================
jsr escape
;===========================
; book scene
;===========================
jsr end_book
;===========================
; credits
;===========================
jsr credits
; wait wait wait
; jsr wait_until_keypressed
repeat_ending:
jmp repeat_ending
;======================
; wait until keypressed
;======================
;wait_until_keypressed:
; lda KEYPRESS
; bpl wait_until_keypressed
; bit KEYRESET
; rts
; FIXME: put at end after music?
;.include "earth.inc"
.include "book_40_48d.inc"
.include "credits_bg.inc"
.include "delay_a.s" ; critical
; things that are exactly 1 page in size
.align $100
.include "offsets_table.s"
.include "movement_table.s"
random_values:
.incbin "random.data"
.include "offsets_table2.s"
.include "font.s"
; things that need to not cross pages
.include "vapor_lock.s"
.include "gr_copy.s"
.include "gr_unrle.s"
.include "gr_offsets.s"
.include "gr_pageflip.s"
.include "gr_clear_bottom.s"
;.align $100
.include "gr_overlay.s" ; not critical
.include "gr_fast_clear.s"
.include "gr_run_sequence.s" ; not critical
; escape
.include "escape.s"
; reading
.include "reading.s"
; credits
.include "credits.s"
; Music player
.include "pt3_lib_core.s"
.include "pt3_lib_init.s"
.include "pt3_lib_mockingboard.s"
.include "interrupt_handler.s"
.include "pt3_lib_play_frame.s"
.include "pt3_lib_write_frame.s"
.include "pt3_lib_write_lc.s"
.include "create_update_type1.s"
.include "create_update_type2.s"
PT3_LOC = song
; must be page aligned
.align 256
song:
.incbin "dya_space_demo2.pt3"
end_of_line: