dos33fsprogs/megademo/megademo.s

; Apple II Megademo

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

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


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:

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

	jsr	leaving_home

	; 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

	; 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

	; Fireworks

	jsr	fireworks

	; Game over
game_over_man:
	jmp	game_over_man

	;===================
	; Loop Forever
	;===================
loop_forever:
	jmp	loop_forever


	.include	"lz4_decode.s"
	.include	"c64_opener.s"
	.include	"falling_apple.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	"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 Lores Graphics
;============================
; leaving
.include "leaving.inc"
; waterfall
.include "waterfall_page1.inc"
.include "waterfall_page2.inc"


;============================
; Include Hires Graphics
;============================
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 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: load some graphics 2018-08-29 15:57:54 +00:00			`;===================`
			`; set graphics mode`
			`;===================`
			`jsr HOME`

megademo: add leaving screen 2018-10-14 04:50:15 +00:00			`jsr leaving_home`
megademo: add in space_bars code 2018-10-13 23:03:38 +00:00
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: 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`

			`; 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
			`; Game over`
			`game_over_man:`
			`jmp game_over_man`
megademo: initial commit 2018-08-29 15:46:25 +00:00
			`;===================`
megdemo: have simple case working 2018-09-17 04:44:32 +00:00			`; Loop Forever`
megademo: initial commit 2018-08-29 15:46:25 +00:00			`;===================`
megdemo: have simple case working 2018-09-17 04:44:32 +00:00			`loop_forever:`
			`jmp loop_forever`
megademo: initial commit 2018-08-29 15:46:25 +00:00

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: 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: c64 cursor 2018-09-23 03:07:59 +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"`
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: spacebars finally working 2018-10-14 03:35:03 +00:00			`; Include Lores Graphics`
megademo: add waterfall portion 2018-10-06 03:57:39 +00:00			`;============================`
megademo: add leaving screen 2018-10-14 04:50:15 +00:00			`; leaving`
			`.include "leaving.inc"`
megademo: more waterfall compaction 2018-10-06 19:43:10 +00:00			`; waterfall`
			`.include "waterfall_page1.inc"`
			`.include "waterfall_page2.inc"`

megademo: add leaving screen 2018-10-14 04:50:15 +00:00
megademo: spacebars finally working 2018-10-14 03:35:03 +00:00			`;============================`
			`; Include Hires Graphics`
			`;============================`
			`sb_background_hgr:`
			`.incbin "SB_BACKGROUNDC.BIN.lz4",11`
			`sb_background_hgr_end:`