dos33fsprogs/megamusic/megamusic.s

59 lines
951 B
ArmAsm
Raw Normal View History

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"