dos33fsprogs/demos/lores_escape/demosplash.s

; 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:
ds: initial commit 2019-08-31 03:45:50 +00:00			`; Demosplash 2019`
			`; by Vince "Deater" Weaver <vince@deater.net>`

			`.include "zp.inc"`
			`.include "hardware.inc"`

ds: missing section works 2019-10-09 01:57:48 +00:00			`demosplash2019:`
ds: add 40x96 code 2019-09-04 19:46:10 +00:00
ds: re-sync the sound after escaping 2019-11-19 01:39:19 +00:00

ds: optimize size a bit, remove excess alignments 2019-11-13 03:29:49 +00:00			`;==================================================`
ds: didn't run on real hardware! was relying on AppleWin initing to zero uninitialized vars 2019-11-10 01:17:07 +00:00			`; clear zp`
ds: optimize size a bit, remove excess alignments 2019-11-13 03:29:49 +00:00			`; shouldn't have to do this, but uninit memory bugs`
			`;==================================================`
ds: more tracking down the issue did find two more uninitialized variables, but not sure if they were the issue 2019-11-16 22:39:27 +00:00
			`lda #$38`
ds: more work on sound slightly better, weird pause :( 2019-11-18 20:46:12 +00:00			`ldy #$0`
ds: didn't run on real hardware! was relying on AppleWin initing to zero uninitialized vars 2019-11-10 01:17:07 +00:00			`zp_clear_loop:`
			`sta $0,y`
			`iny`
			`bne zp_clear_loop`

ds: initial commit 2019-08-31 03:45:50 +00:00			`;=========================`
			`; set up sound`
			`;=========================`
ds: add updated music 2019-10-02 04:25:04 +00:00			`lda #0`
			`sta DONE_PLAYING`
ds: sound on first scene at least 2019-11-08 03:04:25 +00:00			`sta FRAME_PLAY_OFFSET`
			`sta FRAME_PLAY_PAGE`
pt3: more music bad music :( 2019-11-08 06:18:02 +00:00			`sta FRAME_OFFSET`
			`sta FRAME_PAGE`
ds: more tracking down the issue did find two more uninitialized variables, but not sure if they were the issue 2019-11-16 22:39:27 +00:00			`sta SOUND_WHILE_DECODE`
ds: sound on first scene at least 2019-11-08 03:04:25 +00:00			`jsr update_pt3_play`
pt3: more music bad music :( 2019-11-08 06:18:02 +00:00			`jsr pt3_set_pages`
ds: initial commit 2019-08-31 03:45:50 +00:00
ds: add updated music 2019-10-02 04:25:04 +00:00			`jsr mockingboard_init`
			`jsr pt3_setup_interrupt`
			`jsr reset_ay_both`
			`jsr clear_ay_both`
			`jsr pt3_init_song`
ds: initial commit 2019-08-31 03:45:50 +00:00
ds: few more changes 2019-11-19 00:38:19 +00:00			`lda #1`
			`sta LOOP`
ds: more tracking down the issue did find two more uninitialized variables, but not sure if they were the issue 2019-11-16 22:39:27 +00:00
ds: move things off of $9000 so everything fits BLURGH lots of hard-coded $9000s everywhere 2019-11-07 16:44:05 +00:00			`;====================================`
			`; turn on language card`
			`; enable read/write, use 1st 4k bank`
ds: plays first frame. urgh 2019-11-07 17:06:13 +00:00			`lda $C08B`
			`lda $C08B`
ds: rename to make more sense also faster loads 2019-11-03 01:05:11 +00:00
			`;====================================`
			`; generate 4 patterns worth of music`
ds: move things off of $9000 so everything fits BLURGH lots of hard-coded $9000s everywhere 2019-11-07 16:44:05 +00:00			`; at address $D000-$FC00`
ds: rename to make more sense also faster loads 2019-11-03 01:05:11 +00:00
ds: try to make the sound playing code generic 2019-11-07 22:05:53 +00:00			`jsr pt3_write_lc_4`
ds: rename to make more sense also faster loads 2019-11-03 01:05:11 +00:00
ds: initial commit 2019-08-31 03:45:50 +00:00			`;===========================`
			`; Enable graphics`
			`;===========================`

			`bit LORES`
			`bit SET_GR`
			`bit FULLGR`
			`bit KEYRESET`

ds: fix problem where credits didn't work was over-writing the main() routine, oops 2019-11-16 01:31:17 +00:00			`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:`
ds: add updated music 2019-10-02 04:25:04 +00:00			`;===========================`
			`; apple II intro`
			`;============================`
ds: initial commit 2019-08-31 03:45:50 +00:00
ds: oh so close 2019-11-09 01:07:02 +00:00			`; nop`
			`; nop`
			`; nop`
ds: fix doors, enable everything now just need to get sound working :( 2019-11-07 05:06:19 +00:00			`jsr appleII_intro`
ds: initial commit 2019-08-31 03:45:50 +00:00
ds: rename to make more sense also faster loads 2019-11-03 01:05:11 +00:00			`;===========================`
			`; missing scene`
ds: initial commit 2019-08-31 03:45:50 +00:00			`;===========================`

ds: few more changes 2019-11-19 00:38:19 +00:00			`;blarh: jmp blarh`

ds: getting close 2019-11-09 02:01:57 +00:00			`; nop`
			`; nop`
			`; nop`
			`jsr missing_intro`
ds: rename to make more sense also faster loads 2019-11-03 01:05:11 +00:00

			`;========================`
			`; start irq music`
			`;========================`
ds: initial commit 2019-08-31 03:45:50 +00:00
ds: getting close 2019-11-09 02:01:57 +00:00			`; nop`
ds: oh so close 2019-11-09 01:07:02 +00:00
ds: getting close 2019-11-09 02:01:57 +00:00			`cli ; enable interrupts`
ds: initial commit 2019-08-31 03:45:50 +00:00
ds: missing section works 2019-10-09 01:57:48 +00:00			`;===========================`
ds: add book opening scene 2019-11-06 02:20:11 +00:00			`; opening book scene`
ds: rename to make more sense also faster loads 2019-11-03 01:05:11 +00:00			`;============================`
ds: more music issues with the cycle-counting parts :( 2019-11-08 05:47:34 +00:00
ds: getting close 2019-11-09 02:01:57 +00:00			`; nop`
			`; nop`
			`; nop`
ds: oh so close 2019-11-09 01:07:02 +00:00
ds: getting close 2019-11-09 02:01:57 +00:00			`jsr open_book`
ds: missing section works 2019-10-09 01:57:48 +00:00
			`;===========================`
			`; starbase scene`
			`;===========================`

ds: getting close 2019-11-09 02:01:57 +00:00			`; nop`
			`; nop`
			`; nop`
ds: oh so close 2019-11-09 01:07:02 +00:00
ds: getting close 2019-11-09 02:01:57 +00:00			`jsr starbase`
ds: add book scene 2019-10-07 04:12:36 +00:00
ds: enable music for non-cycle counted areas for timing testing 2019-11-05 15:16:59 +00:00			`;============================`
			`; disable irq music`

ds: getting close 2019-11-09 02:01:57 +00:00			`; nop`
			`sei`
ds: enable music for non-cycle counted areas for timing testing 2019-11-05 15:16:59 +00:00

ds: add escape sequence 2019-10-09 03:04:26 +00:00			`;===========================`
			`; escape scene`
			`;===========================`

ds: trying to put it all together 2019-11-06 04:56:51 +00:00			`jsr escape`
ds: add escape sequence 2019-10-09 03:04:26 +00:00
ds: add book scene 2019-10-07 04:12:36 +00:00			`;===========================`
			`; book scene`
			`;===========================`

ds: add message before reading 2019-11-06 04:40:29 +00:00			`jsr end_book`
ds: rename to make more sense also faster loads 2019-11-03 01:05:11 +00:00
			`;===========================`
			`; credits`
			`;===========================`
ds: merge in the starbase code 2019-10-02 04:03:00 +00:00
ds: rename to make more sense also faster loads 2019-11-03 01:05:11 +00:00			`jsr credits`
ds: merge in the starbase code 2019-10-02 04:03:00 +00:00
ds: initial commit 2019-08-31 03:45:50 +00:00			`; wait wait wait`

ds: merge in the starbase code 2019-10-02 04:03:00 +00:00			`; jsr wait_until_keypressed`
ds: more music issues with the cycle-counting parts :( 2019-11-08 05:47:34 +00:00			`repeat_ending:`
			`jmp repeat_ending`
ds: initial commit 2019-08-31 03:45:50 +00:00


			`;======================`
			`; wait until keypressed`
			`;======================`
ds: getting closer 2019-11-16 03:17:49 +00:00			`;wait_until_keypressed:`
			`; lda KEYPRESS`
			`; bpl wait_until_keypressed`
			`; bit KEYRESET`
			`; rts`
ds: more music issues with the cycle-counting parts :( 2019-11-08 05:47:34 +00:00
ds: fix long running mystery of gr_clear cycle counting was wrong in gr_clear update appleii_intro to compensate move some stuff around 2019-11-15 17:31:28 +00:00

			`; FIXME: put at end after music?`
ds: move destructable graphics to front 2019-11-08 18:58:33 +00:00			`;.include "earth.inc"`
			`.include "book_40_48d.inc"`
			`.include "credits_bg.inc"`

ds: initial commit 2019-08-31 03:45:50 +00:00
ds: in search of 32k 2019-11-16 03:43:44 +00:00			`.include "delay_a.s" ; critical`
ds: rename to make more sense also faster loads 2019-11-03 01:05:11 +00:00
ds: move around things in memory 2019-11-15 03:56:08 +00:00			`; things that are exactly 1 page in size`
ds: rename to make more sense also faster loads 2019-11-03 01:05:11 +00:00			`.align $100`
ds: move around things in memory 2019-11-15 03:56:08 +00:00			`.include "offsets_table.s"`
			`.include "movement_table.s"`
ds: in search of 32k 2019-11-16 03:43:44 +00:00			`random_values:`
			`.incbin "random.data"`
			`.include "offsets_table2.s"`
ds: move around things in memory 2019-11-15 03:56:08 +00:00			`.include "font.s"`
			`; things that need to not cross pages`
ds: add 40x96 code 2019-09-04 19:46:10 +00:00			`.include "vapor_lock.s"`
			`.include "gr_copy.s"`
ds: in search of 32k 2019-11-16 03:43:44 +00:00			`.include "gr_unrle.s"`
ds: rename to make more sense also faster loads 2019-11-03 01:05:11 +00:00			`.include "gr_offsets.s"`
ds: merge in the starbase code 2019-10-02 04:03:00 +00:00			`.include "gr_pageflip.s"`
ds: add text to open book 2019-11-06 04:09:00 +00:00			`.include "gr_clear_bottom.s"`
ds: move around things in memory 2019-11-15 03:56:08 +00:00			`;.align $100`
			`.include "gr_overlay.s" ; not critical`
ds: some cycle counting 2019-10-12 14:47:38 +00:00			`.include "gr_fast_clear.s"`
ds: move around things in memory 2019-11-15 03:56:08 +00:00			`.include "gr_run_sequence.s" ; not critical`
ds: initial commit 2019-08-31 03:45:50 +00:00
ds: add escape sequence 2019-10-09 03:04:26 +00:00			`; escape`
ds: trying to put it all together 2019-11-06 04:56:51 +00:00			`.include "escape.s"`
ds: add escape sequence 2019-10-09 03:04:26 +00:00
ds: add book opening scene 2019-11-06 02:20:11 +00:00			`; reading`
			`.include "reading.s"`
ds: add book scene 2019-10-07 04:12:36 +00:00
ds: rename to make more sense also faster loads 2019-11-03 01:05:11 +00:00			`; credits`
			`.include "credits.s"`

ds: add updated music 2019-10-02 04:25:04 +00:00			`; Music player`
			`.include "pt3_lib_core.s"`
			`.include "pt3_lib_init.s"`
			`.include "pt3_lib_mockingboard.s"`
ds: initial commit 2019-08-31 03:45:50 +00:00			`.include "interrupt_handler.s"`
ds: rename to make more sense also faster loads 2019-11-03 01:05:11 +00:00			`.include "pt3_lib_play_frame.s"`
			`.include "pt3_lib_write_frame.s"`
ds: try to make the sound playing code generic 2019-11-07 22:05:53 +00:00			`.include "pt3_lib_write_lc.s"`
ds: more work on escape getting closer 2019-11-03 16:23:53 +00:00
ds: rename to make more sense also faster loads 2019-11-03 01:05:11 +00:00			`.include "create_update_type1.s"`
ds: more work on escape getting closer 2019-11-03 16:23:53 +00:00			`.include "create_update_type2.s"`
ds: initial commit 2019-08-31 03:45:50 +00:00
ds: move destructable graphics to front 2019-11-08 18:58:33 +00:00
ds: initial commit 2019-08-31 03:45:50 +00:00			`PT3_LOC = song`

			`; must be page aligned`
			`.align 256`
			`song:`
ds: rename to make more sense also faster loads 2019-11-03 01:05:11 +00:00			`.incbin "dya_space_demo2.pt3"`
ds: vapor lock again with keyboard emulated on escape 2019-11-07 03:25:11 +00:00
			`end_of_line:`