dos33fsprogs/megademo/megademo.s
2018-10-17 12:04:14 -04:00

162 lines
2.6 KiB
ArmAsm

; 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 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 Text for Sliding Letters
; *DONT CROSS PAGES*
;=================================
.include "letters.s"
;============================
; Include Lores Graphics
; No Alignment Needed
;============================
; leaving
.include "leaving.inc"
; waterfall
.include "waterfall_page1.inc"
.include "waterfall_page2.inc"
; arrival
.include "arrival.inc"
;============================
; Include Hires Graphics
; No Alignment Needed
;============================
; bird mountain
katahdin:
.incbin "KATC.BIN.lz4",11 ; skip the header
katahdin_end:
; spacebars
sb_background_hgr:
.incbin "SB_BACKGROUNDC.BIN.lz4",11
sb_background_hgr_end: