; Apple II Megademo ; by deater (Vince Weaver) .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 bird_mountain ; jsr arriving_there ; 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 jsr arriving_there ; 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 "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 Lores Graphics ;============================ ; leaving .include "leaving.inc" ; waterfall .include "waterfall_page1.inc" .include "waterfall_page2.inc" ; arrival .include "arrival.inc" ;============================ ; Include Hires Graphics ;============================ sb_background_hgr: .incbin "SB_BACKGROUNDC.BIN.lz4",11 sb_background_hgr_end: katahdin: .incbin "KATC.BIN.lz4",11 ; skip the header katahdin_end: