dos33fsprogs/demos/megademo/megademo.s

; Apple II Megademo

; by deater (Vince Weaver) <vince@deater.net>

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

; external routines

play_music=$1000
mockingboard_init=$1100
mockingboard_mute=$11a1


megademo_start:				; this should end up at $4000

	;===================
	; Check for Apple II and patch
	;===================

	lda	$FBB3		; IIe and newer is $06
	cmp	#6
	beq	apple_iie

	lda	#$54		; patch the check_email font code
	sta	ce_patch+1


apple_iie:

	;==================
	; Init mockingboard
	;==================

	lda	#0
	sta	MB_PATTERN
	lda	#$60
	sta	MB_FRAME

	jsr	mockingboard_init

	;===================
	; set graphics mode
	;===================
	jsr	HOME

;	jsr	space_bars

;	jsr	arriving_there

;	jsr	fireworks

	; C64 Opening Sequence

	jsr	c64_opener

	; Falling Apple II

	jsr	falling_apple

	; Starring Screens
	jsr	starring

	jsr	setup_people_fs
	jsr	starring_people
	jsr	setup_people_deater
	jsr	starring_people
	jsr	setup_people_lg
	jsr	starring_people

	; E-mail arriving
	jsr	check_email

	; Leaving house
	jsr	leaving_home

	; Riding bird
	jsr	bird_mountain

	; Waterfall
	jsr	waterfall

	; Enter ship
	jsr	rocket_takeoff

	; mode7 (???)
	jsr	mode7_flying

	; Fly in space
	jsr	space_bars

	; Arrive
	jsr	arriving_there

	; Fireworks
	jsr	fireworks

	;==================
	; Game over
	;==================
	; we never get here
;game_over_man:
;	jmp	game_over_man


.align $100
	.include	"lz4_decode.s"
	.include	"c64_opener.s"
	.include	"falling_apple.s"
	.include	"gr_unrle.s"
	.include	"gr_copy.s"
	.include	"starring.s"
	.include	"starring_people.s"
	.include	"check_email.s"
.align $100
	.include	"gr_offsets.s"
	.include	"gr_hline.s"
	.include	"vapor_lock.s"
	.include	"delay_a.s"
;	.include	"wait_keypress.s"
	.include	"random16.s"
.align $100
	.include	"fireworks.s"
	.include	"hgr.s"
	.include	"bird_mountain.s"
	.include	"move_letters.s"
.align $100
	.include	"gr_putsprite.s"
	.include	"mode7.s"
	.include	"space_bars.s"
	.include	"takeoff.s"
	.include	"leaving.s"
	.include	"arrival.s"
	.include	"waterfall.s"
	.include	"text_print.s"
.align $100
	.include	"screen_split.s"

;============================
; Include Sprites
;============================
.align $100
	.include "tfv_sprites.inc"
	.include "mode7_sprites.inc"

;=================================
; Include Text for Sliding Letters
;  *DONT CROSS PAGES*
;=================================
.include "letters.s"

;============================
; Include Lores Graphics
; No Alignment Needed
;============================

;  falling_apple
.include "apple_40_96.inc"

; starring
.include "starring1.inc"
.include "starring2.inc"
.include "fs.inc"
.include "deater.inc"
.include "lg.inc"
.include "sp_names.inc"

; e-mail
.include "email_40_96.inc"

; leaving
.include "leaving.inc"

; waterfall
.include "waterfall_page1.inc"
.include "waterfall_page2.inc"

; takeoff
.include "takeoff.inc"

; arrival
.include "arrival.inc"

;background:
.include "fw_background.inc"

;============================
; Include Hires Graphics
; No Alignment Needed
;   FIXME: we can save 8 bytes per file by stripping checksums off end
;============================

; starring
starring3:
.incbin "starring3.img.lz4",11
starring3_end:
fs_hgr:
.incbin "FS_HGRC.BIN.lz4",11
fs_hgr_end:
deater_hgr:
.incbin "DEATER_HGRC.BIN.lz4",11
deater_hgr_end:
lg_hgr:
.incbin "LG_HGRC.BIN.lz4",11
lg_hgr_end:

; bird mountain
katahdin:
.incbin "KATC.BIN.lz4",11               ; skip the header
katahdin_end:

; takeoff
takeoff_hgr:
.incbin "takeoff.img.lz4",11
takeoff_hgr_end:

; spacebars
sb_background_hgr:
.incbin "SB_BACKGROUNDC.BIN.lz4",11
sb_background_hgr_end:
megademo: initial commit 2018-08-29 15:46:25 +00:00			`; Apple II Megademo`

			`; by deater (Vince Weaver) <vince@deater.net>`

megademo: compress the image 2018-08-29 21:14:43 +00:00			`.include "zp.inc"`
megademo: load some graphics 2018-08-29 15:57:54 +00:00			`.include "hardware.inc"`

megademo: start adding sound into each subscene 2018-10-28 15:50:10 +00:00			`; external routines`

			`play_music=$1000`
			`mockingboard_init=$1100`
megademo: use interrupt audio in the gaps 2018-10-29 04:53:37 +00:00			`mockingboard_mute=$11a1`
megademo: start adding sound into each subscene 2018-10-28 15:50:10 +00:00
megademo: load some graphics 2018-08-29 15:57:54 +00:00
megademo: start arranging the files 2018-10-13 20:55:14 +00:00			`megademo_start: ; this should end up at $4000`
megademo: more fussing with the loader 2018-10-13 18:42:51 +00:00
megademo: auto-detect Apple II vs IIe and patch accordingly 2018-09-30 01:57:22 +00:00			`;===================`
			`; Check for Apple II and patch`
			`;===================`

			`lda $FBB3 ; IIe and newer is $06`
			`cmp #6`
			`beq apple_iie`

			`lda #$54 ; patch the check_email font code`
			`sta ce_patch+1`


			`apple_iie:`

megademo: start adding sound into each subscene 2018-10-28 15:50:10 +00:00			`;==================`
			`; Init mockingboard`
			`;==================`

			`lda #0`
			`sta MB_PATTERN`
megademo: adjust timing of the music 2018-10-29 04:36:32 +00:00			`lda #$60`
			`sta MB_FRAME`
megademo: start adding sound into each subscene 2018-10-28 15:50:10 +00:00
			`jsr mockingboard_init`

megademo: load some graphics 2018-08-29 15:57:54 +00:00			`;===================`
			`; set graphics mode`
			`;===================`
			`jsr HOME`

megademo: spacebars auto-drive 2018-10-29 21:09:02 +00:00			`; jsr space_bars`
megademo: add in space_bars code 2018-10-13 23:03:38 +00:00
megademo: fly off into blue 2018-10-30 05:55:14 +00:00			`; jsr arriving_there`

megademo: more ill-advised messing with alignment 2018-11-02 02:32:28 +00:00			`; jsr fireworks`

megademo: more splitting up 2018-09-17 04:12:51 +00:00			`; C64 Opening Sequence`
megademo: compress the image 2018-08-29 21:14:43 +00:00
megademo: c64 cursor 2018-09-23 03:07:59 +00:00			`jsr c64_opener`
megademo: compress the image 2018-08-29 21:14:43 +00:00
megademo: more splitting up 2018-09-17 04:12:51 +00:00			`; Falling Apple II`
megademo: compress the image 2018-08-29 21:14:43 +00:00
megademo: more splitting up 2018-09-17 04:12:51 +00:00			`jsr falling_apple`
megademo: compress the image 2018-08-29 21:14:43 +00:00
megademo: more splitting up 2018-09-17 04:12:51 +00:00			`; Starring Screens`
megademo: initial starring intro 2018-10-01 02:10:13 +00:00			`jsr starring`
megademo: more splitting up 2018-09-17 04:12:51 +00:00
starring: add deater 2018-10-02 04:19:26 +00:00			`jsr setup_people_fs`
			`jsr starring_people`
			`jsr setup_people_deater`
			`jsr starring_people`
megademo: finish getting starring_people looking nice 2018-10-23 04:27:18 +00:00			`jsr setup_people_lg`
			`jsr starring_people`
starring: add deater 2018-10-02 04:19:26 +00:00
megademo: more splitting up 2018-09-17 04:12:51 +00:00			`; E-mail arriving`
megadmo: add e-mail check 2018-09-29 04:59:14 +00:00			`jsr check_email`

megademo: merge in fireworks for ending need to change a bunch to make this work Now load at $4000 as was too big to fit between $1000 and $2000 also turns out our lz4 code was writing past the end, which you notice when you have important code right after the end of HGR1 2018-09-26 18:01:14 +00:00			`; Leaving house`
megademo: add leaving screen 2018-10-14 04:50:15 +00:00			`jsr leaving_home`
megademo: merge in fireworks for ending need to change a bunch to make this work Now load at $4000 as was too big to fit between $1000 and $2000 also turns out our lz4 code was writing past the end, which you notice when you have important code right after the end of HGR1 2018-09-26 18:01:14 +00:00
			`; Riding bird`
megademo: more fussing with the loader 2018-10-13 18:42:51 +00:00			`jsr bird_mountain`
megademo: merge in fireworks for ending need to change a bunch to make this work Now load at $4000 as was too big to fit between $1000 and $2000 also turns out our lz4 code was writing past the end, which you notice when you have important code right after the end of HGR1 2018-09-26 18:01:14 +00:00
			`; Waterfall`
megademo: add waterfall portion 2018-10-06 03:57:39 +00:00			`jsr waterfall`
megademo: merge in fireworks for ending need to change a bunch to make this work Now load at $4000 as was too big to fit between $1000 and $2000 also turns out our lz4 code was writing past the end, which you notice when you have important code right after the end of HGR1 2018-09-26 18:01:14 +00:00
			`; Enter ship`
megademo: initial takeoff code 2018-10-04 04:33:04 +00:00			`jsr rocket_takeoff`
megademo: merge in fireworks for ending need to change a bunch to make this work Now load at $4000 as was too big to fit between $1000 and $2000 also turns out our lz4 code was writing past the end, which you notice when you have important code right after the end of HGR1 2018-09-26 18:01:14 +00:00
megadmo: add e-mail check 2018-09-29 04:59:14 +00:00			`; mode7 (???)`
megademo: more fussing with the loader 2018-10-13 18:42:51 +00:00			`jsr mode7_flying`
megadmo: add e-mail check 2018-09-29 04:59:14 +00:00
megademo: merge in fireworks for ending need to change a bunch to make this work Now load at $4000 as was too big to fit between $1000 and $2000 also turns out our lz4 code was writing past the end, which you notice when you have important code right after the end of HGR1 2018-09-26 18:01:14 +00:00			`; Fly in space`
megademo: add in space_bars code 2018-10-13 23:03:38 +00:00			`jsr space_bars`
megademo: merge in fireworks for ending need to change a bunch to make this work Now load at $4000 as was too big to fit between $1000 and $2000 also turns out our lz4 code was writing past the end, which you notice when you have important code right after the end of HGR1 2018-09-26 18:01:14 +00:00
			`; Arrive`
arrival: initial commit 2018-10-16 02:18:16 +00:00			`jsr arriving_there`
megademo: merge in fireworks for ending need to change a bunch to make this work Now load at $4000 as was too big to fit between $1000 and $2000 also turns out our lz4 code was writing past the end, which you notice when you have important code right after the end of HGR1 2018-09-26 18:01:14 +00:00
			`; Fireworks`
megademo: more fussing with the loader 2018-10-13 18:42:51 +00:00			`jsr fireworks`
megademo: merge in fireworks for ending need to change a bunch to make this work Now load at $4000 as was too big to fit between $1000 and $2000 also turns out our lz4 code was writing past the end, which you notice when you have important code right after the end of HGR1 2018-09-26 18:01:14 +00:00
megademo: finish getting starring_people looking nice 2018-10-23 04:27:18 +00:00			`;==================`
megademo: merge in fireworks for ending need to change a bunch to make this work Now load at $4000 as was too big to fit between $1000 and $2000 also turns out our lz4 code was writing past the end, which you notice when you have important code right after the end of HGR1 2018-09-26 18:01:14 +00:00			`; Game over`
megademo: finish getting starring_people looking nice 2018-10-23 04:27:18 +00:00			`;==================`
			`; we never get here`
megademo: start adding sound into each subscene 2018-10-28 15:50:10 +00:00			`;game_over_man:`
			`; jmp game_over_man`
megademo: initial commit 2018-08-29 15:46:25 +00:00

megademo: adjust timing of the music 2018-10-29 04:36:32 +00:00			`.align $100`
megademo: compress the image 2018-08-29 21:14:43 +00:00			`.include "lz4_decode.s"`
megademo: more splitting up 2018-09-17 04:12:51 +00:00			`.include "c64_opener.s"`
megdemo: have simple case working 2018-09-17 04:44:32 +00:00			`.include "falling_apple.s"`
megademo: move some more stuff to main file 2018-10-21 18:22:27 +00:00			`.include "gr_unrle.s"`
			`.include "gr_copy.s"`
megademo: initial starring intro 2018-10-01 02:10:13 +00:00			`.include "starring.s"`
starring: add deater 2018-10-02 04:19:26 +00:00			`.include "starring_people.s"`
megadmo: add e-mail check 2018-09-29 04:59:14 +00:00			`.include "check_email.s"`
megademo: c64 vapor lock 2018-09-23 17:44:03 +00:00			`.align $100`
megademo: split off gr_offsets 2018-09-17 17:26:45 +00:00			`.include "gr_offsets.s"`
megademo: re-use some infrastructure from fireworks demo 2018-09-17 17:51:53 +00:00			`.include "gr_hline.s"`
			`.include "vapor_lock.s"`
megademo: hook up improved vapor lock still issues :( 2018-09-21 04:33:51 +00:00			`.include "delay_a.s"`
megademo: more ill-advised messing with alignment 2018-11-02 02:32:28 +00:00			`; .include "wait_keypress.s"`
megademo: merge in fireworks for ending need to change a bunch to make this work Now load at $4000 as was too big to fit between $1000 and $2000 also turns out our lz4 code was writing past the end, which you notice when you have important code right after the end of HGR1 2018-09-26 18:01:14 +00:00			`.include "random16.s"`
			`.align $100`
megademo: initial takeoff code 2018-10-04 04:33:04 +00:00			`.include "fireworks.s"`
megademo: merge in fireworks for ending need to change a bunch to make this work Now load at $4000 as was too big to fit between $1000 and $2000 also turns out our lz4 code was writing past the end, which you notice when you have important code right after the end of HGR1 2018-09-26 18:01:14 +00:00			`.include "hgr.s"`
megademo: more fussing with the loader 2018-10-13 18:42:51 +00:00			`.include "bird_mountain.s"`
megademo: merge in fireworks for ending need to change a bunch to make this work Now load at $4000 as was too big to fit between $1000 and $2000 also turns out our lz4 code was writing past the end, which you notice when you have important code right after the end of HGR1 2018-09-26 18:01:14 +00:00			`.include "move_letters.s"`
fireworks: merge in the bird_mountain sequence 2018-09-27 03:52:36 +00:00			`.align $100`
			`.include "gr_putsprite.s"`
megademo: more fussing with the loader 2018-10-13 18:42:51 +00:00			`.include "mode7.s"`
megademo: add in space_bars code 2018-10-13 23:03:38 +00:00			`.include "space_bars.s"`
megademo: initial takeoff code 2018-10-04 04:33:04 +00:00			`.include "takeoff.s"`
megademo: add leaving screen 2018-10-14 04:50:15 +00:00			`.include "leaving.s"`
arrival: initial commit 2018-10-16 02:18:16 +00:00			`.include "arrival.s"`
megademo: add waterfall portion 2018-10-06 03:57:39 +00:00			`.include "waterfall.s"`
megademo: add in space_bars code 2018-10-13 23:03:38 +00:00			`.include "text_print.s"`
megademo: spacebars finally working 2018-10-14 03:35:03 +00:00			`.align $100`
			`.include "screen_split.s"`
megademo: add waterfall portion 2018-10-06 03:57:39 +00:00
			`;============================`
			`; Include Sprites`
			`;============================`
			`.align $100`
			`.include "tfv_sprites.inc"`
megademo: spacebars finally working 2018-10-14 03:35:03 +00:00			`.include "mode7_sprites.inc"`
megademo: add waterfall portion 2018-10-06 03:57:39 +00:00
megademo: update text in bird_mountain 2018-10-17 16:04:14 +00:00			`;=================================`
			`; Include Text for Sliding Letters`
			`; DONT CROSS PAGES`
			`;=================================`
			`.include "letters.s"`

megademo: add waterfall portion 2018-10-06 03:57:39 +00:00			`;============================`
megademo: spacebars finally working 2018-10-14 03:35:03 +00:00			`; Include Lores Graphics`
megademo: update text in bird_mountain 2018-10-17 16:04:14 +00:00			`; No Alignment Needed`
megademo: add waterfall portion 2018-10-06 03:57:39 +00:00			`;============================`
megademo: update text in bird_mountain 2018-10-17 16:04:14 +00:00
megademo: move some more stuff to main file 2018-10-21 18:22:27 +00:00			`; falling_apple`
			`.include "apple_40_96.inc"`

megademo: starring, update to time out 2018-10-18 17:53:37 +00:00			`; starring`
			`.include "starring1.inc"`
			`.include "starring2.inc"`
megademo: move some more images to main file 2018-10-18 17:58:36 +00:00			`.include "fs.inc"`
			`.include "deater.inc"`
megademo: finish getting starring_people looking nice 2018-10-23 04:27:18 +00:00			`.include "lg.inc"`
			`.include "sp_names.inc"`
megademo: starring, update to time out 2018-10-18 17:53:37 +00:00
megademo: add susie to email scene 2018-10-22 04:19:34 +00:00			`; e-mail`
			`.include "email_40_96.inc"`

megademo: add leaving screen 2018-10-14 04:50:15 +00:00			`; leaving`
			`.include "leaving.inc"`
megademo: update text in bird_mountain 2018-10-17 16:04:14 +00:00
megademo: more waterfall compaction 2018-10-06 19:43:10 +00:00			`; waterfall`
			`.include "waterfall_page1.inc"`
			`.include "waterfall_page2.inc"`
megademo: update text in bird_mountain 2018-10-17 16:04:14 +00:00
megademo: centralize takeoff graphics 2018-10-19 02:27:08 +00:00			`; takeoff`
			`.include "takeoff.inc"`

arrival: initial commit 2018-10-16 02:18:16 +00:00			`; arrival`
			`.include "arrival.inc"`
megademo: add leaving screen 2018-10-14 04:50:15 +00:00
megademo: ill-advised trying to fix the fireworks bug 2018-11-02 01:46:23 +00:00			`;background:`
			`.include "fw_background.inc"`

megademo: spacebars finally working 2018-10-14 03:35:03 +00:00			`;============================`
			`; Include Hires Graphics`
megademo: update text in bird_mountain 2018-10-17 16:04:14 +00:00			`; No Alignment Needed`
megademo: move some more images to main file 2018-10-18 17:58:36 +00:00			`; FIXME: we can save 8 bytes per file by stripping checksums off end`
megademo: spacebars finally working 2018-10-14 03:35:03 +00:00			`;============================`
megademo: update text in bird_mountain 2018-10-17 16:04:14 +00:00
megademo: starring, update to time out 2018-10-18 17:53:37 +00:00			`; starring`
			`starring3:`
			`.incbin "starring3.img.lz4",11`
			`starring3_end:`
megademo: move some more images to main file 2018-10-18 17:58:36 +00:00			`fs_hgr:`
			`.incbin "FS_HGRC.BIN.lz4",11`
			`fs_hgr_end:`
			`deater_hgr:`
			`.incbin "DEATER_HGRC.BIN.lz4",11`
			`deater_hgr_end:`
megademo: finish getting starring_people looking nice 2018-10-23 04:27:18 +00:00			`lg_hgr:`
			`.incbin "LG_HGRC.BIN.lz4",11`
			`lg_hgr_end:`
megademo: starring, update to time out 2018-10-18 17:53:37 +00:00
megademo: update text in bird_mountain 2018-10-17 16:04:14 +00:00			`; bird mountain`
move mountain 2018-10-17 15:40:03 +00:00			`katahdin:`
			`.incbin "KATC.BIN.lz4",11 ; skip the header`
			`katahdin_end:`
megademo: spacebars finally working 2018-10-14 03:35:03 +00:00
megademo: centralize takeoff graphics 2018-10-19 02:27:08 +00:00			`; takeoff`
			`takeoff_hgr:`
			`.incbin "takeoff.img.lz4",11`
			`takeoff_hgr_end:`

megademo: update text in bird_mountain 2018-10-17 16:04:14 +00:00			`; spacebars`
			`sb_background_hgr:`
			`.incbin "SB_BACKGROUNDC.BIN.lz4",11`
			`sb_background_hgr_end:`
megademo: move some more images to main file 2018-10-18 17:58:36 +00:00
megademo: centralize takeoff graphics 2018-10-19 02:27:08 +00:00