2018-10-27 03:40:54 +00:00
|
|
|
; Apple II Megademo
|
|
|
|
|
|
|
|
|
|
; by deater (Vince Weaver) <vince@deater.net>
|
|
|
|
|
|
|
|
|
|
.include "zp.inc"
|
|
|
|
|
.include "hardware.inc"
|
|
|
|
|
|
2018-10-28 04:04:52 +00:00
|
|
|
play_music=$1000
|
|
|
|
|
mockingboard_init=$1100
|
2018-10-27 03:40:54 +00:00
|
|
|
|
|
|
|
|
megamusic_start: ; this should end up at $4000
|
|
|
|
|
|
2018-10-27 04:46:49 +00:00
|
|
|
lda #0
|
|
|
|
|
sta MB_FRAME
|
|
|
|
|
sta MB_PATTERN
|
|
|
|
|
|
2018-10-27 04:04:31 +00:00
|
|
|
;===================
|
|
|
|
|
; Init mockingboard
|
|
|
|
|
;===================
|
|
|
|
|
jsr mockingboard_init
|
|
|
|
|
|
2018-10-27 03:40:54 +00:00
|
|
|
;===================
|
|
|
|
|
; set graphics mode
|
|
|
|
|
;===================
|
|
|
|
|
jsr HOME
|
|
|
|
|
|
|
|
|
|
; apple
|
|
|
|
|
|
|
|
|
|
jsr falling_apple
|
|
|
|
|
|
|
|
|
|
;==================
|
|
|
|
|
; Game over
|
|
|
|
|
;==================
|
|
|
|
|
; we never get here
|
|
|
|
|
game_over_man:
|
|
|
|
|
jmp game_over_man
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
.include "falling_apple.s"
|
|
|
|
|
.include "gr_unrle.s"
|
|
|
|
|
.include "gr_copy.s"
|
|
|
|
|
.align $100
|
|
|
|
|
.include "gr_offsets.s"
|
|
|
|
|
.include "gr_hline.s"
|
|
|
|
|
.include "vapor_lock.s"
|
|
|
|
|
.include "delay_a.s"
|
2018-10-28 04:04:52 +00:00
|
|
|
;.align $100
|
|
|
|
|
; .include "mockingboard.s"
|
|
|
|
|
; .include "play_music.s"
|
2018-10-27 03:40:54 +00:00
|
|
|
|
|
|
|
|
;============================
|
|
|
|
|
; Include Lores Graphics
|
|
|
|
|
; No Alignment Needed
|
|
|
|
|
;============================
|
|
|
|
|
|
|
|
|
|
; falling_apple
|
|
|
|
|
.include "apple_40_96.inc"
|
|
|
|
|
|
