dos33fsprogs/demosplash/demosplash.s

142 lines
2.1 KiB
ArmAsm
Raw Normal View History

2019-08-30 23:45:50 -04:00
; Demosplash 2019
; by Vince "Deater" Weaver <vince@deater.net>
.include "zp.inc"
.include "hardware.inc"
2019-10-08 21:57:48 -04:00
demosplash2019:
2019-09-04 15:46:10 -04:00
2019-08-30 23:45:50 -04:00
;=========================
; set up sound
;=========================
2019-10-02 00:25:04 -04:00
lda #0
sta DONE_PLAYING
2019-08-30 23:45:50 -04:00
2019-10-02 00:25:04 -04:00
jsr mockingboard_init
jsr pt3_setup_interrupt
jsr reset_ay_both
jsr clear_ay_both
jsr pt3_init_song
2019-08-30 23:45:50 -04:00
2019-09-04 15:46:10 -04:00
; lda #1
; sta LOOP
2019-08-30 23:45:50 -04:00
;===========================
; Enable graphics
;===========================
bit LORES
bit SET_GR
bit FULLGR
bit KEYRESET
;===========================
; Setup pages (is this necessary?)
;===========================
lda #0
sta DRAW_PAGE
lda #1
sta DISP_PAGE
2019-10-02 00:25:04 -04:00
;===========================
; apple II intro
;============================
2019-08-30 23:45:50 -04:00
2019-10-02 00:25:04 -04:00
; jsr appleII_intro
2019-08-30 23:45:50 -04:00
;===========================
; show some pictures
;============================
; start music
2019-10-07 00:12:36 -04:00
; cli ; enable interrupts
2019-08-30 23:45:50 -04:00
2019-10-08 21:57:48 -04:00
;===========================
; missing scene
;===========================
2019-10-08 23:04:26 -04:00
; jsr missing_intro
2019-10-08 21:57:48 -04:00
;===========================
; starbase scene
;===========================
2019-10-07 00:12:36 -04:00
; jsr starbase
2019-10-08 23:04:26 -04:00
;===========================
; escape scene
;===========================
jsr escape
2019-10-07 00:12:36 -04:00
;===========================
; book scene
;===========================
2019-10-08 21:57:48 -04:00
; jsr book
2019-10-02 00:03:00 -04:00
2019-08-30 23:45:50 -04:00
; wait wait wait
2019-10-02 00:03:00 -04:00
; jsr wait_until_keypressed
;repeat_ending:
; jmp repeat_ending
2019-08-30 23:45:50 -04:00
;======================
; wait until keypressed
;======================
wait_until_keypressed:
lda KEYPRESS
bpl wait_until_keypressed
bit KEYRESET
rts
2019-09-04 15:46:10 -04:00
; Apple II intro
.include "appleII_intro.s"
.include "appleII_40_96.inc"
.include "vapor_lock.s"
.include "delay_a.s"
.include "gr_unrle.s"
.include "gr_offsets.s"
.include "gr_copy.s"
2019-08-30 23:45:50 -04:00
;.include "text_print.s"
2019-10-02 00:03:00 -04:00
.include "gr_pageflip.s"
2019-10-12 13:51:02 -04:00
.align $100
2019-10-12 10:47:38 -04:00
.include "gr_fast_clear.s"
2019-08-30 23:45:50 -04:00
;.include "gr_overlay.s"
2019-10-08 08:27:00 -04:00
; missing
.include "missing.s"
2019-10-02 00:03:00 -04:00
; Starbase
.include "starbase.s"
2019-10-08 23:04:26 -04:00
; escape
.include "escape.s"
2019-10-07 00:12:36 -04:00
; book
.include "book.s"
2019-10-02 00:25:04 -04:00
; Music player
.include "pt3_lib_core.s"
.include "pt3_lib_init.s"
.include "pt3_lib_mockingboard.s"
2019-08-30 23:45:50 -04:00
.include "interrupt_handler.s"
PT3_LOC = song
; must be page aligned
.align 256
song:
.incbin "dya_space_demo.pt3"